Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Сети";
Текущий архив: 2003.03.10;
Скачать: [xml.tar.bz2];

Вниз

Текст из 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;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.55 MB
Время: 0.031 c
1-29808
EdSl
2003-02-24 19:06
2003.03.10
Нужен компонент для перехода по полям с помощью Enter


14-30077
Сатир
2003-02-21 15:21
2003.03.10
Футбол


1-29794
Opera
2003-02-27 16:40
2003.03.10
Копирование


8-29961
Nimda2000
2002-11-29 08:33
2003.03.10
Доступ к avi


1-29814
R
2003-02-27 09:34
2003.03.10
Вопрос о неоднородности скорости работы цикла





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский