W&T Web-IO Handbuch Seite 162

&T
ReadCounter.length = 10
ReadCounter.counter_index = 11
'// Übergabe der einzelnen Bytes der Struktur ReadCount
'// in den String Str_ReadCounter
'// immer beginnend mit dem Low-Byte der einzelnen INTEGER-Variablen
'// gefolgt vom High-Byte
'// bzw. den höherwertigen Bytes bei LONG Variablen
Str_ReadCounter = Chr(ReadCounter.send_sequenz And &HFF) _
+ Chr((ReadCounter.send_sequenz And &HFF00) / &H100) _
+ Chr(ReadCounter.rec_sequenz And &HFF) _
+ Chr((ReadCounter.rec_sequenz And &HFF00) / &H100) _
+ Chr(ReadCounter.struct_typ And &HFF) _
+ Chr((ReadCounter.struct_typ And &HFF00) / &H100) _
+ Chr(ReadCounter.length And &HFF) _
+ Chr((ReadCounter.length And &HFF00) / &H100) _
+ Chr(ReadCounter.counter_index And &HFF) _
+ Chr((ReadCounter.counter_index And &HFF00) / &H100)
Winsock1.SendData (Str_ReadCounter)
End Sub
Zuletzt noch die Prozedur, die das Winsock-Steuerelement
automatisch aufruft, wenn Daten vom Netzwerk empfangen
werden. Die Umsetzung geschieht hier genau umgekehrt.
Das bedeutet, die Daten kommen als String an und werden
Counter
in die Struktur
Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
'// Einlesen der eingehenden Daten in den String Str_Counter
Winsock1.GetData Str_Counter
'// Auslesen der einzelnen Bytes, Berechnen der Wertigkeit (Low Byte, High Byte)
'// und Speichern in der Struktur Counter
Counter.send_sequenz = Asc(Mid(Str_Counter, 1, 1)) _
+ Asc(Mid(Str_Counter, 2, 1)) * &H100
Counter.rec_sequenz = Asc(Mid(Str_Counter, 3, 1)) _
+ Asc(Mid(Str_Counter, 4, 1)) * &H100
Counter.struct_typ = Asc(Mid(Str_Counter, 5, 1)) _
+ Asc(Mid(Str_Counter, 6, 1)) * &H100
Counter.length = Asc(Mid(Str_Counter, 7, 1)) _
+ Asc(Mid(Str_Counter, 8, 1)) * &H100
Counter.counter_index = Asc(Mid(Str_Counter, 9, 1)) _
+ Asc(Mid(Str_Counter, 10, 1)) * &H100
16
'// Input-Counter 11
zurückgeschrieben.
TCP / UDP - Binary