AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Programmierung allgemein Win32/Win64 API (native code) Delphi TWebBrowser, IHTMLDocument2.onkeyup in Delphi ausführen?

TWebBrowser, IHTMLDocument2.onkeyup in Delphi ausführen?

Ein Thema von Codehunter · begonnen am 20. Feb 2014 · letzter Beitrag vom 24. Feb 2014
Antwort Antwort
Benutzerbild von Codehunter
Codehunter

Registriert seit: 3. Jun 2003
Ort: Thüringen
2.235 Beiträge
 
Delphi 10.4 Sydney
 
#1

TWebBrowser, IHTMLDocument2.onkeyup in Delphi ausführen?

  Alt 20. Feb 2014, 15:22
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
Ich mache grundsätzlich keine Screenshots. Schießen auf Bildschirme gibt nämlich hässliche Pixelfehler und schadet der Gesundheit vom Kollegen gegenüber. I und E zu vertauschen hätte den selben negativen Effekt, würde aber eher dem Betriebsklima schaden
  Mit Zitat antworten Zitat
Benutzerbild von himitsu
himitsu

Registriert seit: 11. Okt 2003
Ort: Elbflorenz
38.709 Beiträge
 
Delphi 10.4 Sydney
 
#2

AW: TWebBrowser, IHTMLDocument2.onkeyup in Delphi ausführen?

  Alt 20. Feb 2014, 15:34
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
Garbage Collector ... Delphianer erzeugen keinen Müll, also brauchen sie auch keinen Müllsucher.
Delphi-Tage 2005-2014
  Mit Zitat antworten Zitat
Benutzerbild von Codehunter
Codehunter

Registriert seit: 3. Jun 2003
Ort: Thüringen
2.235 Beiträge
 
Delphi 10.4 Sydney
 
#3

AW: TWebBrowser, IHTMLDocument2.onkeyup in Delphi ausführen?

  Alt 20. Feb 2014, 15:43
Ä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...
Ich mache grundsätzlich keine Screenshots. Schießen auf Bildschirme gibt nämlich hässliche Pixelfehler und schadet der Gesundheit vom Kollegen gegenüber. I und E zu vertauschen hätte den selben negativen Effekt, würde aber eher dem Betriebsklima schaden
  Mit Zitat antworten Zitat
Benutzerbild von himitsu
himitsu

Registriert seit: 11. Okt 2003
Ort: Elbflorenz
38.709 Beiträge
 
Delphi 10.4 Sydney
 
#4

AW: TWebBrowser, IHTMLDocument2.onkeyup in Delphi ausführen?

  Alt 20. Feb 2014, 15:57
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.
Garbage Collector ... Delphianer erzeugen keinen Müll, also brauchen sie auch keinen Müllsucher.
Delphi-Tage 2005-2014

Geändert von himitsu (20. Feb 2014 um 16:06 Uhr)
  Mit Zitat antworten Zitat
Benutzerbild von Codehunter
Codehunter

Registriert seit: 3. Jun 2003
Ort: Thüringen
2.235 Beiträge
 
Delphi 10.4 Sydney
 
#5

AW: TWebBrowser, IHTMLDocument2.onkeyup in Delphi ausführen?

  Alt 24. Feb 2014, 14:10
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.
Ich mache grundsätzlich keine Screenshots. Schießen auf Bildschirme gibt nämlich hässliche Pixelfehler und schadet der Gesundheit vom Kollegen gegenüber. I und E zu vertauschen hätte den selben negativen Effekt, würde aber eher dem Betriebsklima schaden
  Mit Zitat antworten Zitat
Themen-Optionen Thema durchsuchen
Thema durchsuchen:

Erweiterte Suche
Ansicht

Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 18:57 Uhr.
Powered by vBulletin® Copyright ©2000 - 2021, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2021 by Daniel R. Wolf