Prozedur durch Bild-Klick in TWebBrowser aufrufen

[Badeoel]

Hallo,

in meinem Programm würde ich gerne beim Klick auf ein Bild einer HTML-Seite im TWebBrowser eine Delphi-Funktion aufrufen. Ich kann den HTML-Quelltext dabei selbst bestimmen. Ich denke mir auch, dass das irgendwie mit der Funktion "OnCommandStateChange" klappen müsste, finde aber im Netzt einfach keinen Einstiegspunkt. Kann mir jemand einen Tipp geben? Ich wäre echt dankbar :-)

Ciao!

Christian

[chaosben]

Hi Christian ... herzlich Willkommen in der DP! :hi:

Einen Anlaufpunkt im Netz findest du hier.

Um auf den Click auf eine Element zu regieren, brauchst du ein IDispatch. Zum Beipiel so eines. (ja, ein wenig ranzig ist es schon :) )

Delphi-Quellcode:

  TEventObject = class(TInterfacedObject, IDispatch)
    function GetTypeInfoCount(out Count: Integer): HResult; stdcall;
    function GetTypeInfo(Index, LocaleID: Integer; out TypeInfo): HResult; stdcall;
    function GetIDsOfNames(const IID: TGUID; Names: Pointer;
      NameCount, LocaleID: Integer; DispIDs: Pointer): HResult; stdcall;
    function Invoke(DispID: Integer; const IID: TGUID; LocaleID: Integer;
      Flags: Word; var Params; VarResult, ExcepInfo, ArgErr: Pointer): HResult; stdcall;
  end;

  //...

function TEventObject.GetIDsOfNames(const IID: TGUID; Names: Pointer; NameCount,
  LocaleID: Integer; DispIDs: Pointer): HResult;
begin
  Result:=E_NOTIMPL;
end;

function TEventObject.GetTypeInfo(Index, LocaleID: Integer;
  out TypeInfo): HResult;
begin
  Result:=E_NOTIMPL;
end;

function TEventObject.GetTypeInfoCount(out Count: Integer): HResult;
begin
  Result:=E_NOTIMPL;
end;

function TEventObject.Invoke(DispID: Integer; const IID: TGUID;
  LocaleID: Integer; Flags: Word; var Params; VarResult, ExcepInfo,
  ArgErr: Pointer): HResult;
begin
  //Hier kommt unser Event an
end;

Wenn du dann dein IHTMLElement (in deinem Fall dein Bild gefunden hast) kannst du in etwa so vorgehen:

Delphi-Quellcode:

var
  element : IHTMLElement;
  NewEvent : OleVariant;
begin
  NewEvent:=TEventObject.Create as IDispatch;
  element.onclick:=NewEvent;
end;

[Badeoel]

Vielen Dank für den Willkommensgruß und die Dispatch-Anleitung. Mittlerweile habe ich aber einen anderen, ganz einfachen Weg gefunden - so einfach, dass wahrscheinlich deswegen nichts im Internet gefunden habe: I benutze einfach den OnBeforeNavigate2-Event und frage den (speziell gestalteten) Hyperlink ab, den ich unter das Bild gelegt habe - und fertig :-) Manchmal steht man einfach auf dem Schlauch oder hat das RTFM vergessen :-)
Danke trotzdem für die Mühen!

Ciao!

Christian