Форум: "Основная";
Текущий архив: 2002.11.04;
Скачать: [xml.tar.bz2];
Вниз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 вся ветка
Форум: "Основная";
Текущий архив: 2002.11.04;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.008 c