forward
global type nvo_base64 from nonvisualobject
end type
end forward
global type nvo_base64 from nonvisualobject
end type
global nvo_base64 nvo_base64
forward prototypes
public function string of_oct (long vl_dec)
public function integer of_myasc (character onechar)
public function string of_b64e (string vs_in)
public function string of_nchar (character vchar, long vl_count)
public function integer of_oct2dec (string vs_oct)
end prototypes
public function string of_oct (long vl_dec);
long i,li_shang
char li_yu[]
li_shang = vl_dec/8
li_yu[1] = string(mod(vl_dec,8))
i = 2
do while li_shang > 0
li_yu[i] = string(mod(li_shang,8))
i ++
li_shang = li_shang/8
loop
return Reverse(li_yu)
end function
public function integer of_myasc (character onechar);
IF OneChar = "" THEN
RETURN 0
ELSE
RETURN Asc(OneChar)
END IF
end function
public function string of_b64e (string vs_in);
Constant string Base64 = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/"
string ls_out
int i
For i = 1 To Len(vs_in) Step 3
Long ll_Group
string ls_Group,ls_pOut
ll_Group = 65536 * Asc(Mid(vs_in, i, 1)) + 256 * of_MyAsc(Mid(vs_in, i + 1, 1)) + of_MyAsc(Mid(vs_in, i + 2, 1))
ls_Group = of_Oct(ll_Group)
ls_Group = of_nChar('0',8 - Len(ls_Group)) + ls_Group
ls_pOut = Mid(Base64, of_oct2dec(Mid(ls_Group, 1, 2)) + 1, 1) + Mid(Base64, of_oct2dec(Mid(ls_Group, 3, 2)) + 1, 1) + Mid(Base64, of_oct2dec(Mid(ls_Group, 5, 2)) + 1, 1) + Mid(Base64, of_oct2dec(Mid(ls_Group, 7, 2)) + 1, 1)
ls_Out = ls_Out + ls_pOut
If mod( (i + 2),57) = 0 Then ls_Out = ls_Out + "~r~n"
Next
choose Case mod( Len(vs_in), 3)
Case 1
ls_Out = Left(ls_Out, Len(ls_Out) - 2) + "=="
Case 2
ls_Out = Left(ls_Out, Len(ls_Out) - 1) + "="
End choose
return ls_Out
end function
public function string of_nchar (character vchar, long vl_count);
Char ls_out[]
Long i
FOR i = 1 TO vl_count
ls_out[i] = vchar
NEXT
RETURN ls_out
end function
public function integer of_oct2dec (string vs_oct);
string ls_oct
integer i,length
long result = 0
length = len(vs_oct)
ls_oct = Upper(vs_oct)
FOR i = 1 to length
result += &
(Pos ('1234567', mid(ls_oct, i, 1)) * &
( 8 ^ ( length - i ) ))
NEXT
RETURN result
end function
on nvo_base64.create
call super::create
TriggerEvent( this, "constructor" )
end on
on nvo_base64.destroy
TriggerEvent( this, "destructor" )
call super::destroy
end on
没有合适的资源?快使用搜索试试~ 我知道了~
新建 文本文档 (4).zip_1_Base64.dll_base64 dll_图片 base64_新建文本
共1个文件
txt:1个
1.该资源内容由用户上传,如若侵权请联系客服进行举报
2.虚拟产品一经售出概不退款(资源遇到问题,请及时私信上传者)
2.虚拟产品一经售出概不退款(资源遇到问题,请及时私信上传者)
版权申诉
0 下载量 52 浏览量
2022-09-23
02:28:11
上传
评论
收藏 1KB ZIP 举报
温馨提示
pb10调用base64.dll,实现将图片转换成base64编码,将base64编码转换成图片 函数声明 function long GetFileEncode64(ref string filename, ref string encode64)library "base64" alias for "GetFileEncode64;Ansi" fu
资源推荐
资源详情
资源评论
收起资源包目录
新建 文本文档 (4).zip (1个子文件)
新建 文本文档 (4).txt 3KB
共 1 条
- 1
资源评论
APei
- 粉丝: 63
- 资源: 1万+
上传资源 快速赚钱
- 我的内容管理 展开
- 我的资源 快来上传第一个资源
- 我的收益 登录查看自己的收益
- 我的积分 登录查看自己的积分
- 我的C币 登录后查看C币余额
- 我的收藏
- 我的下载
- 下载帮助
安全验证
文档复制为VIP权益,开通VIP直接复制
信息提交成功