精易论坛

标题: 精易模块的图片_取照片拍摄日期会一直占用图片 [打印本页]

---

作者: 北冥    时间: 2021-4-5 23:21
标题: 精易模块的图片_取照片拍摄日期会一直占用图片


版本915
精易模块的图片_取照片拍摄日期会一直占用图片
@项目部004

---

作者: 路人丁20    时间: 2021-4-6 10:19
图片_取照片拍摄日期 占用图片问题修复
https://125.confly.eu.org/forum.php?mod=viewthread&tid=14674840
(出处: 精易论坛)
已帮你修复

---

作者: 大司命    时间: 2021-4-6 16:11

姿势不对~

  

子程序名	返回值类型	公开	备 注
图片_取照片拍摄日期	逻辑型
参数名	类 型	参考	可空	数组	备 注
文件名	文本型
拍摄时间	文本型

变量名	类 型	静态	数组	备 注
gdiplusStartupInput	GdiplusStartupInput
gdiplusToken	整数型
nSize	整数型
buffer	字节集
pImage	整数型
hStatus	整数型

gdiplusStartupInput.GdiplusVersion ＝ 1
hStatus ＝ GdiplusStartup (gdiplusToken, gdiplusStartupInput, 0)
如果真 (hStatus ≠ 0)
返回 (假)
hStatus ＝ GdipLoadImageFromFile (编码_Ansi到Unicode (文件名, ), pImage)
如果真 (hStatus ＝ 0)
hStatus ＝ GdipGetPropertyItemSize (pImage, #PropertyTagExifDTOrig, nSize)
如果真 (hStatus ＝ 0)
buffer ＝ 取空白字节集 (nSize)
GdipGetPropertyItem (pImage, #PropertyTagExifDTOrig, nSize, buffer)
拍摄时间 ＝ 取字节集 数 据 (buffer, #文本型, 17)
GdipDisposeImage (pImage)
GdiplusShutdown (gdiplusToken)
返回 (nSize ≠ 0)

.版本 2<br /> .子程序 图片_取照片拍摄日期, 逻辑型, 公开<br /> .参数 文件名, 文本型<br /> .参数 拍摄时间, 文本型, 参考<br /> .局部变量 gdiplusStartupInput, GdiplusStartupInput<br /> .局部变量 gdiplusToken, 整数型<br /> .局部变量 nSize, 整数型<br /> .局部变量 buffer, 字节集<br /> .局部变量 pImage, 整数型<br /> .局部变量 hStatus, 整数型<br /> gdiplusStartupInput.GdiplusVersion ＝ 1<br /> hStatus ＝ GdiplusStartup (gdiplusToken, gdiplusStartupInput, 0)<br /> .如果真 (hStatus ≠ 0)<br />     返回 (假)<br /> .如果真结束<br /> hStatus ＝ GdipLoadImageFromFile (编码_Ansi到Unicode (文件名, ), pImage)<br /> .如果真 (hStatus ＝ 0)<br />     hStatus ＝ GdipGetPropertyItemSize (pImage, #PropertyTagExifDTOrig, nSize)<br />     .如果真 (hStatus ＝ 0)<br />         buffer ＝ 取空白字节集 (nSize)<br />         GdipGetPropertyItem (pImage, #PropertyTagExifDTOrig, nSize, buffer)<br />         拍摄时间 ＝ 取字节集 数 据  (buffer, #文本型, 17)<br />     .如果真结束<br />     GdipDisposeImage (pImage)<br /> .如果真结束<br /> GdiplusShutdown (gdiplusToken)<br /> 返回 (nSize ≠ 0)

---

欢迎光临 精易论坛 (https://125.confly.eu.org/)

Powered by Discuz! X3.4