易语言COM对象调用JS接口源码

系统结构:对象_QueryInterface,对象_AddRef,对象_Release,对象_GetTypeInfoCount,对象_GetTypeInfo,对象_GetIDsOfNames,对象_Invoke,对象_初始化,对象_释放,对象_get,B2W,W2B,取指针_IDispatch,MultiByteToWideChar,WideCharToMultiByte,SysAllocString,SysFreeString,

======程序集1
           |  |
           |  |------ _启动子程序
           |  |
           |  |
======对象_IDispatch
           |  |
           |  |------ 对象_QueryInterface
           |  |
           |  |------ 对象_AddRef
           |  |
           |  |------ 对象_Release
           |  |
           |  |------ 对象_GetTypeInfoCount
           |  |
           |  |------ 对象_GetTypeInfo
           |  |
           |  |------ 对象_GetIDsOfNames
           |  |
           |  |------ 对象_Invoke
           |  |
           |  |------ 对象_初始化
           |  |
           |  |------ 对象_释放
           |  |
           |  |------ 对象_get
           |  |
           |  |
======其他
           |  |
           |  |------ B2W
           |  |
           |  |------ W2B
           |  |
           |  |------ 取指针_IDispatch
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   _RtlMoveMemory_读整数
           |  |
           |  |---[dll]------   _RtlMoveMemory_写整数
           |  |
           |  |---[dll]------   _lstrcmp
           |  |
           |  |---[dll]------   MultiByteToWideChar
           |  |
           |  |---[dll]------   WideCharToMultiByte
           |  |
           |  |---[dll]------   _lstrlen
           |  |
           |  |---[dll]------   SysAllocString
           |  |
           |  |---[dll]------   SysFreeString
           |  |
           |  |---[dll]------   _lstrcpyn_对象
           |  |
           |  |---[dll]------   _lstrcpyn_整数型

调用的DLL命令:

.DLL命令 _RtlMoveMemory_读整数, , "kernel32.dll", "RtlMoveMemory"
    .参数 Destination, 整数型, 传址
    .参数 Source, 整数型
    .参数 Length, 整数型

.DLL命令 _RtlMoveMemory_写整数, , "kernel32.dll", "RtlMoveMemory"
    .参数 Destination, 整数型
    .参数 Source, 整数型, 传址
    .参数 Length, 整数型

.DLL命令 _lstrcmp, 整数型, "kernel32.dll", "lstrcmpW", , 比较两个字符串
    .参数 lpString1, 整数型
    .参数 lpString2, 字节集

.DLL命令 MultiByteToWideChar, 整数型, "kernel32.dll", "MultiByteToWideChar"
    .参数 代码页, 整数型
    .参数 标志, 整数型
    .参数 双字节文本, 文本型
    .参数 双字节文本长度, 整数型
    .参数 宽字符文本, 字节集
    .参数 宽字符文本长度, 整数型

.DLL命令 WideCharToMultiByte, 整数型, "kernel32.dll", "WideCharToMultiByte", , 　
    .参数 代码页, 整数型
    .参数 标志, 整数型
    .参数 宽字符文本, 字节集
    .参数 宽字符文本长度, 整数型
    .参数 双字节文本, 文本型
    .参数 双字节文本长度, 整数型
    .参数 默认文本, 整数型
    .参数 使用默认文本, 整数型

.DLL命令 _lstrlen, 整数型, "kernel32.dll", "lstrlenW", , 取字节长度
    .参数 dqcs, 整数型, , 文本指针

.DLL命令 SysAllocString, 整数型, "oleaut32.dll", "SysAllocString"
    .参数 wstr, 字节集

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

.DLL命令 _lstrcpyn_对象, 整数型, "kernel32.dll", "lstrcpynA", , 取内存变量地址
    .参数 lpString1, 对象, 传址, 传址
    .参数 lpString2, 整数型
    .参数 iMaxLength, 整数型

.DLL命令 _lstrcpyn_整数型, 整数型, "kernel32.dll", "lstrcpynA", , 取内存变量地址
    .参数 lpString1, 整数型, 传址, 传址
    .参数 lpString2, 整数型
    .参数 iMaxLength, 整数型