组件下载地址：http://download.csdn.net/detail/lybwwp/6861821
下载文件包包含ThoughtWorks.QRCode.dll与dll的源码，强人可修改些源码。
字符串较长的情况下，用ThoughtWorks.QRCode生成二维码时出现“索引超出了数组界限”的错误。
解决方法：将 QRCodeVersion 改为0。
此代码功能：批量生成二维码图片保存到指定文件夹中（此图片可保存，可指定图片格式和图片大小）。
引用空间 ThoughtWorks.QRCode.dll
using ThoughtWorks.QRCode.Codec;
[csharp] view plaincopyprint?
#region 二维码生成
///
/// 批量生成二维码图片
///
private void Create_CodeImages()
{
try
{
if (myDataSet != null)
{
if (myDataSet.Tables[0].Rows.Count > 0)
{
//清空目录
DeleteDir(currentPath);
foreach (DataRow dr in myDataSet.Tables[0].Rows)
{
if (dr[2] != null)
{
//生成图片
Bitmap p_w_picpath = Create_ImgCode(dr[2].ToString(), imgSize);
//保存图片
SaveImg(currentPath, p_w_picpath);
}
}
//打开文件夹
Open_File(currentPath);
myDataSet = null;
return;
}
}
}
catch(Exception ex) {
MessageBox.Show(ex.ToString (), "错误！", MessageBoxButtons.OK, MessageBoxIcon.Error);
}
}
//程序路径
readonly string currentPath = Application.StartupPath + @"\BarCode_Images";
///
/// 保存图片
///
///
///
public void SaveImg(string strPath, Bitmap img)
{
//保存图片到目录
if (Directory.Exists(strPath))
{
//文件名称
string guid = Guid.NewGuid().ToString().Replace("-", "") + ".png";
img.Save(strPath + "/" + guid, System.Drawing.Imaging.ImageFormat.Png);
}
else
{
//当前目录不存在，则创建
Directory.CreateDirectory(strPath);
}
}
///
/// 生成二维码图片
///
///
///
///
public Bitmap Create_ImgCode(string codeNumber, int size)
{
//创建二维码生成类
QRCodeEncoder qrCodeEncoder = new QRCodeEncoder();
//设置编码模式
qrCodeEncoder.QRCodeEncodeMode = QRCodeEncoder.ENCODE_MODE.BYTE;
//设置编码测量度
qrCodeEncoder.QRCodeScale = size;
//设置编码版本
qrCodeEncoder.QRCodeVersion = 0;
//设置编码错误纠正
qrCodeEncoder.QRCodeErrorCorrect = QRCodeEncoder.ERROR_CORRECTION.M;
//生成二维码图片
System.Drawing.Bitmap p_w_picpath = qrCodeEncoder.Encode(codeNumber);
return p_w_picpath;
}
///
/// /打开指定目录
///
///
public void Open_File(string path)
{
System.Diagnostics.Process.Start("explorer.exe", path);
}
///
/// 删除目录下所有文件
///
///
public void DeleteDir(string aimPath)
{
try
{
//目录是否存在
if (Directory.Exists(aimPath))
{
// 检查目标目录是否以目录分割字符结束如果不是则添加之
if (aimPath[aimPath.Length - 1] != Path.DirectorySeparatorChar)
aimPath += Path.DirectorySeparatorChar;
// 得到源目录的文件列表，该里面是包含文件以及目录路径的一个数组
// 如果你指向Delete目标文件下面的文件而不包含目录请使用下面的方法
string[] fileList = Directory.GetFiles(aimPath);
//string[] fileList = Directory.GetFileSystemEntries(aimPath);
// 遍历所有的文件和目录
foreach (string file in fileList)
{
// 先当作目录处理如果存在这个目录就递归Delete该目录下面的文件
if (Directory.Exists(file))
{
DeleteDir(aimPath + Path.GetFileName(file));
}
// 否则直接Delete文件
else
{
File.Delete(aimPath + Path.GetFileName(file));
}
}
}
}
catch (Exception e)
{
throw e;
}
}
#endregion
创新互联www.cdcxhl.cn，专业提供香港、美国云服务器，动态BGP最优骨干路由自动选择，持续稳定高效的网络助力业务部署。公司持有工信部办法的idc、isp许可证， 机房独有T级流量清洗系统配攻击溯源，准确进行流量调度，确保服务器高可用性。佳节活动现已开启，新人活动云服务器买多久送多久。
