F＃：處理網絡例外

Question

我是編程新手，F＃是我的第一語言。

這裏是我的代碼的相關片段：

let downloadHtmlToDiskAsync (fighterHtmlDirectory: string) (fighterBaseUrl: string) (fighterId: int) = 
    let fighterUrl = fighterBaseUrl + fighterId.ToString() 
    try 
     async { 

      let! html = fetchHtmlAsync fighterUrl 
      let fighterName = getFighterNameFromPage html 

      let newTextFile = File.Create(fighterHtmlDirectory + "\\" + fighterId.ToString("00000") + " " + fighterName.TrimEnd([|' '|]) + ".html") 
      use file = new StreamWriter(newTextFile) 
      file.Write(html) 
      file.Close() 
     } 
    with 
     :? System.Net.WebException -> async {File.AppendAllText("G:\User\WebScraping\Invalid Urls.txt", fighterUrl + "\n")} 

let downloadFighterDatabase (directoryPath: string) (fighterBaseUrl: string) (beginningFighterId: int) (endFighterId: int) = 
    let allFighterIds = [for id in beginningFighterId .. endFighterId -> id] 
    allFighterIds 
    |> Seq.map (fun fighterId -> downloadHtmlToDiskAsync directoryPath fighterBaseUrl fighterId) 
    |> Async.Parallel 
    |> Async.RunSynchronously 

我一直在使用F＃交互式測試功能fetchHtmlAsync和getFighterNameFromPage。他們都很好。

當我構建和運行解決方案，但是，我得到了以下錯誤消息：

An unhandled exception of type 'System.Net.WebException' occurred in FSharp.Core.dll Additional information: The remote server returned an error: (404) Not Found.

出了什麼問題？我應該做什麼改變？

Answer 1

將您的trywith放入async之內。

let downloadHtmlToDiskAsync (fighterHtmlDirectory: string) (fighterBaseUrl: string) (fighterId: int) = 
    let fighterUrl = fighterBaseUrl + fighterId.ToString() 
    async { 
     try 
      let! html = fetchHtmlAsync fighterUrl 
      let fighterName = getFighterNameFromPage html 

      let newTextFile = File.Create(fighterHtmlDirectory + "\\" + fighterId.ToString("00000") + " " + fighterName.TrimEnd([|' '|]) + ".html") 
      use file = new StreamWriter(newTextFile) 
      file.Write(html) 
      file.Close() 
     with 
      :? System.Net.WebException -> File.AppendAllText("G:\User\WebScraping\Invalid Urls.txt", fighterUrl + "\n") 
    }