结合F#异步功能 [英] Combining F# async functions

查看:97
本文介绍了结合F#异步功能的处理方法,对大家解决问题具有一定的参考价值,需要的朋友们下面随着小编来一起学习吧!

问题描述

我有点沮丧这里。我知道我得到了所有的位,但我不知道如何把它们混合起来......

 让saveImageToDisk路径含量=
    异步{
        使用S =新的FileStream(路径,FileMode.OpenOrCreate)
        做! s.AsyncWrite(内容)
        printfn写完%A路径
        } //返回异步<部>让getImages imageUrls =
    imageUrls
        |> Seq.map(URL乐趣 - > topath URL,URL的getImage)
        //下一行不开心,因为内容异步<字节[]>而不是字节[]
        |> Seq.map(FUN(路径,内容) - GT; saveImageToDisk路径内容)
        |> Async.Parallel
        |> Async.RunSynchronously


解决方案

您可以使用异步前pression将二者结合起来:

 让getImages imageUrls =
    imageUrls
        |> Seq.map(URL乐趣 - >异步{
              让!内容=的getImage网址
              返回! saveImageToDisk(topath URL)内容})
        |> Async.Parallel
        |> Async.RunSynchronously

I'm a bit frustrated here. I know I've got all the bits, but I can't work out how to combine them...

let saveImageToDisk path content =
    async {
        use s = new FileStream(path, FileMode.OpenOrCreate)
        do! s.AsyncWrite(content)
        printfn "Done writing %A" path
        } // returns Async<unit>

let getImages imageUrls =
    imageUrls
        |> Seq.map (fun url -> topath url, getImage url)
        //Next line not happy because content is Async<byte[]> instead of byte[]
        |> Seq.map (fun (path, content) -> saveImageToDisk path content)
        |> Async.Parallel
        |> Async.RunSynchronously

解决方案

You can combine the two using the async expression:

let getImages imageUrls =
    imageUrls
        |> Seq.map (fun url -> async {
              let! content = getImage url
              return! saveImageToDisk (topath url) content })
        |> Async.Parallel
        |> Async.RunSynchronously

这篇关于结合F#异步功能的文章就介绍到这了,希望我们推荐的答案对大家有所帮助,也希望大家多多支持IT屋!

查看全文
登录 关闭
扫码关注1秒登录
发送“验证码”获取 | 15天全站免登陆