图片_取照片拍摄日期 占用图片问题修复

路人丁20

  

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

变量名	类 型	静态	数组	备 注
StartupInput	GdiplusStartupInput
token	整数型
局_size	整数型
局_缓冲区	字节集
局_Image	整数型
局_位置	整数型
局_返回码	整数型
i	整数型

StartupInput.GdiplusVersion ＝ 1
GdiplusStartup (token, StartupInput, 0)
局_返回码 ＝ GdipLoadImageFromFile (编码_Ansi到Unicode (参数_文件名, ), 局_Image)
如果真 (局_返回码 ≠ 0)
返回 (假)
局_返回码 ＝ GdipGetPropertyItemSize (局_Image, 36867, 局_size)
如果真 (局_返回码 ≠ 0)
GdipDisposeImage (局_Image)  ' ’加上这个就可以了
返回 (假)  ' 问题出现在这里，照片若是截图什么的没日期就会占用图片
局_缓冲区 ＝ 取空白字节集 (局_size)
局_返回码 ＝ GdipGetPropertyItem (局_Image, 36867, 局_size, 局_缓冲区)
参_拍摄时间 ＝ 到文本 (取字节集中间 (局_缓冲区, 17, 20))
如果真 (局_Image ＝ 0)
返回 (假)
局_返回码 ＝ GdipDisposeImage (局_Image)
如果真 (局_返回码 ≠ 0)
返回 (假)
GdiplusShutdown (token)
返回 (token ≠ 0)

.版本 2<br /> <br /> .子程序 图片_取照片拍摄日期, 逻辑型, 公开<br /> .参数 参数_文件名, 文本型<br /> .参数 参_拍摄时间, 文本型, 参考<br /> .局部变量 StartupInput, GdiplusStartupInput<br /> .局部变量 token, 整数型<br /> .局部变量 局_size, 整数型<br /> .局部变量 局_缓冲区, 字节集<br /> .局部变量 局_Image, 整数型<br /> .局部变量 局_位置, 整数型<br /> .局部变量 局_返回码, 整数型<br /> .局部变量 i, 整数型<br /> StartupInput.GdiplusVersion ＝ 1<br /> GdiplusStartup (token, StartupInput, 0)<br /> 局_返回码 ＝ GdipLoadImageFromFile (编码_Ansi到Unicode (参数_文件名, ), 局_Image)<br /> .如果真 (局_返回码 ≠ 0)<br />     返回 (假)<br /> .如果真结束<br /> 局_返回码 ＝ GdipGetPropertyItemSize (局_Image, 36867, 局_size)<br /> .如果真 (局_返回码 ≠ 0)<br />     GdipDisposeImage (局_Image)  ' ’加上这个就可以了<br />     返回 (假)  ' 问题出现在这里，照片若是截图什么的没日期就会占用图片<br /> .如果真结束<br /> 局_缓冲区 ＝ 取空白字节集 (局_size)<br /> 局_返回码 ＝ GdipGetPropertyItem (局_Image, 36867, 局_size, 局_缓冲区)<br /> 参_拍摄时间 ＝ 到文本 (取字节集中间 (局_缓冲区, 17, 20))<br /> .如果真 (局_Image ＝ 0)<br />     返回 (假)<br /> .如果真结束<br /> 局_返回码 ＝ GdipDisposeImage (局_Image)<br /> .如果真 (局_返回码 ≠ 0)<br />     返回 (假)<br /> .如果真结束<br /> GdiplusShutdown (token)<br /> 返回 (token ≠ 0)

图片若没拍摄时间信息的照片，它直接返回假，但是不释放图片  返回假 之前 加上这个就可以GdipDisposeImage (局_Image)