I need to print labels (Form) with 1xLabel and 1xBarcodeQR [SOLVED]

[tmac1959]

Hi all,

have all day to read this forum but unfortunately can not find the answer.

I need to print labels (Form) with 1xLabel and 1xBarcodeQR thermal printer on a network. How to realize this with Lazarus? plus a defined label dimensions are 68x45 mm?

Thank you so much for any advice and sorry my bad English.

Thomas

[paweld]

FortesReport: http://fortes4lazarus.sourceforge.net/

[tmac1959]

errors in translation - broken under IDE version 1.0.10 fortesreport-3.24-LCL-R2: (

[tmac1959]

SVN version is okay but it does not support QR Codes!!

[tmac1959]

Fortes report is good but do not know how to get him to QR Barcode?

[mirce.vladimirov]

I have never doing this, but I hope you will succeed and let us know :

1. http://wiki.lazarus.freepascal.org/LazBarcodes
2. http://sourceforge.net/projects/zint/ (this one is writen in C/C++)
3. http://www.matthewhipkin.co.uk/codelib/qr-code-generator-in-delphi-and-lazarus/

[Jurassic Pork]

hello,
what kind of QrCode do you want ?
With lazreport and lazbarcodes i can do what you can see in attachment.


Friendly, J.P

[tmac1959]

LazBarcode I use, this is great but how to insert into LazReport same as Fortes report. If I put there LazBarcode LCL, the output is a black square.

Appendix 1 is the appearance of the generated form, Annex 2 results

[BigChimp]

1. Would be helpful if you could specify OS, FPC, Lazarus version - see link in my signature
2. Having the actual sourcecode of that project would also be a big help to people trying to help you. Could you upload a zip with that (using Project/Publish project so you only zip up the source file, not any .ppu, .o, .a, .exe etc files)

[tmac1959]

Windows 7 Pro /64Bit info about lazarun in attachments

[Jurassic Pork]

tips and tricks    :
How to add Qrcode barcode in the sample project barcode (cb.lpi)  of lazreport  ( the value of the qrcode is the Author field from the database disco.dbf).

1 - Install the packages lazreport and lazbarcodes in your lazarus ide.
2 - In the main form of the sample project barcode add a TbarcodeQR component.
3 - In the report add a picture where you want to display the barcode/
4 - Add this code on the event OnEnterRect of the frReport1 component :

Code: [Select]

procedure TForm1.frReport1EnterRect(Memo: TStringList; View: TfrView);
var
tmp : TBitmap;
w,h : integer;
r : TRect;
begin
  if (View.Name='Picture1')  then
  begin
    // Fields[0] --> Author
    BarCodeQR1.Text := frDBDataSet1.DataSet.Fields[0].AsString;
    BarCodeQR1.Update;
    w := BarCodeQR1.Width;
    h:= BarCodeQR1.Height;
    r:= Rect(0,0,w,h);
    tmp:=TBitmap.Create;
    tmp.Width:=w;
    tmp.Height:=h;
    // copy the qrcode bitmap  in the picture Picture1
    tmp.Canvas.CopyRect(r, BarCodeQR1.Canvas, r);
    TFrPictureView(View).Picture.Bitmap.Assign(tmp);
    tmp.free;
  end;
end;in attachment the modified project ( the name of the report is qrcodebar.lrf )

Friendly, J.P

[tmac1959]

Thank you, example works but I need the following:

how to insert a bitmap object in TRLImage Fortes Report.

I tried to insert as an example but the result is again a black square

[tmac1959]

I can not even insert a bitmap QR code According to the example of such Images:



procedure TForm2.Image1Paint(Sender: TObject);
var
tmp : TBitmap;
w,h : integer;
r : TRect;
begin

    BarCodeQR1.Text := Form1.Edit1.Text;
    BarCodeQR1.Update;
    w := BarCodeQR1.Width;
    h:= BarCodeQR1.Height;
    r:= Rect(0,0,w,h);
    tmp:=TBitmap.Create;
    tmp.Width:=w;
    tmp.Height:=h;
    tmp.Canvas.CopyRect(r, BarCodeQR1.Canvas, r);
    Image1.Picture.Bitmap.Assign(tmp);
    Image1.Show;
    tmp.free;

end;                                     

[tmac1959]

So the following works!! Now just to get it to Fortes Report




procedure TForm2.Image1Paint(Sender: TObject);
var
tmp : TBitmap;
w,h : integer;
r : TRect;
begin

    BarCodeQR1.Text := Form1.Edit1.Text;
    BarCodeQR1.Update;
    w := BarCodeQR1.Width;
    h:= BarCodeQR1.Height;
    r:= Rect(0,0,w,h);
    tmp:=TBitmap.Create;
    tmp.Width:=w;
    tmp.Height:=h;
    tmp.Canvas.CopyRect(r, BarCodeQR1.Canvas, r);
    Image1.Proportional:=true;
==========================
    Image1.Picture.Bitmap.Assign(tmp);
    Image1.Show;
    tmp.free;

end;                           

[tmac1959]

tips and tricks    :
How to add Qrcode barcode in the sample project barcode (cb.lpi)  of lazreport  ( the value of the qrcode is the Author field from the database disco.dbf).

1 - Install the packages lazreport and lazbarcodes in your lazarus ide.
2 - In the main form of the sample project barcode add a TbarcodeQR component.
3 - In the report add a picture where you want to display the barcode/
4 - Add this code on the event OnEnterRect of the frReport1 component :

Code: [Select]

procedure TForm1.frReport1EnterRect(Memo: TStringList; View: TfrView);
var
tmp : TBitmap;
w,h : integer;
r : TRect;
begin
  if (View.Name='Picture1')  then
  begin
    // Fields[0] --> Author
    BarCodeQR1.Text := frDBDataSet1.DataSet.Fields[0].AsString;
    BarCodeQR1.Update;
    w := BarCodeQR1.Width;
    h:= BarCodeQR1.Height;
    r:= Rect(0,0,w,h);
    tmp:=TBitmap.Create;
    tmp.Width:=w;
    tmp.Height:=h;
    // copy the qrcode bitmap  in the picture Picture1
    tmp.Canvas.CopyRect(r, BarCodeQR1.Canvas, r);
    TFrPictureView(View).Picture.Bitmap.Assign(tmp);
    tmp.free;
  end;
end;in attachment the modified project ( the name of the report is qrcodebar.lrf )

Friendly, J.P

From your example, I can not open qrcodebar.lrf, says that it is an invalid format of the report (LazReport editor)