Listener Luokka jonka sisällä seuraavaa:

Public Sub Main()
'Starttaa treadin form loadista tai nyt tällä hetkellä napilta formilta.

ListenerThread = New Thread(AddressOf Listen)
ListenerThread.Start()

End Sub

Public Sub Listen()

'Public Shared Sub main()

Dim server As TcpListener
server = Nothing
Try
' Set the TcpListener port


Dim port As Int32 = CInt(GetServerPort()) 'Funktio toimii mutta palauttaa aina defaultiksi kirjoitetun "PORT" sanan vaikka threadin käynnistäisi vasta napilla kun kaikki formiin liittyvä on ladattu.
Dim ServerAddr As IPAddress = IPAddress.Parse(form.ServerIP_TB.Text) 'Tämä rivi ei toimi suoraan thread luokan sisältä

server = New TcpListener(ServerAddr, port)

' Start listening for client requests.
server.Start()
.............................
............................


Private Delegate Function ServerPORTInvoker() As String
Private Function GetServerPort() As String
Dim text As String
If form.ServerPort_TB.InvokeRequired Then
text = CStr(form.ServerPort_TB.Invoke(New ServerPORTInvoker(AddressOf GetServerPort)))
Else
text = form.ServerPort_TB.Text
End If
Return text
End Function


Elikkä ilmeisesti tuossa delegate tai invoke systeemissä menee jotain pieleen?
Kellään sattuisi olemaan yksinkertaista mallia miten saan formilta objekteista (TextBox) haettua tietoja tuon kuuntelia threadin tarpeiksi???
Ja seuraavaksi sitten pitäisi vielä saada kirjoitettua formille logia richtextboxiin

Siis nappi käynnistää threadin ja threadi kysyy textboxista arvon? Älä herranen aika tee noin. Tuossa on valtava race condition. Syötä sen sijaan textboxin arvo parametrina threadille. Ks. MSDN:stä lisätietoja.

http://msdn.microsoft.com/en-us/library/1h2f2459(v=vs.110).aspx

Miksi homma täytyy tehdä threadin kautta. Onko kyseessä joku valvomosofta jossa käppyrät päiviittyvät taustalla lennosta itsenäisesti. Vai joku koulutehtävä jossa pitää käyttää threadeja. Ensin haltuun button_click johon koko homma sisään synkronisesti.

ps. kotisivusi linkki ei toimi.

Kyseessä on pieni socket palikka, jonka tarkoitus on ottaa viestejä vastaan ja lähettää TCP/IP:n kautta. Työ aisiahan tämä on ja tarkoitus laittaa käynnistymään tuo kuuntelija formin onloadista. Käsittääkseni net.sockets kuuntelija ilman threadia keskeyttää muun sovelluksen toiminnan? Ei ole vuosiin tarvinnut Visual Basic .net ohjelmointiin koskea joten siksi aika lailla ulalla. Kotisivu ei varmaan ole toiminut aikoihin kun koulukin on käyty jo ajat sitten.
Kiitokset Weicolle, kokeilen tuota parametrisointia seuraavaksi.

Mitenkäs tuolta threadin sisältä pystyy järkevästi lisäämään rivejä formilla olevaan RichTextBoxiin?

Seuraavassa Microsoftin koodista käy selväksi miten homman voi tehdä.
http://msdn.microsoft.com/en-us/library/ms171728(v=vs.80).aspx#Y400

Löysin tuon saman ohjeen ja olen sen mukaisesti yrittänyt palautella tietoa richtextboxille mutta en saa sinne tulemaan rivejä.
Pitäisikö tuo threadi käynnistää form luokan puolelta? Tällä hetkellä formin button kutsuu kuuntelija luokkaa jossa startataan threadi ja aletaan tehdä juttuja.

Tällä hetkellä:

Public class TcpListenerClass
Delegate Sub SetTextCallback([text] As String)

Public Sub Main()
Dim Params(1) As Object

Params(0) = form.ServerIP_TB.Text
Params(1) = form.ServerPort_TB.Text

Dim ListenerThread As New Thread(AddressOf Listen)
ListenerThread.Start(Params)

End Sub

Public Shared Sub ADDLineToSVRLOG(ByVal str As String)
If form.Server_RTB.InvokeRequired Then
form.Server_RTB.Invoke(New Server_RTBDelegate(AddressOf ADDLineToSVRLOG), str)
Else
form.Server_RTB.AppendText(str & vbNewLine) 'Menee else haaran kautta
End If
End Sub

Public Shared Sub Listen(ByVal Params As Object)

ADDLineToSVRLOG("TEST2") 'Kutsu menee läpi ilman virheitä mutta mitään ei ilmesty formin richtext boxiin???

Dim server As TcpListener
server = Nothing
Try
' Set the TcpListener port

Dim port As Int32 = CInt(Params(1))
Dim ServerAddr As IPAddress = IPAddress.Parse(Params(0))

server = New TcpListener(ServerAddr, port)

....
....
Menee ja aloittaa kuuntelijan onnistuneesti


Form luokasta buttoni joka kutsuu listeneri luokkaa:

Dim TcpListenClass As New TcpListenerClass
TcpListenClass.Main()


Sanokaahan nyt mikä menee väärin kun ei kerran mitään virhettäkään enää pukkaa?

Tein testin jossa rtb ja kaksi buttonia.

Formi luokan koodi:
Imports System
Imports System.ComponentModel
Imports System.Threading
Imports System.Windows.Forms

Public Class Form1
' This delegate enables asynchronous calls for setting
' the text property on a TextBox control.
Delegate Sub SetTextCallback(ByVal [text] As String)

' This thread is used to demonstrate both thread-safe and
' unsafe ways to call a Windows Forms control.
Private demoThread As Thread = Nothing

Public Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Me.demoThread = New Thread( _
New ThreadStart(AddressOf Me.ThreadProcSafe))

Me.demoThread.Start()
End Sub

Public Sub ThreadProcSafe()
Me.SetText("This text was set safely.")
End Sub

Public Sub SetText(ByVal [text] As String)

' InvokeRequired required compares the thread ID of the
' calling thread to the thread ID of the creating thread.
' If these threads are different, it returns true.
If Me.RichTextBox1.InvokeRequired Then
Dim d As New SetTextCallback(AddressOf SetText)
Me.Invoke(d, New Object() {[text]})
Else
Me.RichTextBox1.AppendText(text & vbNewLine)
End If
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim Threadi As New Class1
Threadi.main()
End Sub
End Class

Threadi luokan koodi Class1:
Imports System
Imports System.ComponentModel
Imports System.Threading
Imports System.Windows.Forms

Public Class Class1
' This delegate enables asynchronous calls for setting
' the text property on a TextBox control.
Delegate Sub SetTextCallback(ByVal [text] As String)

' This thread is used to demonstrate both thread-safe and
' unsafe ways to call a Windows Forms control.
Private demoThread1 As Thread = Nothing

Public Sub main()
Me.demoThread1 = New Thread( _
New ThreadStart(AddressOf ThreadProcSafe1))

Me.demoThread1.Start()
End Sub

Public Sub ThreadProcSafe1()
Me.SetText1("This text was set safely 2.")
End Sub


Public Sub SetText1(ByVal [text] As String)

' InvokeRequired required compares the thread ID of the
' calling thread to the thread ID of the creating thread.
' If these threads are different, it returns true.
If Form1.RichTextBox1.InvokeRequired Then
Dim d As New SetTextCallback(AddressOf SetText1)
Form1.Invoke(d, New Object() {[text]})
Else
Form1.RichTextBox1.AppendText(text & vbNewLine) 'Tähän mennään #1#
End If
End Sub


Public Sub New()

End Sub

Protected Overrides Sub Finalize()
MyBase.Finalize()
End Sub
End Class

Kun button1 kirjoittelee tekstiä formi luokan sisällä niin kaikki menee oikein ja teksti ilmestyy rtb komponenttiin.
Button 2 menee #1# kautta ja tekstiä tai mitään virhettä ei tule? Eli miten tuolta toisen luokan sisältä onnistutaan kirjoitamaan formille tavaraa?

Luokalle parametrina lomake niin viritys toimii. (me:n viljely koodissa on turhaa)


vb


Ja pääformi

vb

Kiitoksia!
En nyt enää ole ohjelman parissa mutta tuli vielä tuosta rivistä:
'Huomaa parametrina isäntä lomake
Threadi.main(Me)

mieleen, että miten onnistuu lomakkeen vieminen parametrinä jos threadille annetaan jo kaksi string tyyppistä parametria ja lomake parametri?
Meneekö ihan parametri taulukkona jonka tyyppi on object?

Näiden threadien kanssa sekoaa usein omaan näppäryyteensä ja kannattaa olla tarkkana. Tässähän nyt luodaan luokka jonka main metodia kutsuttiin joka sitten käynnisti luokan sisäisen threadin. Koodista käynee esille mitä tarkoitan. Esimerkkikoodissa käynnistetäään threadit jotka kirjoittavat ikiloopissa RichTextBoxin vuorotellen ja toiset painikkeet sitten pysäyttävät threadin. Lisäksi treadit kannattaa sammuttaa ennen lomakkeen sulkeutumista vaikkapa koodin esittämällä tavalla.


vb


ja luokka

vb

No tämä on vähän jo olipohjelmoinnin asioita. Jos katsot metodia joka threadin käynnistyksessä annetaan ja mietit mikä on metodin luokkaympäristö ja mitä se näkee niin ehkä homma vähän aukeaa. Net-ympäristössä kannattaa ensin pois oppia globaaleiden muuttujien käytöstä.

Sinällään jos tässä sanoo jotain luokkien constructoreista niin tulee silmille heti. On kaksi koulukuntaa toinen on sitä mieltä että constuktoriin pitää laittaa kaikki parametrit ja sitten tehdä niin monta wrapperi constuctoria että vanha koodi toimii. Itse taas pidän enemmän public propertyistä ja "parametrittomasta" constructorista. Helpottaa vastuullista luokan rajapinnan laajentamista vahingoittamatta vanhan koodin toimintaa. Button 3 seuraavassa koodissa tai button 4 vanhalla tavalla. Kieleksi kannattaa vaihtaa c# syntyy luettavampaa koodia.


C#

Ja luokka

C#