F# Async.FromBeginEnd 没有捕获异常

Question

我无法找出以下代码未捕获异常的原因。这是我第一次在 F# 中使用 Async，所以我确信这很简单

open System
open Microsoft.WindowsAzure
open Microsoft.WindowsAzure.StorageClient
open System.Windows.Forms

let mutable connection = "UseDevelopmentStorage=true;DevelopmentStorageProxyUri=http://ipv4.fiddler"

CloudStorageAccount.SetConfigurationSettingPublisher(fun cName cPublisher ->
                                                      cPublisher.Invoke connection |> ignore)

let storageAccount = CloudStorageAccount.Parse connection

let createTable tableName =
        let client = storageAccount.CreateCloudTableClient()
        async{
            try
                do! Async.FromBeginEnd(tableName, client.BeginCreateTable , client.EndCreateTable)
                MessageBox.Show "Created" |>ignore
            with 
            | :? StorageClientException -> printfn "failed"; MessageBox.Show("failed to create table") |> ignore
            | _ -> printfn "Failed with unknown exception"
        } |> Async.Start

[<EntryPoint; STAThread>]
let main(args) =
    let form = new Form()
    let btn = new Button(Text = "Click")
    btn.Click.AddHandler(fun _ _ -> createTable "SomeNewTable")
    form.Controls.Add btn
    let result = form.ShowDialog()
    0

如果我运行它并且表已经被创建，它表示代码中没有处理 StorageClientException 类型的异常，特别是指向 FromBeginEnd 调用的 client.EndCreateTable 部分

Answer 1

这听起来像是在 VS2010 SP1 的 FSharp.Core 中修复的问题。 .NET SynchronizationContexts 改变了它们的行为（我认为在 .NET 4.0 SP1 中），我们需要在 F# 运行时中进行相应的更改，以便异步正确处理线程关联。

我认为您可以在这里获取更新的 FSharp.Core：http://www.microsoft.com/download/en/details.aspx?DisplayLang=en&id=15834

Answer 2

如果异常的原因是表已经存在，为什么不改用BeginCreateTableIfNotExist/EndCreateTableIfNotExist呢。

更新：

该错误与 Windows Azure 无关。我可以用一个简单的程序重现相同的行为：

open System
open System.Windows.Forms

let bufferData = Array.zeroCreate<byte> 100000000

let async1 filename =        
    async{
        try 
            use outputFile = System.IO.File.Create(filename)
            do! outputFile.AsyncWrite(bufferData)   
            MessageBox.Show("OK") |> ignore         
        with 
        | :? ArgumentException -> printfn "Failed with ArgumentException"; MessageBox.Show("Failed with ArgumentException") |> ignore         
        | _ -> printfn "Failed with unknown exception"; MessageBox.Show("Failed with unknown exception") |> ignore         
    } |> Async.Start

let main(args) =
    let form = new Form(Text = "Test Form")
    let button1 = new Button(Text = "Start")
    let button2 = new Button(Text = "Start Invalid", Top = button1.Height + 10)        
    form.Controls.AddRange [| button1; button2; |]
    button1.Click.Add(fun args -> async1 "longoutput.dat")
    // Try an invalid filename to test the error case.
    button2.Click.Add(fun args -> async1 "|invalid.dat")    
    let result = form.ShowDialog()
    0

let _ = main([||])

奇怪的是代码在 F# Interactive 中运行良好，但在 Visual Studio 中作为 Windows 应用程序进行调试时无法捕获异常（无论是调试还是发布配置）。更奇怪的是，如果在 Visual Studio 之外作为应用程序执行，它又可以正常工作了。

如果您想知道，这个程序改编自 a MSDN example，它也存在同样的问题。

更新 2：

http://cs.hubfs.net/topic/Some/0/59516 提出了类似的问题。正如@ildjarn 和@Brian 所指出的，这个错误已在VS2010 SP1 中得到修复。如果没有 VS2010 SP1，或者您可以使用 F# Interactive 测试您的代码并在 VS 之外执行应用程序而不会出现任何问题。

Answer 3

感谢唐赛姆， 解决方案是关闭调试“只是我的代码”。 调试 -> 选项和设置 -> 常规 -> 取消选中“仅启用我的代码（仅限托管）

这仍然是随 Windows 8 消费者预览版一起发布的 Visual Studio 11 测试版的问题。