易语言API读入文件源码

系统结构:API_打开文件,API_读入文件数据,API_取文件尺寸,

======窗口程序集_启动窗口
           |  |
           |  |------ _按钮_读入内容_被单击
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   API_打开文件
           |  |
           |  |---[dll]------   API_读入文件数据
           |  |
           |  |---[dll]------   API_取文件尺寸

调用的DLL命令:

.DLL命令 API_打开文件, 整数型, "kernel32.dll", "OpenFile", , $(b)
    .参数 文件名, 文本型, , lpFileName，欲打开文件的名字
    .参数 文件操作结果, 文件结构信息, 传址, lpReOpenBuff，文件操作结果
    .参数 操作方式, 整数型, , wStyle，操作方式

.DLL命令 API_读入文件数据, 整数型, "kernel32", "ReadFileEx"
    .参数 文件句柄, 整数型, , hfile，文件的句柄
    .参数 数据缓冲区, 字节型, 数组, lpbuffer，指定容纳读入数据的一个缓冲区。除非读操作执行完毕，否则不要访问这个缓冲区
    .参数 读入长度, 整数型, , nnumberofbytestoread，要读入的字节数
    .参数 异步操作结构, 重叠操作, , lpoverlapped，定义了一个异步操作的结构。使用这个函数时，结构中的hEvent字段会被忽略
    .参数 回调函数返回值, 整数型, , lpcompletionroutine，回调函数的返回值

.DLL命令 API_取文件尺寸, 整数型, "kernel32", "GetFileSize", , 判断文件长度  返回文件长度。&HFFFFFFFF表示出错。注意如lpFileSizeHigh不为NULL，且结果为&HFFFFFFFF，那么必须调用GetLastError，判断是否实际发生了一个错误，因为这是一个有效的结果
    .参数 文件句柄, 整数型, , 文件的句柄
    .参数 尺寸大小, 整数型, , 指定一个长整数，用于装载一个64位文件长度的头32位。如这个长度没有超过2＾32字节，则该参数可以设为NULL（变成ByVal）;