Получить и сохранить HTML-код из TWebBrowser

Delphi , Интернет и Сети , Браузер

Оформил: DeeCo
Автор: http://www.swissdelphicenter.ch

uses
   ActiveX;

 function WB_SaveHTMLCode(WebBrowser: TWebBrowser; const FileName: TFileName): Boolean;
 var
   ps: IPersistStreamInit;
   fs: TFileStream;
   sa: IStream;
 begin
   ps := WebBrowser.Document as IPersistStreamInit;
   fs := TFileStream.Create(FileName, fmCreate);
   try
     sa := TStreamAdapter.Create(fs, soReference) as IStream;
     Result := Succeeded(ps.Save(sa, True));
   finally
     fs.Free;
   end;
 end;

 function WB_GetHTMLCode(WebBrowser: TWebBrowser; ACode: TStrings): Boolean;
 var
   ps: IPersistStreamInit;
   ss: TStringStream;
   sa: IStream;
   s: string;
 begin
   ps := WebBrowser.Document as IPersistStreamInit;
   s := '';
   ss := TStringStream.Create(s);
   try
     sa := TStreamAdapter.Create(ss, soReference) as IStream;
     Result := Succeeded(ps.Save(sa, True));
     if Result then ACode.Add(ss.Datastring);
   finally
     ss.Free;
   end;
 end;

 procedure TForm1.Button1Click(Sender: TObject);
 begin
   WB_SaveHTMLCode(Webbrowser1, 'c:\test.txt');
 end;

 procedure TForm1.Button2Click(Sender: TObject);
 begin
   WB_GetHTMLCode(Webbrowser1, Memo1.Lines);
 end;

Программа на языке Delphi, которая использует компонент TWebBrowser для получения и сохранения кода HTML активной веб-страницы.

Функция WB_SaveHTMLCode принимает объект TWebBrowser и имя файла как параметры. Она сохраняет код HTML текущей страницы в файле, указанном в имени файла.

Шаг за шагом, функция выполняет следующие действия:

1. Получает интерфейс IPersistStreamInit из документа TWebBrowser.
2. Создает объект TFileStream для записи кода HTML в файл.
3. Устанавливает объект IStream для взаимодействия с интерфейсом IPersistStreamInit.
4. Вызывает метод Save интерфейса IPersistStreamInit, передавая объект IStream и булевое значение, указывающее, нужно ли сохранять целый документ или только текущую страницу. Результат хранится в переменной Result.
5. Если операция сохранения была успешной, освобождает объект TFileStream.

Функция WB_GetHTMLCode принимает объект TWebBrowser и объект TStrings как параметры. Она получает код HTML текущей страницы и добавляет его к объекту TStrings.

Шаг за шагом, функция выполняет следующие действия:

1. Получает интерфейс IPersistStreamInit из документа TWebBrowser.
2. Создает объект TStringStream для хранения кода HTML.
3. Устанавливает объект IStream для взаимодействия с интерфейсом IPersistStreamInit.
4. Вызывает метод Save интерфейса IPersistStreamInit, передавая объект IStream и булевое значение, указывающее, нужно ли сохранять целый документ или только текущую страницу. Результат хранится в переменной Result.
5. Если операция сохранения была успешной, добавляет содержимое объекта TStringStream к объекту TStrings.

Два процедуры в конце кода демонстрируют, как использовать эти функции. Первая процедура сохраняет код HTML веб-страницы в файле "c:\test.txt", а вторая процедура получает код HTML веб-страницы и добавляет его к контролу Memo1.

В целом, это программа предоставляет способ получения и сохранения кода HTML активной веб-страницы с помощью компонента TWebBrowser Delphi.

В статье описывается способ получения и сохранения HTML-кода из компонента TWebBrowser в Delphi при помощи функций WB_SaveHTMLCode и WB_GetHTMLCode.

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: Браузер ::