pb10调用base64.dll,实现将图片转换成base64编码,将base64编码转换成图片
函数声明
function long GetFileEncode64(ref string filename, ref string encode64)library "base64" alias for "GetFileEncode64;Ansi"
function long Base64Decode(ref blob ouput, ref string input ,long inputlen)library "base64" alias for "Base64Decode;Ansi"
调用实例
string ls_filename,ls_ret
long num
blob lb_file
blob{10000000} lb_ret//初始化足够大的空间,
ls_filename="K:\\照片0034_001_001.jpg"//要编码的图片完整路径名
ls_ret=space(10000000)//初始化足够大的空间接受返回的编码
num=GetFileEncode64(ls_filename, ls_ret)//base64编码
ls_ret=trim(ls_ret)
//-------解码---通过blob类型变量接收,一定要初始化足够空间大小
num=len(ls_ret)
num=Base64Decode(lb_ret, ls_ret,num)//解码
p_1.setpicture(lb_ret)//图片控件中显示
1