对象创建与IServiceProvider导航在易语言中怎样实现？？

anyuezhiji

测试把含IServiceProvider导航的C代码改用易语言实现，
在测试到IServiceProvider导航时试了各种方法都失败了，
从创建ShellWindow到最后获得ShellView，
有高手能帮忙看下么，麻烦了

  

窗口程序集名	保 留	保 留	备 注
主程序集

子程序名	返回值类型	公开	备 注
_启动子程序	整数型		请在本子程序中放置易模块初始化代码

变量名	类 型	静态	数组	备 注
a	对象
lHwnd
IID	字节集
Guid	GUID

' CComPtr ShellWindow;
' HRESULT hr = ShellWindow.CoCreateInstance(CLSID_ShellWindows);
' if (FAILED(hr)) return false;
a.创建 (“{9BA05972-F6A8-11CF-A442-00A0C90A8F39}”, )
' CLSID_ShellWindows是{9BA05972-F6A8-11CF-A442-00A0C90A8F39}，下面的网址有
' https://msdn.microsoft.com/en-us/library/windows/desktop/cc836570(v=vs.85).aspx
' a.查看 ()  ' IShellWindows对象可以查看，没有问题
' CComVariant varloc(0);
' CComVariant varlocroot(0);
' CComPtr pdisp;
' long lHwnd = 0;
' int nOptions = SWFO_NEEDDISPATCH;
' hr = ShellWindow->FindWindowSW(&varloc, &varlocroot, 8, &lHwnd, nOptions, &pdisp);
' if (FAILED(hr)) return false;
a ＝ a.对象型方法 (“FindWindowSW”, 0, 0, 8, lHwnd, 1)  ' SWFO_NEEDDISPATCH为8
' a.查看 ()  ' 可以查看，对象类型为IWebBrowser2
' IID_IWebBrowserApp = new Guid("0002DF05-0000-0000-C000-000000000046");
' CComPtr BrowserApp;
' hr = pdisp->QueryInterface(IID_IWebBrowserApp, (void**)&BrowserApp);
' if (FAILED(hr)) return false;
' IWebBrowser2取代了IWebBrowserApp接口
' IID_IServiceProvider = Guid("6D5140C1-7436-11CE-8034-00AA006009FA")
' CComPtr ServiceProvider;
' hr = BrowserApp->QueryInterface(IID_IServiceProvider, (void**)&ServiceProvider);
' if (FAILED(hr)) return false;
' 用IServiceProvider导航
API_CLSIDFromString (编码_Ansi到Unicode (“{6D5140C1-7436-11CE-8034-00AA006009FA}”), IID)
a.对象型方法 (“QueryInterface”, 取指针地址 (IID))
信息框 (a.取错误 (), 0, , )  ' 未找到指定成员
Guid ＝ 文本到GUID (“{6D5140C1-7436-11CE-8034-00AA006009FA}”)
a.对象型方法 (“QueryInterface”, 取指针地址 (IID))
信息框 (a.取错误 (), 0, , )  ' 未找到指定成员
a.查看 ()
' CComPtr ShellBrowser;
' hr = ServiceProvider->QueryService(SID_STopLevelBrowser, IID_IShellBrowser, (void**)&ShellBrowser);
' if (FAILED(hr)) return false;
' CComPtr ShellView;
' hr = ShellBrowser->QueryActiveShellView(&ShellView);
' if (FAILED(hr)) return false;
' pdisp.Release();
返回 (0)  ' 可以根据您的需要返回任意数值

子程序名	返回值类型	公开	备 注
文本到GUID	GUID
参数名	类 型	参考	可空	数组	备 注
文本	文本型

变量名	类 型	静态	数组	备 注
GUID	GUID
计次

文本 ＝ 子文本替换 (文本, “{”, “”, , , 真)
文本 ＝ 子文本替换 (文本, “-”, “”, , , 真)
文本 ＝ 子文本替换 (文本, “}”, “”, , , 真)
GUID.Data1 ＝ 进制_十六到十 (取文本中间 (文本, 1, 8))
GUID.Data2 ＝ 进制_十六到十 (取文本中间 (文本, 9, 4))
GUID.Data3 ＝ 进制_十六到十 (取文本中间 (文本, 13, 4))
计次循环首 (8, 计次)
GUID.Data4 [计次] ＝ 进制_十六到十 (取文本中间 (文本, 15 ＋ 计次 × 2, 2))
计次循环尾 ()
返回 (GUID)

子程序名	返回值类型	公开	备 注
进制_十六到十	长整数型		将16进制文件转换到10进制数值(返回十进制数)
参数名	类 型	参考	可空	数组	备 注
文本	文本型

变量名	类 型	静态	数组	备 注
i	整数型
t	文本型
结果	长整数型
局_文本	文本型

t ＝ “0123456789ABCDEF”
局_文本 ＝ 到大写 (文本)
计次循环首 (取文本长度 (文本), i)
结果 ＝ 结果 × 16 ＋ 寻找文本 (t, 取文本中间 (局_文本, i, 1), , 假) － 1
计次循环尾 ()
返回 (结果)

子程序名	返回值类型	公开	备 注
编码_Ansi到Unicode	字节集		将Ansi码转换为Unicode码；成功返回转换后的字节集；
参数名	类 型	参考	可空	数组	备 注
Ansi	文本型				欲转换的Ansi文本
非标准Unicode编码	逻辑型				默认为假，为标准Unicode编码

变量名	类 型	静态	数组	备 注
数据2	字节集
长度	整数型

如果真 (Ansi ＝ “”)
返回 ({  })
长度 ＝ MultiByteToWideChar (936, 0, Ansi, -1, {  }, 0)
数据2 ＝ 取空白字节集 (长度 × 2)
MultiByteToWideChar (936, 0, Ansi, -1, 数据2, 长度 × 2)
如果真 (非标准Unicode编码)
数据2 ＝ 取字节集左边 (数据2, 取字节集长度 (数据2) － 2)
返回 (数据2)

i支持库列表	支持库注释
shellEx	扩展功能支持库一

.版本 2<br /> .支持库 shellEx<br /> <br /> .程序集 主程序集<br /> <br /> .子程序 _启动子程序, 整数型, , 请在本子程序中放置易模块初始化代码<br /> .局部变量 a, 对象<br /> .局部变量 lHwnd<br /> .局部变量 IID, 字节集<br /> .局部变量 Guid, GUID<br /> <br /> ' CComPtr ShellWindow;<br /> ' HRESULT hr = ShellWindow.CoCreateInstance(CLSID_ShellWindows);<br /> ' if (FAILED(hr)) return false;<br /> a.创建 (“{9BA05972-F6A8-11CF-A442-00A0C90A8F39}”, )<br /> ' CLSID_ShellWindows是{9BA05972-F6A8-11CF-A442-00A0C90A8F39}，下面的网址有<br /> ' https://msdn.microsoft.com/en-us/library/windows/desktop/cc836570(v=vs.85).aspx<br /> ' a.查看 ()  ' IShellWindows对象可以查看，没有问题<br /> <br /> ' CComVariant varloc(0);<br /> ' CComVariant varlocroot(0);<br /> ' CComPtr pdisp;<br /> ' long lHwnd = 0;<br /> ' int nOptions = SWFO_NEEDDISPATCH;<br /> ' hr = ShellWindow->FindWindowSW(&varloc, &varlocroot, 8, &lHwnd, nOptions, &pdisp);<br /> ' if (FAILED(hr)) return false;<br /> a ＝ a.对象型方法 (“FindWindowSW”, 0, 0, 8, lHwnd, 1)  ' SWFO_NEEDDISPATCH为8<br /> ' a.查看 ()  ' 可以查看，对象类型为IWebBrowser2<br /> ' IID_IWebBrowserApp = new Guid("0002DF05-0000-0000-C000-000000000046");<br /> <br /> ' CComPtr BrowserApp;<br /> ' hr = pdisp->QueryInterface(IID_IWebBrowserApp, (void**)&BrowserApp);<br /> ' if (FAILED(hr)) return false;<br /> ' IWebBrowser2取代了IWebBrowserApp接口<br /> <br /> <br /> <br /> ' IID_IServiceProvider = Guid("6D5140C1-7436-11CE-8034-00AA006009FA")<br /> ' CComPtr ServiceProvider;<br /> ' hr = BrowserApp->QueryInterface(IID_IServiceProvider, (void**)&ServiceProvider);<br /> ' if (FAILED(hr)) return false;<br /> ' 用IServiceProvider导航<br /> <br /> API_CLSIDFromString (编码_Ansi到Unicode (“{6D5140C1-7436-11CE-8034-00AA006009FA}”), IID)<br /> a.对象型方法 (“QueryInterface”, 取指针地址 (IID))<br /> 信息框 (a.取错误 (), 0, , )  ' 未找到指定成员<br /> <br /> Guid ＝ 文本到GUID (“{6D5140C1-7436-11CE-8034-00AA006009FA}”)<br /> a.对象型方法 (“QueryInterface”, 取指针地址 (IID))<br /> 信息框 (a.取错误 (), 0, , )  ' 未找到指定成员<br /> <br /> a.查看 ()<br /> <br /> ' CComPtr ShellBrowser;<br /> ' hr = ServiceProvider->QueryService(SID_STopLevelBrowser, IID_IShellBrowser, (void**)&ShellBrowser);<br /> ' if (FAILED(hr)) return false;<br /> <br /> ' CComPtr ShellView;<br /> ' hr = ShellBrowser->QueryActiveShellView(&ShellView);<br /> ' if (FAILED(hr)) return false;<br /> <br /> ' pdisp.Release();<br /> 返回 (0)  ' 可以根据您的需要返回任意数值<br /> <br /> .子程序 文本到GUID, GUID<br /> .参数 文本, 文本型<br /> .局部变量 GUID, GUID<br /> .局部变量 计次<br /> <br /> 文本 ＝ 子文本替换 (文本, “{”, “”, , , 真)<br /> 文本 ＝ 子文本替换 (文本, “-”, “”, , , 真)<br /> 文本 ＝ 子文本替换 (文本, “}”, “”, , , 真)<br /> GUID.Data1 ＝ 进制_十六到十 (取文本中间 (文本, 1, 8))<br /> GUID.Data2 ＝ 进制_十六到十 (取文本中间 (文本, 9, 4))<br /> GUID.Data3 ＝ 进制_十六到十 (取文本中间 (文本, 13, 4))<br /> .计次循环首 (8, 计次)<br />     GUID.Data4 [计次] ＝ 进制_十六到十 (取文本中间 (文本, 15 ＋ 计次 × 2, 2))<br /> .计次循环尾 ()<br /> 返回 (GUID)<br /> <br /> .子程序 进制_十六到十, 长整数型, , 将16进制文件转换到10进制数值(返回十进制数)<br /> .参数 文本, 文本型<br /> .局部变量 i, 整数型<br /> .局部变量 t, 文本型<br /> .局部变量 结果, 长整数型<br /> .局部变量 局_文本, 文本型<br /> <br /> t ＝ “0123456789ABCDEF”<br /> 局_文本 ＝ 到大写 (文本)<br /> .计次循环首 (取文本长度 (文本), i)<br />     结果 ＝ 结果 × 16 ＋ 寻找文本 (t, 取文本中间 (局_文本, i, 1), , 假) － 1<br /> .计次循环尾 ()<br /> 返回 (结果)<br /> <br /> .子程序 编码_Ansi到Unicode, 字节集, , 将Ansi码转换为Unicode码；成功返回转换后的字节集；<br /> .参数 Ansi, 文本型, , 欲转换的Ansi文本<br /> .参数 非标准Unicode编码, 逻辑型, 可空, 默认为假，为标准Unicode编码<br /> .局部变量 数据2, 字节集<br /> .局部变量 长度, 整数型<br /> <br /> .如果真 (Ansi ＝ “”)<br />     返回 ({  })<br /> .如果真结束<br /> 长度 ＝ MultiByteToWideChar (936, 0, Ansi, -1, {  }, 0)<br /> 数据2 ＝ 取空白字节集 (长度 × 2)<br /> MultiByteToWideChar (936, 0, Ansi, -1, 数据2, 长度 × 2)<br /> .如果真 (非标准Unicode编码)<br />     数据2 ＝ 取字节集左边 (数据2, 取字节集长度 (数据2) － 2)<br /> .如果真结束<br /> 返回 (数据2)

IServiceProvider调用测试.e.rar (3.03 KB, 下载次数: 11)

2016-8-28 22:09 上传

点击文件名下载附件

anyuezhiji

  

a.对象型方法 (“QueryInterface”, GUID)
‘QueryInterface到底该怎么传参，1楼的两种方法似乎都除了问题
’提示未找到指定成员
‘QueryInterface方法确认是存在的
’改成a.对象型方法 (“QueryInterface1”, GUID)
‘会提示方法或属性不存在，QueryInterface1是不存在的

a.对象型方法 (“QueryInterface”, GUID)<br /> ‘QueryInterface到底该怎么传参，1楼的两种方法似乎都除了问题<br /> ’提示未找到指定成员<br /> ‘QueryInterface方法确认是存在的<br /> ’改成a.对象型方法 (“QueryInterface1”, GUID)<br /> ‘会提示方法或属性不存在，QueryInterface1是不存在的