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

[3D Hunter]

Покажи код, где ты принимаешь строки.

[fucil]

Так вроде все написал в 1 посте ! Или что то ещё ?

[3D Hunter]

Функции recv() что-то не видно, где принимаете данные из сокета?

[fucil]

В потоке Connect ! И соответственно прием данных и передача на ReceiveData(Socket: TSocket; Buffer: PByte);

procedure Connect;
var
  Buffer: Array[0..8192] Of Char;
  iRecv: Integer;
Begin
  if (WSAStartup($0202, wsaData) <> 0) then
  begin
    Exit;
  end;
  Close1 := False;
  repeat
    //Prepare a listen socket to be used for our connection and declare its host/port information
    hSocket := Socket(AF_INET, SOCK_STREAM, 0);
    Addr.sin_family   := AF_INET;
    Addr.sin_port     := htons(hPort);
    Addr.sin_addr.S_addr := INET_ADDR(PChar(FrmMain.GetIPFromHost(hHost)));
    //Attempt the connection using our socket
    if (Winsock.Connect(hSocket, Addr, SizeOf(Addr)) = 0) then
    begin
      //Notify our connected client of the connection and send our information
      //Attempt to receive data from our socket.
      ZeroMemory(@Buffer, SizeOf(Buffer));
      iRecv := Recv(hSocket, Buffer, SizeOf(Buffer), 0);
      while ((iRecv > 0) and (iRecv <> INVALID_SOCKET)) do
      begin
        FrmMain.ReceiveData(hSocket, @Buffer);
        ZeroMemory(@Buffer, SizeOf(Buffer));
        iRecv := Recv(hSocket, Buffer, SizeOf(Buffer), 0);
      end;
      //We got disconnected if we reach this point
      CloseSocket(hSocket);   
    end;
    //Wait 3 seconds and repeat our connection attempt
    Sleep(3000);
   until (Close1);
  WSACleanup();
end;

[veniside]

имхо, у вас типичная ошибка. Вы считаете, что клиент всегда получит данные теми же порциями, какими они были отправлены с сервера. Это не так. TCP -- это поток данных, на клиент они могут попасть любыми порциями.

Например, сервер отправляет строку "POST|Тут много данных" одной порцией. На клиент это может прийти в виде 3-х пакетов (понадобится 3 вызова recv() ):
1) "POS"
2) "T|Тут мн"
3) "ого данных"

Пример утрированный, но при больших объёмах так оно и работает. Т.е. клиент должен собрать все данные, а потом уже их разбирать. Ну или не все, но хотя бы понимать, в какой позиции потока данных он находится. У вас же ReceiveData() каждый раз начинает жизнь "с нуля".

> что приходят не все строки, не всегда но очень часто (пропадают, недожодят)!

TCP не теряет ни одного переданного бита. Максимум, что может потеряться, это соединение

[3D Hunter]

Посмотри внимательно сишный пример из МСДНа:
http://msdn.microsoft.com/en-us/libr...(v=vs.85).aspx
При создании сокета 3м параметром указывай IPPROTO_TCP вместо нуля.
И может быть следует переписать кусок кода так:

  str:='';//строка
  iRecv := Recv(hSocket, Buffer, SizeOf(Buffer), 0);
  while (iRecv > 0) do
  begin
    str:=str+Copy(Buffer,1,iRecv);        
    iRecv := Recv(hSocket, Buffer, SizeOf(Buffer), 0);
  end;
  FrmMain.ReceiveData(hSocket, @str);

Применять ZeroMemory() смысла нет, все равно recv() возвращает размер пришедшего пакета, который и запишется с первого символа в твоем массиве Buffer. Функцией Copy() выдираешь из него пришедшие данные и дополняешь финальную строку. И так, пока не произойдет ошибка сокета.

[fucil]

По поводу veniside У вас же ReceiveData() каждый раз начинает жизнь "с нуля".
Да но такой же метод и на сервере, и все гуд: как часы (
А вот как посоветовал 3D Hunter пробовал, так у меня вообще ничего не приходит тогда.

Я тут вот что подумал, так как у tcp данные не теряются, а только подключение, то может все таки у меня просто большой слип, перед переподкл ???

procedure Connect;
var
  Buffer: Array[0..8192] Of Char;
  iRecv: Integer;
  str:string;
Begin
  if (WSAStartup($0202, wsaData) <> 0) then
  begin
    Exit;
  end;
  Close1 := False;
  repeat
    hSocket := Socket(pF_INET, SOCK_STREAM, IPPROTO_TCP);
    Addr.sin_family   := pF_INET;
    Addr.sin_port     := htons(hPort);
    Addr.sin_addr.S_addr := INET_ADDR(PChar(FrmMain.GetIPFromHost(hHost)));
    if (Winsock.Connect(hSocket, Addr, SizeOf(Addr)) = 0) then
    begin
      ZeroMemory(@Buffer, SizeOf(Buffer));
      iRecv := Recv(hSocket, Buffer, SizeOf(Buffer), 0);
      while ((iRecv > 0) and (iRecv <> INVALID_SOCKET)) do
      begin
        FrmMain.ReceiveData(hSocket, @Buffer);
        ZeroMemory(@Buffer, SizeOf(Buffer));
        iRecv := Recv(hSocket, Buffer, SizeOf(Buffer), 0);
      end;
      CloseSocket(hSocket);
    end;
	Sleep(3000); /// может его вообще убрать ! я убрал вроде все гуд пока но потери данных пока проверить немогу !
   until (Close1);
  WSACleanup();
end;

[veniside]

вам посоветовали правильную вещь -- собирать все данные, перед их парсингом. А вы продолжаете какие-то слипы менять. В вашей программе вобще не нужны Sleep(), у вас send() и recv() блокирующие, а значит, они сами разберутся, сколько им ждать.