易语言传递Unicode编码文本到COM对象源码

系统结构:变体型_赋值_Unicode文本,变体型_取文本_Unicode,指针到短整数,asm_写整型内存,asm_写短整型内存,取变量数据地址_变体型,SysAllocStringLen,SysStringByteLen,SysAllocStringByteLen,MessageBoxW,

======程序集1
           |  |
           |  |------ _启动子程序
           |  |
           |  |------ 变体型_赋值_Unicode文本
           |  |
           |  |------ 变体型_取文本_Unicode
           |  |
           |  |------ 指针到短整数
           |  |
           |  |------ asm_写整型内存
           |  |
           |  |------ asm_写短整型内存
           |  |
           |  |------ 取变量数据地址_变体型
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   SysAllocStringLen
           |  |
           |  |---[dll]------   SysStringByteLen
           |  |
           |  |---[dll]------   SysAllocStringByteLen
           |  |
           |  |---[dll]------   MessageBoxW

调用的DLL命令:

.DLL命令 SysAllocStringLen, 整数型, "oleaut32.dll", "SysAllocStringLen"
    .参数 pOlechar, 字节集
    .参数 uint, 整数型

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

.DLL命令 SysAllocStringByteLen, 整数型, "oleaut32.dll", "SysAllocStringByteLen"
    .参数 psz, 字节集
    .参数 len, 整数型

.DLL命令 MessageBoxW, 整数型, "user32.dll", "MessageBoxW", , 建立消息框窗体
    .参数 hwnd, 整数型
    .参数 lpText, 字节集
    .参数 lpCaption, 字节集
    .参数 wType, 整数型