1,453
社区成员
发帖
与我相关
我的任务
分享VB6处理图像问题，恳请大神帮忙，困惑已久！！！
代码：
Dim prop As GDIPPropertyItem
Dim img As GDIPImage
Set img = New GDIPImage
img.FromFile sFIle ‘sFIle为图片途径
For i = 1 To img.PropertyCount
Set prop = img.PropertyItem(i)
If prop.ItemType = PropertyTagTypeASCII Then
…………
end if
Next i
调试img.PropertyCount值为54，prop也不为空，但是每个prop.ItemType都为无变量……，导致每次都提示错误。错误提示如下图：
对prop变量添加监视，各属性值如下图：
初步怀疑是GdiPlus.dll注册不成功导致，然后在网上找了各种修复GdiPlus.dll的补丁，可是无济于事。
在工程中又不能添加引用这个dll。
恳请大神帮忙！
Dim prop As GDIPPropertyItem
Dim img As GDIPImage
Set img = New GDIPImage
img.FromFile sFIle ‘sFIle为图片途径
For i = 1 To img.PropertyCount
Set prop = img.PropertyItem(i)
If prop.ItemType = PropertyTagTypeASCII Then
…………
end if
Next i
调试img.PropertyCount值为54，prop也不为空，但是每个prop.ItemType都为无变量……，导致每次都提示错误。错误提示如下图：
对prop变量添加监视，各属性值如下图：
初步怀疑是GdiPlus.dll注册不成功导致，然后在网上找了各种修复GdiPlus.dll的补丁，可是无济于事。
在工程中又不能添加引用这个dll。
恳请大神帮忙！
...全文
请发表友善的回复…
发表回复
贝隆 2013-07-02
- 打赏
- 举报
贝隆 2013-07-02
- 打赏
- 举报
laviewpbt 2013-07-02
- 打赏
- 举报
何必用别人的类库呢，直接用GDIPLUS的API函数不是更好。
laviewpbt 2013-07-02
- 打赏
- 举报
happyxiaowuge00gou 2013-07-02
- 打赏
- 举报
怎么用，能否提供一个例子呀，貌似我这个工程里的这段代码的用处是用来获取相机的一些属性信息的，比如相机的型号、等等
