Скачать: 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.971 c