Barra di avanzamento con async in FsXaml applicazione

Ci sono un certo numero di cose sbagliate con il tuo codice.

• Primo, in progressBar(), longRunningOperation() si chiama effettivamente operazione lunga esecuzione e così tutto diventa eseguire qui. (Per quanto posso intuire dal vostro campione incompleto, questa è solo una chiamata di funzione, non un'altra operazione asincrona).

• È quindi possibile passare i risultati operation e progress in giro, ma quelli sono solo unit valori che in realtà non fare nulla.

• Di conseguenza, l'operazione asincrona async { operation } che si passa a onThreadPool non fare nulla a tutti.

• In doBusyAsyncutilizzare Async.StartImmediate per eseguire l'operazione in un blocco di modo (quindi questo potrebbe bloccare il thread, anche se era in esecuzione un po ' operazione).

• A parte il blocco, inoltre non è necessario async { do! operation } perché questo è l'equivalente di appena operation.

In sintesi, il codice ottenuto in qualche modo troppo complesso. Si dovrebbe semplificare qualcosa di molto di base, come primo passo. Non ho il diritto di installazione di provare questo, ma penso che qualcosa di simile dovrebbe fare il trucco:

let ButtonClick _ = 
  let longRunningOperation() = 
    // some long-running operation

  let asyncOperation() = async {
    // Start the progress bar here
    let context = System.Threading.SynchronizationContext.Current
    do! Async.SwitchToThreadPool()
    let result = longRunningOperation()
    do! Async.SwitchToContext context
    // Display the 'result' in your user interface
    // Stop the progress bar here
  }

  Async.Start(asyncOperation)

Ho rimosso tutto inutile funzioni e passaggio di parametri e semplificata, per quanto possibile, ma è solo una operazione lunga esecuzione, che è chiamato direttamente da async una volta che si passa al pool di thread. Si ottenere il risultato e, dopo aver cambiato il contesto originale, dovrebbe essere in grado di visualizzare nell'interfaccia utente. Idealmente, si farebbe il longRunningOperation stessa asincrona (e chiamare utilizzando let!) ma sopra dovrebbe funzionare.

Per riassumere le cose, ho esteso la Tomáš Petříček codice con il codice relativo a lungo il funzionamento basato su Jim Foye commento (circa saltellando sul thread dell'interfaccia utente). Ora il codice funziona come un fascino. Il mio grazie a Tomáš Petříček per la sua gentile e dettagliata risposta.

    let low = string (this.TextBox2.Text)
    let high = string (this.TextBox3.Text)
    let path = string (this.TextBox4.Text)

    (* longRunningOperation() replaced by textBoxString4() and textBoxString3() 
       based on the comment by Jim Foye
    
    let longRunningOperation() = 
        async
            {
              match textBoxString4 low high >= 0 with
              | false -> this.TextBox1.Text <- textBoxString3 low high path 
              | true  -> this.TextBox1.Text <- "Chybný rozdíl krajních hodnot"        
            }
    *)

    let textBoxString4() = 
        async
            {
              let result = textBoxString4 low high
              return result
            }                  
                           
    let textBoxString3() =        
        async
            {
              //the actual long running operation (reading data 
              //from Google Sheets)
              let result = textBoxString3 low high path 
              return result
            }  

    let asyncOperation() = 
        async
            {
              let context = System.Threading.SynchronizationContext.Current
              this.ProgressBar2.IsIndeterminate <- true
              do! Async.SwitchToThreadPool()
              (*let! result = longRunningOperation() throws an exception 
              "The calling thread cannot access this object because
               a different thread owns it." 
              *)
              let! result4 = textBoxString4()  
              let! result3 = textBoxString3()  
              do! Async.SwitchToContext context
              match result4 >= 0 with
              | false -> this.TextBox1.Text <- result3
              | true  -> this.TextBox1.Text <- "Chybný rozdíl krajních hodnot" 
              this.ProgressBar2.IsIndeterminate <- false
            } 
    Async.StartImmediate(asyncOperation())//not working with Async.Start