pb读取二进制文件

不念不忘少年蓝@ 2022-09-29 05:30 330阅读 0赞

//把二进制文件保存到数据库中的代码  
SetPointer(HourGlass!)  
// Get the file length, and open the file  
flen = FileLength(ls\_picname)  
li\_FileNum = FileOpen(ls\_picname, &  
StreamMode!, Read!, LockRead!)  
if isnull(li\_FileNum) or li\_FileNum = -1 then  
return 1  
end if  
  
// Determine how many times to call FileRead  
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  
// Read the file  
new\_pos = 1  
FOR i = 1 to loops  
bytes\_read = FileRead(li\_FileNum, b)  
if isnull( tot\_b ) then  
tot\_b = b  
else  
tot\_b = tot\_b + b  
end if  
NEXT  
FileClose(li\_FileNum)  
  
//update the row just inserted adding the blob ole control now  
updateblob 表名  
set 字段名 = :tot\_b  
where ………………………………;//此处条件省略  
  
if SQLCA.SQLCode = -1 then  
MessageBox("提示信息",SQLCA.SQLErrText,Information!)  
return -1  
end if  
  
sqlca.autocommit = FALSE  
  
  
//数据库中保存的二进制文件打开的代码  
select 文件名  
into :ls\_picname  
from 表名  
where ......... //此处省略  
  
ll\_pos = pos( ls\_picname , '/' )  
if ll\_pos > 0 then  
ll\_pos1 = ll\_pos  
end if  
  
do while ll\_pos > 0   
ll\_pos = pos( ls\_picname , '/' , ll\_pos + 1 )  
if ll\_pos > 0 then  
ll\_pos1 = ll\_pos  
end if  
loop  
  
ls\_picname1 = right( ls\_picname , len( ls\_picname ) - ll\_pos1 )  
  
selectblob 二进制文件  
into :ole\_blob   
from 表名  
where ………………; //此处省略  
  
if len( ole\_blob ) = 0 then  
return 1  
end if  
  
f\_filewrite("c:/"+ ls\_picname1, ole\_blob)  
  
ulong ll\_hd = Handle(this) //for window event  
String ls\_operation , ls\_parameters , ls\_appdirectory , ls\_filename  
Long ll\_result  
constant long SW\_RESTORE = 9  
ls\_Operation = "open"  
ls\_Parameters = ''  
  
ls\_filename = "c:/" + ls\_picname1  
ls\_appDirectory = "c:/"  
  
//查找指定文件关联在一起的程序文件名  
ll\_result = ShellExecute(ll\_hd, ls\_Operation, ls\_filename, ls\_Parameters, ls\_appDirectory, SW\_RESTORE) //通常是42