Delphindo on WordPress

Konstruktor melakukan inisialisasi event sink.

constructor TForm1.Create(AOWner: TComponent);
begin
  inherited;
  eventSink:=TEventSink.Create;
  eventSink.WebBrowser:=WebBrowser1;
  eventSink.OnClick:=AnchorClick;
end;

Perhatikan, karena elemen-elemen baru dapat diakses setelah semua dokumen telah selesai didownload, maka kita harus memproses elemen-elemen di DocumentComplete browser.

procedure TForm1.WebBrowser1DocumentComplete(Sender: TObject;
  const pDisp: IDispatch; var URL: OleVariant);
var doc:IHTMLDocument;
    doc2:IHTMLDocument2;
    i:integer;

    anchors:IHTMLElementCollection;
    anchor:IHTMLElement;
begin
  if WebBrowser1.Document<>nil then
  begin
    WebBrowser1.Document.QueryInterface(IHTMLDocument,doc);
    if doc<>nil then
    begin
      doc.QueryInterface(IHTMLDocument2,doc2);
      if doc2<>nil then
      begin
        anchors:=GetAllAnchors(doc2);
        //proses tiap link yang ada
        for i:=0 to anchors.length-1 do
        begin
          anchor:=anchors.item(i,0) as IHTMLElement;
          ConnectEvSink(anchor,DIID_HTMLAnchorEvents,eventSink);
        end;
      end;
    end;
  end;
end;

Fungsi GetAllAnchors(), dideklarasikan di unit uhtml_utility.pas, mengambil semua link yang ada pada dokumen HTML. untuk Tiap-tiap elemen, kita daftarkan evnt sink kita sehingga kita akan diberitahu melalui Invoke() ketika terjadi event pada elemen-elemen ini.

Mendapatkan Elemen Yang Menghasilkan Event

Kode Invoke() diatas, tidak mampu memberitahukan elemen apa yang menghasilkan sebuah event. Lalu bagaimana?

Interface IHTMLWindow2 memiliki property event yang mewakili event yang sedang digenerate saat ini. Dari property ini lah kita dapat mengetahui elemen apa yang menghasilkan event, melalui property src_Element milik event.
Selain itu event memiliki sebuah property bernama returnValue yang dapat kita pergunakan untuk menjalankan/membatalkan aksi default sebuah elemen.

Lalu bagaimana mendapatkan interface IHTMLWindow2? Jawabannya adalah melalui IHTMLDocument2.parentWindow.

Berikut ini adalah Invoke() yang telah diperbarui:

function TEventSink.Invoke(DispID: Integer; const IID: TGUID;
  LocaleID: Integer; Flags: Word; var Params;
  VarResult, ExcepInfo,
  ArgErr: Pointer): HResult;
var cancel:boolean;
begin
  case dispID of
    -600:begin
           if Assigned(FOnClick) then
           begin
             cancel:=false;
             elemen:=nil;
             if FWebBrowser<>nil and
                FWebBrowser.Document<>nil then
             begin
                doc:=FWebBrowser.Document as IHTMLDocument2;
                window:=doc.parentWindow;
               if (window<>nil)  and
                (window.event<>nil) then
                elemen:=window.event.src_Element;
             end;
             FOnClick(self,nil,cancel);
             if (window<>nil)  and
              (window.event<>nil) then
              window.event.returnValue:=cancel;
           end;
         end;
  end;
  result:=S_OK;
end;

Kita ubah AnchorClick sehingga tiap kali link diklik, URL-nya ditampilkan juga.

procedure TForm1.AnchorClick(Sender:TObject;
                     Element:IHTMLElement;
                     var cancel:boolean);
var anchor:IHTMLAnchorElement;
    url:wideString;
begin
  if element<>nil then
  begin
    anchor:=element as IHTMLAnchorElement;
    url:='URL='+anchor.href;
  end else
    url:='';
  ShowMessage('Link diklik.'+url);
  //batalkan aksi defaultnya
  cancel:=true;
end;