|
| 盒子资源分类 |
![]() |
|
|
|
|
| 【精品源码】 Delphi中二维码实现，静态链接 |
![]() |
| 关键字：Delphi 二维码 |
| 来 自：精品 |
| 平 台：Win2K/2003/NT/XP,WIN8,Vista/WIN7 |
下载所需：1 火柴 |
| 深浅度：中级 |
完成时间：2013/10/28 |
| 发布者：chineseswish (奖励55火柴) |
发布时间：2014/1/2 |
| 编辑器：Delphi2005/6/7 |
语 种：简体中文 |
| 分 类：图形 |
下载浏览：333/27107 |
|
|
|
|
|
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. |
| 本站原创作品，未经作者许可，严禁任何方式转载；转载作品，如果侵犯了您的权益，请联系我们！ |
| 相关文章 |
|
![]() |
|
|
| 相关评论 |
![]() |
|
|
|
|
