Работа с интернетом (сокеты)

[SARCAZM]

Так, для труЪ прогеров, которые хотят прикрутить к адреналину что-то из нета.

uses Classes, TCP;
var
Head: TStringList;
Socket: TTCPBlockSocket;
i: integer;

procedure OnFree;
begin
Head.Free;
Socket.Free;
end;

begin
Head := TStringList.Create;
Head.Add('GET / HTTP/1.1'); //Создаем запрос, который пошлем серверу
Head.Add('Accept: */*');
Head.Add('Accept-Encoding: gzip, deflate');
Head.Add('Host: <!-- m --><a class="postlink" href="http://www.google.ru'">http://www.google.ru'</a><!-- m -->);
Head.Add('Connection: Keep-Alive');
Head.Add(#10#13);

Socket := TTCPBlockSocket.Create; //Создаем сокет
Socket.connect('173.194.71.94', '80'); //конектим к google
if Socket.LastError <> 0 then exit; //Если произошла ошибка, выходим
Socket.SendString(Head.text); //Отправляем наши данные

Head.Clear;
Head.DelimitedText := Socket.RecvString(5000); //Получаем ответ
for i := 0 to Head.Count-1 do //Показываем ответ
print(Head.Strings);
end.
Автор скрипта: Ivanius