AltAWin экспорт эскизов изделий

[TorAlex]

Приветствую, форумчане.

 

Интересует успешный опыт экспорта эскизов изделий из Альты.

 

Идея следующая: получить эскизы заказа (по модельно с размерами) на диске, кто сталкивался, как решали?

 

P.S. Извлечение из базы (таб. orderitems) картинки (поле THUMBS) не устраивает по качеству изображения.

 

Попытка через скрип процедурой "CreateModelImageFile" не увенчалась успехом (( ругается на кол параметров

[TorAlex]

UP

 

Поле "THUMBS" содержит "сжатое/шифрованное" содержимое модели позиции. xml файл.

 

По координатам "балок" можно построить эскиз.

52024-147817-1.txt

[Оконный Мастер]

Я создал отчет с нужным мне рисунком в 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.

[TorAlex]

Допустил неточность. Поле "THUMBS" содержит эскиз для предпросмотра.

 

Данные модели "сжаты" в поле PACKINFO.

Как вариант, можно использовать отчет.

Сделал немножко по другому, эскизы по модельно с размерными линиями, выгружаются через отчет.

 

Эскизы использую для "своего" варианта безбумажки. Но есть нюанс , отчет приходится запускать ручками, совместили с отчетом КП, при распечатке КП клиенту эскизы скидываются на диск.

Изменено 13 декабря, 2017 пользователем TorAlex