WinSock. Прием данных

[Denager]

Работаю с WinSock. Данные с сайта (Загрузка обычных страниц http) получаю в цикле приема:

        
var
buf             : array [0..1023] of Char;
tmp             : String;
...
ZeroMemory(@buf, 1024);
      RcvLen:=recv(Sock,buf,1024,0);
        while RcvLen > 0 do
          begin
            Tmp := Tmp + Copy(buf, 0, RcvLen);
            RcvLen  := recv(sock, buf, 1024, 0);
          end;

В итоге данные получаются полностью, но только при больших объемах текста выплавает вот что, например:

<td valign='middle' class='row4' width='15%'><img src='starmod.gif' bor
111с
der='0' alt='Master' title='Master'> <a name='entry1

Как избавится от неизвестно от чего берушихся #13111c#13, при получении данных? Из-за чего такое происходит?

[Denager]

Взял, ради интереса, перевел эти символы из hex в dec..
Оказалось, что это размер принятых данных.. Не думал, что в html еще эта служебная информация передается..
Вопрос снят

[veniside]

> Не думал, что в html еще эта служебная информация передается

не надо валить с больной головы на здоровую. Ни HTTP, ни тем более HTML ничего подобного не передаёт и не содержит. Ошибка 100% в твоём коде.

[Denager]

Имелось ввиду http.
Код перед вами, в чем ошибка?

[veniside]

хрен знает. У меня такой код нормально вроде работает в седьмой Дельфи):

procedure TForm1.Button1Click(Sender: TObject);
var
  sock: TSocket;
  buf: array [0..1023] of Char;
  tmp: String;
  RcvLen: Integer;
  host: PHostEnt;
  addr: sockaddr_in;
  ip: pInteger;
  d: WSAData;
begin
  WSAStartup($0101, d);
  //
  sock := socket(AF_INET, SOCK_STREAM, IPPROTO_TCP);
  //
  host := gethostbyname('google.ru');
  ip := pInteger(host.h_addr_list^);
  //
  addr.sin_family := AF_INET;
  addr.sin_port := htons(80);
  addr.sin_addr.S_addr := ip^;
  //
  connect(sock, addr, sizeof(addr));
  //
  tmp := 'GET / HTTP/1.0'#13#10'Host: www.google.ru'#13#10#13#10;
  send(sock, tmp[1], length(tmp), 0);
  tmp := '';
  //
  ZeroMemory(@buf, 1024);
  RcvLen := recv(Sock, buf, 1024, 0);
  while RcvLen > 0 do begin
    //
    Tmp := Tmp + Copy(buf, 0, RcvLen);
    RcvLen  := recv(sock, buf, 1024, 0);
  end;
  //
  Memo1.Text := Tmp;
  //
  WSACleanup();
end;

соединение без прокси?

[Denager]

Если размер принимаемых данных меньше MTU то у меня также все нормально..
"весомые" страницы прнимаются именно вышеописанным образом

[veniside]

я в свой пример поставил lenta.ru, принялось 160 КБ без всяких проблем

глянь уж снифером, что там передается, а то мистика на ровном месте