Database 版 (精华区)

发信人: boby.bbs@bbs.sjtu.edu.cn (球星), 信区: cndatabase
标  题: Re: 求助Powerbuilder问题(太感谢拉)
发信站: 饮水思源站 (Mon Aug 25 00:57:52 1997)
转信站: Lilac!ustcnews!ustcnews!sjtunews!sjtubbs
出  处: bbs.sjtu.edu.cn

真是太感谢这位福州的大虾乐
来上海吧,阿拉请侬吃饭.
(路费自己出如何......嘿嘿....)
再次感谢拉!



【 在 ybin.bbs@bbs.fzu.edu.cn (ybin) 的大作中提到: 】
:   下面的程序段应该可以帮助你解决问题。
: int file1,file2,i,templen
: blob bmpbuf,temp
: file1=fileopen("c:\mywork\fj\cover.bmp",streammode!,read!,shared!)
: file2=fileopen("c:\temp\temp.bmp",streammode!,write!,lockwrite!,replace!)
: do while fileread(file1,temp) > 0      // 分块读入到BLOB
:    bmpbuf = bmpbuf+temp
:   loop
: fileclose(file1)
: i=0
: do                                     // 再分块写到另一文件
:   temp=blobmid(bmpbuf,1+32765*i,32765)
:   templen=len(temp)
:   if templen > 0 then
:     filewrite(file2,temp)
:    end if
:   i=i+1
:  loop while templen > 0
: fileclose(file2)


--
※ 来源:·饮水思源站 bbs.sjtu.edu.cn·[FROM: 202.120.172.8]