设为首页收藏本站淘宝杂货铺

从F到0 - From F to 0

 找回密码
 注册已关闭
搜索
查看: 2140|回复: 2
收起左侧

易语言实现获取图片的宽度与高度 支持JPG/BMP/TIF/PNG/PPM/PGM/PBM/PCX/PIC等多种格式

[复制链接]
发表于 2018-12-28 20:20:18 | 显示全部楼层 |阅读模式
  1. .版本 2
  2. .支持库 BmpOperate
  3. .支持库 eImgConverter

  4. .程序集 程序集1

  5. .子程序 _启动子程序, 整数型, , 请在本子程序中放置易模块初始化代码


  6. _临时子程序 ()  ' 在初始化代码执行完毕后调用测试代码
  7. 返回 (0)  ' 可以根据您的需要返回任意数值

  8. .子程序 _临时子程序

  9. ' 本名称子程序用作测试程序用,仅在开发及调试环境中有效,编译发布程序前将被系统自动清空,请将所有用作测试的临时代码放在本子程序中。 ***注意不要修改本子程序的名称、参数及返回值类型。


  10. .子程序 取图片宽高, 逻辑型, 公开, 获取图片的宽度与高度,支持支持JPG/BMP/TIF/PNG/PPM/PGM/PBM/PCX/PIC等多种格式
  11. .参数 图片数据, 字节集
  12. .参数 图片宽度, 整数型, 参考
  13. .参数 图片高度, 整数型, 参考
  14. .局部变量 转换前文件名, 文本型
  15. .局部变量 转换后文件名, 文本型
  16. .局部变量 位图, 位图

  17. 图片宽度 = 0
  18. 图片高度 = 0
  19. 转换前文件名 = 取临时文件名 ()
  20. 转换后文件名 = 取临时文件名 ()
  21. .判断开始 (写到文件 (转换前文件名, 图片数据) = 假)
  22.     返回 (假)
  23. .判断 (转换到BMP (转换前文件名, 转换后文件名) ≠ 1)
  24.     返回 (假)
  25. .判断 (位图.载入文件 (转换后文件名) = 假)
  26.     返回 (假)
  27. .默认

  28. .判断结束
  29. 图片宽度 = 位图.取宽度 ()
  30. 图片高度 = 位图.取高度 ()
  31. 删除文件 (转换前文件名)
  32. 删除文件 (转换后文件名)
  33. 返回 (真)



复制代码

相关帖子

发表于 2018-12-30 20:59:53 | 显示全部楼层
我也来看看
您需要登录后才可以回帖 登录 | 注册已关闭

本版积分规则

QQ|手机版|Archiver|从F到0 ( 蒙ICP备17002595号-1 )
蒙公网安备15010402000325号

腾讯云安全认证

GMT+8, 2024-3-29 08:32 , Processed in 0.473027 second(s), 20 queries .

Powered by Discuz! X3.4 Licensed

Copyright © 2001-2021, Tencent Cloud.

快速回复 返回顶部 返回列表