Hallo zusammen,
ich habe noch ein wenig experimentiert, jedoch keine Lösung gefunden, solange ich den TCPClient über die
VCL einfüge.
Abhilfe hat jedoch geschafft, wenn ich ihn dynmaisch zur Laufzeit erstelle:
Delphi-Quellcode:
procedure TMainform.Button3Click(Sender: TObject);
var TCPClient2: TIdTCPClient;
i:integer;
x:string;
begin
try
TCPClient2:=TIdTCPClient.Create(nil);
TCPClient2.host:='192.168.1.177';
TCPClient2.Port:=23;
TCPClient2.Connect;
TCPClient2.IOHandler.WriteLn(#13);
sleep(100);
for i:=1 to 5 do Begin
x:= IntTostr(i mod 2);
TCPClient2.IOHandler.WriteLn('setport #'+ (edit1.text)+','+x );
sleep(100);
end;
showmessage('Fertig');
finally
TCPClient2.Free;
end;
end;
So lässt sich die Prozedur zumindest mehrmals hintereinander ausführen, was andersrum nicht möglich war. Das könnte zwar nun eine Lösung sein, mich würde aber trotzdem interessieren, ob ich im esten Beispiel einen Fehler hatte, oder ob dies tatsächlich ein Bug ist.