Hallo,
Ich habs am laufen!
Nur wieso funktionniert es mit der socket compo. und nicht mit der
Indy?
Hier die socket version mit der es funktionniert!
Delphi-Quellcode:
procedure TfrmMain.Button2Click(Sender: TObject);
var
Data: AnsiString;
begin
Data := #$04#$01#$02#$23#$3c#$00#$0a#$01#$ff#$00#$00#$00#$00#$00#$00#$00#$fe; // Nachricht zusammenbauen, z.B. schalten
Memo1.Lines.Add('Send2: '+Str2Hex(Data));
ClientSocket1.Socket.SendText(Data);
end;
Hier dann die
Indy version mit IdTcpClient. (funktionniert leider nicht)
Delphi-Quellcode:
procedure TfrmMain.Button2Click(Sender: TObject);
Var
port1on: string;
begin
port1on := #$04#$01#$02#$23#$3c#$00#$0a#$01#$ff#$00#$00#$00#$00#$00#$00#$00#$fe;
IdTCPClient1.IOHandler.Write(port1on);
end;