| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

TWebBrowser как прочитать содержимое [D7]

Apachi ©   (2005-11-21 14:02:00) 

Мастера подскажите пожалуста как прочитать содержимое TWebBrowser после окончания загрузки страницы

---

Apachi   (2005-11-21 14:32:00) [1]

ага нашол модуль MSHTML
спасибо буду пробывать

---

wal   (2005-11-21 14:31:00) [2]

> Как получить весь текст <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:30:00) [3]

Спасибо за ответ
немогу только понять что за тип IHTMLDocument2;
какой модуль надо подключить

---

mfender   (2005-11-21 14:25:00) [4]

Смотря какое содержимое. В любом случае, орудовать следует через поле 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> - честное слово не знаю. Пользуюсь всегда только объектной моделью.

---

Наверх