盒子 - FastReport 增加二维码支持(含源代码)

			捐赠 \| 广告 \| 注册 \| 发布 \| 上传 \| 关于我们
		沪ICP备05001939号	DELPHI盒子 \| 盒子论坛 \| 盒子文章 \| 盒子问答悬赏 \| 最新更新 \| 论坛检索 \| 下载中心 \| 高级搜索
		沪ICP备05001939号	精品专区 \| 繁體中文 \| 奖励公告栏 \| 直通车账号登陆 \| 关闭GOOGLE广告 \| 临时留言

盒子资源分类

全部展开 - 全部合拢

FastReport 增加二维码支持(含源代码)

关键字：二维码 FastReport QRCODE
来　自：原创
平　台：Win2K/2003/NT/XP	下载所需：0 火柴
深浅度：中级	完成时间：2012/8/4
发布者：ahlkj (奖励50火柴)	发布时间：2012/8/27
编辑器：Delphi7	语　　种：简体中文
分　类：数据库	下载浏览：2777/59584

加入到我的收藏

下载错误报错

登陆以后才能下载

用户名：

密　码：

自动登陆(30天有效)

{
工作中遇到这样的需求，苦苦找不到相关的代码，找到一个还是收费的！：（
本着共享互惠的精神，本人简单实现了一个 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.

本站原创作品，未经作者许可，严禁任何方式转载；转载作品，如果侵犯了您的权益，请联系我们！

龙脉加密锁 15元起

Grid++Report 报表

申请支付@网

没有相关文章

相关评论

共有评论73条当前显示最后6条评论
SusanHex	2018/3/5 23:36:05
Кредит наличными в ОТП Банке: http://workle.website/71
SusanHex	2018/3/7 3:11:03
Кредит наличными в ОТП Банке: http://workle.website/71
kolyasHeers	2018/10/24 7:03:25
Всем привет!!! уважаемые форумчане подборка полезной информации [url=http://mamaimalysh.com.ua/category/kolyaski_transformeri]интернет магазин колясок украина[/url] Все остальные являются скорее разновидностью перечисленных выше.Сидение и шасси прогулочных колясок составляют одно целое, компактны в сложенном состоянии, легко и быстро складываются двумя способами: в виде книжки или трости.Дефектов нет , поломок нет, загрязнений нет.
kolyasHeers	2018/12/7 2:26:02
Здравствуйте; интересная подборка советов по выбору детских товаров [url=http://mamaimalysh.com.ua/category/kolyaski_kombinirovannie_3_v_1__i_2_v_1]вот такой[/url] в комплект некоторых универсальных моделей может входить детское автокресло.это, действительно, один из самых выгодных и функциональных вариантов для малышей в возрасте до 2-3 лет.прогулочная польская коляска выглядит современно и стильно, в чем можно убедиться, ознакомившись с фото представленных на сайте нашего магазина польских колясок для детей.
dt1986	2019/2/12 17:11:40
二维码内容有中文会报错
BillyVon	2020/10/31 0:05:44
[url=ledtehnology.ru]светодиодный экран оптом[/url] [url=ledtehnology.ru]светодиодный экран для магазина[/url] [url=ledtehnology.ru]медиафасад стоимость[/url] [url=ledtehnology.ru]купить медиафасад[/url] [url=ledtehnology.ru]медиафасад купить[/url] [url=ledtehnology.ru]светодиодный экран для помещений[/url] [url=ledtehnology.ru]медиафасад цена[/url] [url=ledtehnology.ru]светодиодные экраны[/url] [url=ledtehnology.ru]медиафасад[/url] [url=ledtehnology.ru]светодиодный экран купить[/url] [url=ledtehnology.ru]светодиодный экран для улицы[/url] [url=ledtehnology.ru]медиафасады[/url] [url=ledtehnology.ru]светодиодный экран для сцены[/url] [url=ledtehnology.ru]светодиодный экран цена[/url] [url=ledtehnology.ru]уличный экран[/url] [url=ledtehnology.ru]дорожные табло[/url]
我要发表评论	查看全部评论


		DELPHI盒子版权所有 1999-2023 V4.01 粤ICP备10103342号-1

			捐赠 \| 广告 \| 注册 \| 发布 \| 上传 \| 关于我们
		沪ICP备05001939号	DELPHI盒子 \| 盒子论坛 \| 盒子文章 \| 盒子问答悬赏 \| 最新更新 \| 论坛检索 \| 下载中心 \| 高级搜索
		沪ICP备05001939号	精品专区 \| 繁體中文 \| 奖励公告栏 \| 直通车账号登陆 \| 关闭GOOGLE广告 \| 临时留言