VB6: winsock datenaustausch |
Von |
uwek |
Am |
09. Oktober 2008 um 17:47:21 |
Frage |
Hallo zusammen,
ich benötige dringend Hilfe... Kann mir jemand ein Projekt zukommen lassen, in dem eine TCP/IP Verbindung oder UDP Verbindung mit einer SPS Steuerung realisiert ist? Die SPS sendet via Ethernet auf Port 2000 einen 160 Byte langen String. Diesen möchte ich gerne auf meinem PC ansehen. Wäre schön, wenn die IP und der Port einstellbar wären. Ich habe die Beispiele Datenaustausch über UDP bereits gestestet, aber beim Empfangen bekomme ich die Meldung Runteme Error 13 Type mismatch in der Zeile: Select Case CInt(Mid(hlpString, 1, 4)) Vielen dank im voraus. Uwe |
|
Antwort: |
Von |
Daniel |
Am |
16. Oktober 2008 um 11:55:30 |
Antwort |
Hallo Uwe,
diesen ganzen 'Selct case' Abschnitt brauchst Du doch gar nicht! Probier doch einfach erstmal nur das aus:Private Sub wskClient_DataArrival(ByVal bytesTotal As Long) Dim hlpString As String 'das winsock-Telegramm In den hlpString reinballern... wskClient.GetData hlpString, vbString 'jetzt steht das Telegramm im hlpString, Ausgeben im Label lbl_IncomingText(1)... lbl_IncomingText(1).Caption = hlpString 'jetzt musst Du den String wieder In seine Bestandteile zerlegen... End Sub Schau Dir zum Zerlegen des Strings mal folgende Befehle/Funktionen an: - inStr - Left / Right / Mid - Split - Replace
Grüße! |
|
[ VB-/VBA-Forum | Archiv 0413 | Archiv-Übersicht ] |
|