в общем виде http-запрос выглядит так:
GET <URL> HTTP/1.0
вот простенький пример (на форме Memo1, Edit1, Button1, ClientSocket1):
procedure TForm1.Button1Click(Sender: TObject);
begin
with ClientSocket1 do begin
Active := FALSE;
Host := Edit1.Text;
Open;
end;
end;
procedure TForm1.ClientSocket1Read(Sender: TObject;
Socket: TCustomWinSocket);
begin
Memo1.Lines.Text := Memo1.Lines.Text + Socket.ReceiveText;
end;
procedure TForm1.ClientSocket1Connect(Sender: TObject;
Socket: TCustomWinSocket);
begin
Socket.SendText ('GET ' + Edit1.Text + ' HTTP/1.0'#10#10);
end;
т.е. в Edit1 вводим адрес, нажимаем Button1, и в Memo1 получаем результат. у ClientSocket должен быть выставлен 80-й порт.
кроме того, следует учитывать, что чрерз прокси сервер такой запрос не пройдёт, он будет работать только при прямом подключении к сети.