A mellékelt alkalmazás indulásakor a mappában található Test.htm állományt töltjük be a TWebBrowser komponensbe, melynek felületén egy szövegbeviteli kontrol, és egy SUBMIT nyomógomb található. A lap betöltődésekor meghívódik az alert metódus, így értesülhetünk a lap újratöltéséről is.
A lap betöltését a komponens Navigate2 metódusával végezzük el.
Url := ExtractFilePath(Application.ExeName) + 'Test.htm';
WebBrowser1.Navigate2(Url, Flags, TargetFrameName, PostData, Headers);
Az alkalmazás MŰVELET gombjára kattintva érhetjük el, hogy a Weblap nyomógombja kvázi megnyomódjon, vagyis a lap a képzeletbeli szerver-oldalra eljusson.
A művelet érdekében létre kell hoznunk az adott HTML lap Document objektumát. Ezt a következő kóddal tehetjük meg:
WebBrowser1.ControlInterface.Document.QueryInterface(IHtmlDocument2, doc);
Amennyiben ez nem sikerül, akkor kilépünk a függvényből. A következő lépés, hogy lekérdezzük az összes INPUT HTML elemet. Jól tudjuk, hogy a szövegmezők egy része, és a nyomógombok is részei ennek a csoportnak.
ov := 'INPUT';
disp := doc.all.tags(ov);
...
disp.QueryInterface(IHTMLElementCollection, collection);
Egy ciklussal megyünk végig ezen a kollekción. Minden elemhez létrehozunk egy objektumot, hogy a Name property-jét elérjük.
for i := 1 to collection.Get_length do begin
disp := collection.item(pred(i), 0);
disp.QueryInterface(HTMLInputImage, inputelement);
Ha az objektum létrehozása sikerült, akkor lekérdezzük a tag nevét. Amennyiben ez a karakterlánc azonos a SUBMIT karakterlánccal, vagyis a HTML elem ilyen típusú, akkor meghívjuk az objektum Click metódusát.
if Assigned(inputelement) then begin
if inputelement.Name = 'submit' then begin
inputelement.Click;
end;
...
A művelet eredményeképpen a weblap ismét betöltődik, és a BODY elemben megvalósított üzenetablak-megjelenítés ismételten lefut.