Obsługa ponownego uwierzytelniania w aplikacjach asynchronicznych (Visual Basic)
W przypadku uwzględnienia kodu asynchronicznego w aplikacji należy rozważyć ponowne wprowadzenie operacji asynchronicznej, co oznacza ponowne wprowadzenie operacji asynchronicznej przed jej zakończeniem. Jeśli nie zidentyfikujesz i nie obsłużysz możliwości ponownego wywołania, może to spowodować nieoczekiwane wyniki.
Uwaga
Aby uruchomić przykład, na komputerze musi być zainstalowany program Visual Studio 2012 lub nowszy oraz program .NET Framework 4.5 lub nowszy.
Uwaga
Protokół Transport Layer Security (TLS) w wersji 1.2 jest teraz minimalną wersją do użycia w programowania aplikacji. Jeśli aplikacja jest przeznaczona dla platformy .NET Framework w wersji starszej niż 4.7, zapoznaj się z następującym artykułem , aby zapoznać się z najlepszymi rozwiązaniami dotyczącymi protokołu Transport Layer Security (TLS) w programie .NET Framework.
Rozpoznawanie ponownej reentrancy
W przykładzie w tym temacie użytkownicy wybierają przycisk Uruchom , aby zainicjować aplikację asynchroniczną, która pobiera serię witryn internetowych i oblicza łączną liczbę pobranych bajtów. Synchroniczna wersja przykładu będzie odpowiadać w taki sam sposób niezależnie od tego, ile razy użytkownik wybierze przycisk, ponieważ po pierwszym uruchomieniu wątek interfejsu użytkownika ignoruje te zdarzenia do momentu zakończenia działania aplikacji. Jednak w aplikacji asynchronicznej wątek interfejsu użytkownika nadal odpowiada i możesz ponownie wnieść operację asynchroniczną przed jej zakończeniem.
W poniższym przykładzie pokazano oczekiwane dane wyjściowe, jeśli użytkownik wybierze przycisk Uruchom tylko raz. Zostanie wyświetlona lista pobranych witryn internetowych o rozmiarze (w bajtach) każdej witryny. Łączna liczba bajtów jest wyświetlana na końcu.
1. msdn.microsoft.com/library/hh191443.aspx 83732
2. msdn.microsoft.com/library/aa578028.aspx 205273
3. msdn.microsoft.com/library/jj155761.aspx 29019
4. msdn.microsoft.com/library/hh290140.aspx 117152
5. msdn.microsoft.com/library/hh524395.aspx 68959
6. msdn.microsoft.com/library/ms404677.aspx 197325
7. msdn.microsoft.com 42972
8. msdn.microsoft.com/library/ff730837.aspx 146159
TOTAL bytes returned: 890591
Jeśli jednak użytkownik wybierze przycisk więcej niż raz, program obsługi zdarzeń jest wywoływany wielokrotnie, a proces pobierania jest ponownie pobierany za każdym razem. W związku z tym kilka operacji asynchronicznych jest uruchomionych w tym samym czasie, dane wyjściowe przeplatają wyniki, a łączna liczba bajtów jest myląca.
1. msdn.microsoft.com/library/hh191443.aspx 83732
2. msdn.microsoft.com/library/aa578028.aspx 205273
3. msdn.microsoft.com/library/jj155761.aspx 29019
4. msdn.microsoft.com/library/hh290140.aspx 117152
5. msdn.microsoft.com/library/hh524395.aspx 68959
1. msdn.microsoft.com/library/hh191443.aspx 83732
2. msdn.microsoft.com/library/aa578028.aspx 205273
6. msdn.microsoft.com/library/ms404677.aspx 197325
3. msdn.microsoft.com/library/jj155761.aspx 29019
7. msdn.microsoft.com 42972
4. msdn.microsoft.com/library/hh290140.aspx 117152
8. msdn.microsoft.com/library/ff730837.aspx 146159
TOTAL bytes returned: 890591
5. msdn.microsoft.com/library/hh524395.aspx 68959
1. msdn.microsoft.com/library/hh191443.aspx 83732
2. msdn.microsoft.com/library/aa578028.aspx 205273
6. msdn.microsoft.com/library/ms404677.aspx 197325
3. msdn.microsoft.com/library/jj155761.aspx 29019
4. msdn.microsoft.com/library/hh290140.aspx 117152
7. msdn.microsoft.com 42972
5. msdn.microsoft.com/library/hh524395.aspx 68959
8. msdn.microsoft.com/library/ff730837.aspx 146159
TOTAL bytes returned: 890591
6. msdn.microsoft.com/library/ms404677.aspx 197325
7. msdn.microsoft.com 42972
8. msdn.microsoft.com/library/ff730837.aspx 146159
TOTAL bytes returned: 890591
Możesz przejrzeć kod, który generuje te dane wyjściowe, przewijając na końcu tego tematu. Możesz eksperymentować z kodem, pobierając rozwiązanie na komputer lokalny, a następnie uruchamiając projekt WebsiteDownload lub używając kodu na końcu tego tematu, aby utworzyć własny projekt Aby uzyskać więcej informacji i instrukcji, zobacz Przeglądanie i uruchamianie przykładowej aplikacji.
Obsługa ponownej reentrancy
Reentrancy można obsługiwać na różne sposoby, w zależności od tego, co aplikacja ma robić. W tym temacie przedstawiono następujące przykłady:
-
Wyłącz przycisk Uruchom, gdy operacja jest uruchomiona, aby użytkownik nie mógł go przerwać.
Anuluj i uruchom ponownie operację
Anuluj dowolną operację, która jest nadal uruchomiona, gdy użytkownik ponownie wybierze przycisk Uruchom , a następnie pozwól na kontynuowanie ostatnio żądanej operacji.
Uruchamianie wielu operacji i kolejki danych wyjściowych
Zezwalaj na wykonywanie wszystkich żądanych operacji asynchronicznie, ale koordynowanie wyświetlania danych wyjściowych w taki sposób, aby wyniki z każdej operacji pojawiały się razem i w kolejności.
Wyłącz przycisk Start
Przycisk Uruchom można zablokować, gdy operacja jest uruchomiona, wyłączając przycisk w górnej części programu obsługi zdarzeńStartButton_Click. Następnie można ponownie przywrócić przycisk z bloku Finally po zakończeniu operacji, aby użytkownicy mogli ponownie uruchomić aplikację.
Poniższy kod przedstawia te zmiany, które są oznaczone gwiazdkami. Możesz dodać zmiany do kodu na końcu tego tematu lub pobrać ukończoną aplikację z sekcji Async Samples: Reentrancy in .NET Desktop Apps (Asynchroniczne przykłady: ponowne wprowadzenie w aplikacjach klasycznych platformy .NET). Nazwa projektu to DisableStartButton.
Private Async Sub StartButton_Click(sender As Object, e As RoutedEventArgs)
' This line is commented out to make the results clearer in the output.
'ResultsTextBox.Text = ""
' ***Disable the Start button until the downloads are complete.
StartButton.IsEnabled = False
Try
Await AccessTheWebAsync()
Catch ex As Exception
ResultsTextBox.Text &= vbCrLf & "Downloads failed."
' ***Enable the Start button in case you want to run the program again.
Finally
StartButton.IsEnabled = True
End Try
End Sub
W wyniku zmian przycisk nie odpowiada podczas AccessTheWebAsync pobierania witryn internetowych, więc nie można ponownie entered procesu.
Anuluj i uruchom ponownie operację
Zamiast wyłączać przycisk Start , możesz zachować aktywny przycisk, ale jeśli użytkownik wybierze ten przycisk ponownie, anuluj operację, która jest już uruchomiona i niech ostatnio uruchomiona operacja będzie kontynuowana.
Aby uzyskać więcej informacji na temat anulowania, zobacz Dostosowywanie aplikacji asynchronicznych (Visual Basic).
Aby skonfigurować ten scenariusz, wprowadź następujące zmiany w podstawowym kodzie podanym w artykule Przeglądanie i uruchamianie przykładowej aplikacji. Możesz również pobrać ukończoną aplikację z sekcji Async Samples: Reentrancy in .NET Desktop Apps (Przykłady asynchroniczne: ponowne wprowadzenie w aplikacjach klasycznych platformy .NET). Nazwa tego projektu to CancelAndRestart.
Zadeklaruj zmienną CancellationTokenSource ,
ctsktóra jest w zakresie dla wszystkich metod.Class MainWindow // Or Class MainPage ' *** Declare a System.Threading.CancellationTokenSource. Dim cts As CancellationTokenSourceW
StartButton_Clickpliku określ, czy operacja jest już w toku. Jeśli wartość toNothing, żadnactsoperacja nie jest już aktywna. Jeśli wartość nieNothingjest , operacja, która jest już uruchomiona, została anulowana.' *** If a download process is already underway, cancel it. If cts IsNot Nothing Then cts.Cancel() End IfUstaw
ctsna inną wartość reprezentującą bieżący proces.' *** Now set cts to cancel the current process if the button is chosen again. Dim newCTS As CancellationTokenSource = New CancellationTokenSource() cts = newCTSNa końcu bieżącego
StartButton_Clickprocesu jest ukończony, więc ustaw wartośćctsz powrotem naNothing.' *** When the process completes, signal that another process can proceed. If cts Is newCTS Then cts = Nothing End If
Poniższy kod przedstawia wszystkie zmiany w pliku StartButton_Click. Dodatki są oznaczone gwiazdkami.
Private Async Sub StartButton_Click(sender As Object, e As RoutedEventArgs)
' This line is commented out to make the results clearer.
'ResultsTextBox.Text = ""
' *** If a download process is underway, cancel it.
If cts IsNot Nothing Then
cts.Cancel()
End If
' *** Now set cts to cancel the current process if the button is chosen again.
Dim newCTS As CancellationTokenSource = New CancellationTokenSource()
cts = newCTS
Try
' *** Send a token to carry the message if the operation is canceled.
Await AccessTheWebAsync(cts.Token)
Catch ex As OperationCanceledException
ResultsTextBox.Text &= vbCrLf & "Download canceled." & vbCrLf
Catch ex As Exception
ResultsTextBox.Text &= vbCrLf & "Downloads failed."
End Try
' *** When the process is complete, signal that another process can proceed.
If cts Is newCTS Then
cts = Nothing
End If
End Sub
W AccessTheWebAsyncpliku wprowadź następujące zmiany.
Dodaj parametr, aby zaakceptować token anulowania z .
StartButton_ClickGetAsync Użyj metody , aby pobrać witryny internetowe, ponieważ
GetAsyncakceptuje CancellationToken argument.Przed wywołaniem polecenia
DisplayResultsw celu wyświetlenia wyników dla każdej pobranej witryny internetowej sprawdźct, czy bieżąca operacja nie została anulowana.
Poniższy kod przedstawia te zmiany, które są oznaczone gwiazdkami.
' *** Provide a parameter for the CancellationToken from StartButton_Click.
Private Async Function AccessTheWebAsync(ct As CancellationToken) As Task
' Declare an HttpClient object.
Dim client = New HttpClient()
' Make a list of web addresses.
Dim urlList As List(Of String) = SetUpURLList()
Dim total = 0
Dim position = 0
For Each url In urlList
' *** Use the HttpClient.GetAsync method because it accepts a
' cancellation token.
Dim response As HttpResponseMessage = Await client.GetAsync(url, ct)
' *** Retrieve the website contents from the HttpResponseMessage.
Dim urlContents As Byte() = Await response.Content.ReadAsByteArrayAsync()
' *** Check for cancellations before displaying information about the
' latest site.
ct.ThrowIfCancellationRequested()
position += 1
DisplayResults(url, urlContents, position)
' Update the total.
total += urlContents.Length
Next
' Display the total count for all of the websites.
ResultsTextBox.Text &=
String.Format(vbCrLf & vbCrLf & "TOTAL bytes returned: " & total & vbCrLf)
End Function
Jeśli wybierzesz przycisk Uruchom kilka razy, gdy ta aplikacja jest uruchomiona, powinny zostać wyświetlone wyniki podobne do następujących danych wyjściowych:
1. msdn.microsoft.com/library/hh191443.aspx 83732
2. msdn.microsoft.com/library/aa578028.aspx 205273
3. msdn.microsoft.com/library/jj155761.aspx 29019
4. msdn.microsoft.com/library/hh290140.aspx 122505
5. msdn.microsoft.com/library/hh524395.aspx 68959
6. msdn.microsoft.com/library/ms404677.aspx 197325
Download canceled.
1. msdn.microsoft.com/library/hh191443.aspx 83732
2. msdn.microsoft.com/library/aa578028.aspx 205273
3. msdn.microsoft.com/library/jj155761.aspx 29019
Download canceled.
1. msdn.microsoft.com/library/hh191443.aspx 83732
2. msdn.microsoft.com/library/aa578028.aspx 205273
3. msdn.microsoft.com/library/jj155761.aspx 29019
4. msdn.microsoft.com/library/hh290140.aspx 117152
5. msdn.microsoft.com/library/hh524395.aspx 68959
6. msdn.microsoft.com/library/ms404677.aspx 197325
7. msdn.microsoft.com 42972
8. msdn.microsoft.com/library/ff730837.aspx 146159
TOTAL bytes returned: 890591
Aby wyeliminować częściowe listy, usuń komentarz z pierwszego wiersza kodu, StartButton_Click aby wyczyścić pole tekstowe za każdym razem, gdy użytkownik ponownie uruchomi operację.
Uruchamianie wielu operacji i kolejki danych wyjściowych
Ten trzeci przykład jest najbardziej skomplikowany w tym, że aplikacja uruchamia kolejną operację asynchroniczną za każdym razem, gdy użytkownik wybierze przycisk Uruchom , a wszystkie operacje są uruchamiane do ukończenia. Wszystkie żądane operacje pobierają witryny internetowe z listy asynchronicznie, ale dane wyjściowe z operacji są prezentowane sekwencyjnie. Oznacza to, że rzeczywiste działanie pobierania jest przeplatane, jak wynika z danych wyjściowych w sekcji Rozpoznawanie reentrancy , ale lista wyników dla każdej grupy jest prezentowana oddzielnie.
Operacje współużytkują globalny Taskelement , pendingWorkktóry służy jako strażnik procesu wyświetlania.
Możesz uruchomić ten przykład, wklejając zmiany w kodzie w sekcji Kompilowanie aplikacji lub postępując zgodnie z instrukcjami w temacie Pobieranie aplikacji , aby pobrać przykład, a następnie uruchomić projekt QueueResults.
Poniższe dane wyjściowe pokazują wynik, jeśli użytkownik wybierze przycisk Uruchom tylko raz. Etykieta litery A wskazuje, że wynik pochodzi od pierwszego wybrania przycisku Start . Liczby pokazują kolejność adresów URL na liście elementów docelowych pobierania.
#Starting group A.
#Task assigned for group A.
A-1. msdn.microsoft.com/library/hh191443.aspx 87389
A-2. msdn.microsoft.com/library/aa578028.aspx 209858
A-3. msdn.microsoft.com/library/jj155761.aspx 30870
A-4. msdn.microsoft.com/library/hh290140.aspx 119027
A-5. msdn.microsoft.com/library/hh524395.aspx 71260
A-6. msdn.microsoft.com/library/ms404677.aspx 199186
A-7. msdn.microsoft.com 53266
A-8. msdn.microsoft.com/library/ff730837.aspx 148020
TOTAL bytes returned: 918876
#Group A is complete.
Jeśli użytkownik wybierze przycisk Uruchom trzy razy, aplikacja generuje dane wyjściowe podobne do następujących wierszy. Wiersze informacji rozpoczynające się od znaku funta (#) śledzą postęp aplikacji.
#Starting group A.
#Task assigned for group A.
A-1. msdn.microsoft.com/library/hh191443.aspx 87389
A-2. msdn.microsoft.com/library/aa578028.aspx 207089
A-3. msdn.microsoft.com/library/jj155761.aspx 30870
A-4. msdn.microsoft.com/library/hh290140.aspx 119027
A-5. msdn.microsoft.com/library/hh524395.aspx 71259
A-6. msdn.microsoft.com/library/ms404677.aspx 199185
#Starting group B.
#Task assigned for group B.
A-7. msdn.microsoft.com 53266
#Starting group C.
#Task assigned for group C.
A-8. msdn.microsoft.com/library/ff730837.aspx 148010
TOTAL bytes returned: 916095
B-1. msdn.microsoft.com/library/hh191443.aspx 87389
B-2. msdn.microsoft.com/library/aa578028.aspx 207089
B-3. msdn.microsoft.com/library/jj155761.aspx 30870
B-4. msdn.microsoft.com/library/hh290140.aspx 119027
B-5. msdn.microsoft.com/library/hh524395.aspx 71260
B-6. msdn.microsoft.com/library/ms404677.aspx 199186
#Group A is complete.
B-7. msdn.microsoft.com 53266
B-8. msdn.microsoft.com/library/ff730837.aspx 148010
TOTAL bytes returned: 916097
C-1. msdn.microsoft.com/library/hh191443.aspx 87389
C-2. msdn.microsoft.com/library/aa578028.aspx 207089
#Group B is complete.
C-3. msdn.microsoft.com/library/jj155761.aspx 30870
C-4. msdn.microsoft.com/library/hh290140.aspx 119027
C-5. msdn.microsoft.com/library/hh524395.aspx 72765
C-6. msdn.microsoft.com/library/ms404677.aspx 199186
C-7. msdn.microsoft.com 56190
C-8. msdn.microsoft.com/library/ff730837.aspx 148010
TOTAL bytes returned: 920526
#Group C is complete.
Grupy B i C rozpoczynają się przed zakończeniem grupy A, ale dane wyjściowe dla każdej grupy są wyświetlane oddzielnie. Wszystkie dane wyjściowe grupy A są wyświetlane jako pierwsze, a następnie wszystkie dane wyjściowe grupy B, a następnie wszystkie dane wyjściowe grupy C. Aplikacja zawsze wyświetla grupy w kolejności, a dla każdej grupy zawsze wyświetla informacje o poszczególnych witrynach internetowych w kolejności, w których adresy URL są wyświetlane na liście adresów URL.
Nie można jednak przewidzieć kolejności rzeczywistej pobierania. Po uruchomieniu wielu grup wszystkie wygenerowane przez nie zadania pobierania są aktywne. Nie można założyć, że A-1 zostanie pobrany przed B-1 i nie można założyć, że A-1 zostanie pobrany przed A-2.
Definicje globalne
Przykładowy kod zawiera następujące dwie deklaracje globalne, które są widoczne we wszystkich metodach.
Class MainWindow ' Class MainPage in Windows Store app.
' ***Declare the following variables where all methods can access them.
Private pendingWork As Task = Nothing
Private group As Char = ChrW(AscW("A") - 1)
Zmienna Task , pendingWorknadzoruje proces wyświetlania i uniemożliwia każdej grupie przerwanie operacji wyświetlania innej grupy. Zmienna znaku , groupoznacza dane wyjściowe z różnych grup, aby sprawdzić, czy wyniki są wyświetlane w oczekiwanej kolejności.
Procedura obsługi zdarzeń kliknięcia
Program obsługi zdarzeń zwiększa StartButton_Clickliterę grupy za każdym razem, gdy użytkownik wybierze przycisk Uruchom . Następnie program obsługi wywołuje polecenie AccessTheWebAsync , aby uruchomić operację pobierania.
Private Async Sub StartButton_Click(sender As Object, e As RoutedEventArgs)
' ***Verify that each group's results are displayed together, and that
' the groups display in order, by marking each group with a letter.
group = ChrW(AscW(group) + 1)
ResultsTextBox.Text &= String.Format(vbCrLf & vbCrLf & "#Starting group {0}.", group)
Try
' *** Pass the group value to AccessTheWebAsync.
Dim finishedGroup As Char = Await AccessTheWebAsync(group)
' The following line verifies a successful return from the download and
' display procedures.
ResultsTextBox.Text &= String.Format(vbCrLf & vbCrLf & "#Group {0} is complete." & vbCrLf, finishedGroup)
Catch ex As Exception
ResultsTextBox.Text &= vbCrLf & "Downloads failed."
End Try
End Sub
Metoda AccessTheWebAsync
Ten przykład dzieli się AccessTheWebAsync na dwie metody. Pierwsza metoda , AccessTheWebAsyncuruchamia wszystkie zadania pobierania dla grupy i konfiguruje w pendingWork celu kontrolowania procesu wyświetlania. Metoda używa zapytania zintegrowanego języka (zapytanie LINQ) i ToArray uruchamia wszystkie zadania pobierania w tym samym czasie.
AccessTheWebAsync następnie wywołuje polecenie FinishOneGroupAsync , aby oczekiwać na ukończenie każdego pobierania i wyświetlić jego długość.
FinishOneGroupAsync Zwraca zadanie przydzielone do pendingWork metody w programie AccessTheWebAsync. Ta wartość uniemożliwia przerwanie działania przez inną operację przed ukończeniem zadania.
Private Async Function AccessTheWebAsync(grp As Char) As Task(Of Char)
Dim client = New HttpClient()
' Make a list of the web addresses to download.
Dim urlList As List(Of String) = SetUpURLList()
' ***Kick off the downloads. The application of ToArray activates all the download tasks.
Dim getContentTasks As Task(Of Byte())() =
urlList.Select(Function(addr) client.GetByteArrayAsync(addr)).ToArray()
' ***Call the method that awaits the downloads and displays the results.
' Assign the Task that FinishOneGroupAsync returns to the gatekeeper task, pendingWork.
pendingWork = FinishOneGroupAsync(urlList, getContentTasks, grp)
ResultsTextBox.Text &=
String.Format(vbCrLf & "#Task assigned for group {0}. Download tasks are active." & vbCrLf, grp)
' ***This task is complete when a group has finished downloading and displaying.
Await pendingWork
' You can do other work here or just return.
Return grp
End Function
Metoda FinishOneGroupAsync
Ta metoda przechodzi przez zadania pobierania w grupie, oczekując na każdy z nich, wyświetlając długość pobranej witryny internetowej i dodając długość do sumy.
Pierwsza instrukcja w FinishOneGroupAsync użyciu pendingWork służy do upewnienia się, że wprowadzenie metody nie zakłóca operacji, która jest już w procesie wyświetlania lub która już czeka. Jeśli taka operacja jest w toku, operacja wejściowa musi czekać na jego obrót.
Private Async Function FinishOneGroupAsync(urls As List(Of String), contentTasks As Task(Of Byte())(), grp As Char) As Task
' Wait for the previous group to finish displaying results.
If pendingWork IsNot Nothing Then
Await pendingWork
End If
Dim total = 0
' contentTasks is the array of Tasks that was created in AccessTheWebAsync.
For i As Integer = 0 To contentTasks.Length - 1
' Await the download of a particular URL, and then display the URL and
' its length.
Dim content As Byte() = Await contentTasks(i)
DisplayResults(urls(i), content, i, grp)
total += content.Length
Next
' Display the total count for all of the websites.
ResultsTextBox.Text &=
String.Format(vbCrLf & vbCrLf & "TOTAL bytes returned: " & total & vbCrLf)
End Function
Możesz uruchomić ten przykład, wklejając zmiany w kodzie w sekcji Kompilowanie aplikacji lub postępując zgodnie z instrukcjami w temacie Pobieranie aplikacji , aby pobrać przykład, a następnie uruchomić projekt QueueResults.
Zainteresowania
Wiersze informacji rozpoczynające się od znaku funta (#) w danych wyjściowych wyjaśniają, jak działa ten przykład.
Dane wyjściowe przedstawiają następujące wzorce.
Grupę można uruchomić, gdy poprzednia grupa wyświetla swoje dane wyjściowe, ale wyświetlanie danych wyjściowych poprzedniej grupy nie jest przerywane.
#Starting group A. #Task assigned for group A. Download tasks are active. A-1. msdn.microsoft.com/library/hh191443.aspx 87389 A-2. msdn.microsoft.com/library/aa578028.aspx 207089 A-3. msdn.microsoft.com/library/jj155761.aspx 30870 A-4. msdn.microsoft.com/library/hh290140.aspx 119037 A-5. msdn.microsoft.com/library/hh524395.aspx 71260 #Starting group B. #Task assigned for group B. Download tasks are active. A-6. msdn.microsoft.com/library/ms404677.aspx 199186 A-7. msdn.microsoft.com 53078 A-8. msdn.microsoft.com/library/ff730837.aspx 148010 TOTAL bytes returned: 915919 B-1. msdn.microsoft.com/library/hh191443.aspx 87388 B-2. msdn.microsoft.com/library/aa578028.aspx 207089 B-3. msdn.microsoft.com/library/jj155761.aspx 30870 #Group A is complete. B-4. msdn.microsoft.com/library/hh290140.aspx 119027 B-5. msdn.microsoft.com/library/hh524395.aspx 71260 B-6. msdn.microsoft.com/library/ms404677.aspx 199186 B-7. msdn.microsoft.com 53078 B-8. msdn.microsoft.com/library/ff730837.aspx 148010 TOTAL bytes returned: 915908Zadanie
pendingWorkjestNothingna początkuFinishOneGroupAsynctylko dla grupy A, która została uruchomiona jako pierwsza. Grupa A nie ukończyła jeszcze wyrażenia await, gdy osiągnieFinishOneGroupAsyncwartość . W związku z tym kontrolka nie została zwrócona doAccessTheWebAsync, a pierwsze przypisaniependingWorkdo elementu nie miało miejsca.Następujące dwa wiersze są zawsze wyświetlane razem w danych wyjściowych. Kod nigdy nie jest przerywany między uruchomieniem operacji grupy w
StartButton_Clickprogramie i przypisaniem zadania dla grupy do elementupendingWork.#Starting group B. #Task assigned for group B. Download tasks are active.Po wprowadzeniu
StartButton_Clickgrupy operacja nie ukończy wyrażenia await, dopóki operacja nie zostanie wprowadzonaFinishOneGroupAsync. W związku z tym żadna inna operacja nie może przejąć kontroli nad tym segmentem kodu.
Przeglądanie i uruchamianie przykładowej aplikacji
Aby lepiej zrozumieć przykładowy aplikację, możesz ją pobrać, skompilować ją samodzielnie lub przejrzeć kod na końcu tego tematu bez implementowania aplikacji.
Uwaga
Aby uruchomić przykład jako aplikację klasyczną programu Windows Presentation Foundation (WPF), na komputerze musi być zainstalowany program Visual Studio 2012 lub nowszy oraz program .NET Framework 4.5 lub nowszy.
Pobieranie aplikacji
Pobierz skompresowany plik z przykładów asynchronicznych: ponowne wprowadzenie w aplikacjach klasycznych platformy .NET.
Zdekompresuj pobrany plik, a następnie uruchom program Visual Studio.
Na pasku menu wybierz pozycję Plik, Otwórz, Projekt/Rozwiązanie.
Przejdź do folderu zawierającego zdekompresowany przykładowy kod, a następnie otwórz plik rozwiązania (.sln).
W Eksplorator rozwiązań otwórz menu skrótów dla projektu, który chcesz uruchomić, a następnie wybierz pozycję Ustaw jako StartUpProject.
Wybierz klawisze CTRL+F5, aby skompilować i uruchomić projekt.
Kompilowanie aplikacji
Poniższa sekcja zawiera kod umożliwiający skompilowanie przykładu jako aplikacji WPF.
Aby utworzyć aplikację WPF
Uruchom program Visual Studio.
Na pasku menu wybierz pozycję Plik, Nowy, Projekt.
Zostanie otwarte okno dialogowe Nowy projekt .
W okienku Zainstalowane szablony rozwiń węzeł Visual Basic, a następnie rozwiń węzeł Windows.
Na liście typów projektów wybierz pozycję Aplikacja WPF.
Nadaj projektowi
WebsiteDownloadWPFnazwę , wybierz wersję programu .NET Framework w wersji 4.6 lub nowszej , a następnie kliknij przycisk OK .Nowy projekt zostanie wyświetlony w Eksplorator rozwiązań.
W edytorze programu Visual Studio Code wybierz kartę MainWindow.xaml .
Jeśli karta nie jest widoczna, otwórz menu skrótów dla pliku MainWindow.xaml w Eksplorator rozwiązań, a następnie wybierz pozycję Wyświetl kod.
W widoku XAML pliku MainWindow.xaml zastąp kod następującym kodem.
<Window x:Class="MainWindow" xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation" xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml" xmlns:local="using:WebsiteDownloadWPF" xmlns:d="http://schemas.microsoft.com/expression/blend/2008" xmlns:mc="http://schemas.openxmlformats.org/markup-compatibility/2006" mc:Ignorable="d"> <Grid Width="517" Height="360"> <Button x:Name="StartButton" Content="Start" HorizontalAlignment="Left" Margin="-1,0,0,0" VerticalAlignment="Top" Click="StartButton_Click" Height="53" Background="#FFA89B9B" FontSize="36" Width="518" /> <TextBox x:Name="ResultsTextBox" HorizontalAlignment="Left" Margin="-1,53,0,-36" TextWrapping="Wrap" VerticalAlignment="Top" Height="343" FontSize="10" ScrollViewer.VerticalScrollBarVisibility="Visible" Width="518" FontFamily="Lucida Console" /> </Grid> </Window>Proste okno zawierające pole tekstowe i przycisk pojawi się w widoku Projekt mainWindow.xaml.
W Eksplorator rozwiązań kliknij prawym przyciskiem myszy pozycję Odwołania i wybierz pozycję Dodaj odwołanie.
Dodaj odwołanie dla elementu System.Net.Http, jeśli nie zostało jeszcze wybrane.
W Eksplorator rozwiązań otwórz menu skrótów dla MainWindow.xaml.vb, a następnie wybierz pozycję Wyświetl kod.
W MainWindow.xaml.vb zastąp kod następującym kodem.
' Add the following Imports statements, and add a reference for System.Net.Http. Imports System.Net.Http Imports System.Threading Class MainWindow Private Async Sub StartButton_Click(sender As Object, e As RoutedEventArgs) System.Net.ServicePointManager.SecurityProtocol = System.Net.ServicePointManager.SecurityProtocol Or System.Net.SecurityProtocolType.Tls12 ' This line is commented out to make the results clearer in the output. 'ResultsTextBox.Text = "" Try Await AccessTheWebAsync() Catch ex As Exception ResultsTextBox.Text &= vbCrLf & "Downloads failed." End Try End Sub Private Async Function AccessTheWebAsync() As Task ' Declare an HttpClient object. Dim client = New HttpClient() ' Make a list of web addresses. Dim urlList As List(Of String) = SetUpURLList() Dim total = 0 Dim position = 0 For Each url In urlList ' GetByteArrayAsync returns a task. At completion, the task ' produces a byte array. Dim urlContents As Byte() = Await client.GetByteArrayAsync(url) position += 1 DisplayResults(url, urlContents, position) ' Update the total. total += urlContents.Length Next ' Display the total count for all of the websites. ResultsTextBox.Text &= String.Format(vbCrLf & vbCrLf & "TOTAL bytes returned: " & total & vbCrLf) End Function Private Function SetUpURLList() As List(Of String) Dim urls = New List(Of String) From { "https://msdn.microsoft.com/library/hh191443.aspx", "https://msdn.microsoft.com/library/aa578028.aspx", "https://msdn.microsoft.com/library/jj155761.aspx", "https://msdn.microsoft.com/library/hh290140.aspx", "https://msdn.microsoft.com/library/hh524395.aspx", "https://msdn.microsoft.com/library/ms404677.aspx", "https://msdn.microsoft.com", "https://msdn.microsoft.com/library/ff730837.aspx" } Return urls End Function Private Sub DisplayResults(url As String, content As Byte(), pos As Integer) ' Display the length of each website. The string format is designed ' to be used with a monospaced font, such as Lucida Console or ' Global Monospace. ' Strip off the "http:'". Dim displayURL = url.Replace("https://", "") ' Display position in the URL list, the URL, and the number of bytes. ResultsTextBox.Text &= String.Format(vbCrLf & "{0}. {1,-58} {2,8}", pos, displayURL, content.Length) End Sub End ClassWybierz klawisze CTRL+F5, aby uruchomić program, a następnie wybierz przycisk Uruchom kilka razy.
Wprowadź zmiany w obszarze Wyłącz przycisk Uruchamiania, Anuluj i Uruchom ponownie operację lub Uruchom wiele operacji i utwórz kolejkę danych wyjściowych , aby obsłużyć ponowne uruchomienie.
