(*
   (c) crystalbit      http://parsers.info
   пример получения ответа сервера на http get запрос

(**)

program httpget;

uses
  windows,
  winsock;

{$apptype console}

var
  WSAData1: TWSAData;
  SockAddr1:TSockAddr;
  Socket1: TSocket;
  Buffer1:string;
  Buffer2:array[1..1024] of char;
  i,d:integer;


begin

  if WSAStartup(MAKEWORD(2,2), WSAData1)<>0 then begin
    writeln('WinSock error');
    readln;
    Exit;
  end;

  Socket1:=Socket(AF_INET,SOCK_STREAM,0);
  if Socket1=INVALID_SOCKET then begin
    writeln('socket error');
    readln;
    Exit;
  end;
      
  SockAddr1.sin_family:=AF_INET;
  SockAddr1.sin_addr.S_addr:=inet_addr(PChar('62.109.19.221')); //parsers.info
  SockAddr1.sin_port:=htons(80);

  if Connect(Socket1,SockAddr1,SizeOf(SockAddr1))<>0 then begin
    writeln('connection error #',WSAGetLastError);
    readln;
    exit;
  end;

  Buffer1:='GET / HTTP/1.1'#13#10+
           'host: parsers.info'#13#10+
           'Connection: close'#13#10+
           #13#10;

  send(Socket1,Buffer1[1],Length(Buffer1),0);

  repeat
    FillChar(Buffer2,SizeOf(Buffer2),0);
    d:=recv(Socket1,Buffer2,SizeOf(Buffer2),0);
    for i:=1 to d do write(Buffer2[i]);
  until d<=0;

  if CloseSocket(Socket1)<>0 then
    writeln('error closing socket');

  readln;
end.