请问,在vfp中oleboundcontrol中的图像怎么保存成bmp图像,急,请各位帮忙
1个回答
展开全部
是在通用字段中的吗?如果是,而且当初导入的时候是BMP格式的话,可以使用以下代码:
sele 表名
copy reco recno() to "c:\windows\temp\test_bmp.dbf" &&复制当前记录到临时文件
nhandlein=fopen("c:\windows\temp\test_bmp.fpt")
nhandleout=fcreate("d:\test.bmp")
if nhandlein<0 .or. nhandleout<0
=fclose(nhandlein)
=fclose(nhandleout)
return
endi
ngoend=fseek(nhandlein,0,2)
ngotop=fseek(nhandlein,0)
str1=fread(nhandlein,ngoend)
str2=right(str1,len(str1)-599) &&599是BMP格式的,其它类型的图片不行
=fwrite(nhandleout,str2)
=fclose(nhandlein)
=fclose(nhandleout)
然后到d盘找test.bmp就行了
sele 表名
copy reco recno() to "c:\windows\temp\test_bmp.dbf" &&复制当前记录到临时文件
nhandlein=fopen("c:\windows\temp\test_bmp.fpt")
nhandleout=fcreate("d:\test.bmp")
if nhandlein<0 .or. nhandleout<0
=fclose(nhandlein)
=fclose(nhandleout)
return
endi
ngoend=fseek(nhandlein,0,2)
ngotop=fseek(nhandlein,0)
str1=fread(nhandlein,ngoend)
str2=right(str1,len(str1)-599) &&599是BMP格式的,其它类型的图片不行
=fwrite(nhandleout,str2)
=fclose(nhandlein)
=fclose(nhandleout)
然后到d盘找test.bmp就行了
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询