如何使用HttpClient改写过时的F#异步表达式示例？

下面是用HttpClient替代过时WebClient后的完整代码，完全保留原示例的异步并行请求逻辑：

open System
open System.Net.Http

let urlList = [ 
    "Microsoft.com", "http://www.microsoft.com/"
    "MSDN", "http://msdn.microsoft.com/"
    "Bing", "http://www.bing.com"
]

let fetchAsync (client: HttpClient) (name, url: string) =
    async {
        try
            // 将HttpClient返回的Task转换为F# async表达式
            let! html = client.GetStringAsync(url) |> Async.AwaitTask
            printfn "为%s读取了%d个字符" name html.Length
        with
        | ex -> printfn "请求%s时出错：%s" name ex.Message
    }

let runAll() =
    // 使用use关键字确保HttpClient自动释放资源，且复用实例（最佳实践）
    use client = new HttpClient()
    urlList
    |> Seq.map (fetchAsync client)
    |> Async.Parallel
    |> Async.RunSynchronously
    |> ignore

runAll()

关键改动说明 #

• 替换客户端类型：彻底移除过时的WebClient，改用官方推荐的HttpClient
• 复用HttpClient实例：不要在每个请求里新建HttpClient，复用实例能提升性能并避免socket资源耗尽问题，use关键字会帮你自动释放资源
• Task转Async适配：HttpClient的异步方法返回.NET标准Task类型，用Async.AwaitTask可以无缝转换为F#的async表达式，保持原有的异步编程风格
• 简化URL处理：HttpClient直接支持字符串格式的URL，无需手动创建Uri对象
• 更清晰的错误提示：异常信息里关联了站点名称，方便快速定位哪个请求出了问题

内容的提问来源于stack exchange，提问作者Alexander K.