Форум: "Сети";
Текущий архив: 2004.06.27;
Скачать: [xml.tar.bz2];
Внизsave html as txt Найти похожие ветки
← →
John (2004-05-02 13:44) [0]Как сделать чтобы после проверки на обновление html страница сохранялась as TextFile у меня на диске.
← →
Rouse_ © (2004-05-02 16:13) [1]
uses
ActiveX, MSHTML_TLB, SHDocVw_TLB,
ComCtrls, OleCtrls;
procedure TForm1.Button1Click(Sender: TObject);
var
HTMLDocument: IHTMLDocument2;
PersistFile: IPersistFile;
begin
HTMLDocument := WebBrowser1.Document as IHTMLDocument2;
PersistFile := HTMLDocument as IPersistFile;
PersistFile.Save(StringToOleStr("c:\SavedFile.html"), System.True);
end;
← →
John (2004-05-02 17:14) [2]Вы конечно извините, но я ничего не понял. Я еще новичок и застопорился на этом месте.
Можно ли это сделать, попроще без Webbrouser"a, например ввожу в edit1 www.site.com/page.html, нажимаю на button1 и page.html сохраняется на диске в текстовом формате(например c:\page.txt)т.е. без тэгов, как в IE file>save_as>text.
← →
Rouse_ © (2004-05-02 20:19) [3]
procedure TForm1.Button1Click(Sender: TObject);
var
S: TFileStream;
begin
S := TFileStream.Create("c:\ya.txt", fmCreate);
try
IdHTTP1.Get("http://www.ya.ru", S);
finally
S.Free;
end;
end;
Это сохранит все, ну а дальше парсери...
Страницы: 1 вся ветка
Форум: "Сети";
Текущий архив: 2004.06.27;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.057 c