| 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 |
|
Zum Seitenanfang