проблема при вызове recv

[MegabyteS]

Не получается найти проблему, может кто встречался с таким.
При получении ответа на http запрос на некой итерации (я заметил что должна быть последней итерацией) при вызове recv напрочь зависает выполнение, при этом я заметил размер последних не полученных данных меньше буфера, пока данные размером с буфер прекрастно читаются. В чем может быть загвоздка?

кусок кода :

repeat

FillChar(Buffer2,SizeOf(Buffer2),0) ;
d:=recv(Socket1,Buffer2,SizeOf(Buff er2),0);

for i:=0 to d do s:=s+Buffer2[i];

until d<=0;

[Stilet]

Return Values

If no error occurs, recv returns the number of bytes received. If the connection has been gracefully closed, the return value is zero. Otherwise, a value of SOCKET_ERROR is returned, and a specific error code can be retrieved by calling WSAGetLastError.

Вывод: При проверке на полученный размер если он равен SOCKET_ERROR, нужно использовать функцию WSAGetLastError() для получения кода ошибки, и выяснения по этому коду причины.

[MegabyteS]

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

Вывод: При проверке на полученный размер если он равен SOCKET_ERROR, нужно использовать функцию WSAGetLastError() для получения кода ошибки, и выяснения по этому коду причины.

WSAGetLastError() выдает 0
SysErrorMessage(GetLastError) выдает "операция успешно завершена"


похоже на то, что сервер перестает отвечать после того как все выдает в сокет.