also ich habe über Projekt>>Komponenten das Microsoft Winsock Control eingefügt.
Das funktioniert soweit auch ganz gut.
Wenn ich den Code mal nur so weit eingebe...
Private Sub Form_Load()
Dim ServerIP As String
ServerIP = "localhost"
Winsock1.Connect ServerIP, 9300
End Sub
Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim Eingangstext As String
Winsock1.GetData Eingangstext 'Die Variable "Eingangstext" enthält jetzt das Telegramm
Dim Eingang() As String
Eingang() = Split(Eingangstext, Chr$(9))
'Die Variablen "Eingang(0)", "Eingang(1), "Eingang (...)" enthalten jetzt die einzelnen Felder
End Sub
...kann ich die Variable "Eingangstext" ausgeben und erhallte das komplette Telegramm.
Mit dieser Split Funktion funktioniert es nur leider nicht...
Ick kann z.B. Die Variable "Eingang(0)" ausgeben und bekomme die Art des Telegramm also z.b. "FMSTlg".
Mit der Variable "Eingang(1) funktioniert es nicht.
Ich bekomme die Fehlermeldung "Index auserhalb des Gültigen Bereich"
Hab ich Irgendetwas falsch gemacht oder vergessen?
Mfg





				
				
				
					
  Zitieren