&T
Public Type Strukt_ReadCounter
send_sequenz As Integer
rec_sequenz As Integer
struct_typ As Integer
length As Integer
counter_index As Integer
End Type
Public Type Strukt_Counter
send_sequenz As Integer
rec_sequenz As Integer
struct_typ As Integer
length As Integer
counter_index As Integer
counter_value As Long
End Type
Public ReadCounter As Strukt_ReadCounter
Public Counter As Strukt_Counter
Public Str_ReadCounter As String * 10
Public Str_Counter As String * 14
Die folgende Routine öffnet die TCP-Verbindung zum Web-
IO.
Private Sub ButtonConnect_Click()
'// TCP-Verbindung herstellen
Winsock1.RemotePort = 49153
Winsock1.RemoteHost = "172.16.232.17"
Winsock1.Connect
End Sub
Durch Aufruf der nächsten Prozedur wird die Struktur
Counter
in einen String geschrieben und dann ans Web-IO
versendet.
Private Sub ButtonCounterRead_Click()
'// Füllen der Struktur ReadCounter
ReadCounter.send_sequenz = 0
ReadCounter.rec_sequenz = 0
ReadCounter.struct_typ = &HB0
rrtum und Änderung vorbehalten
TCP / UDP - Binary
Read
161