Sdílet prostřednictvím

TPL a tradiční asynchronní programování .NET

.NET poskytuje následující dva standardní vzory pro provádění asynchronních operací vázaných na vstupně-výstupní operace a asynchronní operace vázané na výpočetní výkon:

Knihovnu TPL (Task Parallel Library) lze použít různými způsoby ve spojení s některým z asynchronních schémat. Operace APM i EAP můžete vystavit uživatelům knihovny jako Task objekty, nebo můžete vystavit vzory APM, ale použít Task objekty k jejich interní implementaci. V obou scénářích můžete pomocí Task objektů zjednodušit kód a využít následující užitečné funkce:

  • Kdykoli po spuštění úkolu zaregistrujte zpětná volání ve formě pokračování úkolu.

  • Koordinujte více operací, které se spouštějí jako reakce na metodu Begin_, pomocí metod ContinueWhenAll a ContinueWhenAny nebo metod WaitAll a WaitAny.

  • Zapouzdření asynchronních vstupně-výstupních a výpočetních operací ve stejném Task objektu

  • Monitorujte stav objektu Task .

  • Zařazování stavu operace do objektu Task pomocí .TaskCompletionSource<TResult>

Zabalte operace APM do úlohy

Obě třídy System.Threading.Tasks.TaskFactory a System.Threading.Tasks.TaskFactory<TResult> poskytují několik přetížení metod TaskFactory.FromAsync a TaskFactory<TResult>.FromAsync, které umožňují zapouzdření dvojice startovací/koncové metody APM v jednu instanci Task nebo Task<TResult>. Různá přetížení obsahují všechny páry počáteční/koncové metody, které mají od nuly do tří vstupních parametrů.

Pro páry, které mají End metody, které vracejí hodnotu ( Function v jazyce Visual Basic), použijte metody v TaskFactory<TResult>, které vytvoří Task<TResult>. Pro End metody, které vracejí void (což odpovídá Sub v jazyce Visual Basic), použijte metody v TaskFactory, které vytvářejí Task.

V těch několika případech, kdy má metoda Begin více než tři parametry nebo obsahuje parametry ref nebo out, jsou k dispozici další přetížení FromAsync, která zapouzdřují pouze metodu End.

Následující příklad ukazuje podpis pro FromAsync přetížení, kterým odpovídají metody FileStream.BeginRead a FileStream.EndRead.

public Task<TResult> FromAsync<TArg1, TArg2, TArg3>(
    Func<TArg1, TArg2, TArg3, AsyncCallback, object, IAsyncResult> beginMethod, //BeginRead
     Func<IAsyncResult, TResult> endMethod, //EndRead
     TArg1 arg1, // the byte[] buffer
     TArg2 arg2, // the offset in arg1 at which to start writing data
     TArg3 arg3, // the maximum number of bytes to read
     object state // optional state information
    )

Public Function FromAsync(Of TArg1, TArg2, TArg3)(
                ByVal beginMethod As Func(Of TArg1, TArg2, TArg3, AsyncCallback, Object, IAsyncResult),
                ByVal endMethod As Func(Of IAsyncResult, TResult),
                ByVal dataBuffer As TArg1,
                ByVal byteOffsetToStartAt As TArg2,
                ByVal maxBytesToRead As TArg3,
                ByVal stateInfo As Object)

Toto přetížení přebírá tři vstupní parametry, jak je znázorněno níže. Prvním parametrem Func<T1,T2,T3,T4,T5,TResult> je delegát, který odpovídá podpisu FileStream.BeginRead metody. Druhý parametr je Func<T,TResult> delegát, který přebírá IAsyncResult a vrací hodnotu TResult. Vzhledem k tomu EndRead , že vrátí celé číslo, kompilátor odvodí typ TResult jako Int32 a typ úlohy jako Task. Poslední čtyři parametry jsou identické s parametry v FileStream.BeginRead metodě:

  • Vyrovnávací paměť, do které se mají ukládat data souboru.

  • Posun ve vyrovnávací paměti, při kterém se má začít zapisovat data.

  • Maximální množství dat ke čtení ze souboru.

  • Volitelný objekt, který ukládá uživatelsky definovaná stavová data pro předání zpětnému volání.

Použití ContinueWith pro funkci zpětného volání

Pokud požadujete přístup k datům v souboru, na rozdíl od počtu bajtů, FromAsync není metoda dostatečná. Místo toho použijte Task, jejíž Result vlastnost obsahuje data souboru. Můžete to provést přidáním pokračování do původního úkolu. Pokračování provádí práci, kterou by běžně vykonával delegát AsyncCallback. Když se dokončí antecedent a datová vyrovnávací paměť je vyplněna, funkcionalita se vyvolá. (Objekt FileStream by měl být zavřený před vrácením.)

Následující příklad ukazuje, jak vrátit Task, která zapouzdřuje dvojici BeginRead/ ze třídy EndRead.

const int MAX_FILE_SIZE = 14000000;
public static Task<string> GetFileStringAsync(string path)
{
    FileInfo fi = new FileInfo(path);
    byte[] data = null;
    data = new byte[fi.Length];

    FileStream fs = new FileStream(path, FileMode.Open, FileAccess.Read, FileShare.Read, data.Length, true);

    //Task<int> returns the number of bytes read
    Task<int> task = Task<int>.Factory.FromAsync(
            fs.BeginRead, fs.EndRead, data, 0, data.Length, null);

    // It is possible to do other work here while waiting
    // for the antecedent task to complete.
    // ...

    // Add the continuation, which returns a Task<string>.
    return task.ContinueWith((antecedent) =>
    {
        fs.Close();

        // Result = "number of bytes read" (if we need it.)
        if (antecedent.Result < 100)
        {
            return "Data is too small to bother with.";
        }
        else
        {
            // If we did not receive the entire file, the end of the
            // data buffer will contain garbage.
            if (antecedent.Result < data.Length)
                Array.Resize(ref data, antecedent.Result);

            // Will be returned in the Result property of the Task<string>
            // at some future point after the asynchronous file I/O operation completes.
            return new UTF8Encoding().GetString(data);
        }
    });
}

Const MAX_FILE_SIZE As Integer = 14000000
Shared Function GetFileStringAsync(ByVal path As String) As Task(Of String)
    Dim fi As New FileInfo(path)
    Dim data(fi.Length - 1) As Byte

    Dim fs As FileStream = New FileStream(path, FileMode.Open, FileAccess.Read, FileShare.Read, data.Length, True)

    ' Task(Of Integer) returns the number of bytes read
    Dim myTask As Task(Of Integer) = Task(Of Integer).Factory.FromAsync(
        AddressOf fs.BeginRead, AddressOf fs.EndRead, data, 0, data.Length, Nothing)

    ' It is possible to do other work here while waiting
    ' for the antecedent task to complete.
    ' ...

    ' Add the continuation, which returns a Task<string>. 
    Return myTask.ContinueWith(Function(antecedent)
                                   fs.Close()
                                   If (antecedent.Result < 100) Then
                                       Return "Data is too small to bother with."
                                   End If
                                   ' If we did not receive the entire file, the end of the
                                   ' data buffer will contain garbage.
                                   If (antecedent.Result < data.Length) Then
                                       Array.Resize(data, antecedent.Result)
                                   End If

                                   ' Will be returned in the Result property of the Task<string>
                                   ' at some future point after the asynchronous file I/O operation completes.
                                   Return New UTF8Encoding().GetString(data)
                               End Function)

End Function

Metodu pak lze volat následujícím způsobem.


Task<string> t = GetFileStringAsync(path);

// Do some other work:
// ...

try
{
     Console.WriteLine(t.Result.Substring(0, 500));
}
catch (AggregateException ae)
{
    Console.WriteLine(ae.InnerException.Message);
}

Dim myTask As Task(Of String) = GetFileStringAsync(path)

' Do some other work
' ...

Try
    Console.WriteLine(myTask.Result.Substring(0, 500))
Catch ex As AggregateException
    Console.WriteLine(ex.InnerException.Message)
End Try

Zadání vlastních dat o stavu

V typických IAsyncResult operacích, pokud váš AsyncCallback delegát vyžaduje nějaká vlastní stavová data, musíte je předat posledním parametrem Begin metody, aby bylo možné data zabalit do objektu IAsyncResult , který se nakonec předá metodě zpětného volání. To se obvykle nevyžaduje při používání metod FromAsync. Pokud jsou vlastní data známá pro pokračování, můžete je zachytit přímo v delegátu pokračování. Následující příklad se podobá předchozímu příkladu, ale místo zkoumání vlastnosti antecedentu pokračování zkoumá vlastní stavová data, která jsou přímo přístupná uživatelskému delegátu pokračování.

public Task<string> GetFileStringAsync2(string path)
{
    FileInfo fi = new FileInfo(path);
    byte[] data = new byte[fi.Length];
    MyCustomState state = GetCustomState();
    FileStream fs = new FileStream(path, FileMode.Open, FileAccess.Read, FileShare.Read, data.Length, true);
    // We still pass null for the last parameter because
    // the state variable is visible to the continuation delegate.
    Task<int> task = Task<int>.Factory.FromAsync(
            fs.BeginRead, fs.EndRead, data, 0, data.Length, null);

    return task.ContinueWith((antecedent) =>
    {
        // It is safe to close the filestream now.
        fs.Close();

        // Capture custom state data directly in the user delegate.
        // No need to pass it through the FromAsync method.
        if (state.StateData.Contains("New York, New York"))
        {
            return "Start spreading the news!";
        }
        else
        {
            // If we did not receive the entire file, the end of the
            // data buffer will contain garbage.
            if (antecedent.Result < data.Length)
                Array.Resize(ref data, antecedent.Result);

            // Will be returned in the Result property of the Task<string>
            // at some future point after the asynchronous file I/O operation completes.
            return new UTF8Encoding().GetString(data);
        }
    });
}

Public Function GetFileStringAsync2(ByVal path As String) As Task(Of String)
    Dim fi = New FileInfo(path)
    Dim data(fi.Length - 1) As Byte
    Dim state As New MyCustomState()

    Dim fs As New FileStream(path, FileMode.Open, FileAccess.Read, FileShare.Read, data.Length, True)
    ' We still pass null for the last parameter because
    ' the state variable is visible to the continuation delegate.
    Dim myTask As Task(Of Integer) = Task(Of Integer).Factory.FromAsync(
            AddressOf fs.BeginRead, AddressOf fs.EndRead, data, 0, data.Length, Nothing)

    Return myTask.ContinueWith(Function(antecedent)
                                   fs.Close()
                                   ' Capture custom state data directly in the user delegate.
                                   ' No need to pass it through the FromAsync method.
                                   If (state.StateData.Contains("New York, New York")) Then
                                       Return "Start spreading the news!"
                                   End If

                                   ' If we did not receive the entire file, the end of the
                                   ' data buffer will contain garbage.
                                   If (antecedent.Result < data.Length) Then
                                       Array.Resize(data, antecedent.Result)
                                   End If
                                   '/ Will be returned in the Result property of the Task<string>
                                   '/ at some future point after the asynchronous file I/O operation completes.
                                   Return New UTF8Encoding().GetString(data)
                               End Function)

End Function

Synchronizace více úloh FromAsync

Statické ContinueWhenAll a ContinueWhenAny metody poskytují větší flexibilitu při použití ve spojení s FromAsync metodami. Následující příklad ukazuje, jak zahájit několik asynchronních vstupně-výstupních operací a potom počkat, až se dokončí všechny operace před spuštěním pokračování.

public Task<string> GetMultiFileData(string[] filesToRead)
{
    FileStream fs;
    Task<string>[] tasks = new Task<string>[filesToRead.Length];
    byte[] fileData = null;
    for (int i = 0; i < filesToRead.Length; i++)
    {
        fileData = new byte[0x1000];
        fs = new FileStream(filesToRead[i], FileMode.Open, FileAccess.Read, FileShare.Read, fileData.Length, true);

        // By adding the continuation here, the
        // Result of each task will be a string.
        tasks[i] = Task<int>.Factory.FromAsync(
                 fs.BeginRead, fs.EndRead, fileData, 0, fileData.Length, null)
                 .ContinueWith((antecedent) =>
                     {
                         fs.Close();

                         // If we did not receive the entire file, the end of the
                         // data buffer will contain garbage.
                         if (antecedent.Result < fileData.Length)
                             Array.Resize(ref fileData, antecedent.Result);

                         // Will be returned in the Result property of the Task<string>
                         // at some future point after the asynchronous file I/O operation completes.
                         return new UTF8Encoding().GetString(fileData);
                     });
    }

    // Wait for all tasks to complete.
    return Task<string>.Factory.ContinueWhenAll(tasks, (data) =>
    {
        // Propagate all exceptions and mark all faulted tasks as observed.
        Task.WaitAll(data);

        // Combine the results from all tasks.
        StringBuilder sb = new StringBuilder();
        foreach (var t in data)
        {
            sb.Append(t.Result);
        }
        // Final result to be returned eventually on the calling thread.
        return sb.ToString();
    });
}

Public Function GetMultiFileData(ByVal filesToRead As String()) As Task(Of String)
    Dim fs As FileStream
    Dim tasks(filesToRead.Length - 1) As Task(Of String)
    Dim fileData() As Byte = Nothing
    For i As Integer = 0 To filesToRead.Length
        fileData(&H1000) = New Byte()
        fs = New FileStream(filesToRead(i), FileMode.Open, FileAccess.Read, FileShare.Read, fileData.Length, True)

        ' By adding the continuation here, the 
        ' Result of each task will be a string.
        tasks(i) = Task(Of Integer).Factory.FromAsync(AddressOf fs.BeginRead,
                                                      AddressOf fs.EndRead,
                                                      fileData,
                                                      0,
                                                      fileData.Length,
                                                      Nothing).
                                                  ContinueWith(Function(antecedent)
                                                                   fs.Close()
                                                                   'If we did not receive the entire file, the end of the
                                                                   ' data buffer will contain garbage.
                                                                   If (antecedent.Result < fileData.Length) Then
                                                                       ReDim Preserve fileData(antecedent.Result)
                                                                   End If

                                                                   'Will be returned in the Result property of the Task<string>
                                                                   ' at some future point after the asynchronous file I/O operation completes.
                                                                   Return New UTF8Encoding().GetString(fileData)
                                                               End Function)
    Next

    Return Task(Of String).Factory.ContinueWhenAll(tasks, Function(data)

                                                              ' Propagate all exceptions and mark all faulted tasks as observed.
                                                              Task.WaitAll(data)

                                                              ' Combine the results from all tasks.
                                                              Dim sb As New StringBuilder()
                                                              For Each t As Task(Of String) In data
                                                                  sb.Append(t.Result)
                                                              Next
                                                              ' Final result to be returned eventually on the calling thread.
                                                              Return sb.ToString()
                                                          End Function)
End Function

Úlohy FromAsync pouze pro metodu End

V těch několika případech, kdy metoda Begin vyžaduje více než tři vstupní parametry nebo má parametry ref či out, můžete použít přetížení FromAsync, například TaskFactory<TResult>.FromAsync(IAsyncResult, Func<IAsyncResult,TResult>), které představuje pouze metodu End. Tyto metody lze použít také v jakémkoli scénáři, ve kterém obdržíte IAsyncResult a chcete jej zapouzdřit do Tasky.

static Task<String> ReturnTaskFromAsyncResult()
{
    IAsyncResult ar = DoSomethingAsynchronously();
    Task<String> t = Task<string>.Factory.FromAsync(ar, _ =>
        {
            return (string)ar.AsyncState;
        });

    return t;
}

Shared Function ReturnTaskFromAsyncResult() As Task(Of String)
    Dim ar As IAsyncResult = DoSomethingAsynchronously()
    Dim t As Task(Of String) = Task(Of String).Factory.FromAsync(ar, Function(res) CStr(res.AsyncState))
    Return t
End Function

Spuštění a zrušení úloh FromAsync

Úkol vrácený metodou FromAsync má stav WaitingForActivation a bude spuštěn systémem v určitém okamžiku po vytvoření úkolu. Pokud se pokusíte zavolat Start pro takový úkol, bude vyvolána výjimka.

Úlohu nelze zrušit FromAsync , protože základní rozhraní API .NET v současné době nepodporují probíhající zrušení souborů nebo vstupně-výstupních operací sítě. Funkcionalitu zrušení můžete přidat do metody, která obsahuje FromAsync volání, ale na zrušení můžete odpovědět pouze před FromAsync voláním nebo po jeho dokončení (například v pokračovací úloze).

Některé třídy, které podporují například WebClientprotokol EAP, podporují zrušení a můžete integrovat tuto nativní funkci zrušení pomocí tokenů zrušení.

Zpřístupnění složitých operací EAP jako úkolů

TPL neposkytuje žádné metody, které by byly speciálně navrženy tak, aby zapouzdřovaly asynchronní operaci založenou na událostech stejným způsobem, jako metody z rodiny FromAsync implementují vzor IAsyncResult. TPL však poskytuje System.Threading.Tasks.TaskCompletionSource<TResult> třídu, kterou lze použít k reprezentaci libovolné sady operací jako .Task<TResult> Operace můžou být synchronní nebo asynchronní a můžou být vázané na vstupně-výstupní operace nebo výpočetní operace nebo obojí.

Následující příklad ukazuje, jak použít TaskCompletionSource<TResult> k vystavení sady asynchronních WebClient operací klientskému kódu jako základní Task<TResult>. Tato metoda umožňuje zadat pole webových adres URL a hledaný termín nebo název a poté vrátí počet výskytů hledaného termínu na jednotlivých webech.

using System;
using System.Collections.Generic;
using System.Linq;
using System.Net;
using System.Threading;
using System.Threading.Tasks;

public class SimpleWebExample
{
  public Task<string[]> GetWordCountsSimplified(string[] urls, string name,
                                                CancellationToken token)
  {
      TaskCompletionSource<string[]> tcs = new TaskCompletionSource<string[]>();
      WebClient[] webClients = new WebClient[urls.Length];
      object m_lock = new object();
      int count = 0;
      List<string> results = new List<string>();

      // If the user cancels the CancellationToken, then we can use the
      // WebClient's ability to cancel its own async operations.
      token.Register(() =>
      {
          foreach (var wc in webClients)
          {
              if (wc != null)
                  wc.CancelAsync();
          }
      });

      for (int i = 0; i < urls.Length; i++)
      {
          webClients[i] = new WebClient();

          #region callback
          // Specify the callback for the DownloadStringCompleted
          // event that will be raised by this WebClient instance.
          webClients[i].DownloadStringCompleted += (obj, args) =>
          {

              // Argument validation and exception handling omitted for brevity.

              // Split the string into an array of words,
              // then count the number of elements that match
              // the search term.
              string[] words = args.Result.Split(' ');
              string NAME = name.ToUpper();
              int nameCount = (from word in words.AsParallel()
                               where word.ToUpper().Contains(NAME)
                               select word)
                              .Count();

              // Associate the results with the url, and add new string to the array that
              // the underlying Task object will return in its Result property.
              lock (m_lock)
              {
                 results.Add(String.Format("{0} has {1} instances of {2}", args.UserState, nameCount, name));

                 // If this is the last async operation to complete,
                 // then set the Result property on the underlying Task.
                 count++;
                 if (count == urls.Length)
                 {
                    tcs.TrySetResult(results.ToArray());
                 }
              }
          };
          #endregion

          // Call DownloadStringAsync for each URL.
          Uri address = null;
          address = new Uri(urls[i]);
          webClients[i].DownloadStringAsync(address, address);
      } // end for

      // Return the underlying Task. The client code
      // waits on the Result property, and handles exceptions
      // in the try-catch block there.
      return tcs.Task;
   }
}

Imports System.Collections.Generic
Imports System.Net
Imports System.Threading
Imports System.Threading.Tasks

Public Class SimpleWebExample
    Dim tcs As New TaskCompletionSource(Of String())
    Dim token As CancellationToken
    Dim results As New List(Of String)
    Dim m_lock As New Object()
    Dim count As Integer
    Dim addresses() As String
    Dim nameToSearch As String

    Public Function GetWordCountsSimplified(ByVal urls() As String, ByVal str As String,
                                            ByVal token As CancellationToken) As Task(Of String())
        addresses = urls
        nameToSearch = str

        Dim webClients(urls.Length - 1) As WebClient

        ' If the user cancels the CancellationToken, then we can use the
        ' WebClient's ability to cancel its own async operations.
        token.Register(Sub()
                           For Each wc As WebClient In webClients
                               If wc IsNot Nothing Then
                                   wc.CancelAsync()
                               End If
                           Next
                       End Sub)

        For i As Integer = 0 To urls.Length - 1
            webClients(i) = New WebClient()

            ' Specify the callback for the DownloadStringCompleted
            ' event that will be raised by this WebClient instance.
            AddHandler webClients(i).DownloadStringCompleted, AddressOf WebEventHandler

            Dim address As New Uri(urls(i))
            ' Pass the address, and also use it for the userToken
            ' to identify the page when the delegate is invoked.
            webClients(i).DownloadStringAsync(address, address)
        Next

        ' Return the underlying Task. The client code
        ' waits on the Result property, and handles exceptions
        ' in the try-catch block there.
        Return tcs.Task
    End Function

    Public Sub WebEventHandler(ByVal sender As Object, ByVal args As DownloadStringCompletedEventArgs)

        If args.Cancelled = True Then
            tcs.TrySetCanceled()
            Return
        ElseIf args.Error IsNot Nothing Then
            tcs.TrySetException(args.Error)
            Return
        Else
            ' Split the string into an array of words,
            ' then count the number of elements that match
            ' the search term.
            Dim words() As String = args.Result.Split(" "c)

            Dim name As String = nameToSearch.ToUpper()
            Dim nameCount = (From word In words.AsParallel()
                             Where word.ToUpper().Contains(name)
                             Select word).Count()

            ' Associate the results with the url, and add new string to the array that
            ' the underlying Task object will return in its Result property.
            SyncLock (m_lock)
                results.Add(String.Format("{0} has {1} instances of {2}", args.UserState, nameCount, nameToSearch))
                count = count + 1
                If (count = addresses.Length) Then
                    tcs.TrySetResult(results.ToArray())
                End If
            End SyncLock
        End If
    End Sub
End Class

Podrobnější příklad, který obsahuje další zpracování výjimek a ukazuje, jak volat metodu z klientského kódu, naleznete v tématu Postupy: Zabalení vzorů protokolu EAP v úloze.

Mějte na paměti, že každý úkol vytvořený TaskCompletionSource<TResult> bude spuštěn TaskCompletionSource, a proto by uživatelský kód neměl volat metodu Start na tento úkol.

Implementace vzoru APM pomocí úloh

V některých scénářích může být žádoucí přímo zpřístupnit vzorec IAsyncResult pomocí párů začátek/konec metod v API. Můžete například chtít zachovat konzistenci s existujícími rozhraními API nebo můžete mít automatizované nástroje, které tento vzor vyžadují. V takových případech můžete pomocí Task objektů zjednodušit interní implementaci vzoru APM.

Následující příklad ukazuje, jak pomocí úloh implementovat dvojici metod začátku/konce APM pro dlouho běžící výpočetně náročnou metodu.

class Calculator
{
    public IAsyncResult BeginCalculate(int decimalPlaces, AsyncCallback ac, object state)
    {
        Console.WriteLine($"Calling BeginCalculate on thread {Thread.CurrentThread.ManagedThreadId}");
        Task<string> f = Task<string>.Factory.StartNew(_ => Compute(decimalPlaces), state);
        if (ac != null) f.ContinueWith((res) => ac(f));
        return f;
    }

    public string Compute(int numPlaces)
    {
        Console.WriteLine($"Calling compute on thread {Thread.CurrentThread.ManagedThreadId}");

        // Simulating some heavy work.
        Thread.SpinWait(500000000);

        // Actual implementation left as exercise for the reader.
        // Several examples are available on the Web.
        return "3.14159265358979323846264338327950288";
    }

    public string EndCalculate(IAsyncResult ar)
    {
        Console.WriteLine($"Calling EndCalculate on thread {Thread.CurrentThread.ManagedThreadId}");
        return ((Task<string>)ar).Result;
    }
}

public class CalculatorClient
{
    static int decimalPlaces = 12;
    public static void Main()
    {
        Calculator calc = new Calculator();
        int places = 35;

        AsyncCallback callBack = new AsyncCallback(PrintResult);
        IAsyncResult ar = calc.BeginCalculate(places, callBack, calc);

        // Do some work on this thread while the calculator is busy.
        Console.WriteLine("Working...");
        Thread.SpinWait(500000);
        Console.ReadLine();
    }

    public static void PrintResult(IAsyncResult result)
    {
        Calculator c = (Calculator)result.AsyncState;
        string piString = c.EndCalculate(result);
        Console.WriteLine($"Calling PrintResult on thread {Thread.CurrentThread.ManagedThreadId}; result = {piString}");
    }
}

Class Calculator
    Public Function BeginCalculate(ByVal decimalPlaces As Integer, ByVal ac As AsyncCallback, ByVal state As Object) As IAsyncResult
        Console.WriteLine("Calling BeginCalculate on thread {0}", Thread.CurrentThread.ManagedThreadId)
        Dim myTask = Task(Of String).Factory.StartNew(Function(obj) Compute(decimalPlaces), state)
        myTask.ContinueWith(Sub(antecedent) ac(myTask))

    End Function
    Private Function Compute(ByVal decimalPlaces As Integer)
        Console.WriteLine("Calling compute on thread {0}", Thread.CurrentThread.ManagedThreadId)

        ' Simulating some heavy work.
        Thread.SpinWait(500000000)

        ' Actual implementation left as exercise for the reader.
        ' Several examples are available on the Web.
        Return "3.14159265358979323846264338327950288"
    End Function

    Public Function EndCalculate(ByVal ar As IAsyncResult) As String
        Console.WriteLine("Calling EndCalculate on thread {0}", Thread.CurrentThread.ManagedThreadId)
        Return CType(ar, Task(Of String)).Result
    End Function
End Class

Class CalculatorClient
    Shared decimalPlaces As Integer
    Shared Sub Main()
        Dim calc As New Calculator
        Dim places As Integer = 35
        Dim callback As New AsyncCallback(AddressOf PrintResult)
        Dim ar As IAsyncResult = calc.BeginCalculate(places, callback, calc)

        ' Do some work on this thread while the calculator is busy.
        Console.WriteLine("Working...")
        Thread.SpinWait(500000)
        Console.ReadLine()
    End Sub

    Public Shared Sub PrintResult(ByVal result As IAsyncResult)
        Dim c As Calculator = CType(result.AsyncState, Calculator)
        Dim piString As String = c.EndCalculate(result)
        Console.WriteLine("Calling PrintResult on thread {0}; result = {1}",
                   Thread.CurrentThread.ManagedThreadId, piString)
    End Sub

End Class

Použití ukázkového kódu StreamExtensions

Soubor StreamExtensions.cs , v úložišti paralelních rozšíření .NET Standard obsahuje několik referenčních implementací, které používají Task objekty pro asynchronní soubor a vstupně-výstupní operace sítě.

Viz také