Скачать: 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.029 c
solenko
2005-10-27 11:10
2005.12.11
Русский язык в 16-ти разрядном InterBase
4-1129121344
Mamed
2005-10-12 16:49
2005.12.11
Open file
14-1132635587
Экспериментатор
2005-11-22 07:59
2005.12.11
Чем форматировать исходники, чтобы в божий вид привести
14-1132576325
Дмитрий_Б
2005-11-21 15:32
2005.12.11
Хорошее агенство недвижимости.
1-1131610021
Pank83
2005-11-10 11:07
2005.12.11
Назначение OnClick динамически созданному объекту - ПРОДОЛЖЕНИЕ