TWebBrowser, IHTMLDocument2.onkeyup in Delphi ausführen?

[Codehunter]

Hallo!

Ich hab den Gockel schon durchs Netz gescheucht aber einfach nichts dazu gefunden: Gibt es eine Möglichkeit, das JavaScript-DOM-Event document.onkeyup delphiseitig auszuführen?

Um genauer zu sein: Ich habe ein TWebBrowser und darin ein HTML-Document. Den Webbrowser versetze ich in den Editmode. Nun kann der User den Inhalt von document.body.innerHTML beliebig ändern. Ich bräuchte nun nur eine Möglichkeit, delphiseitig auf das Ereignis KeyUp zu reagieren. Bildlich gesprochen: Der User drückt innerhalb des TWebbrowser (im Editmode) eine Taste und mein Delphi-Programm reagiert auf das DOM-Event.

Es gibt ja im IHTMLDocument2 ein Member namens "onkeyup" welches als OleVariant deklariert ist. Kann man da eine Delphi-Prozedur andocken?

Grüße
Cody

[himitsu]

Zitat:

Es gibt ja im IHTMLDocument2 ein Member namens "onkeyup" welches als OleVariant deklariert ist. Kann man da eine Delphi-Prozedur andocken?

Ja?

http://msdn.microsoft.com/en-us/library/aa752618.aspx

[Codehunter]

Ähm ja, gehen wir der Einfachheit halber mal davon aus dass ich die betreffenden MSDN-Seiten wohl kenne aber was Delphi betrifft gerade unter niedrigem Koffeinspiegel leide...

[himitsu]

Wobei ja alles irgendwo schon dasteht:

IDispatch

dispid 0 <<< das erwähnte Default-Event

void HandleEvent(IHTMLEventObj pEvtObj) <<< die vermutliche Event-Signatur


vermutlich so zusammengesetzt?

Delphi-Quellcode:

  IXyz = interface(IDispatch)
    ['{...}']
    procedure HandleEvent(EvtObj: IHTMLEventObj); dispid 0;  // stdcall? :grübel:
  
// oder

  IXyz = dispinterface
    ['{...}']
    procedure HandleEvent(EvtObj: IHTMLEventObj); dispid 0;

Zuweisung:

Delphi-Quellcode:

webbrowser.onkeydown := deineventinterface;

// oder

webbrowser.attachEvent('onkeydown', deineventinterface);

[add]
Ach ja ... google ... http://www.delphimaster.net/view/6-1138639504/all

Ich hoff' russisch ist leichter als englisch.

[Codehunter]

Zitat von himitsu:

Ach ja ... google ... http://www.delphimaster.net/view/6-1138639504/all

Ich hoff' russisch ist leichter als englisch.

Das funktioniert sogar. In meinem Fall habe ich das mit Document.onkeypress gemacht. Nur habe ich ein kleines Problem: Übernehme ich das Beispiel genau so, dann gibts beim Programmende ein Memleak weil das THtmlEvent "EventHandler" nie freigegeben wird. Soweit ja klar. Nur gebe ich das Objekt frei, dann fliegen mir die AVs nur so um die Ohren. Ich vermute mal, ich muss vorher noch die bestehenden Beziehungen zwischen dem IHTMLDocument2 und dem THtmlEvent auflösen. Wenn ich aber Document.onkeypress vor dem Freigeben des "EventHandler" NULL zuweise, kriege ich auch nur eine AV.