|
| 盒子资源分类 |
![]() |
|
|
|
|
| 【精品源码】 Delphi中二维码实现，静态链接 |
![]() |
| 关键字：Delphi 二维码 |
| 来 自：精品 |
| 平 台：Win2K/2003/NT/XP,WIN8,Vista/WIN7 |
下载所需：1 火柴 |
| 深浅度：中级 |
完成时间：2013/10/28 |
| 发布者：chineseswish (奖励55火柴) |
发布时间：2014/1/2 |
| 编辑器：Delphi2005/6/7 |
语 种：简体中文 |
| 分 类：图形 |
下载浏览：334/28054 |
|
|
|
|
|
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, StdCtrls;
type
TForm1 = class(TForm)
lblText: TLabel;
edt1: TEdit;
btn1: TButton;
img1: TImage;
procedure btn1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
uses qrcode;
{$R *.dfm}
procedure TForm1.btn1Click(Sender: TObject);
var
AGraphic:TQRCodeGraphic;
begin
AGraphic:=TQRCodeGraphic.Create;
AGraphic.Text:=edt1.Text;
img1.Picture.Assign(AGraphic);
AGraphic.Free;
end;
end. |
| 本站原创作品，未经作者许可，严禁任何方式转载；转载作品，如果侵犯了您的权益，请联系我们！ |
| 相关文章 |
|
![]() |
|
|
| 相关评论 |
![]() |
|
共有评论22条
当前显示最后6条评论
|
| qybnn |
2014/11/14 16:08:29 |
| 下载试一下 |
| skchao1111 |
2014/11/15 11:49:40 |
可以下载试一下.
http://www.kitarm.com/images/stories/show/gametablet.jpg |
| hpowersoft |
2014/11/23 23:23:41 |
| 中文解析是乱码！ |
| 909090 |
2014/12/19 10:18:00 |
| 要是有解码就更好了 |
| xfaw |
2016/4/11 23:10:41 |
| 生成时设置图像大小不起作用，那位遇到了，谢谢指点 |
| forong13 |
2016/11/15 16:59:02 |
| 需要delphi 什么版本的 |
| 我要发表评论 |
查看全部评论 |
|
|
|
盒子资源分类大树
