`
isiqi
  • 浏览: 15948875 次
  • 性别: Icon_minigender_1
  • 来自: 济南
社区版块
存档分类
最新评论

PB如何保存讀取圖片

 
阅读更多

string pname, fname
integer value

value = GetFileOpenName("请选择部件图",pname, fname,'jpg', &
+ 'Jpg 文件(*.jpg),*.jpg,位图文件(*.bmp),*.bmp,所有文件(*.*),*.*')
IF value <> 1 THEN return

//显示文件
p_1.PictureName = fname
SetPointer( HOURGLASS! )
SQLCA.AutoCommit = True
//测定文件长度
long ll_len
ll_len = FileLength(pname)
//打开文件
integer fileno
fileno = FileOpen(pname,StreamMode!,READ!,LOCKREAD!)

//读文件
blob lb_file ,lb_fn
int li_ii,ii
li_ii = ceiling(ll_len/32765)//取整

for ii = 1 to li_ii
FileRead (fileno, lb_fn)
lb_file = lb_file + lb_fn
next

//读图片,并另存为文件
blob lb_pict
selectblob col into :lb_pict from pidtest where id = 1;
//显示图片
p_1.setpicture(lb_pict)

//另存为文件
int li_no
String ls_filepath,ls_filename
getfilesavename('Save as',ls_filepath,ls_filename,'jpg','jpg文件(*.jpg),*.jpg,位图文件(*.bmp),*.bmp,所有文件(*.*),*.*')

li_no = fileopen(ls_filepath, streammode!, write!)
long ll_len
ll_len = len(lb_pict)

int li_ii,ii
li_ii = ceiling(ll_len/32765)//取整

for ii = 1 to li_ii
filewrite(li_no, lb_pict)
lb_pict = blobmid(lb_pict, 32765 * ii)
next
fileclose(li_no)

分享到:
评论

相关推荐

Global site tag (gtag.js) - Google Analytics