[eXeC0D3]

посылаю большой текст с клиента к серверу..

Код:

clientsocket1.socket.sendtext('DATA#' + memo1.text);

размер текста 60 кб.
текст принемается обычным способом но не полностю..

пробовал посылать частично..

Код:

var
 s,buf: string;
 i,max : integer;
begin
 s := memo1.text;
 max := Round(Length(s) / 2056) + 1; // 2056 = 2kb
 for i := 1 to max do
  begin
   buf := 'DATA#' + copy(s,1,2056);
   delete(s,1,length(buf));
   clientsocket1.socket.sendtext(buf);
  end;
end;

Код:

var
 s : string;
begin
 s:= socket.receivetext;
 if copy(s,1,length('data#')) = 'data#' then
  memo1.lines.add(s);
end;

тож самое.. не полностю..

заранее спосибо за помощ.

простите за грамотические ошибки.