Ich habs!
Habe mir mal den TIdTelNet angeguckt und bisschen darin rumgelesen und einige Sachen "anders" vorgefunden
So funktioniert es jetzt:
Host und Port sind im Objektinspektor eingetragen.
Ich weiß, das dem Timer ist keine schöne Lösung. Mir ging es auch erstmal nur darum, dass es überhaupt geht
Delphi-Quellcode:
procedure TForm1.FormCreate(Sender: TObject);
begin
if not IdTCPClient1.Connected then
IdTCPClient1.Connect;
end;
procedure TForm1.FormDestroy(Sender: TObject);
begin
if IdTCPClient1.Connected then
IdTCPClient1.Disconnect;
end;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
if IdTCPClient1.Connected then
begin
IdTCPClient1.IOHandler.CheckForDataOnSource(50);
if not IdTCPClient1.IOHandler.InputBufferIsEmpty then
begin
Memo1.Lines.Add(IdTCPClient1.IOHandler.InputBufferAsString);
end;
end;
end;
Mit diesem Source kann ich erstmal weitermachen.
Vielleicht habe ich damit ja jemanden auch geholfen, der mal vor einer ähnlichen Aufgabe steht.
Grüße
Alex