Dieses funktionniert leider auch nicht!
Was mache ich Falsch?
Delphi-Quellcode:
Procedure TFClient.BSendClick(Sender: TObject);
Var
buf: TidBytes;
begin
SetLength(Buf, 17);
FillBytes(Buf, 17, 0);
Buf[0] := $04;
Buf[1] := $01;
Buf[2] := $02;
Buf[3] := $23;
Buf[4] := $3c; // para1; //Exo1
Buf[5] := $00;
Buf[6] := $0a;
Buf[7] := $01;
Buf[8] := $ff;//port1;
Buf[9] := $00;//port2;
Buf[10] := $00;//port3;
Buf[11] := $00;//port4;
Buf[12] := $00;//port5;
Buf[13] := $00;//port6;
Buf[14] := $00;//port7;
Buf[15] := $00;//port8;
Buf[16] := $fe;//para3;
//IdTCPClient1.IOHandler.Write(Buf); <---- geht nicht
IdTCPClient1.Socket.Write(buf); <---- geht auch nicht
obwohl im buf die richtige bytefolge gesendet wird.
