Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.03.10;
Скачать: CL | DM;

Вниз

Текст из TWebBrowser в файл?   Найти похожие ветки 

 
Programist21   (2003-01-19 18:31) [0]

Весь вопрос заключается в этом. (См. тему). Пытался в Инете что-то найти. Советуют вот такое (с uses ActiveX;):

procedure SaveHTML(const FileName: string;
WB: TWebBrowser);
var
PersistStream: IPersistStreamInit;
FileStream: TFileStream;
Stream: IStream;
SaveResult: HRESULT;
begin
PersistStream := WB.Document as IPersistStreamInit;
FileStream := TFileStream.Create(FileName, fmCreate);
try
Stream := TStreamAdapter.Create(FileStream, soReference) as IStream;
SaveResult := PersistStream.Save(Stream, True);
if FAILED(SaveResult) then
ShowMessage("Fail to save HTML source");
finally
FileStream.Free;
end;
end;

Но к сожалению, у меня это не работает, а поправить не удаётся :(.


 
Song ©   (2003-01-19 20:36) [1]

http://www.sources.ru/delphi/internet/save_html_source_to_disk.shtml


 
Programist21   (2003-01-20 23:17) [2]

Ну нефига!!! Тоже самое, но не работает :(((
Ошибка:
Stream := TStreamAdapter.Create(FileStream, soReference) as IStream;
SaveResult := PersistStream.Save(Stream, True);

Посоветуйте ещё чё-нить???


 
int64 ©   (2003-01-21 00:37) [3]

(WebBrowser1.Document as IPersistFile).Save(StringToOleStr("c:\1.htm"), False);



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

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

Наверх




Память: 0.47 MB
Время: 0.02 c
14-30089
Igorek
2003-02-20 17:13
2003.03.10
Дока по CM_* сообщениям


14-30127
котенок
2003-02-23 10:06
2003.03.10
С праздником вас парни . а то кто кроме меня поздравит ;)))))))))


1-29906
Helg
2003-02-26 19:44
2003.03.10
Проблемы с математикой


3-29702
Alex Chu
2003-02-18 14:42
2003.03.10
Может ли кто помочь с триггером?


9-29689
kirushka
2002-10-09 18:38
2003.03.10
3D-графика в Delphi