W&T Electronics Web-IO 12xDigital Handbuch Seite 132

W&T
var
Form1 : TForm1;
ReadCounter : RReadCounter;
Counter : RCounter;
Die folgende Prozedur öffnet die TCP-Verbindung.
procedure TForm1.bConnectClick(Sender: TObject);
begin
ClientSocket1.Host:= '172.16.232.17';
ClientSocket1.Port:= 49153;
ClientSocket1.Open;
end;
Durch Aufruf der nächsten Prozedur wird die Struktur Read
Counter an das Web-IO versendet.
procedure TForm1.bSendClick(Sender: TObject);
begin
// Füllen der Struktur ReadCounter
ReadCounter.send_sequenz = 0
ReadCounter.rec_sequenz = 0
ReadCounter.struct_typ = $B0
ReadCounter.length = 10
ReadCounter.counter_index = 11
ClientSocket1.Socket.SendBuf(ReadCounter,10);
end;
Zuletzt noch die Prozedur, die das Winsock-Steuerelement
automatisch aufruft, wenn Daten vom Netzwerk empfangen
werden.
procedure TForm1.ClientSocket1Read(Sender: TObject;
Socket: TCustomWinSocket);
var
BytesReceived:Integer;
begin
BytesReceived:=ClientSocket1.Socket.ReceiveLength;
ClientSocket1.Socket.ReceiveBuf(Counter, BytesReceived);
end;
132
TCP / UDP - Binary
'// Input-Counter 11