Поскажите как из хтмл файла лежащего на харде сделать mht с картинками
Везде лежит один и тот же код, но он сохраняет только страничку
| Код |
procedure SaveURLasMHT(const url: String; const fileName: String);
var
imsg: IMessage;
iconf: IConfiguration;
stream: _Stream;
begin
imsg := CoMessage.Create;
iconf := CoConfiguration.Create;
try
imsg.Configuration := iconf;
imsg.CreateMHTMLBody(url,cdoSuppressAll,'','');
stream := imsg.GetStream;
stream.SaveToFile(fileName, adSaveCreateOverWrite);
finally
imsg := nil;
iconf := nil;
stream := nil;
end;
end;
|
|