[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;

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

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

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

[M.A.D.M.A.N.]

Переведи в массив байт, проверь.

[NumLock]

потому что твой текст размером 60Кб разбивается на пакеты, к примеру по 8Кб. а у тебя добавляется только первый пакет:

Код:

if copy(s,1,length('data#')) = 'data#' then memo1.lines.add(s);

[M.A.D.M.A.N.]

Заведи флаги, "начало потока" и "конец потока".

[mss]

Потому что отправляются только первые 8кб, остальные 52 кб по твоей вине коту под хвост.

[poli-smen]

Во-первых ты когда отправляешь текст, то добавляешь слово 'DATA' большими буквами:

Код:

   buf := 'DATA#' + copy(s,1,2056);

А когда принимаешь, то сравниваешь со словом 'data' маленькими буквами:

Код:

 if copy(s,1,length('data#')) = 'data#' then
  memo1.lines.add(s);

Объясни.

Во-вторых в этом коде:

Код:

   buf := 'DATA#' + copy(s,1,2056);
   delete(s,1,length(buf));

Ты удаляешь из строки s на 5 символов больше чем нужно.

Ну и замечание по поводу строки:

Код:

max := Round(Length(s) / 2056) + 1; // 2056 = 2kb

Это не правильно, у тебя часто будет посылаться лишний пакет (например при длине 2000 отправится 2 пакета вместо одного). Делай лучше так:

Код:

max := (Length(s) + 2055) div 2056; // 2056 = 2kb

Ну и конечно у тебя отправится больше чем 2056, за счёт добавления слова 'DATA#'

И какая у тебя версия Delphi?

[eXeC0D3]

poli-smen
я ето на прямую тут написал, не копировал и поетому такие ошибки.. ети ошибки всё сделано

И какая у тебя версия Delphi?

XE2

mss
знаю и поетому и отправляю по 2 кб..

потому что твой текст размером 60Кб разбивается на пакеты, к примеру по 8Кб. а у тебя добавляется только первый пакет:

знаю и поетому и отправляю по 2 кб..
но.. в етом примере не должно работать?

Код:

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

[v1s2222]

Сообщение от eXeC0D3

но.. в етом примере не должно работать?

В этом примере должно работать, но не так, как ты хочешь.
Просто перечитай внимательно посты выше, там все объяснили.
Если ты думаешь, что текст не полностью принимается, напиши так:

Код:

  s:= socket.receivetext;
  if(Length(s) <> 0) then
    memo1.lines.add(s);

[mss]

> знаю и поетому и отправляю по 2 кб..

ГДЕ ты отправляешь по 2 кб ?
Ни малейшего намека в твоем коде на это !

[NumLock]

значится еще раз:
проблема не в отправке, проблема в приеме!