Сетевые технологии. Баканов В.М. - 59 стр.

 вЫдачи в графическом виде - как в привычных броузерах
= Вместо этого просто передаем принятый HTML-текст в поле MemoHTML... = }
MemoHTML.Text:=NMHTTP1.Body;

 EditCookie.Text:=NMHTTP1.CookieIn; { показать Cookie }
 StatusBArInfo.SimpleText:='Прием данных завершен';
end; { конец ButtonConnectClick }

procedure TForm1.ButtonSaveClick(Sender: TObject);
{ нажатие кнопки Save }
begin
 if SaveDialog1.Execute then
  MemoHTML.Lines.SaveToFile(SaveDialog1.FileName);
end; { конец ButtonSaveClick }

procedure TForm1.ButtonStopClick(Sender: TObject);
{ нажатие кнопки Stop }
begin
 NMHTTP1.Abort; { экстренно прекратить связь }
end; { конец ButtonStopClick }

procedure TForm1.ButtonBrowseClick(Sender: TObject);
{ нажатие кнопки Browse }
var
 FileName: string;
begin
 if MemoHTML.Lines.Count > 0 then { если что-то есть в MemoHTML }
 begin
  FileName:='$temp$.htm'; { имя временного файла }
  MemoHTML.Lines.SaveToFile(FileName); { сохранить во временный файл }
  ShellExecute(0, NIL, { по умолчанию = open } { вызвать штатный броузер }
               PChar(FileName), NIL, NIL,
               SW_SHOWNORMAL);
 end;
end; { конец ButtonBrowseClick }

  Программа выводит полученные от сервера данные в текстовое окно, не
делая попыток интерпретировать HTML-команды (эту, в общем-то неслож-
ную, но трудоемкую процедуру может организовать программист дополни-
тельно). Кнопки Сохранить и Отобразить (инициируют выполнение процедур
ButtonSaveClick и ButtonBrowseClick соответственно) служат для сохранения
принятого текста в файл и интерпретации его штатным системным броузе-
ром.

   Необходимое оборудование – IBM PC-совместимая ЭВМ, предустановлен-
ная ОС Windows, пакет Delphi версии выше 4. Исходные тексты могут быть
получены с адреса http://pilger.mgapi.edu/metods/nets_src.zip, подкаталог
browser).

                                       - 59 -