![]() |
|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
![]() |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
![]() Подскажите кто знает или сталкивался с вот такой проблемой:
Вот часть моего кодинга: Код:
procedure TForm1.Button4Click(Sender: TObject); var FileName : OleVariant; begin FileName := 'C:/Temp/abc.html'; try WebBrowser1.ExecWB(OLECMDID_SAVE,OLECMDEXECOPT_DONTPROMPTUSER, FileName); except; end; Суть этого кода в сохранении содержимого окна WebBrowser без диалогового окна на диск "C:\" в папку "Temp" под именем "abc.html". Из всех источников найденных мною,про процедуру ExecWB рассказано в 2 словах. Кто знает в чем недоработка?Или подскажите где можно почитать инфу? Последний раз редактировалось Admin, 10.09.2008 в 21:17. |
#2
|
|||
|
|||
![]() В 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. |