Печать Qrcode

maldalik

Стоит задача сгенерировать и напечатать пачку Qr-кодов, и если с генерацией все ок, то все попытки засунуть в FastReport провалились.
Последняя попытка была сгенерировать массив и через пользовательский набор данных пихать в переменные на OngetValue, но тут тупик, если для мемо можно задать text [имя переменной], то для picture я не смог найти.
Еще были идеи OnBeforePrint обрабатывать, но тогда везде первый QRCOde идет.

Компонента в теме (https://www.fastreport.ru/ru/forum/index.php?showtopic=8833&st=15&gopid=36226&#entry36226) тоже пока нерабочая.
Может кто подскажет как? Delphi XE3 и FastReport 4.0 соответственно.

gpi

написал:

Еще были идеи OnBeforePrint обрабатывать, но тогда везде первый QRCOde идет.

Должно работать. Вычисляйте выражение с помощью TfrxReport.Calc, формируйте штрихкод и передавайте сформированный штрихкод в TfrxPictureView

maldalik

gpi написал: »

Должно работать. Вычисляйте выражение с помощью TfrxReport.Calc, формируйте штрихкод и передавайте сформированный штрихкод в TfrxPictureView

А можно чуть подробнее или пример какой? Как я понимаю основная проблема
получить значение строки для кода, я делал так
StrAccount:=repdataset.DataSource.DataSet.FieldByName('Account').AsString; // получаем из датасета строку с параметрами
GetQR(StrAccount);// формируем qrCode
TfrxPictureView(frxReport1.FindObject('Picture1')).Picture:=image1.Picture; // присваиваем qrcode в поле
но по ходу датасет еще не двигается в этот момент.
что надо забросить в calc?

gpi

if Sender.Name = 'Picture1' then
  StrAccount := frxReport1.Calc('<YourDatasetName."Account">');
...

maldalik

gpi написал: »

if Sender.Name = 'Picture1' then
  StrAccount := frxReport1.Calc('<YourDatasetName."Account">');
...

Не знает такого свойства...
[dcc32 Error] mfrmQrCode.pas(200): E2003 Undeclared identifier: 'Name'

gpi

Должно знать

procedure TForm1.frxReport1BeforePrint(Sender: TfrxReportComponent);
begin
  if Sender.Name = 'Picture1' then
    StrAccount := frxReport1.Calc('<YourRealDatasetName_ThisIsJustASample."Account">');
end;