Inhaltsverzeichnis
Werbung
&T
Counter.counter_value = Asc(Mid(Str_Counter, 11, 1)) _
+ Asc(Mid(Str_Counter, 12, 1)) * &H100 _
+ Asc(Mid(Str_Counter, 13, 1)) * &H10000 _
+ Asc(Mid(Str_Counter, 14, 1)) * &H1000000
End Sub
Das gezeigte Beispiel kann natürlich auch auf alle anderen
Strukturen umgesetzt werden.
Delphi
Da Delphi eine sehr gradlinige Unterstützung von Strukturen
anbietet, gestaltet sich der Umgang mit den IO-Strukturen
hier entsprechend einfach.
Auch Delphi bietet für die Netzwerkkommunikation ein So-
cket-Steuerelement an, das zum Datenaustausch mit dem
Web-IO genutzt werden kann.
Die folgenden Quelltextausschnitte zeigen, wie unter Delphi
mit Hilfe der Strukturen
Zählerstand eines Input-Counters gelesen werden kann.
Zunächst müssen die IO-Strukturen ReadCounter und Counter
als neue Variablentypen
werden.
RReadCounter=packed record
send_sequenz:word;
rec_sequenz:word;
sruct_type:word;
length:word;
counter_index: word;
end;
RCounter=packed record
send_sequenz:word;
rec_sequenz:word;
sruct_type:word;
length:word;
counter_index: word;
counter_value: longword;
rrtum und Änderung vorbehalten
ReadCounte
RReadCounter
und
TCP / UDP - Binary
Counter
r und
RCounter
definiert
der
163
Werbung
Inhaltsverzeichnis
