Partager via


TPL et programmation asynchrone .NET traditionnelle

.NET fournit les deux modèles standard suivants pour effectuer des opérations asynchrones liées aux E/S et liées au calcul :

  • Modèle de programmation asynchrone (APM), dans lequel les opérations asynchrones sont représentées par une paire de méthodes begin/end. Par exemple : FileStream.BeginRead et Stream.EndRead.

  • Modèle asynchrone basé sur les événements (EAP), dans lequel les opérations asynchrones sont représentées par une paire méthode/événement nommée <OperationName>Async et <OperationName>Completed. Par exemple : WebClient.DownloadStringAsync et WebClient.DownloadStringCompleted.

La bibliothèque parallèle de tâches (TPL) peut être utilisée de différentes façons conjointement avec l’un des modèles asynchrones. Vous pouvez exposer à la fois les opérations APM et EAP en tant qu’objets Task aux consommateurs de bibliothèque, ou vous pouvez exposer les modèles APM, mais utiliser Task des objets pour les implémenter en interne. Dans les deux scénarios, en utilisant Task des objets, vous pouvez simplifier le code et tirer parti des fonctionnalités utiles suivantes :

  • Inscrivez des rappels, sous la forme de continuations de tâches, à tout moment après le démarrage de la tâche.

  • Coordonnez plusieurs opérations qui s'exécutent en réponse à une méthode Begin_ en utilisant les méthodes ContinueWhenAll et ContinueWhenAny, ou les méthodes WaitAll et WaitAny.

  • Encapsuler les opérations liées aux E/S asynchrones et liées au calcul dans le même Task objet.

  • Surveillez l’état de l’objet Task .

  • Marshaling de l’état d’une opération vers un objet Task à l’aide de TaskCompletionSource<TResult>.

Encapsuler les opérations APM dans une tâche

Les deux classes System.Threading.Tasks.TaskFactory et System.Threading.Tasks.TaskFactory<TResult> fournissent plusieurs surcharges des méthodes TaskFactory.FromAsync et TaskFactory<TResult>.FromAsync qui vous permettent d’encapsuler une paire de méthodes APM début/fin dans une instance Task ou Task<TResult>. Les différentes surcharges prennent en charge n’importe quelle paire de méthode de début/fin qui a de zéro à trois paramètres d’entrée.

Pour les paires qui ont des méthodes End qui renvoient une valeur (un Function dans Visual Basic), utilisez les méthodes de TaskFactory<TResult> qui créent un Task<TResult>. Pour les méthodes End qui retournent "void" (un Sub en Visual Basic), utilisez les méthodes de TaskFactory pour créer un Task.

Pour les rares cas où la méthode Begin possède plus de trois paramètres ou contient des paramètres ref ou out, des surcharges supplémentaires FromAsync qui encapsulent uniquement la méthode End sont fournies.

L’exemple suivant montre la signature de la surcharge FromAsync qui correspond aux méthodes FileStream.BeginRead et 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)

Cette surcharge prend trois paramètres d’entrée, comme suit. Le premier paramètre est un Func<T1,T2,T3,T4,T5,TResult> délégué qui correspond à la signature de la FileStream.BeginRead méthode. Le deuxième paramètre est un Func<T,TResult> délégué qui accepte un IAsyncResult et retourne un TResult. Étant donné que EndRead retourne un entier, le compilateur déduit le type de TResult comme Int32 et le type de la tâche comme Task. Les quatre derniers paramètres sont identiques à ceux de la FileStream.BeginRead méthode :

  • Mémoire tampon dans laquelle stocker les données du fichier.

  • L'offset dans la mémoire tampon à partir duquel commencer l'écriture de données.

  • Quantité maximale de données à lire à partir du fichier.

  • Objet facultatif qui stocke les données d'état définies par l'utilisateur à passer au rappel.

Utiliser ContinueWith pour la fonctionnalité de rappel

Si vous avez besoin d’accéder aux données du fichier, par opposition au nombre d’octets, la FromAsync méthode n’est pas suffisante. Utilisez plutôt Task, dont la propriété Result contient les données du fichier. Pour ce faire, ajoutez une continuation à la tâche d’origine. La continuation exécute le travail généralement effectué par le délégué AsyncCallback. Elle est appelée lorsque l’antécédent se termine et que la mémoire tampon de données a été remplie. (L’objet FileStream doit être fermé avant de retourner.)

L’exemple suivant montre comment retourner un Task qui encapsule la paire BeginRead/EndRead de la classe FileStream.

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

La méthode peut ensuite être appelée, comme suit.


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

Fournir des données d’état personnalisées

Dans les opérations IAsyncResult typiques, si votre délégué AsyncCallback a besoin de certaines données d'état personnalisées, vous devez les passer via le dernier paramètre de la méthode Begin, afin que les données puissent être empaquetées dans l'objet IAsyncResult qui est finalement passé à la méthode de rappel. Cela n’est généralement pas obligatoire lorsque les FromAsync méthodes sont utilisées. Si les données personnalisées sont connues de la continuation, elles peuvent être capturées directement dans le délégué de continuation. L’exemple suivant ressemble à l’exemple précédent, mais au lieu d’examiner la Result propriété de l’antécédent, la continuation examine les données d’état personnalisées qui sont directement accessibles au délégué utilisateur de la continuation.

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

Synchroniser plusieurs tâches FromAsync

Les méthodes statiques ContinueWhenAll et ContinueWhenAny offrent une flexibilité supplémentaire lorsqu’elles sont utilisées conjointement avec les méthodes FromAsync. L’exemple suivant montre comment lancer plusieurs opérations d’E/S asynchrones, puis attendre que toutes ces opérations se terminent avant d’exécuter la continuation.

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

Tâches FromAsync uniquement pour la méthode End

Pour les quelques cas dans lesquels la méthode Begin nécessite plus de trois paramètres d’entrée ou des paramètres refout, vous pouvez utiliser les surcharges FromAsync, par exemple, TaskFactory<TResult>.FromAsync(IAsyncResult, Func<IAsyncResult,TResult>), qui représentent uniquement la méthode End. Ces méthodes peuvent également être utilisées dans n'importe quel scénario dans lequel vous recevez un IAsyncResult et souhaitez l'encapsuler dans une tâche.

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

Démarrer et annuler des tâches FromAsync

La tâche retournée par une FromAsync méthode a un état WaitingForActivation et sera démarrée par le système à un moment donné après la création de la tâche. Si vous essayez d’appeler Start pour une telle tâche, une exception sera levée.

Vous ne pouvez pas annuler une tâche FromAsync, car les API .NET sous-jacentes ne prennent actuellement pas en charge l’annulation en cours d’une E/S de fichier ou réseau. Vous pouvez ajouter des fonctionnalités d’annulation à une méthode qui encapsule un FromAsync appel, mais vous pouvez uniquement répondre à l’annulation avant FromAsync d’être appelée ou après son achèvement (par exemple, dans une tâche de continuation).

Certaines classes qui prennent en charge EAP, par exemple, WebClientprennent en charge l’annulation, et vous pouvez intégrer cette fonctionnalité d’annulation native à l’aide de jetons d’annulation.

Exposer des opérations EAP complexes en tant que tâches

Le TPL ne fournit aucune méthode spécifiquement conçue pour encapsuler une opération asynchrone basée sur des événements de la même façon que la FromAsync famille de méthodes encapsule le IAsyncResult modèle. Toutefois, le TPL fournit la System.Threading.Tasks.TaskCompletionSource<TResult> classe, qui peut être utilisée pour représenter n’importe quel ensemble arbitraire d’opérations en tant que Task<TResult>. Les opérations peuvent être synchrones ou asynchrones, et peuvent être liées aux E/S ou liées au calcul, ou les deux.

L’exemple suivant montre comment utiliser un TaskCompletionSource<TResult> pour exposer un ensemble d’opérations asynchrones WebClient au code client sous la forme d’un Task<TResult> de base. La méthode vous permet d’entrer un tableau d’URL web et un terme ou un nom à rechercher, puis retourne le nombre de fois où le terme de recherche se produit sur chaque site.

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

Pour obtenir un exemple plus complet, qui inclut une gestion supplémentaire des exceptions et montre comment appeler la méthode à partir du code client, consultez How to : Wrap EAP Patterns in a Task.

N’oubliez pas que toute tâche créée par TaskCompletionSource<TResult> est démarrée par ce TaskCompletionSource, et, par conséquent, le code utilisateur ne doit pas appeler la méthode Start pour cette tâche.

Implémenter le modèle APM à l’aide de tâches

Dans certains scénarios, il peut être souhaitable d’exposer directement le modèle à l’aide IAsyncResult de paires de méthodes begin/end dans une API. Par exemple, vous souhaiterez peut-être maintenir la cohérence avec les API existantes, ou vous pouvez avoir des outils automatisés qui nécessitent ce modèle. Dans ce cas, vous pouvez utiliser des Task objets pour simplifier la façon dont le modèle APM est implémenté en interne.

L’exemple suivant montre comment utiliser des tâches pour implémenter une paire de méthodes de début/fin APM pour une méthode liée au calcul de longue durée.

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

Utiliser l’exemple de code StreamExtensions

Le fichier StreamExtensions.cs , dans le référentiel d’extensions parallèles .NET Standard , contient plusieurs implémentations de référence qui utilisent Task des objets pour les E/S réseau et les fichiers asynchrones.

Voir aussi