Как сохранить исходник HTML из TWebBrowser.Document на диск

Серьезная организация возьмет на высокооплачиваемую должность опытного хакера. Резюме просим размещать на главной странице сайта www.microsoft.com.

TWebBrowser.Document включает в себя IPersistStreamInit который содержит метод Save(). Всё, что нам нужно знать, это как использовать данный метод с объектом, который включён в IStream. Для этого мы просто воспользуемся TStreamAdapter.

Обратите внимание, что интерфейсы IPersistStreamInit и IStream объявлены внутри ActiveX unit.

Итак, вот так это выглядит.

procedure TForm1.SaveHTMLSourceToFile(const FileName: string;
WB: TWebBrowser);
var
  PersistStream: IPersistStreamInit;
  FileStream: TFileStream;
  Stream: IStream;
  SaveResult: HRESULT;
begin
  PersistStream := WB.Document as IPersistStreamInit;
  FileStream := TFileStream.Create(FileName, fmCreate);
  try
    Stream := TStreamAdapter.Create(FileStream, soReference) as IStream;
    SaveResult := PersistStream.Save(Stream, True);
    if FAILED(SaveResult) then
      MessageBox(Handle, 'Fail to save HTML source', 'Error', 0);
  finally
    { В ответ на уничтожение объекта TFileStream, передаём
    soReference в конструктор TStreamAdapter. }
    FileStream.Free;
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  if SaveDialog1.Execute then
    SaveHTMLSourceToFile(SaveDialog1.FileName, WebBrowser1);
end;

А как сохранить вместе с исходником все файлы (.CSS, JPG, GIF и т.д...) ?

try 
  WebBrowser1.ExecWB(4, 0); 
except 
  on E: Exception do 
    msError := true; 
end;

Недавно добавленные исходники
• DeLiKaTeS Tetris (Тетрис) 3 708 • TDictionary Custom Sort 5 837 • Fast Watermark Sources 5 641 • 3D Designer 8 291 • Sik Screen Capture 5 961 • Patch Maker 6 421 • Айболит (remote control) 6 414 • ListBox Drag & Drop 5 272 • Доска для игры Реверси 94 638 • Графические эффекты 6 608 • Рисование по маске 5 688 • Перетаскивание изображений 4 793 • Canvas Drawing 5 166 • Рисование Луны 4 897 • Поворот изображения 4 442 • Рисование стержней 3 147 • Paint on Shape 2 391 • Генератор кроссвордов 3 259 • Головоломка Paletto 2 581 • Теорема Монжа об окружностях 3 358 • Пазл Numbrix 2 228 • Заборы и коммивояжеры 2 875 • Игра HIP 1 852 • Игра Go (Го) 1 766 • Симулятор лифта 2 097 • Программа укладки плитки 1 831 • Генератор лабиринта 2 267 • Проверка числового ввода 1 957 • HEX View 2 257 • Физический маятник 1 936

Как сохранить исходник HTML из TWebBrowser.Document на диск

Похожие по теме исходники