F＃：最初のイベントに対して1つのアクションを1回だけ実行します。

Question

I持ってファイルをダウンロードし、コンソールに私に語った、このコードファイルどのように大きいです：

use webClient = new WebClient() 

let lockObj = new Object() 
let mutable firstProgressEvent = true 
let onProgress (progressEventArgs: DownloadProgressChangedEventArgs) = 
    lock lockObj (fun _-> 
     if (firstProgressEvent) then 
      let totalSizeInMB = progressEventArgs.TotalBytesToReceive/1000000L 
      Console.WriteLine ("Starting download of {0}MB...", totalSizeInMB) 
     firstProgressEvent <- false 
    ) 

webClient.DownloadProgressChanged.Subscribe onProgress |> ignore 
let task = webClient.DownloadFileTaskAsync (uri, Path.GetFileName(uri.LocalPath)) 
task.Wait() 

同じことをする方法はありますが、どちらもロックも可変VARSを使用していますか？ここで

Answer 1

は、反応性の拡張機能を使用して一つの方法である：

open System.Net 
open FSharp.Control 

let webClient = new WebClient() 
let disposable = 
    Observable.take 1 webClient.DownloadProgressChanged 
    |> Observable.subscribe (fun progress -> printfn "%A" (progress.TotalBytesToReceive))