Скачать: CL | DM;

TWebBrowser   Найти похожие ветки 

← →
Dunkan ©   (2002-10-23 00:33) [0]

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

---

← →
AL2002 ©   (2002-10-23 00:36) [1]

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;

---

← →
AL2002 ©   (2002-10-23 00:54) [2]

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;

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.012 c