次の方法で共有


TPL と従来の .NET 非同期プログラミング

.NET には、I/O バインド非同期操作とコンピューティング バインド非同期操作を実行するための次の 2 つの標準パターンが用意されています。

  • 非同期プログラミング モデル (APM)。 開始/終了メソッドのペアによって非同期操作が表されます。 たとえば、FileStream.BeginReadStream.EndRead などです。

  • <OperationName>Async<OperationName>Completedという名前のメソッド/イベント ペアによって非同期操作が表されるイベント ベースの非同期パターン (EAP)。 たとえば、WebClient.DownloadStringAsyncWebClient.DownloadStringCompleted などです。

タスク並列ライブラリ (TPL) は、非同期パターンと組み合わせてさまざまな方法で使用できます。 APM 操作と EAP 操作の両方を Task オブジェクトとしてライブラリ コンシューマーに公開することも、APM パターンを公開することもできますが、 Task オブジェクトを使用して内部的に実装することもできます。 どちらのシナリオでも、 Task オブジェクトを使用することで、コードを簡略化し、次の便利な機能を利用できます。

  • タスクの開始後いつでも、タスク継続の形式でコールバックを登録します。

  • ContinueWhenAllメソッドとContinueWhenAny メソッド、またはWaitAllメソッドとWaitAny メソッドを使用して、Begin_ メソッドに応答して実行される複数の操作を調整します。

  • 非同期 I/O バインド操作とコンピューティング バインド操作を同じ Task オブジェクトにカプセル化します。

  • Task オブジェクトの状態を監視します。

  • TaskCompletionSource<TResult>を使用して、操作の状態をTask オブジェクトにマーシャリングします。

タスクで APM 操作をラップする

System.Threading.Tasks.TaskFactoryクラスとSystem.Threading.Tasks.TaskFactory<TResult> クラスの両方で、TaskFactory.FromAsyncメソッドとTaskFactory<TResult>.FromAsync メソッドのオーバーロードがいくつか用意されており、APM begin/end メソッド ペアを 1 つのTaskまたはTask<TResult>インスタンスにカプセル化できます。 さまざまなオーバーロードは、0 から 3 つの入力パラメーターを持つ begin/end メソッドのペアに対応します。

値を返すEndメソッド (Visual Basic のFunction) を持つペアの場合は、Task<TResult>を作成するTaskFactory<TResult>のメソッドを使用します。 void (Visual Basic のSub) を返すEndメソッドの場合は、Taskを作成するTaskFactoryのメソッドを使用します。

Begin メソッドに 3 つ以上のパラメーターがある場合や、refまたはoutパラメーターが含まれている場合は、End メソッドのみをカプセル化する追加のFromAsyncオーバーロードが提供されます。

次の例は、FileStream.BeginReadメソッドとFileStream.EndRead メソッドに一致するFromAsync オーバーロードのシグネチャを示しています。

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)

このオーバーロードは、次の 3 つの入力パラメーターを受け取ります。 最初のパラメーターは、FileStream.BeginRead メソッドのシグネチャと一致するFunc<T1,T2,T3,T4,T5,TResult> デリゲートです。 2 番目のパラメーターは、IAsyncResultを受け取り、TResultを返すFunc<T,TResult> デリゲートです。 EndReadは整数を返すので、コンパイラはTResultの型をInt32として、タスクの型をTaskとして推論します。 最後の 4 つのパラメーターは、 FileStream.BeginRead メソッドのパラメーターと同じです。

  • ファイル データを格納するバッファー。

  • データの書き込みを開始するバッファー内のオフセット。

  • ファイルから読み取るデータの最大量。

  • コールバックに渡すユーザー定義状態データを格納する省略可能なオブジェクト。

コールバック機能に ContinueWith を使用する

バイト数だけでなく、ファイル内のデータへのアクセスが必要な場合は、 FromAsync メソッドでは不十分です。 代わりに、Result プロパティにファイル データが含まれるTaskを使用します。 これを行うには、元のタスクに継続を追加します。 継続は、通常、 AsyncCallback デリゲートによって実行される作業を実行します。 これは、継続元が完了し、データ バッファーがいっぱいになったときに呼び出されます。 ( FileStream オブジェクトは、戻る前に閉じる必要があります)。

次の例は、FileStream クラスのBeginRead/EndReadペアをカプセル化するTaskを返す方法を示しています。

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

その後、次のようにメソッドを呼び出すことができます。


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

カスタム状態データを提供する

一般的なIAsyncResult操作では、AsyncCallback デリゲートにカスタム状態データが必要な場合は、最終的にコールバック メソッドに渡されるIAsyncResult オブジェクトにデータをパッケージ化できるように、Begin メソッドの最後のパラメーターを介して渡す必要があります。 これは通常、 FromAsync メソッドを使用する場合には必要ありません。 カスタム データが継続に認識されている場合は、継続デリゲートで直接キャプチャできます。 次の例は前の例に似ていますが、継続元の Result プロパティを調べる代わりに、継続のユーザー デリゲートから直接アクセスできるカスタム状態データを調べます。

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

複数の FromAsync タスクを同期する

静的 ContinueWhenAll メソッドと ContinueWhenAny メソッドは、 FromAsync メソッドと組み合わせて使用すると、柔軟性が向上します。 次の例は、複数の非同期 I/O 操作を開始し、それらのすべてが完了するのを待ってから継続を実行する方法を示しています。

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

End メソッドのみの FromAsync タスク

Begin メソッドで 3 つ以上の入力パラメーターが必要な場合や、refパラメーターまたはout パラメーターがある場合は、End メソッドのみを表すFromAsync オーバーロード (TaskFactory<TResult>.FromAsync(IAsyncResult, Func<IAsyncResult,TResult>) など) を使用できます。 これらのメソッドは、 IAsyncResult に渡され、それをタスクにカプセル化する任意のシナリオでも使用できます。

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 タスクの開始と取り消し

FromAsync メソッドによって返されるタスクの状態は WaitingForActivation であり、タスクの作成後のある時点でシステムによって開始されます。 このようなタスクで Start を呼び出そうとすると、例外が発生します。

基になる .NET API は現在、ファイルまたはネットワーク I/O の進行中の取り消しをサポートしていないため、 FromAsync タスクを取り消すことはできません。 FromAsync呼び出しをカプセル化するメソッドにキャンセル機能を追加できますが、キャンセルに応答できるのは、FromAsyncが呼び出される前または完了した後 (継続タスクなど) だけです。

EAP をサポートする一部のクラス ( WebClientなど) ではキャンセルがサポートされており、キャンセル トークンを使用してそのネイティブキャンセル機能を統合できます。

複雑な EAP 操作をタスクとして公開する

TPL には、 FromAsync ファミリのメソッドが IAsyncResult パターンをラップするのと同じ方法でイベント ベースの非同期操作をカプセル化するように特別に設計されたメソッドは用意されていません。 ただし、TPL には System.Threading.Tasks.TaskCompletionSource<TResult> クラスが用意されており、任意の操作セットを Task<TResult>として表すために使用できます。 操作は同期または非同期であり、I/O バインドまたはコンピューティング バインド、またはその両方である場合があります。

次の例は、 TaskCompletionSource<TResult> を使用して、一連の非同期 WebClient 操作を基本的な Task<TResult>としてクライアント コードに公開する方法を示しています。 このメソッドを使用すると、Web URL の配列と検索する用語または名前を入力し、各サイトで検索語句が出現する回数を返します。

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

追加の例外処理が含まれ、クライアント コードからメソッドを呼び出す方法を示す、より完全な例については、「 方法: タスクで EAP パターンをラップする」を参照してください。

TaskCompletionSource<TResult>によって作成されたタスクはそのTaskCompletionSourceによって開始されるため、ユーザー コードはそのタスクでStart メソッドを呼び出さないでください。

タスクを使用して APM パターンを実装する

一部のシナリオでは、API で begin メソッドと end メソッドのペアを使用して、 IAsyncResult パターンを直接公開することが望ましい場合があります。 たとえば、既存の API との一貫性を維持したい場合や、このパターンを必要とする自動化ツールがある場合があります。 このような場合は、 Task オブジェクトを使用して、APM パターンの内部実装方法を簡略化できます。

次の例は、タスクを使用して、実行時間の長いコンピューティング バインド メソッドの APM begin/end メソッド ペアを実装する方法を示しています。

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

StreamExtensions サンプル コードを使用する

StreamExtensions.cs ファイルには、.NET Standard 並列拡張機能の extras リポジトリに、非同期ファイルとネットワーク I/O にTask オブジェクトを使用するいくつかの参照実装が含まれています。

こちらも参照ください