实例介绍
【实例简介】PB二维码生成makeqrbarcode
PB生成二维码所需要的DLL
PB生成时间戳、MD5加密、生成二维码、用于微信扫码支付，
适用于PowerBuilder 11，依赖MakeQRBarcode.dll,BSEncrypt.dll
//引用dll内部函数或方法
Public Subroutine gef_MakeQRCode(string sUcData, long lNDataLen,long lNErrLevel,long lNMask, integer iNBarEdition, string sZBmpFileName, long lNScale) library “MakeQRBarcode.dll” alias for “Make;Ansi”
Function boolean MD5String(ref string instr, long inlen, ref string outstr, long outlen) library “BSEncrypt.dll” alias for “MD5String;Ansi”
long lLen
long ll_row
string sText
string g_sFile
string serial_no
long ll_second
datetime ldt_date_now
string s_str1,s_str2
string sign
select sysdate into :ldt_date_now from dual;
if sqlca.sqlcode<> 0 then
return
end if
//pb生成时间戳
ll_second= long(DaysAfter( Date(1970,1,1) , date(string(ldt_date_now,‘yyyy-mm-dd’))) *86400 secondsafter(Time(“08:00:00”) ,time(string(ldt_date_now,‘hh:mm:ss’))))
g_sFile=GetCurrentDirectory() “\resource” type_name ‘_qrcode.bmp’
If tab_1.tabpage_presc.dw_presc_list.RowCount() > 0 Then
ll_row = tab_1.tabpage_presc.dw_presc_list.GetSelectedRow(0)
If ll_row > 0 Then
serial_no=tab_1.tabpage_presc.dw_presc_list.GetItemString(ll_row, “serial_no”)
end if
end if
s_str1=“appid=wx9999ed3f646f8b94&mch_id=1244430902&nonce_str=5K9999ILTKCH16CQ2502SI8ZNMTM67VS&product_id=test123&time_stamp=1610449571”
s_str2=s_str1 “&key=f0d0lIf9ddluk903JiIfk4Kj9e0dkgii”
//pbMD5加密
String ls_MD5Password = Space(100)
MD5String(Ref s_str2, Len(s_str2), Ref ls_MD5Password, 100)
sign=ls_MD5Password
lLen = len( g_sFile)
if FileExists( g_sFile) then
if FileDelete( g_sFile) = false then
messagebox( ‘提示’, ‘删除已有的图片失败。’, Exclamation!)
return
end if
end if
//生成二维码 用于微信扫码支付
sText=“weixin://wxpay/bizpayurl?sign=” upper(sign) “&appid=wx9999ed3f646f8b94&mch_id=1244430902&product_id=test123&time_stemp=1610449571&nonce_str=5K9999ILTKCH16CQ2502SI8ZNMTM67VS”
gef_MakeQRCode( sText, 200, 2, 0, 0, g_sFile, 3)
//最后一个参数是设置二维码图片的大小，数字越大图片就越大
if FileExists( g_sFile) then
messagebox( ‘提示’,sText)
else
messagebox( ‘提示’, ‘图片生成失败。’, Exclamation!)
end if
————————————————
版权声明：本文为CSDN博主「劈柴喂马594」的原创文章，遵循CC 4.0 BY-SA版权协议，转载请附上原文出处链接及本声明。
原文链接：https://blog.csdn.net/yh361/article/details/125060840
【实例截图】
【核心代码】
.
├── PB-QrCode-master
│ ├── PBUnit
│ │ ├── d_pbunit_librarydirectory.srd
│ │ ├── d_pbunit_librarylist.srd
│ │ ├── d_pbunit_progress.srd
│ │ ├── d_pbunit_targetlist.srd
│ │ ├── d_pbunit_testlist.srd
│ │ ├── d_pbunit_testresult.srd
│ │ ├── f_catchsystemerror.srf
│ │ ├── failed.png
│ │ ├── m_pbunit_main.srm
│ │ ├── n_pbunit_librarymanager.sru
│ │ ├── n_pbunit_testresult.sru
│ │ ├── n_pbunit_windowresizeservice.sru
│ │ ├── passed.png
│ │ ├── pbunit.ico
│ │ ├── pbunit.pbl
│ │ ├── pbunit.pbt
│ │ ├── pbunit.sra
│ │ ├── pbunitapp.pbg
│ │ ├── pbunitapp.pbl
│ │ ├── pbunitfunc.pbg
│ │ ├── pbunitfunc.pbl
│ │ ├── pbunitui.pbg
│ │ ├── pbunitui.pbl
│ │ ├── pr_pbunit.srj
│ │ ├── punitapp.pbl
│ │ ├── question.png
│ │ ├── u_pbunit_about.sru
│ │ ├── u_pbunit_cb.sru
│ │ ├── u_pbunit_progressbar.sru
│ │ ├── w_pbunit.srw
│ │ └── w_pbunit_about.srw
│ ├── README.md
│ ├── Screenshots
│ │ └── Screen01.png
│ ├── Tests
│ │ ├── n_cst_test_qrcode.sru
│ │ ├── pbqrcoder_tests.pbg
│ │ └── pbqrcoder_tests.pbl
│ ├── d_qr_demo.srd
│ ├── f_printqrmatrixline.srf
│ ├── grampus.json
│ ├── n_cst_qrcode.sru
│ ├── n_cst_qrcode_dwsrv.sru
│ ├── n_cst_qrcoder.sru
│ ├── pbqrcoder.pbg
│ ├── pbqrcoder.pbl
│ ├── pbqrcoder.pbw
│ ├── pbqrcoder_demo.pbg
│ ├── pbqrcoder_demo.pbl
│ ├── pbqrcoder_demo.pbt
│ ├── pbqrcoder_demo.sra
│ ├── pbqrcoder_tests.pbt
│ ├── s_alignmentpattern.srs
│ ├── s_alphanumentry.srs
│ ├── s_antilog.srs
│ ├── s_bitarray.srs
│ ├── s_capacityentry.srs
│ ├── s_codewordblock.srs
│ ├── s_eccinfo.srs
│ ├── s_point.srs
│ ├── s_polynom.srs
│ ├── s_polynomitem.srs
│ ├── s_qr_rectangle.srs
│ ├── s_versioninfo.srs
│ ├── s_versioninfodetails.srs
│ └── w_demo.srw
└── PB二维码生成makeqrbarcode_PB-QrCode-master.zip
4 directories, 65 files
相关软件
小贴士
感谢您为本站写下的评论，您的评论对其它用户来说具有重要的参考价值，所以请认真填写。
- 类似“顶”、“沙发”之类没有营养的文字，对勤劳贡献的楼主来说是令人沮丧的反馈信息。
- 相信您也不想看到一排文字/表情墙，所以请不要反馈意义不大的重复字符，也请尽量不要纯表情的回复。
- 提问之前请再仔细看一遍楼主的说明，或许是您遗漏了。
- 请勿到处挖坑绊人、招贴广告。既占空间让人厌烦，又没人会搭理，于人于己都无利。
关于好例子网
本站旨在为广大IT学习爱好者提供一个非营利性互相学习交流分享平台。本站所有资源都可以被免费获取学习研究。本站资源来自网友分享，对搜索内容的合法性不具有预见性、识别性、控制性，仅供学习研究，请务必在下载后24小时内给予删除，不得用于其他任何用途，否则后果自负。基于互联网的特殊性，平台无法对用户传输的作品、信息、内容的权属或合法性、安全性、合规性、真实性、科学性、完整权、有效性等进行实质审查；无论平台是否已进行审查，用户均应自行承担因其传输的作品、信息、内容而可能或已经产生的侵权或权属纠纷等法律责任。本站所有资源不代表本站的观点或立场，基于网友分享，根据中国法律《信息网络传播权保护条例》第二十二与二十三条之规定，若资源存在侵权或相关问题请联系本站客服人员，点此联系我们。关于更多版权及免责申明参见 版权及免责申明
网友评论
我要评论