易语言串口API源码

系统结构:ReadCommPure,BuildCommDCB,CreateFilea,关闭句柄a,SetCommState,ReadFileA,GetCommState,WriteFile,PurgeComm,取DLL错误,

======窗口程序集1
           |  |
           |  |------ _按钮1_被单击
           |  |
           |  |------ __启动窗口_将被销毁
           |  |
           |  |------ _时钟1_周期事件
           |  |
           |  |------ ReadCommPure
           |  |
           |  |------ __启动窗口_创建完毕
           |  |
           |  |------ _按钮3_被单击
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   BuildCommDCB
           |  |
           |  |---[dll]------   CreateFilea
           |  |
           |  |---[dll]------   关闭句柄a
           |  |
           |  |---[dll]------   SetCommState
           |  |
           |  |---[dll]------   ReadFileA
           |  |
           |  |---[dll]------   GetCommState
           |  |
           |  |---[dll]------   WriteFile
           |  |
           |  |---[dll]------   PurgeComm
           |  |
           |  |---[dll]------   取DLL错误

调用的DLL命令:

.DLL命令 BuildCommDCB, 整数型, , "BuildCommDCBA"
    .参数 lpDef, 文本型
    .参数 dcb, DCB

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

.DLL命令 关闭句柄a, 逻辑型, , "CloseHandle"
    .参数 c, 整数型

.DLL命令 SetCommState, 整数型, , "SetCommState"
    .参数 hCommDev, 整数型
    .参数 lpDCB, DCB

.DLL命令 ReadFileA, 整数型, , "ReadFile"
    .参数 hFile, 整数型
    .参数 lpBuffer, 字节集
    .参数 nNumberOfBytesToRead, 整数型
    .参数 lpNumberOfBytesRead, 整数型
    .参数 lpOverlapped, OVERLAPPED

.DLL命令 GetCommState, 整数型, , "GetCommState"
    .参数 nCid, 整数型
    .参数 lpDCB, DCB

.DLL命令 WriteFile, 整数型, , "WriteFile"
    .参数 hFile, 整数型
    .参数 lpBuffer, 字节集
    .参数 ToWrite, 整数型
    .参数 BytesWritten, 整数型, , 实际写入文件的字节数量
    .参数 lpOverlapped, OVERLAPPED

.DLL命令 PurgeComm, 整数型, , "PurgeComm"
    .参数 hFile, 整数型
    .参数 dwFlags, 整数型

.DLL命令 取DLL错误, 整数型, , "GetLastError"