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 |
|
Von |
uwek |
eMail |
|
Am |
10. Oktober 2008 um 07:44:05 |
Antwort |
Hallo Gaga,
danke erst einmal für Deine Antwort. Ich habe das Beispiel 2 PCs mit Winsock (UDP) verbinden genommen.
Private Sub wskClient_DataArrival(ByVal bytesTotal As Long) 'Client erhält Nachricht vom Server Dim hlpString As String 'Nachricht auslesen wskClient.GetData hlpString, vbString 'feststellen um welche Art Nachricht es sich handelt Select Case CInt(Mid(hlpString, 1, 4)) Case HDR_CONNECT: lbl_IncomingText(1).Caption = "Verbindung hergestellt" Case HDR_CLOSE: MsgBox "Server hat Verbindung abgebrochen." wskClient.Close cmd_StartClient.Enabled = True cmd_StartServer.Enabled = True Case HDR_MESSAGE: lbl_IncomingText(1).Caption = Mid(hlpString, 5) End Select End Sub
In hlpstring stehen meine 158 Byte, die ich sende, ich denke das das Format irgendwie nicht passt oder der gesendete String zu lang ist. Weiß es aber nicht, das ich SPS Programmierer bin. Über Hilfe wäre ich dankbar. Gruß Uwe |
|