| hnwhh
43059
|
2012/11/30 15:05:45 |
| 如何使用，求方法 |
| lsh341999
42979
|
2012/11/8 10:54:36 |
| 想要支持D7以上版本，把QRCODE.PAS用D7封装成DLL就可以了 |
| aknightchen
42852
|
2012/10/20 10:32:02 |
改进如下: (改为从frmMemoView继承下来,要以设置MEMO值,很方便)
{**********}
{ }
{ 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 ,frxUnicodeUtils
{$IFDEF Delphi6}
, Variants
{$ENDIF};
type
TfrxBarcode2DObject = class(TComponent); // fake component
TfrxBarcode2DView = class(TfrxMemoView)
private
FEccLevel: SmallInt;
FModule: SmallInt;
FVersion: SmallInt;
public
procedure Draw(Canvas: TCanvas; ScaleX, ScaleY, OffsetX, OffsetY: Extended); override;
class function GetDescription: String; 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;
end;
implementation
uses frx2DBarcodeRTTI, frxDsgnIntf, frxRes, frxUtils, uQRCode;
class function TfrxBarcode2DView.GetDescription: String;
begin
Result := '二维条形码控件';
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(Memo.Text, FVersion, FEccLevel, FModule);
if FileExists(sFileName) then
begin
oBmp := TBitmap.Create;
oBmp.LoadFromFile(sFileName);
frxDrawGraphic(Canvas, Rect(FX, FY, FX1, FY1), oBmp, IsPrinting);
FreeAndNil(oBmp);
end;
DrawFrame;
end;
initialization
frxObjects.RegisterObject1(TfrxBarcode2DView, nil, ', ', 0, 23);
finalization
frxObjects.UnRegister(TfrxBarcode2DView);
end. |
| dmx1981
42707
|
2012/9/3 10:54:16 |
| XE2下不能使用，能不能更新一下呀！ |
| cyj888888
42703
|
2012/9/2 1:39:20 |
| 怎么使用的呢？楼主 |
| hans
42686
|
2012/8/28 22:02:19 |
| 这套DLL我有全套破解的，可以生成，也可以读取，当然包含pdf417,dm |
| lzd123
42680
|
2012/8/28 12:45:31 |
| 我没设置有回复发到我的邮箱呀，怎么搞的，哪里取消呀，晕死! |
| ahlkj
42678
|
2012/8/28 11:20:12 |
DLL 是破解版本，可以无限制使用。
也可以根据源代码提供的思路修改成其他二维码打印的组件。 |
| fumijie
42676
|
2012/8/28 9:20:51 |
| ok,good. |
| fumijie
42669
|
2012/8/27 23:00:58 |
| 仅在调用单元的uses中添加frx2DBarcode单元吗？这好像不行啊！ |
| fumijie
42668
|
2012/8/27 22:59:28 |
| 请大虾告知怎样把这个二维码整合到fastreport4中？ |
| www12345
42661
|
2012/8/27 12:45:32 |
| 你的这个DLL 是共享？破解，还是免费无限制？ |
| lzd123
42656
|
2012/8/27 9:58:36 |
| fastreport哪个版本呀？怎么还自带 二维码单元？ |
![]() |
|
