易语言文件读写类模块源码

系统结构:打开文件,关闭文件,移动读写位置,取文件长度,读入字节集,写出字节集,取读写位置,是否在文件尾,移到文件首,移到文件尾,CreateFile,CloseHandle,llseek,GetFileSizeEx,SetFilePointerEx,ReadFile,WriteFile,WriteFileEx,

======程序集1
           |  |
           |  |------ _启动子程序
           |  |
           |  |------ _临时子程序
           |  |
           |  |
======文件读写
           |  |
           |  |------ _初始化
           |  |
           |  |------ _销毁
           |  |
           |  |------ 打开文件
           |  |
           |  |------ 关闭文件
           |  |
           |  |------ 移动读写位置
           |  |
           |  |------ 取文件长度
           |  |
           |  |------ 读入字节集
           |  |
           |  |------ 写出字节集
           |  |
           |  |------ 取读写位置
           |  |
           |  |------ 是否在文件尾
           |  |
           |  |------ 移到文件首
           |  |
           |  |------ 移到文件尾
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   CreateFile
           |  |
           |  |---[dll]------   CloseHandle
           |  |
           |  |---[dll]------   llseek
           |  |
           |  |---[dll]------   GetFileSizeEx
           |  |
           |  |---[dll]------   SetFilePointerEx
           |  |
           |  |---[dll]------   ReadFile
           |  |
           |  |---[dll]------   WriteFile
           |  |
           |  |---[dll]------   WriteFileEx

调用的DLL命令:

.DLL命令 CreateFile, 整数型, , "CreateFileA"
    .参数 lpFileName, 文本型
    .参数 dwDesiredAccess, 整数型
    .参数 dwShareMode, 整数型
    .参数 lpSecurityAttributes, 整数型
    .参数 dwCreationDisposition, 整数型
    .参数 dwFlagsAndAttributes, 整数型
    .参数 hTemplateFile, 整数型

.DLL命令 CloseHandle, 整数型
    .参数 hObject, 整数型

.DLL命令 llseek, 整数型, , "_llseek"
    .参数 hFile, 整数型
    .参数 lOffset, 整数型
    .参数 iOrigin, 整数型

.DLL命令 GetFileSizeEx, 整数型, , "GetFileSizeEx"
    .参数 hFile, 整数型
    .参数 lpFileSize, 长整数型, 传址

.DLL命令 SetFilePointerEx, 逻辑型
    .参数 hFile, 整数型
    .参数 liDistanceToMove, 长整数型
    .参数 lpNewFilePointer, 长整数型, 传址
    .参数 dwMoveMethod, 整数型

.DLL命令 ReadFile, 整数型
    .参数 hFile, 整数型
    .参数 lpBuffer, 字节集, 传址
    .参数 nNumberOfBytes, 整数型
    .参数 lpNumberOfBytesRead, 整数型, 传址
    .参数 lpOverlapped, 整数型

.DLL命令 WriteFile, 整数型
    .参数 hFile, 整数型
    .参数 lpBuffer, 字节集, 传址
    .参数 nNumberOfBytesToWrite, 整数型
    .参数 lpNumberOfBytesWritten, 整数型, 传址
    .参数 lpOverlapped, 整数型

.DLL命令 WriteFileEx, 整数型
    .参数 hFile, 整数型
    .参数 lpBuffer, 字节集
    .参数 nNumberOfBytesToWrite, 整数型
    .参数 lpOverlapped, OVERLAPPED, 传址
    .参数 lpCompletionRoutine, 整数型