Форум по Delphi программированию - Показать сообщение отдельно

Admin · #4 05.04.2008, 19:14

Цитата:

Сообщение от Winny

Люди, помогите, горю! Как очистить WebBrowser от загруженной веб-страницы ПОЛНОСТЬЮ. WebBrowser.Navigate(''); не предлагать.

Например так:

Код:

uses Variants, MSHTML, ActiveX;

procedure TextToWebBrowser(Text: string; var WB: TWebBrowser);
var
 Document: IHTMLDocument2;
 V: OleVariant;
begin
 // Документ необходимо создать только один раз за текущую
 // сессию работы
 if WB.Document=nil
 then WB.Navigate('about:blank');
 // Ожидаем создания документа и позволяем обрабатывать все
 // сообщения
 while WB.Document=nil do
  Application.ProcessMessages;
 Document:=WB.Document as IHtmlDocument2;
 // Вставляем текст (до 2Гб)
 // следующие строчки внесены недавно - старый вариант
 // ункции не работал под XP
 V:=VarArrayCreate([0,0], varVariant);
 V[0]:=Text;
 Document.Write(PSafeArray(TVarData(v).VArray));
 Document.Close;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
 TextToWebBrowser('<html><head></head><body><p align="center">Clear page</p></body></html>', WebBrowser1);
end;