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_s