二维码生成

标签：

var
FBar:TQRCode;

begin

FBar:=TQRCode.Create(nil);
try
FBar.Eclevel := QR_ECL_M; //误差级别 取值 QR_ECL_L 0 QR_ECL_M 1 QR_ECL_Q 2 QR_ECL_H 3 QR_ECL_MAX 4
FBar.Pxmag := 6; // 表示画素倍率 (模块尺寸) ,默认1
FBar.Version := 6; //型号 太小，手机识别不了，感觉6合适
FBar.SymbolPicture := picBMP; //图片类型bmp 取值picBMP, picEMF, picWMF
FBar.Match := true;
FBar.Usejis := False; //不使用日语
FBar.code := sUrl;
FBar.BackColor := clwhite;
FBar.SymbolColor := clblack;
FBar.Angle := 0;

bitmap := TBitmap.Create;
bitmap1 := TBitmap.Create;
try
bitmap1.Height := 140;
bitmap1.Width := 150;
bitmap1.Canvas.StretchDraw(Rect(0, 0, 150, 140), FBar.Picture.Bitmap);

if FileExists(sFileName) then
begin
bitmap.LoadFromFile(sFileName);
end;
bitmap.Height := 200;
bitmap.Width := 464;
bitmap.Canvas.Font.Name := ‘宋体‘;
bitmap.Canvas.Font.Size := 14;
bitmap.Canvas.Font.Style := [fsBold];
bitmap.Canvas.TextOut(10, 140, ‘微信wechat‘);
bitmap.Canvas.TextOut(180, 140, ‘优悦里积分‘);
//拼接图片
BitBlt(bitmap.Canvas.Handle,153,0,bitmap1.Width,bitmap1.Height,bitmap1.Canvas.Handle,0,0, SRCCOPY);
bitmap.SaveToFile(sPath);
finally
FreeAndNil(bitmap1);
end;

finally
FreeAndNil(bitmap);
FGForePrintLog.Write(‘创建积分二维码结束‘);
FBar.Free;
end;

二维码生成

标签：

原文地址：http://www.cnblogs.com/lodor/p/4794811.html