Hallo!
Zum Code:
Delphi-Quellcode:
repeat
for i := 1
to 50
do
begin
// IdTCPClient1.WriteBuffer(s[1], bufsize); // Indy 9
IdTCPClient1.IOHandler.
Write(s);
// Indy 10
Inc(packets);
end;
until sw.Seconds > 3.0;
Das ist nicht performant. Um große Datenmengen zu versenden, solltest du nicht ständig wiederholt kleine Schnipsel senden, sondern ein großes Paket schnüren, daß mit einem Sendebefehl auf die Reise geht.
Ich verweise mal auf
folgenden Thread, dort gibt es am Threadende Codeschnipsel für die Übertragung eines größeren Streams...
Cu,
Udontknow