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

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

TWebBrowser [D5, D6, Win95/98, Win2k]

Dunkan ©   (2002-10-23 00:33:00) 

как в TWebBrowser сохранить исходник загруженного в него файла???

---

AL2002   (2002-10-23 00:54:00) [1]

procedure TForm1.WebBrowser1DocumentComplete(Sender: TObject;
const pDisp: IDispatch; var URL: OleVariant);
var I2: IHTMLDocument2;
begin
WebBrowser1.Document.QueryInterface(IHTMLDocument2, I2);
Memo1.Lines.Text:=I2.body.outerHTML;
end;

---

AL2002   (2002-10-23 00:36:00) [2]

var
HTMLDocument: IHTMLDocument2;
PersistFile: IPersistFile;
begin
...
HTMLDocument := WebBrowser1.Document as IHTMLDocument2;
PersistFile := HTMLDocument as IPersistFile;
PersistFile.Save(StringToOleStr("test.htm"), True);

while HTMLDocument.readyState <> "complete" do
Application.ProcessMessages;
...
end;

---

Наверх