Ну, под рукой готового примера нет.
я тут как-то выкладывал архив, где страничка грузилась в TWebBrowser и там внутри что-то искалось. фактически, там получалась ссылка на документ и далее можно лазить по дереву тегов, так же, как и в TXMLDocument.
Вот как получалась ссылка:
Код:
procedure TMainForm.MainWndDownloadComplete(Sender: TObject);
var
Document : IHTMLDocument2;
DocText : String;
begin
If Not FEnableRobot Then Exit;
Document := MainWnd.Document as IHtmlDocument2;
If Document <> Nil Then
Begin
DocText := (Document.all.Item(NULL, 0) as IHTMLElement).OuterHTML;
End;
end;
Здесь просто получается документ в виде текста, но от документа растет коллекция элементов - можно лазить по ней.