代码之家 › 专栏 › 技术社区 › red-swan

为什么不返回async.switchToContext?

red-swan · 技术社区 · 6 年前

我正试图在文档中包含我感兴趣的所有数据之前,删除一些需要运行javascript的网站。我想打开一个 WebBrowser 等待文档加载,但在尝试切换回线程 控件 开始了。尝试在不切换回线程的情况下运行它会产生铸造错误。=(

是什么阻止了 async 从交换线程?我该如何解决这个问题?

脚本

open System
open System.Windows.Forms
open System.Threading

let step a = do printfn "%A" a

let downloadWebSite (address : Uri) (cont : HtmlDocument -> 'a) =
    let browser = new WebBrowser()
    let ctx = SynchronizationContext.Current
    browser.DocumentCompleted.Add (fun _ ->
        printfn "Document Loaded" )

    async {
        do step 1
        do browser.Navigate(address)
        do step 2
        let! _ = Async.AwaitEvent browser.DocumentCompleted
        do step 3
        do! Async.SwitchToContext ctx
        do step 4
        return cont browser.Document }

let test = 
    downloadWebSite (Uri "http://www.google.com") Some
    |> Async.RunSynchronously

产量

> 
1
2
Document Loaded
3
# It just hangs here. I have to manually interrupt fsi.
- Interrupt
>
4

1 回复 | 直到 6 年前

Tomas Petricek 6 年前

你的方法的问题是 RunSynchronously 阻止您尝试使用的线程,以使用 Async.SwitchToContext ctx .

当使用f interactive时,有一个主线程在f interactive中运行并处理用户交互。这是可以使用windows窗体控件的线程,因此您可以正确地创建 WebBrowser 在外面 async . 等待 DocumentCompleted 在线程池线程(运行异步工作流)上发生,但当您尝试切换回主线程时,它已被 Async.RunSynchronously .

通过运行调用 Application.DoEvents 处理主线程上的事件(这也将允许它运行异步的其余部分)。你的 downloadWebSite 保持不变,但现在您可以使用:

let test = 
    downloadWebSite (Uri "http://www.google.com") Some
    |> Async.Ignore
    |> Async.StartAsTask

while not test.IsCompleted do
  System.Threading.Thread.Sleep(100)
  System.Windows.Forms.Application.DoEvents()

这是一个小技巧-如果您不需要等待结果(例如,只需返回一个任务并在运行下一个命令之前等待),那么可能有更好的方法来构建它,但这应该可以做到。

推荐文章

Thomas · 使类型别名在F中不可互换#

2 年前

sdgfsdh · 我该怎么说。使用异步转换函数进行收集?

6 年前

Soldalma · 我可以实例化包含顶级副作用值的类吗?

6 年前

matekus · F#-包含数字的字符串的自然排序

6 年前

Ayto Maximo · F#CSV-对于每一行,从列数据创建一个数组

6 年前

Chechy Levas · 在F#中使用免费单子是否意味着启动时间更长,指令有限?

6 年前

matekus · F#类型匹配-无法创建映射或匹配记录

6 年前

Rob Lyndon · 未找到F#ProvidedTypes文件

6 年前

red-swan · 如何将intro ML.Net演示翻译为F#?

6 年前

jkone27 · F#-在编译时从字符串生成简单的空类型

6 年前