IHTMLDocument3. Отлов событий.

[Stilet]

Всем доброго. Необходимо обработать события, которые производит webBrowser в окне моей программы. Для этого определил интерфейс-ловец событий:

webBrowser2.Document.QueryInterface(IID_IHTMLDocument3, doc3);

Далее назначил ловцу событие:

doc3.attachEvent('onclick',idispOnClick);

idispOnClick - интерфейс, который будет ловить.
После чего каждый клик по любому элементу вызывает метод этого интерфейса:

function TWebBrowserEventOnClick.Invoke(DispID: LongInt; const iid: TGUID;
  LocaleID: longint; Flags: Word; var params; VarResult, ExcepInfo,
  ArgErr: pointer): HResult; stdcall;
begin
  
  Result := S_OK;
end;

Все красиво. Событие срабатывает как полагается, но я чет потерялся. Не могу понять как в этом методе понять какой элемент вызвал событие клика. Т.е. по факту я хочу получить название тега, на который кликнул.

Подскажите как дальше работать с событием таким.
пока что рою MSDN, но вдруг кто быстренько подтолкнет в нужную сторону - буду благодарен

[waleri]

Там же передается массив с аргументами - скорее всего там в варианте закатан IDispatch event объекта, у которого можно вопрошать что к чему.

https://msdn.microsoft.com/en-us/lib...(v=vs.85).aspx

Сам такого не делал, так что все на уровне предположений

[Stilet]

Я вот до такого топетрав:
1) В том методе получаю окошко: htmlwnd:=IHTMLWindow2(ihtm.parentWi ndow)
2) Потом получаю текущее событие: ev:=IHTMLEventObj(htmlwnd.Get_event );
Ну и дело оказывается в шляпе.
ev.srcElement дает элемент, который вызвал событие, а у него уже есть свойства tagName, id и так далее.

Вот как оформил:

procedure OnEventProc;
var ev:IHTMLEventObj; evrec:TIExplorerEventRecord;
  htmlwnd:IHTMLWindow2;
  evelement:IHTMLElement;
begin
   if Assigned(IEMems.MyIE.OnEvent) then begin
    htmlwnd:=IEMems.ihtm.parentWindow;
    ev:=htmlwnd.Get_event;
    if ev<>nil then begin

      evelement:=ev.srcElement;
      evrec.eventName:=ev.type_;
      if evelement<>nil then begin
        evrec.Tag:=evelement.tagName;
        evrec.ID:=evelement.id;
        evrec.code:=VarToStr(evelement.getAttribute('if'+evrec.eventName,2));
        evrec.X:=ev.x;
        evrec.Y:=ev.y;
        evrec.KeyPressedCode:=ev.keyCode;
        evrec.KeyPressedChar:=Utf8ToAnsi(chr(evrec.KeyPressedCode));
        evrec.MouseButton:=ev.button;
      end else begin
        evrec.Tag:='';
        evrec.ID:='';
        evrec.code:='';
        evrec.KeyPressedChar:=#0;
        evrec.KeyPressedCode:=0;
        evrec.X:=-1;
        evrec.Y:=-1;
        evrec.MouseButton:=-2;
      end;
      if evrec.code<>'' then
         IEMems.MyIE.OnEvent(IEMems.MyIE,evrec);
    end;
   end;
end;

Где:
ihtm: IHTMLDocument2; заранее полученный следующим кодом:

webBrowser2.Document.QueryInterface(IID_IHTMLDocument2, ihtm);

Ее в тот метод и поместил.

evrec - это запись, куда я складываю нужные мне параметры событий.
Пока все красиво, только вот надо еще разобраться с механизмом срабатывания этих событий в бравзере. Плаваю я еще в этом деле.

А вскоре пополню тему о своем ЯВУ новой версией, у которой прикручен IE в качестве GUI, и сам интерпретатор в качестве скриптового двига.