[xside]

Подскажите кто знает или сталкивался с вот такой проблемой:
Вот часть моего кодинга:

Код:

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 словах.
Кто знает в чем недоработка?Или подскажите где можно почитать инфу?

[mskvkin]

В 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' ); //Здесь все сохраняется вставляешь код в обработчик к примеру кнопки и все работает и работает просто круто