如何在后台运行F#中的阻塞调用？

Question

我需要在后台调用一个调用webservice的API。我不想将（非常复杂的）方法转换为异步方法，只想说“在后台完成所有这些”。

但是我迷失在如何用F#做到这一点。这就是我所拥有的：

            let task = async {
                let result = SyncApi.syncData(login.url, login.zone, login.user, login.pwd) <-- THIS MUST RUN IN BACKGROUND...
                match result with
                |Some(msg) -> failwith msg
                | None -> ()
            }

            task
            |> Async.Catch
            |> Async.RunSynchronously
            |> fun x -> 
                  match x with
                  | Choice1Of2 x -> rootPage.Navigation.PopToRootAsync(true) |> ignore
                  | Choice2Of2 ex -> showMsgError(ex.Message)

Answer 1

如果您正在寻找简单的火和忘记样式来启动API调用和不使用当前线程上的结果，Async。开始（任务）可能是您正在寻找的。它采用Async工作流，在线程池上启动它并立即返回，以便您的方法可以继续。

但是看到您需要结果来更改导航或显示错误消息，您可能需要在当前线程上同步调用SyncApi并等待其结果。

或者，如果您的应用程序模型允许，您可以这样做：

(* Define the task including error handling. *)
let task = async {
    let result = SyncApi.syncData(login.url, login.zone, login.user, login.pwd)
    match result with
    | Some msg ->
        (* This may have to be posted back to the UI context.
           Correct way depends on technology (Xamarin vs. WPF vs. MVC...) *)
        showMsgError msg
    | None -> ()
}

(* Fire and forget the async API call. *)
Async.Start(task)

(* Optimistically navigate away immediately,
   while `task` may still be in progress. *)
rootPage.Navigation.PopToRootAsync(true) |> ignore

这将在线程池上启动任务，导航离开，但如果异步任务失败，它将触发错误消息。但是，它假设您的应用程序可以异步显示错误消息，例如作为弹出窗口，而不仅仅是在启动任务的页面的上下文中。