PHP DM Gate v0.9 » WebBrowser + Asynchronous Pluggable Protocol + сохранение в mht

rellai (31.10.10 14:33) [0]

Добрвый день!
Использую TWebbrowser и Asynchronous Pluggable Protocol чтобы подгружть html + картинки из бд.
Вот таким способом хочу сохранить страницу открытую в webbrowser сохранит как mht на диске
сохраняю вот так:

procedure TfMain.SaveAs(Wb : TWebBrowser);
var
Msg: IMessage;
Conf: IConfiguration;
Stream: _Stream;
URL : widestring;
begin
if dlgSavehtmlas.execute then
Begin
if dlgSavehtmlas.FilterIndex = 1 then
begin
URL := Wb.LocationURL;
Msg := CoMessage.Create;
Conf := CoConfiguration.Create;
Msg.Configuration := Conf;
Msg.CreateMHTMLBody(URL, cdoSuppressAll, '', '');
Stream := Msg.GetStream;
Stream.SaveToFile(dlgSavehtmlas.FileName, adSaveCreateOverWrite);
end;
End;

end;

но вот на этом этапе
Msg.CreateMHTMLBody(URL, cdoSuppressAll, '', '');
возникает ошибка - он говорит что для сохранепния в mht нужно иметь html текст. Но так как у меня используется Pluggable Protocol то доступ к странице(а ее адрес - имеет вид примерно такой: http://notes/23.html) имеет только Webbrowser

Собственно вопрос, как по другому создать mht файл?

Всем заранее спасибо!

<Цитата>
DimaBr © (01.11.10 08:50) [1]

Внимание! Здесь обсуждаются вопросы, связанные с разработкой компонентов, редакторов свойств, редакторов компонентов и экспертов IDE.
Вопросы по поиску и использованию готовых компонентов, редакторов или экспертов являются нарушением тематики и могут быть удалены.

<Цитата>
sniknik © (01.11.10 09:21) [2]

> хочу сохранить страницу
Wb.ExecWB(OLECMDID_SAVEAS, OLECMDEXECOPT_PROMPTUSER);

<Цитата>
rellai (01.11.10 10:00) [3]

Это я знаю
Но при таком сохранении возникает ошибка, когда сохраняешь страницу как html + картинки
он начинает сохранять файл нпример 1.css не под этим именем, а имя состоит из иероглифов.
ну и опять таки мне бы хотелось иметь свой диалог сохранения.

<Цитата>