zoukankan      html  css  js  c++  java
  • 二维码生成

    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;

  • 相关阅读:
    MySQL的max()函数使用时遇到的小问题
    scp命令需要指定端口时要紧跟在scp后
    linux系统之间基于密钥对免输入密码登陆
    c++的引用用法
    预测模型
    mysql出现ERROR 1366 (HY000):的解决办法
    R语言可视化--颜色
    R语言可视化--ggplot函数
    R语言可视化--qplot函数
    R语言可视化二
  • 原文地址:https://www.cnblogs.com/lodor/p/4794811.html
Copyright © 2011-2022 走看看