一个图片用易代码转存后不能预览

zsjjh1

tp.zip (277.47 KB, 下载次数: 2)

2022-10-14 11:46 上传

点击文件名下载附件

|﹎℡若即

  

子程序名	返回值类型	公开	备 注
_按钮1_被单击

变量名	类 型	静态	数组	备 注
数据集	字节集

图片框1.图片 ＝ 读入文件 (取运行目录 () ＋ “\0.jpg”)
数据集 ＝ 到位图 (图片框1.图片)  ' 无效
写到文件 (取运行目录 () ＋ “\2.jpg”, 数据集)

子程序名	返回值类型	公开	备 注
到位图	字节集
参数名	类 型	参考	可空	数组	备 注
图片数据	字节集

变量名	类 型	静态	数组	备 注
图片	对象
图	字节集

图 ＝ 图片数据
如果真 (取字节集左边 (图, 2) ≠ { 66, 77 } 或 取字节集数据 (图, #短整数型, 29) ＞ 8)
CoInitialize (0)
图片.创建图片对象 (图)
图 ＝ 图片.取回图片 ()
图片.清除 ()
CoUninitialize ()
返回 (图)

.版本 2<br /> <br /> .子程序 _按钮1_被单击<br /> .局部变量 数据集, 字节集<br /> <br /> <br /> 图片框1.图片 ＝ 读入文件 (取运行目录 () ＋ “\0.jpg”)<br /> 数据集 ＝ 到位图 (图片框1.图片)  ' 无效<br /> 写到文件 (取运行目录 () ＋ “\2.jpg”, 数据集)<br /> <br /> .子程序 到位图, 字节集<br /> .参数 图片数据, 字节集, 参考<br /> .局部变量 图片, 对象<br /> .局部变量 图, 字节集<br /> <br /> 图 ＝ 图片数据<br /> .如果真 (取字节集左边 (图, 2) ≠ { 66, 77 } 或 取字节集数据 (图, #短整数型, 29) ＞ 8)<br />     CoInitialize (0)<br />     图片.创建图片对象 (图)<br />     图 ＝ 图片.取回图片 ()<br />     图片.清除 ()<br />     CoUninitialize ()<br /> .如果真结束<br /> 返回 (图)

补充内容 (2022-10-14 11:58):
注释忘了删了，这样写我测试可以。你试试。

|﹎℡若即

写出文件名后缀.jpg换成.bmp试试

zsjjh1

|﹎℡若即 发表于 2022-10-14 11:52
写出文件名后缀.jpg换成.bmp试试

试过了，没有用。

afu45

  

写到文件 (取运行目录 () ＋ “\0.jpg”, 读入文件 (取运行目录 () ＋ “\2.jpg”) ＋ { 0 })

写到文件 (取运行目录 () ＋ “\0.jpg”, 读入文件 (取运行目录 () ＋ “\2.jpg”) ＋ { 0 })

这样即可