Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.11.04;
Скачать: 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 вся ветка

Текущий архив: 2002.11.04;
Скачать: CL | DM;

Наверх




Память: 0.46 MB
Время: 0.016 c
4-11559
Star
2002-09-22 22:57
2002.11.04
Как программно нажать и удерживать клавишу Ctrl ?


1-11325
BillyJeans
2002-10-23 15:26
2002.11.04
Не хочу её больше видеть!


14-11412
Svin
2002-10-14 13:32
2002.11.04
Знакомства


1-11232
AL2002
2002-10-25 11:07
2002.11.04
ListBox. Его размер, когда разворачиваем.


3-11099
nick-from
2002-10-15 19:11
2002.11.04
Добавление новых данных