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

[rmv]

Тема старая и давно забытая, хотя помаятся пришлось... Вот пример рабочего кода, что и почему - щас уже не скажу /


ConvertImage(lFormat : 'wiaFormatBMP,wiaFormatPNG,wiaFormatGIF,wiaFormatJPEG,wiaFormatTIFF')
//rmv_100506_$13111+
CLEAR(wiaImageProcess);
CREATE(wiaImageProcess);


lVariant:='Convert';
wiaFilterInfos:=wiaImageProcess.FilterInfos;
wiaFilterInfo:=wiaFilterInfos.Item(lVariant);
wiaImageProcess.Filters.Add(wiaFilterInfo.FilterID);


ОбманConvertImage;//rmv_100609_$13279+
//rmv_100609_$13279- //wiaPropertyGUID:=wiaImageProcess.Filters.Item(1).Properties.Item(lName);
//lVariant:=wiaFormatIDEnum(lFormat);
wiaPropertyGUID.Value:=wiaFormatIDEnum(lFormat); //rmv_100609_$13279+



wiaImage:= wiaImageProcess.Apply(wiaImage);

wiaFormatIDEnum(lOption : 'wiaFormatBMP,wiaFormatPNG,wiaFormatGIF,wiaFormatJPEG,wiaFormatTIFF') : Text[50]
CASE lOption OF
lOption::wiaFormatBMP:
EXIT('{B96B3CAB-0728-11D3-9D7B-0000F81EF32E}');
lOption::wiaFormatPNG:
EXIT('{B96B3CAF-0728-11D3-9D7B-0000F81EF32E}');
lOption::wiaFormatGIF:
EXIT('{B96B3CB0-0728-11D3-9D7B-0000F81EF32E}');
lOption::wiaFormatJPEG:
EXIT('{B96B3CAE-0728-11D3-9D7B-0000F81EF32E}');
lOption::wiaFormatTIFF:
EXIT('{B96B3CB1-0728-11D3-9D7B-0000F81EF32E}');
END;

ОбманConvertImage()
//rmv_100609_$13279+
lName:='FormatID';
wiaPropertyGUID:=wiaImageProcess.Filters.Item(1).Properties.Item(lName);