JPG и другие картинки в Nav 5.0

[Constantine_imported]

Цитата:

Сообщение от 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"

Может я не в ту сторону копаю. Можете показать пример рабочего кода?