Threadi – ProgTips

Mazliet par pavedieniem (threads) un VB.NET. Kopš .net CLR un CIL parādīšanās pavedieni vairs nav tikai "izvirtība priekš C++ programmētājiem" — tā ir arī ērti pieejama izvirtība VB programmētājiem.
Pirmkārt — kāpēc gan niekoties ar pavedieniem, ja viss tāpat jau darbojas? Viens no vienkāršākajiem pielietojumiem — ir vajadzīga aplikācija ar lietotāja interfeisu, kas paredzēta nepacietīgam cilvēkam, kuram neder, ka ineterfeiss "bremzē", bet ir nepieciešams veikt darbības, kuras aizņem daudz laika, kuras turklāt nav pārtraucamas. Piemēram, varam iedomāties aplikāciju, kas pār HTTP savienojumu ielādē ierakstus kādā listbox vai tamlīdzīgā kontrolē (kaut vai e-pasta vēstules, kas pa vienai parādās sarakstā). Kamēr dati lādējas, lietotājam varētu ļaut darīt arī kaut ko citu (piemēram, pakustināt formu).
Iedomājamies, ka ir nepieciešams ielādēt datus no HTTP, bet tajā laikā GUI jābūt brīvi pieejamam.
Datus varam dabūt ar šādu metodi

Public Function GetIt()
  Dim o As System.Net.HttpWebRequest
  o = System.Net.WebRequest.Create("http://www.asdf.lv/")
  Dim sText As String = New System.IO.StreamReader( _
    o.GetResponse.GetResponseStream()).ReadToEnd
  return sText
End Function

Skaidrs ir tas, ka šī metode izpildīsies "uzreiz", tātad, ja savienojums būs lēns, UI tajā laikā neatjaunosies.
Ko darīt. Izveidojam jaunu "darbinieka" klasi, kas veiks vajadzīgo darbu:

Public Class loader
  Public Event DataLoaded(ByVal result As String)
  Public Sub GetIt()
    Dim o As System.Net.HttpWebRequest
    o = System.Net.WebRequest.Create("http://www.asdf.lv/")
    Dim sText As String = New System.IO.StreamReader( _
    o.GetResponse.GetResponseStream()).ReadToEnd
    RaiseEvent DataLoaded(sText)
  End Sub
End Class

Šī klase definē arī savu notikumu (event) — DataLoaded. Notikums iestāsies tad, kad dati būs ielādēti. Notikums arī palīdzēs nogādāt ielādētos datus no izpildītāja pie "īpašnieka".
Ko darīt īpašniekam? Pieņemam, ka īpašnieks ir Windows forma, kurā nepieciešams ielādēt datus. Formai pirmkārt nepieciešama privāta izpildītāja klases instance.

Public WithEvents loaders As loader

Šo instanci nevaram deklarēt tās metodes ķermenī, kura izsauks strādātājpavedienu, jo mēs taču ceram, ka metode izsauks ielādes procedūru un turpinās darbu. Tātad, iespējams, beigsies pirms strādātājpavediena metodes.
Vēl nepieciešams deklarēt pašu pavedienu. To var izdarīt ar sekojošu rindu:

Public myThread As System.Threading.Thread

. Nu, kas tad vēl atliek… pavediena inicializācija un datu ķeršana. Šeit arī kopējais formas kods (izņemot kontroļu ģenerācijas kodu)

Public Class Forma
  Public WithEvents loaders As loader
  Public myThread As System.Threading.Thread
  Private Sub Button1Click(ByVal sender As System.Object, ByVal e As System.EventArgs) _
    Handles Button1.Click
    loaders = New loader()
    myThread = New System.Threading.Thread(AddressOf loaders.GetIt)
    myThread.Start() `sākas patiesā ielāde
  End Sub

  Private Sub loadersa(ByVal result As String) _
     Handles loaders.DataLoaded
    Me.TextBox1.Text = result
  End Sub
End Class

Šeit arī redzams, ka, nospiežot pogu button1 tiek izveidota jauna pavediena instance, kurai tiek nodota izpildāmās metodes adrese. Šajā gadījumā tiek izmantota klases instances metode, bet tikpat labi metode varēja būt arī statiska.
Pēc tam pavediens tiek palaists darbā (un forma aizmirst par to, ka tas darbojas).
Vēlāk tiek apstrādāts notikums, ko radījusi ielādes klase – dati ir ielādēti.