关于
（ ）是一个在线图表绘制网站，在此项目中提供了源代码。
执照
此存储库中的源代码已在Apache v2下获得许可。
发展
注意：由于法律原因，我们不能接受非平凡的PR。 我们需要在整个代码库中保留版权。
GitHub项目Wiki上正在启动开发指南。 当前在Stack Overflow上有一个标记，请确保所有问题均符合其指导原则。
为堆栈的底部提供了很多文档。 有一个。
跑步
运行diagrams.net的一种方法是派生该项目，，而将具有完整的编辑器功能（不集成）。
另一种方法是使用或下载 。
标记项目并在上可用时，将构建客户机和Servlet的完整打包的.war。
支持的浏览器
diagrams.net支持IE 11，Chrome 70 +，Firefox 70 +，Safari 11 +，Opera 50+，本机Android浏览器7x +，当前和以前的主要iOS版本（
2023-05-06 21:20:34
47.84MB
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
ZXing.Delphi是一个原生的对象Pascal库，它基于著名的开源条形码库：ZXing（Zebra Crossing）。这个端口是基于ZXing的.Net Redth port和Java的。这是我认为第一个原生的FireMonkey条形码库。它针对所有FireMonkey移动平台，从v3.1开始，它还完全支持Windows VCL应用程序（不依赖于FMX。图形单元）。
使用此库，您可以以本机速度进行扫描，而无需使用外部库中的链接，并避免兼容性问题和依赖关系。它很快。
它与Delphi XE7 - 11 Alexandria兼容，并与IOS 8.x - 15.x，Android 32 / 64，Windows 32 / 64和OSX进行了测试。ZXing.Delphi的目标是使扫描条形码毫不费力，无痛，快速，并在FireMonkey或本机Windows（VCL或Firemonkey）应用程序中构建。
只需包含源文件并将其添加到现有项目中，然后在项目中构建ZXing.Delphi源代码即可。
2023-05-03 15:19:35
15.72MB
1