- 博客(7)
- 资源 (8)
- 收藏
- 关注
n_base64.sru
PB12.5,PB12.6下调试通过
把SRU导入即可。
integer li_FileNum, loops, i
long flen, bytes_read, new_pos
blob b, tot_b
flen = FileLength(filename)
if flen = 0 then
messagebox('提示','文件长度为0!',StopSign!)
return ""
end if
li_FileNum = FileOpen(filename, StreamMode!, Read!, LockRead!)
if li_fileNum = -1 then
messagebox('提示','打开文件失败!',StopSign!)
return ""
end if
IF flen > 32765 THEN
IF Mod(flen, 32765) = 0 THEN
loops = flen/32765
ELSE
loops = (flen/32765) + 1
END IF
ELSE
loops = 1
END IF
new_pos = 1
FOR i = 1 to loops
bytes_read = FileRead(li_FileNum, b)
tot_b = tot_b + b
NEXT
FileClose(li_FileNum)
string ls_return
//nvo_base64 luo_base64
//ls_return =base64head+ luo_base64.base64encode(tot_b)
//
n_base64 luo_base64
ls_return = luo_base64.encode(tot_b)
return ls_return
2019-12-07
PBHelper for pb12.6 4098带源码
PBHelper or pb12.6 4098调试成功。附源码。在原先开源12.5基础上更改的。尊重原作者,只是加了个12.6版本的支持。
2018-08-17
powerbuilder12 server2008 R2 X64 IIS布署方法
powerbuilder12 server2008 R2 X64 IIS布署方法
在windows server 2003 2008 R2服务器上布署用PB开发的IIS程序时,经常不能成功布署。本人经过一周多反复调试。终于布署成功,愿将分得与大家分享,望大家少走弯路,共同玩通pbweb
2012-03-26
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人