TPL és hagyományos .NET aszinkron programozás

A .NET az alábbi két szabványos mintát biztosítja az I/O-kötött és a számítási kötésű aszinkron műveletek végrehajtásához:

• Aszinkron programozási modell (APM), amelyben az aszinkron műveleteket kezdő/záró metódusok párja képviseli. Például: FileStream.BeginRead és Stream.EndRead.

• Eseményalapú aszinkron minta (EAP), amelyben az aszinkron műveleteket egy <OperationName>Async és <OperationName>Completednevű metódus/eseménypár képviseli. Például: WebClient.DownloadStringAsync és WebClient.DownloadStringCompleted.

A feladat párhuzamos kódtára (TPL) különböző módokon használható az aszinkron minták bármelyikével együtt. Az APM- és EAP-műveleteket Task objektumként is elérhetővé teheti a tárfelhasználók számára, vagy közzéteheti az APM-mintákat, de Task objektumokkal belsőleg implementálhatja őket. Mindkét esetben Task objektumok használatával egyszerűsítheti a kódot, és kihasználhatja a következő hasznos funkciókat:

• A visszahívásokat a tevékenység folytatása formájában bármikor regisztrálhatja a tevékenység megkezdése után.

• A Begin_ metódusra válaszul végrehajtott műveletek koordinálása a ContinueWhenAll és ContinueWhenAny metódusok, illetve a WaitAll és WaitAny metódusok használatával.

• Ágyazza be az aszinkron I/O-kötött és számítási kötött műveleteket ugyanabban a Task objektumban.

• A Task objektum állapotának figyelése.

• Művelet állapotának beállítása egy Task objektumra a TaskCompletionSource<TResult>használatával.

APM-műveletek beágyazása egy feladatba

A System.Threading.Tasks.TaskFactory és a System.Threading.Tasks.TaskFactory<TResult> osztály is számos túlterhelést biztosít a TaskFactory.FromAsync és TaskFactory<TResult>.FromAsync metódusoknak, amelyek lehetővé teszik az APM kezdő/záró metóduspárok beágyazását egy Task vagy Task<TResult> példányban. A különböző túlterhelések minden olyan kezdő/végpont metóduspárt támogatnak, amely nulla és három bemeneti paraméter között van.

Azoknál a pároknál, ahol a End metódusok értéket adnak vissza (Visual Basic esetében Function), használja a TaskFactory<TResult> metódusait, amelyek létrehozzák a Task<TResult>-at. Ha a End metódusok érvényteleneket adnak vissza (Sub a Visual Basic-ben), használja a TaskFactory metódusokat, amelyek létrehoznak egy Task-at.

Azon néhány esetben, amikor a Begin metódus háromnál több paramétert tartalmaz, vagy ref vagy out paramétereket tartalmaz, további FromAsync túlterhelések állnak rendelkezésre, amelyek csak a End metódust tartalmazzák.

Az alábbi példa a FromAsync és FileStream.BeginRead metódusokhoz illeszkedő FileStream.EndRead túlterhelés szignatúráját mutatja be.

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)

Ez a túlterhelés három bemeneti paramétert vesz igénybe az alábbiak szerint. Az első paraméter egy Func<T1,T2,T3,T4,T5,TResult> delegált, amely megfelel a FileStream.BeginRead metódus szignatúrájának. A második paraméter egy Func<T,TResult> delegált, amely egy IAsyncResult-et elfogad és egy TResult-t visszaad. Mivel EndRead egész számot ad vissza, a fordító a TResult típusaként Int32-t, a feladat típusaként pedig Task-t feltételez. Az utolsó négy paraméter megegyezik a FileStream.BeginRead metódusban szereplő paraméterekkel:

• A puffer, amelyben a fájladatokat tárolni szeretné.

• A puffer azon pozíciója, ahol megkezdődik az adatok írása.

• A fájlból beolvasandó adatok maximális mennyisége.

• Nem kötelező objektum, amely a felhasználó által megadott állapotadatokat tárolja a visszahívásnak való továbbításhoz.

A ContinueWith használata a visszahívási funkcióhoz

Ha a fájlban lévő adatokhoz való hozzáférést követeli meg, és nem csak a bájtok számát, a FromAsync metódus nem elegendő. Ehelyett használja Task, amelynek Result tulajdonsága tartalmazza a fájladatokat. Ezt úgy teheti meg, hogy hozzáad egy folytatást az eredeti tevékenységhez. A folytatás azokat a műveletet hajtja végre, amelyeket általában a AsyncCallback delegált hajt végre. Ez akkor hívódik meg, amikor az előzmény befejeződött, és az adatpuffer ki lett töltve. (A FileStream objektumot a visszatérés előtt be kell zárni.)

Az alábbi példa bemutatja, hogyan adhat vissza egy Task, amely a BeginRead osztály /EndReadFileStream párját foglalja magában.

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

A metódus ezután meghívható az alábbiak szerint.

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

Egyéni állapotadatok megadása

A tipikus IAsyncResult műveletekben, ha a AsyncCallback delegáltja egyéni állapotadatokat igényel, azokat a Begin metódus utolsó paraméterén keresztül kell átadnia, hogy az adatok a visszahívási metódusnak végül átadott IAsyncResult objektumba csomagolhatók legyenek. Ez általában nem szükséges a FromAsync metódusok használatakor. Ha az egyéni adatok ismertek a folytatáskor, akkor közvetlenül rögzíthetők a folytatás delegátumában. Az alábbi példa az előző példához hasonlít, de az előzmény Result tulajdonságának vizsgálata helyett a folytatás azokat az egyéni állapotadatokat vizsgálja, amelyek közvetlenül elérhetők a folytatás felhasználói meghatalmazottja számára.

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

Több FromAsync-feladat szinkronizálása

A statikus ContinueWhenAll és ContinueWhenAny metódusok nagyobb rugalmasságot biztosítanak a FromAsync metódusokkal együtt használva. Az alábbi példa bemutatja, hogyan kezdeményezhet több aszinkron I/O-műveletet, majd várja meg, amíg mindegyik befejeződik, mielőtt végrehajtja a folytatást.

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

FromAsync-feladatok csak a Végpont metódushoz

Azon néhány esetben, amikor a Begin metódus háromnál több bemeneti paramétert igényel, vagy ref vagy out paraméterekkel rendelkezik, használhatja a FromAsync túlterheléseket, például TaskFactory<TResult>.FromAsync(IAsyncResult, Func<IAsyncResult,TResult>), amelyek csak a End metódust jelölik. Ezek a metódusok bármely olyan forgatókönyvben is használhatók, amelyben átadnak Önnek egy IAsyncResult-t, és azt be akarja ágyazni egy feladatba.

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

FromAsync-feladatok indítása és megszakítása

A FromAsync metódus által visszaadott feladat állapota WaitingForActivation, és a rendszer a feladat létrehozása után egy bizonyos ponton elindítja. Ha megpróbál elindítani egy ilyen feladatot, hibaüzenet jelenik meg.

A FromAsync feladat nem szakítható meg, mert a mögöttes .NET API-k jelenleg nem támogatják a fájl vagy hálózati I/O folyamatban lévő törlését. Hozzáadhat lemondási funkciókat egy olyan metódushoz, amely egy FromAsync hívást foglal magában, de a lemondásra csak a FromAsync hívása előtt vagy befejezése után (például egy folytatási feladatban) válaszolhat.

Egyes, az EAP-t támogató osztályok( például WebClient) támogatják a lemondást, és ezt a natív lemondási funkciót a lemondási jogkivonatok használatával integrálhatja.

Összetett EAP-műveletek feladatként való megjelenítése

A TPL nem biztosít olyan metódusokat, amelyek kifejezetten az eseményalapú aszinkron műveletek beágyazására lettek tervezve, ugyanúgy, ahogyan az FromAsync metóduscsalád a IAsyncResult mintát burkolja. A TPL biztosítja azonban a System.Threading.Tasks.TaskCompletionSource<TResult> osztályt, amely bármilyen tetszőleges művelet Task<TResult>-ként való ábrázolására használható. A műveletek lehetnek szinkronok vagy aszinkronok, és lehetnek I/O-kötöttek vagy számítási kötöttek, vagy mindkettő.

Az alábbi példa bemutatja, hogyan lehet egy TaskCompletionSource<TResult> segítségével az aszinkron WebClient műveletek készletét alapszintű Task<TResult>-ként az ügyfélkódban közzétenni. A metódus lehetővé teszi a webes URL-címek tömbjének, valamint a keresett kifejezés vagy név megadását, majd visszaadja, hogy a keresési kifejezés hányszor fordul elő az egyes webhelyeken.

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

Egy teljesebb példa, amely további kivételkezelést is tartalmaz, és bemutatja, hogyan hívhatja meg a metódust az ügyfélkódból, lásd a Útmutató: EAP-minták feladatként történő csomagolásaalatt.

Ne feledje, hogy az TaskCompletionSource<TResult> által létrehozott feladatokat az adott TaskCompletionSource fogja elindítani, ezért a felhasználói kód nem hívhatja meg az adott tevékenység Start metódusát.

Az APM-minta implementálása feladatok használatával

Bizonyos esetekben célszerű lehet közvetlenül elérhetővé tenni a IAsyncResult mintát egy API-ban a kezdő/végpont metóduspárok használatával. Előfordulhat például, hogy konzisztenciát szeretne fenntartani a meglévő API-kkal, vagy rendelkezhet olyan automatizált eszközökkel, amelyek ezt a mintát igénylik. Ilyen esetekben Task objektumokkal egyszerűsítheti az APM-minta belső implementálását.

Az alábbi példa bemutatja, hogyan valósíthat meg feladatokat az APM kezdő/végpont metóduspárjának implementálásához egy hosszú ideig futó számítási kötött metódushoz.

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

A StreamExtensions mintakód használata

A StreamExtensions.cs fájl a .NET Standard párhuzamos bővítményei extras adattárban számos referencia-implementációt tartalmaz, amelyek Task objektumokat használnak az aszinkron fájlhoz és a hálózati I/O-hoz.

Lásd még

• Feladatpárhuzamosítási könyvtár (TPL)