錯誤F＃ - c＃異步調用：將Threading.Tasks.Tak <MyType>轉換爲Async <'a>

Question

當我嘗試從我的F＃代碼調用C＃庫中的異步方法時。 我得到下面的編譯錯誤。

此表達預期具有類型異步<「一>但這裏已經鍵入Threading.Thread.Tasks.Task

SendMessageAsync是在C＃庫並返回Threading.Thread.Tasks.Task

let sendEmailAsync message = 
    async { 
     let! response = client.SendMessageAsync(message) 
     return response 
    } 

Answer 1

對於Task<'T>和Async<'T>之間的轉換，有一個內置的Async.AwaitTask函數。

要和普通Task之間進行轉換Async<unit>你可以創建一個輔助函數：

type Async with 
    member this.AwaitPlainTask (task : Task) = 
     task.ContinueWith(fun t ->()) 
     |> Async.AwaitTask 

然後，你可以這樣調用：

let sendEmailAsync message = 
    async { 
     let! response = Async.AwaitPlainTask <|client.SendMessageAsync(message) 
     return response 
    } 

當然，在這種情況下，響應不能是除()之外的任何東西，所以你不妨寫下：

let sendEmailAsync message = Async.AwaitPlainTask <|client.SendMessageAsync(message)