TIdTCPClient - parallel Verbindungen aufbauen ?

[mjustin]

Kleine Korrekturen:

Delphi-Quellcode:

procedure TpopForm.do_some_action(printerid : integer);
const
   port: Integer = 3000;
var
   TCPClient: TIdTCPClient;
   s : string;
begin
   TCPClient := TIdTCPClient.Create;   // vor try, ohne (nil) möglich
   try
     TCPClient.Port := port;
     TCPClient.Host := controllers[printerid].IP;      // IPs stored in an array

     TCPClient.UseNagle := False;

     // TCPClient.RecvBufferSize := 1024; nicht notwendig 
     // TCPClient.SendBufferSize := 1024; nicht notwendig

     TCPClient.Connect;

     TCPClient.Write('MYCOMMAND#'); 
     repeat
       s := TCPClient.ReadLn('#');
     until LeftStr(s, 3) = 'RES';   

   finally
     // TCPClient.Disconnect; Free führt Disconnect aus
     TCPClient.Free;
   end;
end;

den leeren except Block habe ich mal dezent entfernt