ExecuteScript

**Andi_j62**

Hallo Zusammen,

ich führe mit execScript ein Javascript aus. Wer weiss wie ich in Delphi eine Variable auslesen kann, die ich im Javascript definiert habe?

Viele Grüße
Andi

**marabu**

Hallo Andi,

laut Dokumentation behandelt execScript() jede JS function wie eine procedure - ein Rückgabewert wird grundsätzlich verworfen. Du kannst also keine JS function schreiben, die dir den Zugriff auf eine Variable gewährt. Allen Bauer zeigt in seinem

Blog, wie er in einem D2007-Projekt JS per COM auf Delphi zugreifen lässt, aber wir beide arbeiten mit D7. Ich habe das bisher nicht gebraucht, aber ich würde mit D7 folgenden Ansatz verfolgen: Aufruf einer JS function, die den gewünschten Wert in einem hidden field ablegt und anschließend Zugriff auf dieses Element per DOM.

Grüße vom marabu

**Andi_j62**

hallo marabu,

danke dür Deinen Hinweis. Werde mal sehen ob ich weiterkomme.

Grüße Andi

**toms**

Hallo

Du kannst die J-Script Funktion via IDispatch.Invoke ausführen und
zuvor die Skript ID per IDispatch.GetIDsOfNames ermitteln.

Dann kann man die Rückgabewerte auslesen.

Referenz msdn:

http://support.microsoft.com/kb/q185127/

Beispiel (in c++)

**marabu**

Hallo Thomas,

danke für diesen Tipp - diesen Weg habe ich irgendwie völlig übersehen:

zusammenfalten · markieren

Delphi-Quellcode:

			unit DemoFrm;

interface

uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, StdCtrls, ExtCtrls, OleCtrls, SHDocVw;

type

  TDemoForm = class(TForm)

    WebBrowser: TWebBrowser;

    Panel: TPanel;

    Button: TButton;

    procedure FormCreate(Sender: TObject);

    procedure ButtonClick(Sender: TObject);

  end;

var

  DemoForm: TDemoForm;

implementation

{$R *.dfm}

uses

  ActiveX,

  MSHTML;

resourcestring

  HTML

    = '<HTML> <HEAD> <TITLE>Evaluate</TITLE> '

    + '<SCRIPT> function evaluate(x) {'

    + '  alert("hello");'

    + '  return eval(42);'

    + '} </SCRIPT> </HEAD> <BODY> TEST </BODY> </HTML>'

    ;

procedure LoadDocument(doc: OleVariant; s: string);

begin

  doc.Clear;

  doc.Write(s);

  doc.Close;

end;

procedure TDemoForm.FormCreate(Sender: TObject);

begin

  WebBrowser.Navigate('about:blank');

  LoadDocument(WebBrowser.Document, HTML);

end;

procedure TDemoForm.ButtonClick(Sender: TObject);

var

  doc: IHTMLDocument2;

  dScript: IDispatch;

  vResult: OleVariant;

  wsMethod: WideString;

  id: TDispId;

  hr: HRESULT;

  params: TDispParams;

begin

  FillChar(params, SizeOf(params), 0);

  doc := WebBrowser.Document as IHTMLDocument2;

  if Assigned(doc) then

  begin

    dScript := doc.Script;

    if Assigned(dScript) then

    begin

      wsMethod := 'evaluate';

      if Succeeded(dScript.GetIDsOfNames(GUID_NULL, @wsMethod, 1, 0, @id)) then

      begin

        dScript.Invoke(id, GUID_NULL, 0, DISPATCH_METHOD, params, @vResult, nil, nil);

        ShowMessage(IntToStr(vResult));

      end;

    end;

  end;

end;

end.

Freundliche Grüße

**API**

Ich möchte eine JS-Funktion ausführen, sobald sie verfügbar ist.

D.h if Succeeded(dScript.GetIDsOfNames(GUID_NULL, @wsMethod, 1, 0, @id)) then gibt True zurück.

Wo am besten soll ich das während des Ladens des Dokuments überprüfen? (Polling oder gibt es ein Event ?)

**API**

*PUSH*

**marabu**

Moin,

natürlich gibt es ein Event: Hier im Forum suchen

OnDocumentComplete solltest du dir mal anschauen.

Grüße vom marabu

**API**

Zitat von marabu:

Moin,

natürlich gibt es ein Event: Hier im Forum suchen

OnDocumentComplete solltest du dir mal anschauen.

Grüße vom marabu

Die Funktion könnte doch aber schon vor dem Event verfügbar sein.
Könnte ich im OnProgress

if Succeeded(dScript.GetIDsOfNames(GUID_NULL, @wsMethod, 1, 0, @id)) laufen lassen und sobal True zurückgegeben wird kann ich auf die Funktion zugreifen?

Hintergrund: Ich lade eine Seite und führe darauf eine JS-Funktion aus.
Ich möchte falls möglich die Funktion vor OnDocumentComplete ausführen um an Performance zu gewinnen.

**marabu**

Ganz klar: Bevor die JS-Funktion nicht in das Document Object Model eingebaut worden ist, kannst du auf sie nicht zugreifen - das ergibt sich bereits aus meinem Beispiel-Code. Nur mit dem Event OnDocumentComplete bist du auf der sicheren Seite, da auch die JS-Funktion auf DOM-Elemente zugreifen könnte, die ja erst vom Parser analysiert sein müssen. Ob ich schon vor dem OnDocumentComplete auf Teile des DOM zugreifen kann, habe ich nie ausprobiert, aber ich vermute, dass WebBrowser.Document erst aktualisiert wird, wenn das neue DOM vollständig aufgebaut ist.

Eine Beschleunigung könnte ich mir vorstellen, wenn der Browser viele Bilder o.ä. nachlädt: Du könntest ihn anweisen das zu unterlassen.

Was sind denn die Eckdaten wie Seitengröße, Übergangszeiten zwischen den ReadyStates, ... ?
Geht es um eine ganz spezielle Seite oder suchst du nach einer allgemeinen Lösung?

ExecuteScript

ExecuteScript

Re: ExecuteScript

Re: ExecuteScript

Re: ExecuteScript

Re: ExecuteScript

Re: ExecuteScript

Re: ExecuteScript

Re: ExecuteScript

Re: ExecuteScript

Re: ExecuteScript

Forumregeln

Andi_j62 Registriert seit: 20. Okt 2003 Ort: Kempten 46 Beiträge Delphi 7 Professional	#1 ExecuteScript 13. Okt 2007, 01:47 Hallo Zusammen, ich führe mit execScript ein Javascript aus. Wer weiss wie ich in Delphi eine Variable auslesen kann, die ich im Javascript definiert habe? Viele Grüße Andi
	Zitat

Andi_j62 Registriert seit: 20. Okt 2003 Ort: Kempten 46 Beiträge Delphi 7 Professional	#3 Re: ExecuteScript 14. Okt 2007, 13:29 hallo marabu, danke dür Deinen Hinweis. Werde mal sehen ob ich weiterkomme. Grüße Andi
	Zitat

toms (CodeLib-Manager) Registriert seit: 10. Jun 2002 4.648 Beiträge Delphi XE Professional	#4 Re: ExecuteScript 14. Okt 2007, 15:56 Hallo Du kannst die J-Script Funktion via IDispatch.Invoke ausführen und zuvor die Skript ID per IDispatch.GetIDsOfNames ermitteln. Dann kann man die Rückgabewerte auslesen. Referenz msdn: http://support.microsoft.com/kb/q185127/ Beispiel (in c++) Thomas
	Zitat

API Registriert seit: 18. Apr 2004 637 Beiträge	#6 Re: ExecuteScript 4. Feb 2008, 10:16 Ich möchte eine JS-Funktion ausführen, sobald sie verfügbar ist. D.h if Succeeded(dScript.GetIDsOfNames(GUID_NULL, @wsMethod, 1, 0, @id)) then gibt True zurück. Wo am besten soll ich das während des Ladens des Dokuments überprüfen? (Polling oder gibt es ein Event ?)
	Zitat

API Registriert seit: 18. Apr 2004 637 Beiträge	#7 Re: ExecuteScript 9. Feb 2008, 13:29 PUSH
	Zitat

marabu Registriert seit: 6. Apr 2005 10.109 Beiträge	#8 Re: ExecuteScript 10. Feb 2008, 09:10 Moin, natürlich gibt es ein Event: OnDocumentComplete solltest du dir mal anschauen. Grüße vom marabu
	Zitat