Senden von großem Text

[suncezz]

Hallo,

ich habe folgendes problem :

ich möchte den gesammten inhalt eines memo-fensters senden.
hierzu benutze ich Tclientsocket.

Delphi-Quellcode:

procedure TForm1.SendenClick(Sender: TObject);
var count,i : integer;
    zeile : string ;
begin
count := memo1.Lines.Count ;
   for i := 0 to count-1 do
       begin
       zeile := memo1.Lines.Strings[i];
       clientsocket1.Socket.SendText(zeile);
       end;
end;

das problem ist das nich alles ankommt... warscheinlich weil die schleife schneller ist als er mit dem senden hinterher kommt..

hat jemand eine ahnung wie man es vlt besser machen könnte ? weil so müsste man ja nach jedem schleifendurchgang ein "sleep" haben.

danke schon mal, mfg suncezz

[Klaus01]

Hallo,

wieso sendest Du nicht gleich memo1.text?

Grüße
Klaus

[Bernhard Geyer]

Bedenke das größere Datenmengen als mehrere Packete übertragen werden und am Client ankommen!

[Namenloser]

Zitat von suncezz:

das problem ist das nich alles ankommt... warscheinlich weil die schleife schneller ist als er mit dem senden hinterher kommt..

Dann stell die Sockets auf "Blocking".