Показать сообщение отдельно
  #4  
Старый 14.01.2009, 18:09
lmikle lmikle вне форума
Модератор
 
Регистрация: 17.04.2008
Сообщения: 8,088
Версия Delphi: 7, XE3, 10.2
Репутация: 49089
По умолчанию

Ну, под рукой готового примера нет.
я тут как-то выкладывал архив, где страничка грузилась в 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;

Здесь просто получается документ в виде текста, но от документа растет коллекция элементов - можно лазить по ней.
Ответить с цитированием