TWebBrowser как прочитать содержимое

← →
Apachi (2005-11-21 14:02) [0]

Мастера подскажите пожалуста как прочитать содержимое TWebBrowser после окончания загрузки страницы

← →
mfender © (2005-11-21 14:25) [1]

Смотря какое содержимое. В любом случае, орудовать следует через поле Document.

var IDoc: IHTMLDocument2; browser: TWebBrowser; procedure TForm1.browserNavigateComplete2(Sender: TObject; const pDisp: IDispatch; var URL: OleVariant); begin IDoc := browser.Document as IHTMLDocument2; // DOM showmessage(IDoc.body.innerHTML); // Просто текст между body end;

Как получить весь текст <html>....</html> - честное слово не знаю. Пользуюсь всегда только объектной моделью.

← →
Apachi (2005-11-21 14:30) [2]

Спасибо за ответ
немогу только понять что за тип IHTMLDocument2;
какой модуль надо подключить

← →
wal © (2005-11-21 14:31) [3]

> Как получить весь текст <html>....</html> - честное слово
> не знаю.
Например так:
procedure TPrevForm.btnSaveClick(Sender: TObject); var FS: IStream; SI: IPersistStreamInit; begin if SaveDialog.Execute then try FS := TStreamAdapter.Create(TFileStream.Create(SaveDialog.FileName, fmCreate), soOwned); Browser.Document.QueryInterface(IPersistStreamInit, SI); SI.Save(FS, True); finally SI := nil; FS := nil; end; end;

С уважением

← →
Apachi (2005-11-21 14:32) [4]

ага нашол модуль MSHTML
спасибо буду пробывать

TWebBrowser как прочитать содержимое Найти похожие ветки