易语言进度下载源码

系统结构:QueryInterface,AddRef,Release,OnStartBinding,GetPriority,OnLowResource,OnProgress,OnStopBinding,GetBindInfo,OnDataAvailable,OnObjectAvailable,URLDownloadToFile,

======程序集1
           |  |
           |  |------ _启动子程序
           |  |
           |  |------ _取指针IBindStatusCallback
           |  |
           |  |------ _取指针整数
           |  |
           |  |
======程序集_IBindStatusCallback
           |  |
           |  |------ QueryInterface
           |  |
           |  |------ AddRef
           |  |
           |  |------ Release
           |  |
           |  |------ OnStartBinding
           |  |
           |  |------ GetPriority
           |  |
           |  |------ OnLowResource
           |  |
           |  |------ OnProgress
           |  |
           |  |------ OnStopBinding
           |  |
           |  |------ GetBindInfo
           |  |
           |  |------ OnDataAvailable
           |  |
           |  |------ OnObjectAvailable
           |  |
           |  |
======窗口程序集1
           |  |
           |  |------ _按钮_下载_被单击
           |  |
           |  |------ _窗口1_创建完毕
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   URLDownloadToFile

调用的DLL命令:

.DLL命令 URLDownloadToFile, 整数型, "Urlmon.dll", "URLDownloadToFileA"
    .参数 pCaller, 整数型
    .参数 szURL, 文本型
    .参数 szFileName, 文本型
    .参数 dwReserved, 整数型
    .参数 lpfnCB, 整数型