Ereignis von OnDownloadComplete bei Browser-Instanz?

[mlspider]

Hallo

Der Titel ist etwas unglücklich gewählt. Ich grüble nun schon seit Tagen darüber, wie man bei einer dynymisch erzeugten Webbrowser-Instanz, Ereignisse abfangen kann.

Ich habe also eine PageControl, auf der bei jeder Eingabe einer URL ein neues Tabsheet erzeugt und darauf eine neue Instanz von TWebbrowser angelegt wird. Gleichzeitig wird eine Ladeanimation gestartet.

Beispiel:

Delphi-Quellcode:

Animate1.Active := True;
 (PageControl1.ActivePage.Controls[0] as TWebBrowser).Navigate(ComboBox1.text);{navigiert zur eingegeben URL. Das ist noch kein Problem.}

Wie kann man nun das Ereignis OnDownloadComplete der neuen Instanz abfangen, um beispielsweise die Ladeanimation wieder zu stoppen.

Ich habe überhaupt keinen Plan.

Danke

[mlspider]

Hat keiner eine Idee???

[Luckie]

Dann musst du eben die entsprechenden Ereiginsse im Code zuweisen.

[mlspider]

Toll, leider habe ich keinen Ansatz. Könnte mir folgendes vorstellen:

(ADVPageControl1.ActivePage.Controls[0] as TWebBrowser).OnDownloadComplete :=Animate1.Active:=False; Das führt aber logischerweise zu einem Fehler.

Trotzdem Danke, Luckie

[Pr0g]

Du musst folgende Prozedur anlegen:

Delphi-Quellcode:

procedure TForm1.MyWebbrowserDownloadComplete(Sender: TObject);
begin
  Animate1.Active:=False;
end;

und diese dem Eregnis dann beim dynamischen Erstellen der Webbrowserinstanz zuweisen:

Delphi-Quellcode:

MyWebbrowser := TWebBrowser.Create;
//weiterer Code
MyWebBrowser.OnDownloadComplete := MyWebbrowserDownloadComplete;

MfG Pr0g

[mlspider]

Ich bekomme das einfach nicht gebacken!!!! Mein bisheriger Code:

Delphi-Quellcode:

procedure TBrowser.NewWindow(Sender: TObject;var ppDisp: IDispatch; var Cancel: WordBool);
var
  Tabsheet: TTabsheet;
  Browser: TWebBrowser;
begin
  Button1Click(nil);
  TabSheet:= PageControl1.ActivePage;
  ppDisp:= (PageControl1.ActivePage.Controls[0] as TWebBrowser).DefaultInterface;
end;

Delphi-Quellcode:

procedure TBrowser.Button6Click(Sender: TObject);
begin
 Animate1.Active := True;
 (ageControl1.ActivePage.Controls[0] as TWebBrowser).Navigate(ComboBox1.text);
 ComboBox1.Items.Add(ComboBox1.Text);
//<--- und hier soll nach Laden der Seite die Animation wieder
//gestoppt werden.
end;

[Pr0g]

Hast du das gemacht, was ich oben erklärt habe? Wenn du dabei Probleme hast musst du schon was genauer werden. Einfach deinen aktuellel Code zu posten, bringt auch nichts

[toms]

Delphi-Quellcode:

procedure WaitForBrowser(WB: TWebbrowser);
begin
  while (WB.ReadyState <> READYSTATE_COMPLETE)
    and not (Application.Terminated) do
  begin
    Application.ProcessMessages;
    Sleep(50);
  end;
end;


procedure TBrowser.Button6Click(Sender: TObject); 
begin 
  Animate1.Active := True; 
  (PageControl1.ActivePage.Controls[0] as TWebBrowser).Navigate(ComboBox1.text); 
  ComboBox1.Items.Add(ComboBox1.Text); 
  WaitForBrowser(PageControl1.ActivePage.Controls[0] as TWebBrowser);
  //<--- und hier soll nach Laden der Seite die Animation wieder 
  //gestoppt werden. 
  Animate1.Active := False; 
end;

[mlspider]

Hy toms,

Auf diese Idee muß man erst mal kommen. So muß es ja funktionieren.

Danke