文件名称:打印二维码
文件大小:1.16MB
文件格式:RAR
更新时间:2016-10-08 05:51:32
二维码
可以打印二维码 uses frx2DBarcodeRTTI, frxDsgnIntf, frxRes, frxUtils, uQRCode; constructor TfrxBarcode2DView.Create(AOwner: TComponent); begin inherited; end; class function TfrxBarcode2DView.GetDescription: String; begin Result := '2D 条形码对象'; end; procedure TfrxBarcode2DView.Draw(Canvas: TCanvas; ScaleX, ScaleY, OffsetX, OffsetY: Extended); const sFileName = 'QRCode.bmp'; var oBmp: TBitmap; begin BeginDraw(Canvas, ScaleX, ScaleY, OffsetX, OffsetY); //Create 2D Barcode CreateQRCode(FText, FVersion, FEccLevel, FModule); if FileExists(sFileName) then begin oBmp := TBitmap.Create; oBmp.LoadFromFile(sFileName); frxDrawGraphic(Canvas, Rect(FX, FY, FX1, FY1), oBmp, IsPrinting, False, False, 0); FreeAndNil(oBmp); end; DrawFrame; end; procedure TfrxBarcode2DView.GetData; begin inherited; if IsDataField then FText := VarToStr(DataSet.Value[DataField]) else if FExpression <> '' then FText := VarToStr(Report.Calc(FExpression)); end; initialization frxObjects.RegisterObject1(TfrxBarcode2DView, nil, '', '', 0, 23); finalization frxObjects.UnRegister(TfrxBarcode2DView); end.
【文件预览】:
打印二维码
----uQRCode.pas(6KB)
----untEasyQRCode.pas(171KB)
----uQRCode.dcu(3KB)
----Project1.exe(2.07MB)
----Project1.res(876B)
----frx2DBarcodeRTTI.dcu(2KB)
----untEasyQRCode.dcu(92KB)
----PtImageRW.dll(668KB)
----Unit1.~dfm(328B)
----Unit1.dfm(2KB)
----Project1.cfg(434B)
----frx2DBarcode.dcu(6KB)
----Unit1.pas(585B)
----QRCode.dcu(107KB)
----frx2DBarcode.pas(3KB)
----Project1.dpr(188B)
----QRCode.pas(173KB)
----frx2DBarcodeRTTI.pas(1KB)
----Project1.dof(2KB)
----Unit1.~pas(311B)
----PtQREncode.dll(44KB)
----Unit1.dcu(4KB)
----QRCode.bmp(146B)