Delphi下用Windows API函数实现计算机串行通信

    在Delphi环境下对串口编程，可以通过Windows的API函数调用来实现。其基本过程如下。    1．打开串口，获取串口句柄    通过调用CreateFile来实现，代码如下：
    ·第一个参数给出了要打开的串口逻辑名，可以为COM1或COM2。    ·第二个参数指定了端口的访问方式，即标志GENERIC-READ为读方式，    GENERIC-WRITE为写方式。通常两个标志均使用，即采用读写方式。    ·第三个参数制定该端口的共享属性，设置为0。    ·第四个参数引用安全属性结构，将其设为NULL。    ·第五个参数指定打开文件的方式，设置为OPEN-EXISTING。    ·第六个参数描绘文件的各种属性，对串口一般设为0。    ·第七个参数是指向模板文件的句柄，对串口设为NULL。    2．设置串口的输入和输出缓存区    调用SetupComm函数来实现：
    3．设置串口通信参数    程序为：
    ·打开串口后，先用GetCommState函数读入串口状态，并得到串口的缺省设置：其中    第一个参数为打开的串口句柄，第二个参数为指向DCB结构的指针。    ·重新设置需要改变的DCB函数。    ·用SetCommState函数将修改值返回。    4．清除接受缓存区的内容    用PurgeComm函数来实现：
    5．接收和发送数据    用ReadFile函数接收数据，用WriteFile函数发送数据：
    6．释放串口    通信完毕后释放所有串口，所用函数为：ColseHandal (Hcomml)。