Я создал отчет с нужным мне рисунком в altAwin 2.6.7.44 и выгружаю его скриптом так:
uses 'sCreatePathToFilePicture';
var
StringStream: TStringStream;
FileStream: TFileStream;
FilePath: string;
JPGQuality,JPGResolution:Integer;
procedure pEP_Model (modelid: integer; dicExport: IcmDictionary; PostFix:string);
begin
JPGQuality:=dicExport.Value['JPGQuality'];
JPGResolution:=dicExport.Value['JPGResolution'];
FilePath:=fCreatePathToFilePicture(modelid) + IntToStr(modelid) + '_' + PostFix + '.jpg';
StringStream := TStringStream.Create(QueryField('select REPORTBLOB from REPORTTEMPLATESLINK where REPORTNAME=''ExportPicturesToElement'''));
try
FileStream := TFileStream.Create(FilePath, fmCreate);
try
FastReportExportToJPG(CreateIcmStreamAdapter(StringStream), CreateIcmStreamAdapter(FileStream), dicExport, JPGQuality, JPGResolution);
finally
FileStream.Free;
end;
finally
StringStream.Free;
end;
end;
На вход процедуры нужно подать параметры, modelid, размеры рисунка и т.п.
CreateModelImageFile плохо работает. Но если altAwin версии ниже 2.6.7.44, то вариантов немного, есть еще SaveThumbnailEx, SaveThumbnail.