捐赠 | 广告 | 注册 | 发布精品源码 | 上传 | 关于我们    
  沪ICP备05001939号 DELPHI盒子 | 盒子论坛 | 盒子文章 | 盒子问答悬赏 | 最新更新 | 论坛检索 | 下载中心 | 高级搜索    
  精品专区 | 繁體中文 | 奖励公告栏 | 直通车账号登陆 | 关闭GOOGLE广告 | 临时留言    
盒子资源分类
全部展开 - 全部合拢
【精品源码】 Delphi中二维码实现,静态链接
关键字:Delphi 二维码
来 自:精品
平 台:Win2K/2003/NT/XP,WIN8,Vista/WIN7 下载所需:1 火柴
深浅度:中级 完成时间:2013/10/28
发布者:chineseswish (奖励55火柴) 发布时间:2014/1/2
编辑器:Delphi2005/6/7 语  种:简体中文
分 类:图形 下载浏览:294/19504
加入到我的收藏
下载错误报错
登陆以后才能下载
 用户名:
 密 码:
自动登陆(30天有效)
图片如果打不开,说明流量不够了,请稍候下载……
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.
Google
 
本站原创作品,未经作者许可,严禁任何方式转载;转载作品,如果侵犯了您的权益,请联系我们
龙脉加密锁 15元起 Grid++Report 报表 申请支付@网
 相关文章
没有相关文章
相关评论
共有评论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 什么版本的
我要发表评论 查看全部评论
 
  DELPHI盒子版权所有 1999-2012 V3.01 沪ICP备05001939号 更新RSS列表