Lazarus 上 CreateFile 操控流驱动（简单串口操作代码和示例）（转）

猫工

串口实现单元代码：

2. unit CE_Series;
3. interface
4. uses
5.   Windows,Classes, SysUtils, LResources, StdCtrls,ExtCtrls;
6.   
8. type
9.   TCE_Series = class(TObject)
10.   
11.   private
12.     hComm: THandle;
13.   public
14.     Function OpenPort(Port:LPCWSTR;BaudRate,ByteSize,Parity,StopBits:integer):String;
15.     procedure Send(str:String);
16.     Function Receive():String;
17.     procedure ClosePort();
18.   end;
21. implementation
24. //===============================================================================================
25. // 语法格式：OpenPort(Port:LPCWSTR;BaudRate,ByteSize,Parity,StopBits:integer)
26. // 实现功能：打开串口
27. // 参数：port,串口号；例如wince下为从COM1:,COM2:.....win32下为COM1,COM2....... ;其他略,顾名思义哈
28. // 返回值：错误信息
29. //===============================================================================================
30. function TCE_Series.OpenPort(Port:LPCWSTR;BaudRate,ByteSize,Parity,StopBits:integer):String;
31. var
32.   cc:TCOMMCONFIG;
33. begin
34.   result:='';
35.   hComm:=CreateFile(port, GENERIC_READ or GENERIC_WRITE,
36.        0, nil, OPEN_EXISTING, 0, 0); // 打开COM
37.   if (hComm = INVALID_HANDLE_VALUE) then begin  // 如果COM 未打开
38.     result:='CreateFile Error!';
39.     exit;
40.   end;
42.   GetCommState(hComm,cc.dcb); // 得知目前COM 的状态
43.   cc.dcb.BaudRate:=BaudRate; // 设置波特率为BaudRate
44.   cc.dcb.ByteSize:=ByteSize;  // 字节为 ByteSize(8 bit)
45.   cc.dcb.Parity:=Parity; // Parity 为 None
46.   cc.dcb.StopBits:=StopBits; // 1 个Stop bit
47.   
48.   if not SetCommState(hComm, cc.dcb) then begin// 设置COM 的状态
49.     result:='SetCommState Error!';
50.     CloseHandle(hComm);
51.     exit;
52.   end;
53. end;
55. //===============================================================================================
56. // 语法格式：Send(str:String)
57. // 实现功能：发送数据
58. // 参数：str,数据
59. // 返回值：无
60. //===============================================================================================
61. procedure TCE_Series.Send(str:String);
62. var
63.   lrc:LongWord;
64. begin
65.   if (hComm=0) then exit; //检查Handle值
66.   WriteFile(hComm,str,Length(str), lrc, nil); // 送出数据
67. end;
70. //=====================================================================
71. //语法格式： Receive()
72. //实现功能： 接收串口数据
73. //参数：     无
74. //返回值：   收到的字符串
75. //=====================================================================
76. Function TCE_Series.Receive():String;
77. var
78.   inbuff: array[0..2047] of Char;
79.   nBytesRead, dwError:LongWORD ;
80.   cs:TCOMSTAT;
81. begin
82.    ClearCommError(hComm,dwError,@CS);  //取得状态
83.        // 数据是否大于我们所准备的Buffer
84.    if cs.cbInQue > sizeof(inbuff) then begin
85.      PurgeComm(hComm, PURGE_RXCLEAR);  // 清除COM 数据
86.      exit;
87.    end;
88.    ReadFile(hComm, inbuff,cs.cbInQue,nBytesRead,nil); // 接收COM 的数据
89.    //转移数据到变量中
90.    result:=Copy(inbuff,1,cs.cbInQue);//返回数据
91. end;                             
94. //=====================================================================
95. //语法格式： ClosePort()
96. //实现功能：关闭串口
97. //参数：  无
98. //返回值：  无
99. //=====================================================================
100. procedure TCE_Series.ClosePort();
101. begin
102.    SetCommMask(hcomm,$0);
103.    CloseHandle(hComm);
104. end;
106. end.

复制代码

daimon

可以操作打印机了

xx928

hComm:=CreateFile(port, GENERIC_READ or GENERIC_WRITE,0, nil, OPEN_EXISTING, 0, 0);                      // 打开串口  
提示错误：
Incompatible type for arg no. 1:Got &quotWideChar",expected &quotChar"

如何解决？我搞单片机的，上位机软件不是很懂
我想先开发WinXP的程序
然后移植到WinCE中

xx928

我在网上找到一段
function TWin32CESerialCom.OpenPort(ComPort:String;BaudRate,ByteSize,Parity,StopBits:integer):String;
var
  cc:TCOMMCONFIG;
{$IFDEF Win32}
  SAnsi:AnsiString;
  PortPCSTR;
{$ENDIF}
{$IFDEF WinCE}
  SWide:WideString;
  PortPCWSTR;
{$ENDIF}

begin
{$IFDEF Win32}
  SAnsi:=ComPort;
  port:=PChar(SAnsi);
{$ENDIF}
{$IFDEF WinCE}
  SWide:=ComPort;
  port:=PWideChar(SWide);
{$ENDIF}

Win32时，Port定义为LPCSTR;
WinCE时，Port定义为LPCWSTR;
我将函数定义为
Function OpenPort(PortPCSTR;BaudRate,ByteSize,Parity,StopBits:integer):String;
编译通过