сокеты неприходят все строки

[fucil]

Есть некий сервер в котором есть скажим мемо1 в котором есть список строк допустим их 100 или 200 так вот нужно их передать клиенту.
Вкратце чтобы иметь представление о типе сокетов.

  WSAStartup($0202, wsaData);

  hServer := Socket(AF_INET, SOCK_STREAM, 0);
  sAddr.sin_family      := AF_INET;
  sAddr.sin_port        := htons(wPort);
  sAddr.sin_addr.S_addr := INADDR_ANY;
  Bind(hServer, sAddr, SizeOf(sAddr));

1) Отсылаю клиенту количество строк, содержащее мемо1 допустим 100.
2 Беру 1 строку с мемо1 и отсылаю ставлю sleep(300); (если убрать или поставить меньше то % потери строк увеличится)
Сама процедура передачи данных клиенту.

procedure TClient.SendData(Data: String);
begin
  Send(hSocket, Data[1], Length(Data), 0);
end;

-----------------Клиентом-----------------
Прием данных клиента

procedure TFrmMain.ReceiveData(Socket: TSocket; Buffer: PByte);
var
  Data: String;
  strArr: TDynStringArray;
begin
 //Convert our data to a string and trim it
  Data := String(Buffer);
  Data := Trim(Data);

  if Length(Data) > 0 then
  begin
    //Setup our dynamic array structure
    StrArr := Explode('|', Data); //динамический массив, разбивающий сплошную строку на подстроки, тем самым отфильтровываю команды сервера от контекста.

  if StrArr[0] = 'POST' then begin
  //тут добавляем в ComboBox1 строки
end;

1) Принимает кол строк, и уже знает сколько их должно прийти.
после
2) получает 1 строку и добавляет ее в ComboBox1 и так далее до (кол строк которое мы знаем, так как 1 делом мы получали число строк) конца строк.

Суть проблемы в том: что приходят не все строки, не всегда но очень часто (пропадают, недожодят)!

Что вы посоветуете мне в этом случае !

[3D Hunter]

Отсылать весь текст в Memo за раз не вариант?

[fucil]

Не хочет чего-то он весь отсылаться ! с клиента на сервер можно большой, а с сервера на клиент большой не приходит, не знаю почему, все проверил хз !

[Mad_Cat]

Для начала выкиньте

sleep(300);

и используйте таймер!

Наверно, имеется ввиду TTimer

Именно

[fucil]

Спасибо за совет, но я не пойму про какой вы таймер говорите, можно по подробнее и если можно то пример !

[Shouldercannon]

Наверно, имеется ввиду TTimer

[Stilet]

Что вы посоветуете мне в этом случае !

У классических сокетов есть такая болячка.
Мне кажется автору стоит взять библиотеки или компоненты, где расклейка пакетов уже решена. Я например пользуюсь Индейцами, и не страдаю даже от пересыла гига информации через Stream.

[fucil]

Нет ! Только сокеты они гибкие и тд.

[Stilet]

Чем труднее дорога тем интереснее !

Чем труднее тем больше вероятность натыкать тактических ошибок в программу, которые всплывут в самый неожиданный момент, когда техподдержки не будет.

[fucil]

Как не крути сокеты рулят! И все же отошли от темы, проблема все ещё не решена !
Прошу помощи экспертов