Jak wiadomo dostęp do uchwytów w TWebBrowser jest niemożliwy. W artykule TWebBrowser i przyjaciele jest procedura która znajduje wszystkie linki w WebBrowser.
for a := 0 to WebBrowser.OleObject.Document.Links.Length-1 do
s:=s+(WebBrowser.OleObject.Document.Links.Item(a).href)+#13;
Result:=s;
A jak znalejsc liste wszystkich elementów w WebBrowser? Przegladajac google i 4programmers natknalem sie na taka funkcje, ktora moglbaby byc pomocna, jednak nie wiem jak ją przepisać na delphi.
private void Pokaz()
{
HtmlElementCollection kolekcja = null;
kolekcja = WebBr.Document.All;
string sWynik = "";
foreach (HtmlElement element in kolekcja)
{
if (element.Id != null && element.Id.Trim() != "")
{
sWynik += element.Id + "\t\n";
}
}
MessageBox.Show(sWynik);
}