PB如何保存讀取圖片
来源:互联网 发布:java或者 编辑:程序博客网 时间:2024/04/28 16:58
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('Saveas',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)
- PB如何保存讀取圖片
- PB如何保存讀取圖片
- 如何保存pb文件,并调用测试
- 如何保存pb文件,并调用测试
- PB:数据保存失败
- PB datawindow 数据窗口字段保存显示超过255个字符,要如何设置?
- Tensorflow-pb保存与导入
- pb如何實現回車換行,回車觸發按鈕
- PB如何读取文件
- PB如何读取文件
- pb 如何修改字符集
- 数据窗口的数据保存问题(pb)
- PB从剪贴板取图并保存
- PB从剪贴板取图并保存
- PB数据窗口保存前删除空行
- PB数据窗口保存前删除空行
- pb如何调用存储过程
- PB是如何工作的?
- Eclipse中的@Override标注报错
- 顺序栈的实现
- 自动创建设备节点-mdev和udev
- Android 开发笔记—— Handler与异步
- sed基础
- PB如何保存讀取圖片
- proc文件系统usb部分信息输出
- tslib移植
- Makefile
- struts2 遍历 map
- 在Android项目里如何构建单元测试
- SQLServer索引调优实践(3)-SQL Server创建索引
- 逆序计数
- joomla插件管理