Radmin服务端,主要用于vps远程管理及上传文件,内注册机,亲测可用。
2023-05-07 17:03:39 4.4MB radmin server vps
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 二维码 FastReport
1
需求分析、 项目计划安排、概要设计、详细设计、数据库设计、项目技术准备、系统功能设计、项目的测试、实战演练9个课题,图文并茂,好学易懂。是Java项目实战训练的优秀教程。
2023-05-04 21:02:44 1.58MB 学生信息管理 毕业论文
1
智能优化算法、神经网络预测、信号处理、元胞自动机、图像处理、路径规划、无人机等多种领域的Matlab仿真代码介绍
2023-05-04 17:20:43 892KB matlab
1
2020深圳公交矢量数据,WGS1984坐标,公交线路(公交线路名称、起止点、始发时间、停运时间、方向、距离),1400+条数据;公交站点(站点名称、经度、纬度、所属线路),45000+条数据。
2023-05-04 00:46:39 4.86MB 公交数据 公交线路 GIS 矢量数据
2017北京黑马32期javaee就业班全套资源,内源码和视频,无需解密,只要是播放器就能播放.
2023-05-03 00:23:41 152B javaEE资源
1
多媒体的课程设计 用程序实现算术编码 用java语言实现了算术编码 内容包括:编码和解码的源代码(cdoing.java decoding.java);论文;编译好的程序(只要安装jdk且配好环境变量的机器就可以运行)
2023-04-30 23:02:37 58KB 多媒体
1
ThinkPad X230i 最详细拆机图步骤;图文并茂,非常详细。 适合维修查看,新手上路。更换内存条,更换硬盘,更换风扇,清灰等。
2023-04-30 11:44:03 1.72MB 拆机图 X230i Thinkpad
1
Resharp10.0.2破解版(超详细安装说明),安装说明书在破解文件夹下的序列号.txt下面
2023-04-29 12:07:56 1.04MB Resharp
1
搜索引擎的JAVA实现,包源代码,非常不错呦.
2023-04-28 21:11:49 869KB lucene 搜索引擎 JAVA
1