| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Текст из TWebBrowser в файл? [D6, Win95/98, WinME, Win2k, WinXP]
Programist21 © (2003-01-19 18:31:00)Весь вопрос заключается в этом. (См. тему). Пытался в Инете что-то найти. Советуют вот такое (с 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;
Но к сожалению, у меня это не работает, а поправить не удаётся :(.
int64 (2003-01-21 00:37:00) [1](WebBrowser1.Document as IPersistFile).Save(StringToOleStr("c:\1.htm"), False);
Programist21 (2003-01-20 23:17:00) [2]Ну нефига!!! Тоже самое, но не работает :(((
Ошибка:
Stream := TStreamAdapter.Create(FileStream, soReference) as IStream;
SaveResult := PersistStream.Save(Stream, True);
Посоветуйте ещё чё-нить???
Song (2003-01-19 20:36:00) [3]http://www.sources.ru/delphi/internet/save_html_source_to_disk.shtml
| |
