TWebbrowser and Javascript

[wschrabi]

DANKE, ich habe keinen EMbeddedWB
BESTEN DANK AUCH FÜR DEIN SCRIPT.
Werde estesten.

Blöde Frage (sorry): Was ist FWB? Woher die Methode ReadyState?

Zitat:

if (lCurWebbrowser = lTopWebBrowser) and
(FWB.ReadyState = READYSTATE_COMPLETE) then begin

BLöde Frage: Was ist ein Embedded WB? Ich kenne nur TWebbrowser in Delphi . Danke für die Aufklärung.

Ich hab das mit dem LADEN so gelöst: (fast gleich)

Delphi-Quellcode:

procedure TForm1.WebBrowser1DocumentCompleteFULL(ASender: TObject;
  const pDisp: IDispatch; const URL: OleVariant);
var
  CurWebrowser: IWebBrowser;
  TopWebBrowser: IWebBrowser;
  Document: OleVariant;
  WindowName: string;
begin
  CurWebrowser := pDisp as IWebBrowser;
  TopWebBrowser := (ASender as TWebBrowser).DefaultInterface;
  if (CurWebrowser = TopWebBrowser)  then
    begin
    WebBrowser1DocumentComplete(ASender, pDisp, URL);
    end
  else
  begin
    Document := CurWebrowser.Document;
    WindowName := Document.ParentWindow.Name;
    //ShowMessage(Format('Frame "%s" was loaded', [WindowName]));
  end;
end;

und in WebBrowser1DocumentComplete(ASender, pDisp, URL); arbeite ich die SEite.
Doch da ist JS noch nicht abgearbeitet. Daher meine Frage was mit dem

Zitat:

(FWB.ReadyState = READYSTATE_COMPLETE)

ist.
Wartet er da bis die JS gemacht ist? WOher diese Bool Variable?


Nochwas: Dacht mit sleep(1000) wir alles gewartet auch das Abarbeiten der JS in der Seite. Stimmt das nicht, steht hier:

Zitat:

I had the same problem, and the solution I found is:
this inside it's own form, all it is is a window with text of "Please wait a moment", and because it's showdialog() you freeze all input and code within the thread, but you don't hold up the thread to prevent the loading of the post processed data after documentcompleted is fired.

mfg
Walter