Перейти к публикации
forum-okna.ru
TorAlex

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

Рекомендованные сообщения

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

 

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

 

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

 

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

 

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

Поделиться сообщением


Ссылка на сообщение
Поделиться на других сайтах

UP

 

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

 

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

52024-147817-1.txt

post-96605-0-98070100-1498709871_thumb.png

Поделиться сообщением


Ссылка на сообщение
Поделиться на других сайтах

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

Поделиться сообщением


Ссылка на сообщение
Поделиться на других сайтах

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

 

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

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

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

 

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

Изменено пользователем TorAlex

Поделиться сообщением


Ссылка на сообщение
Поделиться на других сайтах

Создайте аккаунт или войдите в него для комментирования

Вы должны быть пользователем, чтобы оставить комментарий

Создать аккаунт

Зарегистрируйтесь для получения аккаунта. Это просто!

Зарегистрировать аккаунт

Войти

Уже зарегистрированы? Войдите здесь.

Войти сейчас

  • Сейчас на странице   0 пользователей

    Нет пользователей, просматривающих эту страницу.

×

Важная информация

Условия и правила использования форума Правила.