Скачать: 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.039 c
ronyn
2005-11-18 00:36
2005.12.11
Инициализация модема (Linux)
14-1132558756
ПЛОВ
2005-11-21 10:39
2005.12.11
Есть тут знатоки С
3-1130404294
Ильичев С.А.
2005-10-27 13:11
2005.12.11
CreateParameter
4-1128667534
Ji
2005-10-07 10:45
2005.12.11
Изменение текста на форме после ее отрисовки
2-1132833023
SamProf
2005-11-24 14:50
2005.12.11
Проблемы при передаче массива в другй модуль