Webbrowser vente indtil færdig før forsæt

kender ikke til delphi programmering. Med det sagt, mener jeg stadig jeg måske kan komme med et forslag.

kunne du ikke prøve noget lign.

Webbrowser1.navigate('http://www.domæne1.dk');
Sleep ( 5000 );
Webbrowser1.navigate('http://www.domæne2.dk');
Sleep ( 5000 );
showmessage('test');
Webbrowser1.navigate('http://www.domæne3.dk');
Webbrowser1.navigate('http://www.domæne4.dk');

Jeg ved ikke om der er en sleepfunktion - men ellers er der nok noget andet delay af en art.

Der er en sleep, men det er ikke en speciel pæn løsning da browseren ofte tager kortere tid; og hvad hvis den tager længere tid?

Den skal helst lave et slags true/false kald til webbrowserens Busy funktion, men hvordan man lige kringler den aner jeg ikke.

Nej jeg kan godt se problemet med sleep. Så er jeg desværre sat af her hehe :)

Håber du får det løst, held og lykke :)

Prøv der her :

unit Unit7;

interface

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

type
  TForm7 = class(TForm)
    WebBrowser1: TWebBrowser;
    Button1: TButton;
    procedure WebBrowser1NavigateComplete2(ASender: TObject; const pDisp: IDispatch; var URL: OleVariant);
    procedure WebBrowser1DocumentComplete(ASender: TObject; const pDisp: IDispatch; var URL: OleVariant);
    procedure Button1Click(Sender: TObject);
  private
    CurDispatch: IDispatch;
  public
    { Public declarations }
  end;

var
  Form7: TForm7;

implementation

{$R *.dfm}

procedure TForm7.Button1Click(Sender: TObject);
begin
  Button1.Tag := (Button1.Tag + 1) mod 2;
  if Button1.Tag = 0 then
    WebBrowser1.Navigate('www.jp.dk')
  else
    WebBrowser1.Navigate('www.berlingske.dk');

end;

procedure TForm7.WebBrowser1DocumentComplete(ASender: TObject; const pDisp: IDispatch; var URL: OleVariant);
begin
  if (pDisp = CurDispatch) then
    Beep {the document is loaded, not just a frame }
  else
    Caption := TimeToStr(now);

  CurDispatch := nil; {clear the global variable }
end;

procedure TForm7.WebBrowser1NavigateComplete2(ASender: TObject; const pDisp: IDispatch; var URL: OleVariant);
begin
  if CurDispatch = nil then
    CurDispatch := pDisp; { save for comparison }
end;

end.


Jens B

Nå ja det skulle være et svar

Hej Borris, jeg tror ikke helt det virker efter hensigten. Hvis jeg udskifter din button med min, så kommer showmessage stadigvæk op før første navigation er færdig.

WebBrowser1.Navigate('http://www.google.dk');
showmessage('gdfgfdg');
WebBrowser1.Navigate('http://www.yahoo.dk');

Showmessage hopper op før google har loaded.

Kunne man ikke lave noget a la dette:

WebBrowser1.Navigate('http://www.google.dk');

try untill webbrowser not webbrowser.busy do
showmessage('gdfgfdg');
end;

WebBrowser1.Navigate('http://www.yahoo.dk');

ja selvfølgelig

TWebBrowser er non blocking. det betyder den kalder et event nåt forskellige ting sker ... Hvis du kigger på mit eksempel vil du se jeg bruger to events. Jeg har kodet eksemplet her til formiddag.

Så svar på dit spørgsmål :

try untill webbrowser not webbrowser.busy do
showmessage('gdfgfdg');
end;


Nej det kan man heldigvis ikke, da det er noget slam. Tilgængæld kan du få at vide når din browser har loaded siden ind.

Ooookay... men at jeg får et klokkeslet på browserens færdig-load-tid er jo lidt svært at implementere til mit problem. Kan ikke se hvordan jeg skal kunne bruge det.

Fandt en løsning, lukker.