Как получить HTML текст странички?

[Case]

Помогите кто может? Очень надо.
Надо получить HTML исходник странички с заданым URL.
Самым простым методом.

[x77]

самй простой способ - компоненты FastNet от NetMasters (для Delphi <= 5.0). там есть некий TNMHTTP, которому прописываются url, при необходимости - прокси и аутентификация на оном, и т.д. далее вызовом одного метода получается страничка.

для знатоков TCP/IP стека более разумно юзать TClientSocket, посылая на сервер с требуемым url команду GET и считывая в буфер результат.

[Case]

.... TClientSocket, посылая на сервер с требуемым url команду GET и считывая в буфер результат.

А нельзя ли привести пример GET запроса. А то я HTTP никогда не дружил. А времени искать нету. Может у кого-то знающего есть пару минут написать? Буду очень благодарен!

[x77]

в общем виде 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-й порт.

кроме того, следует учитывать, что чрерз прокси сервер такой запрос не пройдёт, он будет работать только при прямом подключении к сети.

[Case]

Большое спасибо!!!

[x77]

а не во что

[Судейкина Ирина]

Вам нужно  TMEMO, TBUTTON и NMHTTP

procedure TForm1.Button1Click(Sender: TObject);
begin
  NMHTTP1.Get('www.swissdelphicenter.ch');
  memo1.Text := NMHTTP1.Body
end;