VB .NET Sockets vraag.

vrijdag 27 februari 2009 @ 08:40:47 #1

toma

Ik ben bezig een connectie op te zetten tussen mijn PC en een ander apparaat dmv VB.NET met een Winsock tool via Ethernet. Deze Winsock tool is een standaard tooltje van VB.

Dit werkt helemaal geweldig, alleen kan ik geen data ontvangen van dat apparaat. Ik gebruik het commando GetData(). In dit commando moet ik drie parameters zetten: 'data', 'vbtype' en 'maxlen'. In de parameter 'data' wordt de data weggeschreven die afkomstig is van het andere apparaat.

Het probleem is dat ik zeker weet dat er data verzonden wordt, maar het komt niet aan!

Code:

1
2
3
4
5

Private Sub Winsock_OnDataArrival(Byval sender as Object, Byval e As AxOSWinsckControl.__Winsock_OnDataArrivalEvent) Handles Winsock.OnDataArrival
Dim data As String
Winsock.GetData(data)
Receivebox.text = Receivebox.text & data & vbCrLf
End Sub

Overigens weet ik zeker dat de connectie goed ingesteld wordt want ik kan wel data zenden. Ik zie ook dat er data wordt ontvangen, alleen ik zie niet welke omdat 'data' geen waarde krijgt toegeschreven door de GetData() functie.

vrijdag 27 februari 2009 @ 11:36:53 #2

TallMan

Permanent brain failure

Je weet zeker dat je winsock control goed werkt ? Als ik op google zoek op AxOSWinsckControl.__Winsock_OnDataArrivalEvent (datatype van een van je params) kom ik alleen dit topic tegen terwijl ik dan stiekem toch zou verwachten iets meer tegen te komen.

Kwa code lijkt het nogal op het ostrosoft winsock component, daarvoor staat sample code op de website, kun je die niet gebruiken om met je apparaat te communiceren ?

Werkt het nog niet, waarom dan niet eens proberen met de system.net.sockets namespace ?

Is de klassenaam van je winsock control ook Winsock ? het is meestal iets verhelderender om je objecten een andere naam te geven dan de klasses

geheelonthouder met geheugenverlies
Mensen die zeggen dat domme vragen niet bestaan stellen ze zelf.

vrijdag 27 februari 2009 @ 11:44:21 #3

toma

Ja ik weet 100% zeker dat de communicatie goed werkt. Ik heb namelijk een industriële barcodescanner via ethernet aan m'n pc hangen. Deze kan ik aansturen dmv Winsock commando's. Alleen wanneer de barcode scanner gegevens terug stuurt krijg ik deze niet binnen. Terwijl hij wel een melding geeft dat er data is binnengekomen.

Ik gebruik ook Wireshark om pakketten te onderscheppen. Ik zie ook dat de barcodescanner gegevens terug stuurt, maar deze data wordt niet in mijn variabel geschreven.

Maar hoe werkt dat system.net.sockets namespace dan?

vrijdag 27 februari 2009 @ 12:30:03 #4

TallMan

Permanent brain failure

Heb je de help mee geinstalleerd ? Daar staat een hoop in. Ook een snelle google geeft je meerdere samples.

Als je specifieke vragen hebt gooi ze maar hier neer, dan zie ik het wel weer in myAT.

geheelonthouder met geheugenverlies
Mensen die zeggen dat domme vragen niet bestaan stellen ze zelf.

vrijdag 27 februari 2009 @ 12:31:25 #5

toma

bedankt.

vrijdag 27 februari 2009 @ 16:32:24 #6

toma

Ik ben nu bezig met de system.net.sockets. Er kan nu vlekkeloos een connectie opgezet worden en het zenden van data gaat ook goed. Maar het ontvangen gaat nog niet vlekkeloos.

Als ik om Button3 klik moet hij data gaan ontvangen.

1
2
3
4
5
6
7
8
9

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Dim networkStream As Net.Sockets.NetworkStream = tcpClient.GetStream()
        Dim bytes(tcpClient.ReceiveBufferSize) As Byte
        Dim myReadBuffer(1024) As Byte
        Dim myCompleteMessage As System.Text.StringBuilder = New System.Text.StringBuilder()
        Dim numberOfBytesRead As Integer = 0
        numberOfBytesRead = networkStream.Read(myReadBuffer, 0, myReadBuffer.Length)
        RichTextBox2.Text = RichTextBox2.Text & numberOfBytesRead.ToString
    End Sub

Maar bij regel 7 gaat het mis. Want als ik op de knop klik loopt het programma helemaal vast. Als ik deze regel eruit haal dan is er niks aan de hand. Maar dan ontvangt hij ook geen data.

vrijdag 27 februari 2009 @ 23:14:33 #7

TallMan

Permanent brain failure

Even voor de volledigheid, welke versie .NET gebruik je ?

geheelonthouder met geheugenverlies
Mensen die zeggen dat domme vragen niet bestaan stellen ze zelf.

vrijdag 27 februari 2009 @ 23:20:16 #8

toma

quote:
Op vrijdag 27 februari 2009 23:14 schreef TallMan het volgende:
Even voor de volledigheid, welke versie .NET gebruik je ?

Ik gebruik Visual Studio 2005 Express Edition met het .NET framework die je daarbij installeert.

zaterdag 28 februari 2009 @ 01:41:42 #9

TallMan

Permanent brain failure

Durf zo niet te zeggen waarom je hangt op die regel, de read is nonblocking en als er geen data is zou je meteen een 0 retour moeten krijgen.

Ik heb zelf dmv de Socket klass gebruikt gemaakt van de namespace, op de socket klasse heb ik de Receive method gebruit.

Maar iets zegt me dat als je read call blockt dat er toch iets anders niet lekker zit. Drivers van je netcard updaten misschien.

Je zou met een chat serverChat server/client[/url] eens kunnen kijken of je uberhaupt iets door de sockets heenkrijgt.

geheelonthouder met geheugenverlies
Mensen die zeggen dat domme vragen niet bestaan stellen ze zelf.

zondag 1 maart 2009 @ 19:42:29 #10

Tuvai.net

Als jij er 100% zeker van bent dat jou code werkt, dan zou ik de documentatie van het betreffende apparaat eens daar bij pakken. Veel hardware/apparaten waar softwarematig mee gecommuniceerd kan worden (althans waar ik mee gewerkt heb, voornamelijk modbus-pollers e.d.) hebben er een eigen beveiliging op na. Wat ik al heel vaak tegen ben gekomen bij dergelijke apparaatjes, is dat je eerst een code/commando moet sturen, alvorens je data geretourneerd kunt krijgen.

zondag 1 maart 2009 @ 21:06:52 #11

toma

quote:
Op zondag 1 maart 2009 19:42 schreef Tuvai.net het volgende:
Als jij er 100% zeker van bent dat jou code werkt, dan zou ik de documentatie van het betreffende apparaat eens daar bij pakken. Veel hardware/apparaten waar softwarematig mee gecommuniceerd kan worden (althans waar ik mee gewerkt heb, voornamelijk modbus-pollers e.d.) hebben er een eigen beveiliging op na. Wat ik al heel vaak tegen ben gekomen bij dergelijke apparaatjes, is dat je eerst een code/commando moet sturen, alvorens je data geretourneerd kunt krijgen.

Dat klopt. Dat is bij deze barcodescanner ook het geval. Wanneer ik de juiste string met data verzend krijg ik als respons de gewenste data terug. Met behulp van Wireshark (een programmatje waarmee je data verkeer op je ethernet kaart monitort) zie ik dat de gewenste data ook verzonden wordt. Waarschijnlijk zit er dus iets fout in de VB code.
Het nadeel is dat de documentatie bij deze barcodescanner zeer minimaal is, vooral wat betreft de communicatie via ethernet.

maandag 2 maart 2009 @ 00:19:49 #12

TallMan

Permanent brain failure

Ik mag aannemen dat de networkStream die je van je tcpClient afhaalt dezelfde networkstream is waarmee je je data verstuurt ?

geheelonthouder met geheugenverlies
Mensen die zeggen dat domme vragen niet bestaan stellen ze zelf.

maandag 2 maart 2009 @ 08:27:05 #13

toma

Om data te versturen gebruik ik deze code:

1
2
3
4
5
6
7
8
9
10

'SEND
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim networkStream As Net.Sockets.NetworkStream = tcpClient.GetStream()
        If networkStream.CanWrite And networkStream.CanRead Then
            ' Do a simple write.
            Dim sendBytes As [Byte]() = System.Text.Encoding.ASCII.GetBytes(TextBox1.Text)
            networkStream.Write(sendBytes, 0, sendBytes.Length)
            RichTextBox1.Text = RichTextBox1.Text & TextBox1.Text
        End If
    End Sub

ik gebruik overigens niet de 2005 versie maar de 2008 express edition.

maandag 2 maart 2009 @ 08:43:17 #14

TallMan

Permanent brain failure

Lekker handig overigens: MSDN over de Read method:

quote:
This method reads data into the buffer parameter and returns the number of bytes successfully read. If no data is available for reading, the Read method returns 0.

Dan zou ik toch denken non-blocking

Kijk ik echter naar de NetworkStream en dan zie je

quote:
Use the Write and Read methods for simple single thread synchronous blocking I/O.

Toch maar even naar de DataAvailable property van je networkstream kijken, eventueel icm een timertje om em op je scherm te updaten.

geheelonthouder met geheugenverlies
Mensen die zeggen dat domme vragen niet bestaan stellen ze zelf.

maandag 2 maart 2009 @ 10:04:49 #15

toma

Het is inmiddels gelukt!

1
2
3
4
5
6
7
8
9
10
11
12
13

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        If tcpClient.Connected = True Then
            Dim networkStream As Net.Sockets.NetworkStream = tcpClient.GetStream()
            If networkStream.DataAvailable = True Then
                'RECEIVE
                Dim size As Integer = 32
                Dim mycompletemessage As System.Text.StringBuilder = New System.Text.StringBuilder()
                myCompleteMessage.AppendFormat("{0}", Encoding.ASCII.GetString(myReadBuffer, 0, numberOfBytesRead))
                numberOfBytesRead = networkStream.Read(myReadBuffer, 0, size)
                RichTextBox2.Text = mycompletemessage.ToString & vbCrLf & RichTextBox2.Text
            End If
        End If
    End Sub

De code staat nu in een timer zodat hij constant de data uitleest.

maandag 2 maart 2009 @ 10:25:57 #16

TallMan

Permanent brain failure

Je weet dat je je myReadBuffer displayed voor je hem toevoegt aan je richedit waardoor je effectief 1x data achterloopt.

Eerste keer schrijf je niets in je textbox want myReadBuffer is leeg
Dan vul je je myReadBuffer
Tweede keer schrijf je je data van de eerste leesactie in je textbox
en dan lees je de 2de string in.

geheelonthouder met geheugenverlies
Mensen die zeggen dat domme vragen niet bestaan stellen ze zelf.

maandag 2 maart 2009 @ 11:24:55 #17

toma

En hoe zou ik dat kunnen veranderen

?

maandag 2 maart 2009 @ 12:23:35 #18

TallMan

Permanent brain failure

Euh, misschien door te readen voordat je je data in je stringbuilder gaat flikkeren (regeltje 9 naar voor regeltje 8)

Lijkt me toch vrij elementair

geheelonthouder met geheugenverlies
Mensen die zeggen dat domme vragen niet bestaan stellen ze zelf.

maandag 2 maart 2009 @ 13:57:33 #19

toma

quote:
Op maandag 2 maart 2009 12:23 schreef TallMan het volgende:
Euh, misschien door te readen voordat je je data in je stringbuilder gaat flikkeren (regeltje 9 naar voor regeltje 8)

Lijkt me toch vrij elementair

haha, dat had ik niet in de gaten.

bedankt voor de hulp, ik ben er uit.

maandag 2 maart 2009 @ 14:27:56 #20

TallMan

Permanent brain failure

Succes ermee verder

geheelonthouder met geheugenverlies
Mensen die zeggen dat domme vragen niet bestaan stellen ze zelf.

woensdag 11 maart 2009 @ 08:52:11 #21

toma

Ik heb nog een vraag. Het blijkt dat wanneer ik vaak de connectie verbreek en opnieuw opstart er een error verschijnt. Dit probeer ik op te vangen dmv Structured Exception Handling. Maar helaas werkt dit niet.

Er zijn 2 manieren om weer verbinding te krijgen met de barcodescanner en dat is door de barcodescanner handmatig te resetten (dmv een telnet commando te versturen of dmv een hardwarematige reset). Of door de VB applicatie af te sluiten en opnieuw op te starten, maar dit is niet de bedoeling.

Ik gebruik voor het eerst Exception Handling, maar dit is de code die ik heb geschreven.

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Connectie("10.0.10.99", 10000)
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Disconnect()
    End Sub

    Function Connectie(ByVal ip As String, ByVal poort As Integer)
        Try
            tcpClient.Connect(ip, poort)
        Catch Exception1 As Net.Sockets.SocketException
            tcpClient.Close()
            MessageBox.Show("Error 1: " & Exception1.Message)
        Catch Exception2 As ObjectDisposedException
            tcpClient.Close()
            MessageBox.Show("Error 2: " & Exception2.Message)
        Catch Exception3 As NullReferenceException
            tcpClient.Close()
            MessageBox.Show("Error 3: " & Exception3.Message)
        End Try
    End Function

    Function Disconnect()
        Try
            tcpClient.Close()
        Catch Exception1 As Net.Sockets.SocketException
            MessageBox.Show("Error 4: " & Exception1.Message)
        Catch Exception2 As ObjectDisposedException
            MessageBox.Show("Error 5: " & Exception2.Message)
        Catch Exception3 As NullReferenceException
            MessageBox.Show("Error 6: " & Exception3.Message)
        End Try
    End Function

En dit is de error die verschijnt.

Het blijkt dus dat er tijdens het connecten de volgende Exception afgehandeld dient te worden.

1	Catch Exception2 As ObjectDisposedException

Hopelijk kan iemand me helpen.

[ Bericht 0% gewijzigd door toma op 11-03-2009 13:11:34 ]

woensdag 11 maart 2009 @ 13:02:18 #22

TallMan

Permanent brain failure

je tcpclient, waar wordt die gezet, het probleem zal in de lifetime van dat object zitten dus alle News en Set Nothing van dat ding eens tracen.

geheelonthouder met geheugenverlies
Mensen die zeggen dat domme vragen niet bestaan stellen ze zelf.

woensdag 11 maart 2009 @ 13:18:28 #23

toma

quote:
Op woensdag 11 maart 2009 13:02 schreef TallMan het volgende:
je tcpclient, waar wordt die gezet, het probleem zal in de lifetime van dat object zitten dus alle News en Set Nothing van dat ding eens tracen.

Sorry, maar ik begrijp niet wat je probeert te vertellen.
Misschien dat je een voorbeeld kunt geven.

woensdag 11 maart 2009 @ 13:24:51 #24

Tuvai.net

quote:
Op woensdag 11 maart 2009 13:18 schreef toma het volgende:

[..]

Sorry, maar ik begrijp niet wat je probeert te vertellen.
Misschien dat je een voorbeeld kunt geven.

Hij bedoelt jouw tcpclient object. Waar wordt die aangemaakt en wat gebeurt daar in de levensduur van jouw applicatie mee? Doe je op 'het eind' van jouw applicatie wel netjes alles afsluiten wat 'open' staat?

woensdag 11 maart 2009 @ 13:32:33 #25

toma

quote:
Op woensdag 11 maart 2009 13:24 schreef Tuvai.net het volgende:

[..]

Hij bedoelt jouw tcpclient object. Waar wordt die aangemaakt en wat gebeurt daar in de levensduur van jouw applicatie mee? Doe je op 'het eind' van jouw applicatie wel netjes alles afsluiten wat 'open' staat?

Ik declareer mijn tcpclient aan het begin van het programma als je dat soms bedoeld.

1	Dim tcpclient As New Net.Sockets.TcpClient

Daarna volgt de code die ik vanochtend heb gepost.

Moet ik deze tcpclient dan 'afsluiten' ? Ik snap het niet, maar dat komt ook omdat dit de eerste keer is dat ik met VB.NET werk. ;)

Forum Opties
Forumhop:
Hop naar:	(afkorting, bv 'KLB')

» digital corner

» development

» digital corner

» development