使用Charles Proxy时如何优雅处理代理服务不可用的错误

嘿，我看你已经搭好了异步请求的基础框架，就差把代理不可用的错误处理补全了对吧？咱们来把这段代码优化得更健壮，让它在Charles没运行的时候能优雅应对，而不是直接抛错崩溃。

首先得明确：当Charles Proxy没启动或者端口不对时，请求抛出的WebException会有特定的状态码，我们可以通过这个来精准识别代理相关的错误，而不是把所有网络错误混为一谈。

完善后的完整代码 #

open System
open System.IO
open System.Net

let fetchUrl (url: string) =
    let request = WebRequest.CreateHttp(Uri url)
    // 指定Charles代理
    request.Proxy <- WebProxy("localhost", 8888)
    request.Method <- "GET"
    
    async {
        try
            // 正常请求流程
            use! response = request.AsyncGetResponse()
            use stream = response.GetResponseStream()
            use reader = new StreamReader(stream)
            return Ok (reader.ReadToEnd())
        with 
        | :? WebException as e ->
            // 分情况处理Web异常
            match e.Status with
            // 这两种状态基本就是代理没运行或者连不上的情况
            | WebExceptionStatus.ConnectFailure 
            | WebExceptionStatus.ProxyNameResolutionFailure ->
                // 这里可以自定义处理逻辑：比如提示用户检查代理，或者自动 fallback 到无代理请求
                return Error "Charles Proxy未运行或无法连接，请检查代理服务是否启动、端口是否正确"
            // 处理HTTP协议错误（比如404、500这类服务器响应错误）
            | WebExceptionStatus.ProtocolError ->
                use errorResponse = e.Response :?> HttpWebResponse
                use stream = errorResponse.GetResponseStream()
                use reader = new StreamReader(stream)
                let errorDetails = reader.ReadToEnd()
                return Error $"请求失败，状态码: {int errorResponse.StatusCode}，详情: {errorDetails}"
            // 其他类型的网络错误统一处理
            | otherStatus ->
                return Error $"网络请求出错: {e.Message}，错误类型: {otherStatus}"
        // 处理非WebException的其他意外错误
        | ex ->
            return Error $"未知错误: {ex.Message}"
    }

关键优化点说明 #

• 精准识别代理错误：通过WebException.Status的ConnectFailure和ProxyNameResolutionFailure状态，直接定位到代理不可用的场景，避免误判其他网络问题。
• 分层错误反馈：把代理错误、HTTP响应错误、其他异常分开处理，返回的错误信息更明确，调用方也能更方便地做后续处理。
• 优雅的结果类型：用Result<string, string>作为返回值，调用方可以通过模式匹配轻松处理成功/失败的分支，比如：

  match fetchUrl "https://example.com" |> Async.RunSynchronously with
  | Ok content -> printfn "请求成功：%s" content
  | Error msg -> printfn "请求失败：%s" msg
  

可选进阶：自动降级到无代理请求 #

如果你希望在代理不可用时，自动尝试不带代理的请求，可以把代理错误分支的逻辑改成这样：

| WebExceptionStatus.ConnectFailure 
| WebExceptionStatus.ProxyNameResolutionFailure ->
    // 自动发起无代理的 fallback 请求
    return! async {
        let fallbackRequest = WebRequest.CreateHttp(Uri url)
        fallbackRequest.Method <- "GET"
        // 不设置代理，使用系统默认或者直接请求
        fallbackRequest.Proxy <- null
        try
            use! response = fallbackRequest.AsyncGetResponse()
            use stream = response.GetResponseStream()
            use reader = new StreamReader(stream)
            return Ok (reader.ReadToEnd())
        with fallbackEx ->
            return Error $"代理不可用，且无代理请求也失败：{fallbackEx.Message}"
    }

这样处理后，不管Charles有没有运行，你的程序都能平稳运行，要么通过代理请求成功，要么提示用户，甚至自动降级处理，完全符合“优雅错误处理”的需求。

内容的提问来源于stack exchange，提问作者App2015