Цитата:
Сообщение от
rmv
Прикрутил 'Microsoft Windows Image Acquisition Library v2.0' в bmp конвертирую налету
Хоть тема и старая, но попробую спросить. А как вы с помощью WIA конвертируете файлы? Приведенный в справке Microsoft код не удается прикрутить к Navision:
Код:
Dim Img 'As ImageFile
Dim IP 'As ImageProcess
Set Img = CreateObject("WIA.ImageFile")
Set IP = CreateObject("WIA.ImageProcess")
Img.LoadFile "C:\WINDOWS\Web\Wallpaper\Bliss.bmp"
IP.Filters.Add IP.FilterInfos("Convert").FilterID
IP.Filters(1).Properties("FormatID").Value = wiaFormatJPEG
IP.Filters(1).Properties("Quality").Value = 5
Set Img = IP.Apply(Img)
Img.SaveFile "C:\WINDOWS\Web\Wallpaper\BlissCompressed.jpg"Может я не в ту сторону копаю. Можете показать пример рабочего кода?