Скачать: 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 вся ветка
Скачать: CL | DM;
Память: 0.45 MB
Время: 0.027 c
kay
2005-11-25 14:39
2005.12.11
Есть non-unicode программа, как её запустить с правильным отображ
6-1125406898
начинающий
2005-08-30 17:01
2005.12.11
Безопасность в Web
2-1132818133
VadimSpb
2005-11-24 10:42
2005.12.11
Проблема запроса
3-1130245819
Sergey13
2005-10-25 17:10
2005.12.11
Ошибка ORA-01467 и как с ней бороться
14-1132407960
nbv
2005-11-19 16:46
2005.12.11
Скрытие кода