Печать Qrcode

Комментарии

• gpi

  September 2017 отредактировано 23:00

  написал:

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

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

  September 2017 отредактировано 23:00

  gpi написал: »

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

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

  September 2017 отредактировано 23:00

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

  September 2017 отредактировано September 2017

  gpi написал: »

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

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

  September 2017 отредактировано 23:00

  Должно знать

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