获取本地图片缩略图问题

bnny

下面代码无法在线程中使用，如何解决可以在线程中使用，要求是img、ip对象变量必须是局部变量

  

子程序名	返回值类型	公开	备 注
子程序1

变量名	类 型	静态	数组	备 注
img	对象
ip	对象
计次	整数型

img.创建 (“WIA.ImageFile”, )
ip.创建 (“WIA.ImageProcess”, )
img.方法 (“LoadFile”, “G:\0004.jpg”)
ip.读对象型属性 (“Filters”, ).方法 (“Add”, ip.读对象型属性 (“FilterInfos”, ).读对象型属性 (“Item”, “Scale”).读文本属性 (“FilterID”, ), 0)
ip.读对象型属性 (“Filters”, ).读对象型属性 (“Item”, 1).读对象型属性 (“Properties”, ).读对象型属性 (“Item”, “MaximumHeight”).写属性 (“Value”, 200)
ip.读对象型属性 (“Filters”, ).读对象型属性 (“Item”, 1).读对象型属性 (“Properties”, ).读对象型属性 (“Item”, “MaximumWidth”).写属性 (“Value”, 150)
ip.读对象型属性 (“Filters”, ).读对象型属性 (“Item”, 1).读对象型属性 (“Properties”, ).读对象型属性 (“Item”, “PreserveAspectRatio”).写属性 (“Value”, 真)
img ＝ ip.对象型方法 (“Apply”, img)
图片框1.图片 ＝ img.读对象型属性 (“FileData”, ).读属性 (“BinaryData”, ).取字节集 ()

.版本 2<br /> <br /> .子程序 子程序1<br /> .局部变量 img, 对象<br /> .局部变量 ip, 对象<br /> .局部变量 计次, 整数型<br /> <br /> img.创建 (“WIA.ImageFile”, )<br /> ip.创建 (“WIA.ImageProcess”, )<br /> img.方法 (“LoadFile”, “G:\0004.jpg”)<br /> ip.读对象型属性 (“Filters”, ).方法 (“Add”, ip.读对象型属性 (“FilterInfos”, ).读对象型属性 (“Item”, “Scale”).读文本属性 (“FilterID”, ), 0)<br /> ip.读对象型属性 (“Filters”, ).读对象型属性 (“Item”, 1).读对象型属性 (“Properties”, ).读对象型属性 (“Item”, “MaximumHeight”).写属性 (“Value”, 200)<br /> ip.读对象型属性 (“Filters”, ).读对象型属性 (“Item”, 1).读对象型属性 (“Properties”, ).读对象型属性 (“Item”, “MaximumWidth”).写属性 (“Value”, 150)<br /> ip.读对象型属性 (“Filters”, ).读对象型属性 (“Item”, 1).读对象型属性 (“Properties”, ).读对象型属性 (“Item”, “PreserveAspectRatio”).写属性 (“Value”, 真)<br /> img ＝ ip.对象型方法 (“Apply”, img)<br /> 图片框1.图片 ＝ img.读对象型属性 (“FileData”, ).读属性 (“BinaryData”, ).取字节集 ()

温柔小仙女

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口

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

启动线程 (&线程处理函数, , )

子程序名	返回值类型	公开	备 注
线程处理函数

变量名	类 型	静态	数组	备 注
img	对象
ip	对象
临时数据	字节集
hr	整数型

hr ＝ CoInitializeEx (0, 2)
' 核心逻辑代码
CoUninitialize ()

子程序名	返回值类型	公开	备 注
_窗口程序集_启动窗口_消息处理	整数型
参数名	类 型	参考	可空	数组	备 注
uMsg	整数型
wParam	整数型
lParam	整数型
处理结果	整数型

如果真 (uMsg ＝ 1024)
图片框1.图片 ＝ 图片数据
处理结果 ＝ 0
返回 (0)

子程序名	返回值类型	公开	备 注
__启动窗口_创建完毕

CoInitialize (0)

子程序名	返回值类型	公开	备 注
__启动窗口_将被销毁

CoUninitialize ()

i支持库列表	支持库注释
EThread	多线程支持库

.版本 2<br /> .支持库 EThread<br /> <br /> .程序集 窗口程序集_启动窗口<br /> <br /> .子程序 _按钮1_被单击<br /> <br /> 启动线程 (&线程处理函数, , )<br /> <br /> .子程序 线程处理函数<br /> .局部变量 img, 对象<br /> .局部变量 ip, 对象<br /> .局部变量 临时数据, 字节集<br /> .局部变量 hr, 整数型<br /> <br /> <br /> hr ＝ CoInitializeEx (0, 2)<br /> <br /> ' 核心逻辑代码<br /> CoUninitialize ()<br /> <br /> .子程序 _窗口程序集_启动窗口_消息处理, 整数型<br /> .参数 uMsg, 整数型<br /> .参数 wParam, 整数型<br /> .参数 lParam, 整数型<br /> .参数 处理结果, 整数型<br /> <br /> .如果真 (uMsg ＝ 1024)<br />     图片框1.图片 ＝ 图片数据<br />     处理结果 ＝ 0<br /> .如果真结束<br /> 返回 (0)<br /> <br /> .子程序 __启动窗口_创建完毕<br /> <br /> CoInitialize (0)<br /> <br /> .子程序 __启动窗口_将被销毁<br /> <br /> CoUninitialize ()

花间一壶酒

CoUninitialize ()