Текущий архив: 2005.12.11;
Скачать: CL | DM;
Вниз
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
спасибо буду пробывать
Страницы: 1 вся ветка
Текущий архив: 2005.12.11;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.042 c
