FastReport Vcl 5.3.13 for Delphi7 支持二维码，本人正在使用，有详细的安装说明。
2023-05-17 21:01:41
12.92MB
1
博客"C# ZXing.Net 生成二维码支持中文"的简易Demo，很简单的东西，但是还有童鞋们不会，就简单写了个Demo，希望有所帮助。
2023-05-16 18:22:25
1.04MB
1
前言
二维码扫描的功能在很多APP上都会出现，较为常用的第三方库是zxing，zxing很强大，但是有时候我们并不需要那么复杂的功能，只需要简单的扫描、生成以及处理扫描结果，一般都是通过重写几个类来实现项目需求。我开发了几个项目都用到了扫描二维码的功能，第一个项目，写了个完整的功能，之后的项目都是从第一个项目里面复制代码的，几次之后，觉得有点繁琐，所以就单独封装成一个项目，传到jcenter上，以后再遇到扫描二维码的功能，只需要在gradle导入，即可实现快速开发了。
导入
compile 'com.hebin:hxbrzxing:1.0.1'
使用
导入库之后，就可以使用扫描二维码的功能了，只需要新建一个activity，然后继承CaptureActivity即可。
class MainActivity : CaptureActivity() {
override fun onC
2023-05-15 17:31:15
1.99MB
1
{
工作中遇到这样的需求，苦苦找不到相关的代码，找到一个还是收费的！：（
本着共享互惠的精神，本人简单实现了一个 FastReport 打印二维码的应用。
使用方法非常简单，将压缩包中的 frx2DBarcode 单元添加到引用即可在报表设计中看到 2D 条码对象，进行设计、打印。
目前仅实现了 QRCcode 的打印，抛砖引玉，相信增加 PDF417，DM 编码应该不会太难。
如果对源代码做了改进和修改欢迎 EMAIL 给我一份，学习一下！
邮件： JulyXDay@QQ.COM 谢谢支持！
}
{******************************************}
{ }
{ FastReport v4.0 }
{ 2DBarcode object }
{ }
{ Copyright (c) 2012 }
{ by LiKejian }
{ QQ 39839655 }
{ }
{******************************************}
unit frx2DBarcode;
interface
{$I frx.inc}
uses
Windows, Messages, SysUtils, Classes, Graphics, frxClass
{$IFDEF Delphi6}
, Variants
{$ENDIF};
type
TfrxBarcode2DObject = class(TComponent); // fake component
TfrxBarcode2DView = class(TfrxView)
private
FEccLevel: SmallInt;
FModule: SmallInt;
FVersion: SmallInt;
FText: String;
FExpression: String;
public
constructor Create(AOwner: TComponent); override;
procedure Draw(Canvas: TCanvas; ScaleX, ScaleY, OffsetX, OffsetY: Extended); override;
class function GetDescription: String; override;
procedure GetData; override;
published
property Version: SmallInt read FVersion write FVersion default 0;
property EccLevel: SmallInt read FEccLevel write FEccLevel default 0;
property Module: SmallInt read FModule write FModule default 0;
property DataField;
property DataSet;
property DataSetName;
property Expression: String read FExpression write FExpression;
property Frame;
property Text: String read FText write FText;
end;
implementation
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.
2023-05-05 09:10:37
281KB
1