Форум по Delphi программированию

Delphi Sources



Вернуться   Форум по Delphi программированию > Все о Delphi > Интернет и сети
Ник
Пароль
Регистрация <<         Правила форума         >> FAQ Пользователи Календарь Поиск Сообщения за сегодня Все разделы прочитаны

Ответ
 
Опции темы Поиск в этой теме Опции просмотра
  #1  
Старый 19.08.2008, 12:04
xside xside вне форума
Прохожий
 
Регистрация: 19.08.2008
Сообщения: 1
Репутация: 10
Лампочка Сохранение содержимого WebBrowser без диалогового окна

Подскажите кто знает или сталкивался с вот такой проблемой:
Вот часть моего кодинга:
Код:
procedure TForm1.Button4Click(Sender: TObject);
var
FileName : OleVariant;
begin
FileName := 'C:/Temp/abc.html';
try
WebBrowser1.ExecWB(OLECMDID_SAVE,OLECMDEXECOPT_DONTPROMPTUSER, FileName);
except;
end;
Меня интересует процедура ExecWB и ее параметр сохранение по параметру filename.как я понял это единственная процедура с помощью которой можно не прилагая больших усилий в написании мудренного кода сохранить все содержимое окна WebBrowser(т.е. картинки,текст и прочую лабуду).
Суть этого кода в сохранении содержимого окна WebBrowser без диалогового окна на диск "C:\" в папку "Temp" под именем "abc.html".
Из всех источников найденных мною,про процедуру ExecWB рассказано в 2 словах.
Кто знает в чем недоработка?Или подскажите где можно почитать инфу?

Последний раз редактировалось Admin, 10.09.2008 в 21:17.
Ответить с цитированием
  #2  
Старый 06.09.2008, 22:05
mskvkin mskvkin вне форума
Новичок
 
Регистрация: 31.08.2008
Сообщения: 99
Репутация: 10
Восклицание Вот как ндо это сделать

В uses подключи ActiveX
Код:
var
  EditFile: string;//сюда я присваивал имя дока

//Выполняем функцию для сохранения измененного текста
function WB_SaveHTMLCode(WebBrowser: TWebBrowser; const FileName: TFileName): Boolean;
var
ps: IPersistStreamInit;
fs: TFileStream;
sa: IStream;
begin
ps := WebBrowser.Document as IPersistStreamInit;
fs := TFileStream.Create(FileName, fmCreate);
try
sa := TStreamAdapter.Create(fs, soReference) as IStream;
Result := Succeeded(ps.Save(sa, True));
finally
fs.Free;
end;
end;

WB_SaveHTMLCode(Webbrowser1,getcurrentdir+'\TempFi le\~listpreview~.html' ); //Здесь все сохраняется вставляешь код в обработчик к примеру кнопки и все работает и работает просто круто

Последний раз редактировалось Admin, 10.09.2008 в 21:17.
Ответить с цитированием
Ответ


Delphi Sources

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск
Опции просмотра

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB-коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход


Часовой пояс GMT +3, время: 10:26.


 

Сайт

Форум

FAQ

Соглашения

Прочее

 

Copyright © Форум "Delphi Sources" by BrokenByte Software, 2004-2025