pb文件管理服务器,PB中照片的存储及读取.doc

蔚落 2022-09-04 10:50 209阅读 0赞

PB中照片的存储及读取

//读保释存图片 　　string ls\_pathname, ls\_filename 　　integer li\_value,li\_FileNum,loops,i 　　long ll\_fileLength,bytes\_read,new\_pos 　　blob b, tot\_b 　　Blob gb\_photo 　　INSERT INTO PJ\_TP(BB) VBLUES ('1') USING SQLDB; 　　DOMMIT USING SQLDB; 　　li\_value = GetFileOpenName("选择相片", & 　　+ ls\_pathname, ls\_filename, "jpg","Jpg Files (\*.jpg),\*.jpg") 　　IF li\_value = 1 THEN 　　// Set a wait cursor 　　SetPointer(HourGlass!) 　　// Get the file length, and open the file 　　ll\_fileLength= FileLength(ls\_filename) 　　li\_FileNum = FileOpen(ls\_filename, & 　　StreamMode!, Read!, LockRead!) 　　// Determine how many times to call FileRead 　　IF ll\_filelength > 32765 THEN 　　IF Mod(ll\_filelength, 32765) = 0 THEN 　　loops =ll\_filelength/32765 　　ELSE 　　loops = (ll\_filelength/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) 　　tot\_b = tot\_b + b 　　// 　　IF i=1 then 　　st\_1.text=string(tot\_b) 　　end if 　　// 　　NEXT 　　FileDlose(li\_FileNum) 　　gb\_photo=tot\_b 　　UPDBTEBLOB PJ\_TP SET photo=:gb\_photo WHERE BB='1' USing sqlca; 　　IF Sqlca.SQLNRows > 0 THEN 　　DOMMIT USING SQLDB; 　　END IF 　　P\_1.setpicture(gb\_photo) 　　st\_1.text=string(len(gb\_photo)) 　　Elseif li\_value=-1 then 　　MessageBox("选择相片","打开文件错误!") 　　End If 　　//从表里读取图片 　　Blob gb\_photo 　　SELEDTBLOB photo INTO :gb\_photo FROM PJ\_TP where BB='1' Using SQLDB; 　　st\_1.text=string(len(gb\_photo)) 　　P\_1.setpicture(gb\_photo) 　　\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\* \*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\* \*\*\*\*\* 　　二、前言：在数据库的开发历程中，经常需要在数据库中储存一些备注信息，而这些个备注信息的内容一般较大，格式多样-如可能是语音文件、视频文件、图片文件、文这篇文章件等，如何在PB中实现这些个格式不同的备注文件的存取及预览，一直是PB开发人员比较关心的一个问题，这篇文章系统的介绍了三种存取备注二进制信息的方法。 对备注二进制信息的储存可以采用以下三种方式； 　　方法一：文件保存在固定的路径下，数据库中存取文件路径和名称 　　方法二：数据库中用blob类型或者varbinary类型字段储存备注文件 　　方法三：在本地用OLE储存结构储存备注文件 　　1、OLE的基本概念 　　OLE是Object Linking Embedding(对象链结与嵌入)的缩写，它可以使windows应用程序共享数据和程序。