Передача страницы из webbrowser

[rootann]

Помогите с таким вопросом: Как передать web-страницу (её html код)из webbrowser`а в memo?

[Квэнди]

unit Unit13;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, OleCtrls, SHDocVw,ActiveX;

type
  TForm13 = class(TForm)
    WebBrowser1: TWebBrowser;
    Memo1: TMemo;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form13: TForm13;

implementation

{$R *.dfm}
 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 TForm13.Button1Click(Sender: TObject);
begin
WebBrowser1.Navigate('www.programmersforum.ru');
WB_GetHTMLCode(Webbrowser1, Memo1.Lines);
end;

end.

[Soso]

Доброго времени суток!
Квэнди, твой код у меня сохраняет html-код, если я предварительно загрузил страницу при помощи WebBrowser1.Navigate. Но если я потом перешел по ссылкам на загруженной странице, то процедура сохранения html кода не работает. Она ничего не сохраняет. Как можно в этом случае сохранить код?

[Alex21]

Вызывайте функцию при загрузке страницы:

procedure TForm1.Button1Click(Sender: TObject);
begin
WebBrowser1.Navigate('www.programmersforum.ru');
Memo1.Clear;
end;
 
procedure TForm1.WebBrowser1NavigateComplete2(Sender: TObject;
  const pDisp: IDispatch; var URL: OleVariant);
begin
WB_GetHTMLCode(Webbrowser1, Memo1.Lines);
end;

[Soso]

Все равно работает не так, как хочется. Событие OnNavigateComplete2 вызывается еще до того, как страница полностью загрузится. В результате у меня получается не полный html код (он обрывается). Попытка использовать событие OnDocumentComplete тоже не приводит к положительному результату. В этом случае код иногда вообще не получается.
Как быть? Что подскажете?

[JTG]

Странно. NavigateComplete2 выполняется после загрузки страницы.
Во всём виноват мс-осёл ))) TWebBroeser на IEшной библиотеке

[Soso]

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

Странно. NavigateComplete2 выполняется после загрузки страницы.
Во всём виноват мс-осёл ))) TWebBroeser на IEшной библиотеке

В описании на OnNavigateComplete2 написано, что это событие может вызываться уже раньше, когда получена достаточная информации для отображения.

[Soso]

Неужели никто больше не может предложить какую-нибудь идею? Как мне получить html-код со страницы, даже при переходе по ссылке со страницы?

[Soso]

Я все-таки решил проблему следующим образом.
Я на форму закинул таймер, выключил его предварительно, задал интервал равный 2000 мсек. В сообытии на обработку события таймера вставил функцию WB_GetHTMLCode и потом вразу же выключаю таймер. В событии OnNavigateComplete2 я включаю таймер. В итоге при появлении события OnNavigateComplete2 включается таймер, он отрабатывает 2 сек, сохраняет код и выключается. Таким образом получается, что я сохраняю код через 2 сек. после появления события OnNavigateComplete2 . Способ, как мне кажется, туповат, но зато вроде работает. Возможно этот способ зависит от скорости интернета. Если у кого-нибудь есть другие предложения, то с радостью их услышал бы.

[Квэнди]

Сделал ты конечно ерунду полную =)
Реализовать реакцию на полную загрузку страницы невозможно ввиду современной реализации протоколов HTTP и иже с ними. Есть Ajax, JS и иже с ним, которые вообще могут подгружаться когда угодно, тем более а IE. Посему говоря простым языком, а IE и Twebbrowser это одно и тоже, Оба этих "слова" поделки =)