SetupComm 设置串口的缓冲区
1 function SetupComm(hFile: THandle; dwInQueue, dwOutQueue: DWORD): BOOL; stdcall;
hFile:之前用CreateFile打开的串口句柄.
dwInQueue,dwOutQueue:接收缓冲区和发送缓冲区.
返回如果是0,表示操作失败.非0表示操作成功.
GetCommState 读取串口设置(波特率,校验,停止位,数据位等).
1 function GetCommState(hFile: THandle; var lpDCB: TDCB): BOOL; stdcall;
2 function SetCommState(hFile: THandle; const lpDCB: TDCB): BOOL; stdcall;
3 type
4 _DCB = packed record
5 DCBlength: DWORD;
6 //波特率
7 BaudRate: DWORD;
8 Flags: Longint;
9 wReserved: Word;
10 XonLim: Word;
11 XoffLim: Word;
12 //数据位
13 ByteSize: Byte;
14 //校验
15 Parity: Byte;
16 //停止位
17 StopBits: Byte;
18 XonChar: CHAR;
19 XoffChar: CHAR;
20 ErrorChar: CHAR;
21 EofChar: CHAR;
22 EvtChar: CHAR;
23 wReserved1: Word;
24 end;
25 TDCB = _DCB;
26 DCB = _DCB;
27 PDCB = ^TDCB;
28 const
29 //校验
30 NOPARITY = 0;
31 ODDPARITY = 1;
32 EVENPARITY = 2;
33 MARKPARITY = 3;
34 SPACEPARITY = 4;
35 //停止位
36 ONESTOPBIT = 0;
37 ONE5STOPBITS = 1;
38 TWOSTOPBITS = 2;
39 //波特率
40 CBR_110 = 110;
41 CBR_300 = 300;
42 CBR_600 = 600;
43 CBR_1200 = 1200;
44 CBR_2400 = 2400;
45 CBR_4800 = 4800;
46 CBR_9600 = 9600;
47 CBR_14400 = 14400;
48 CBR_19200 = 19200;
49 CBR_38400 = 38400;
50 CBR_56000 = 56000;
51 CBR_57600 = 57600;
52 CBR_115200 = $1C200;
53 CBR_128000 = $1F400;
54 CBR_256000 = $3E800;
1 GetCommState(FCommHandle, FDCB);
2 FDCB.BaudRate := CBR_9600;
3 FDCB.Parity := EVENPARITY;
4 FDCB.Stopbits := ONE5STOPBITS;
5 FDCB.Bytesize := 8;
6 FDCB.Flags := 0;
7 SetCommState(FCommHandle, FDCB);