易语言XM共享模块1.3源码

系统结构:加载,释放,取函数,读文件,调用,取地址_,停止,播放内存xm,播放本地xm,播放网络xm,播放云xm,取当前播放时间,继续播放,暂停播放,取标题,取频谱,置音量,取文本地址,取播放时间,取XM大小,取随机ID,取读取时间,压缩,解压,unpackaplib,crc32,aP_max_packed_size,aP_workmem_size,aPsafe_pack,aPsafe_get_orig_size,aPsafe_depack,

======程序集1
           |  |
           |  |------ _启动子程序
           |  |
           |  |------ _临时子程序
           |  |
           |  |
======XM播放
           |  |
           |  |------ 加载
           |  |
           |  |------ 释放
           |  |
           |  |------ 取函数
           |  |
           |  |------ 读文件
           |  |
           |  |------ 调用
           |  |
           |  |------ 取地址_
           |  |
           |  |------ 停止
           |  |
           |  |------ 播放内存xm
           |  |
           |  |------ 播放本地xm
           |  |
           |  |------ 播放网络xm
           |  |
           |  |------ 播放云xm
           |  |
           |  |------ 取当前播放时间
           |  |
           |  |------ 继续播放
           |  |
           |  |------ 暂停播放
           |  |
           |  |------ 取标题
           |  |
           |  |------ 取频谱
           |  |
           |  |------ 置音量
           |  |
           |  |------ 取文本地址
           |  |
           |  |------ 取播放时间
           |  |
           |  |------ 取XM大小
           |  |
           |  |------ 取随机ID
           |  |
           |  |------ 取读取时间
           |  |
           |  |
======内存压缩
           |  |
           |  |------ _初始化
           |  |
           |  |------ _销毁
           |  |
           |  |------ 压缩
           |  |
           |  |------ 解压
           |  |
           |  |------ unpackaplib
           |  |
           |  |------ crc32
           |  |
           |  |------ aP_max_packed_size
           |  |
           |  |------ aP_workmem_size
           |  |
           |  |------ aPsafe_pack
           |  |
           |  |------ aPsafe_get_orig_size
           |  |
           |  |------ aPsafe_depack
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   _动态调用子程序
           |  |
           |  |---[dll]------   _写内存4
           |  |
           |  |---[dll]------   _写内存3
           |  |
           |  |---[dll]------   _取指针_字节集
           |  |
           |  |---[dll]------   _取指针_字节集数组
           |  |
           |  |---[dll]------   _取字节集地址
           |  |
           |  |---[dll]------   _动态调用子程序3

调用的DLL命令:

.DLL命令 _动态调用子程序, 整数型, , "CallWindowProcA"
    .参数 动态调用代码, 字节集, , 一定要用本人编写的
    .参数 子程序, 整数型, , 子程序指针  到整数(子程序指针)
    .参数 参数, 整数型, 数组, 为整数数组，参数1为成员1…类推；文本型和字节集型（自定义结构）为指针
    .参数 参数数目, 整数型, , 一定要和参数数组相符，不然会出错
    .参数 是否C调用, 逻辑型, , 真为cdecl调用方式，假为stdcall调用方式（即标准WINAPI方式）

.DLL命令 _写内存4, 整数型, , "RtlMoveMemory", , kernel32.dll
    .参数 pDestination, 整数型
    .参数 pSource, 整数型, 传址
    .参数 Length, 整数型

.DLL命令 _写内存3, 整数型, , "RtlMoveMemory"
    .参数 dest, 整数型, 传址
    .参数 Source, 整数型
    .参数 len, 整数型, , 4

.DLL命令 _取指针_字节集, 整数型, , "lstrcpyn"
    .参数 目的指针, 字节集, 传址
    .参数 源指针, 字节集, 传址
    .参数 复制长度, 整数型, , 0

.DLL命令 _取指针_字节集数组, 整数型, , "lstrcpyn"
    .参数 目的指针, 字节集, 传址 数组
    .参数 源指针, 字节集, 传址 数组
    .参数 复制长度, 整数型, , 0

.DLL命令 _取字节集地址, 整数型, , "lstrcpynA"
    .参数 lpString1, 字节集
    .参数 lpString2, 整数型, , 0
    .参数 iMaxLength, 整数型, , 0

.DLL命令 _动态调用子程序3, 整数型, , "CallWindowProcA"
    .参数 DefWindowProc, 字节集
    .参数 hWnd, 整数型
    .参数 Msg, 文本型
    .参数 wParam, 整数型
    .参数 lParam, 整数型