易语言调用com接口获取信息源码

系统结构:获取com信息,枚举接口函数,GetTypeInfoCount,GetTypeInfo,GetTypeInfoType,GetDocumentation,GetTypeAttr,ReleaseTypeAttr,Release,GetFuncDesc,取invkind,取funcdesc_lprgelemdescParam_tdesc_vt,取数量_pattr,取参数数量_funcdesc,取vtbl偏移_funcdesc,取mimid_funcdesc,取地址_结构,A2W,W2A,Ab,LoadTypeLib,WideCharToMultiByte,MultiByteToWideChar,lstrlenW,CoInitialize,CoUninitialize,SysFreeString,

======程序集1
           |  |
           |  |------ _启动子程序
           |  |
           |  |------ 获取com信息
           |  |
           |  |------ 枚举接口函数
           |  |
           |  |
======接口程序集
           |  |
           |  |------ GetTypeInfoCount
           |  |
           |  |------ GetTypeInfo
           |  |
           |  |------ GetTypeInfoType
           |  |
           |  |------ GetDocumentation
           |  |
           |  |------ GetTypeAttr
           |  |
           |  |------ ReleaseTypeAttr
           |  |
           |  |------ Release
           |  |
           |  |------ GetFuncDesc
           |  |
           |  |------ 取invkind
           |  |
           |  |------ 取funcdesc_lprgelemdescParam_tdesc_vt
           |  |
           |  |------ 取数量_pattr
           |  |
           |  |------ 取参数数量_funcdesc
           |  |
           |  |------ 取vtbl偏移_funcdesc
           |  |
           |  |------ 取mimid_funcdesc
           |  |
           |  |------ 取地址_结构
           |  |
           |  |------ A2W
           |  |
           |  |------ W2A
           |  |
           |  |------ Ab
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   LoadTypeLib
           |  |
           |  |---[dll]------   WideCharToMultiByte
           |  |
           |  |---[dll]------   MultiByteToWideChar
           |  |
           |  |---[dll]------   lstrlenW
           |  |
           |  |---[dll]------   CoInitialize
           |  |
           |  |---[dll]------   CoUninitialize
           |  |
           |  |---[dll]------   SysFreeString

调用的DLL命令:

.DLL命令 LoadTypeLib, 整数型, "oleaut32.dll", "LoadTypeLib"
    .参数 TLpszModule, 字节集
    .参数 TPpTypeLib, 整数型, 传址

.DLL命令 WideCharToMultiByte, 整数型, , "WideCharToMultiByte"
    .参数 CodePage, 整数型
    .参数 dwFlags, 整数型
    .参数 lpWideCharStr, 字节集
    .参数 cchWideChar, 整数型
    .参数 lpMultiByteStr, 文本型
    .参数 cchMultiByte, 整数型
    .参数 lpDefaultChar, 文本型
    .参数 lpUsedDefaultChar, 整数型

.DLL命令 MultiByteToWideChar, 整数型, , "MultiByteToWideChar"
    .参数 CodePage, 整数型
    .参数 dwFlags, 整数型
    .参数 lpMultiByteStr, 文本型
    .参数 cchMultiByte, 整数型
    .参数 lpWideCharStr, 字节集
    .参数 cchWideChar, 整数型

.DLL命令 lstrlenW, 整数型, "kernel32", "lstrlenW", , 返回字符串中字符数
    .参数 lpString, 整数型

.DLL命令 CoInitialize, , "ole32.dll", "CoInitialize"
    .参数 pvReserved, 整数型

.DLL命令 CoUninitialize, , "ole32.dll", "CoUninitialize"

.DLL命令 SysFreeString, , "oleaut32.dll", "SysFreeString"
    .参数 bstr, 整数型