在WIN32中的串口通讯（Delphi）
在WIN32中的串口通讯（Delphi）
由在WIN32操作系统中禁止应用程序象DOS中那样直接访问计算机硬件，因此，无法象以前那样采用中断读写串口。但是在WIN32中我们可发采用两种方法访问串口：1、使用VB中的MSCOMM串口控件；2、采用API函数，本文主要介绍采用API函数实现串口通讯。
由于WM_COMMNOTIFY消息已被取消，故本文自定义了WM_COMMNOTIFY消息，在WIN32中几个常用的串口通信API函数如下：
CreateFile 打开串口
CloseHandle 关闭句柄，用于释放内存
SetComm 设置缓冲区大小
ReadFile 读串口
WriteFile 写串口
SetCommState 设置通信参数
GetCommState 获取通信参数
ClearCommError 清除串口错误并获取读、写缓冲区当前字节数
SetCommMask 设置串口屏蔽事件
PurgeComm 消除串口读写缓冲区的所有字符，用以终止悬而未决的读写操作。
PostMessage 发送消息
WaitCommEvent 等待串口事件发生
由于采用多线程操作串口，还用到以下API函数
CreateEvent 建立同步事件
ResetEvent 同步事件复位
SetEvent 同步事件置位
WaitForSingleObject 等待同步事件
GetOverLappedResult 获取并行操作的结果]
GetLastError 获取错误代码
由于WIN32取消了WM_COMMNOTIFY，所以必须自己创建，如果编写串口控件，那么应该在串口事件发生时即WaitCommEvent返回True时或GetLastError返回结果为Error_IO_Pending，且GetOverLappedResult返回True时触发读串口事件。比如：串口控件为Tcomm,那么在串口事件发生时调用Tcomm.RXChar方法，Tcomm.RXChar定义如下：
Procedure Tcomm.RXChar;
begin
if Assigned(FOnRXChar) then FonRxChar(self);
SetEvent(Post_Event);
End;
Delphi的强大和多线程支持，使得实现串口通信非常方便简单，首先，用CreateFile打开串口,其次，通过GetCommState获取串口参数，并用SetCommState设置串口参数，然后创建线程用以监视串口，此后就可以进行串口通信了，最后用Closehandle 释放所有资源（切记，以免死机）。
在这其中，使用到一个重要的结构DCB，其常用的一些定义如下：
BaudRate:波特率，可直接�
相关文档：
function BrowseCallbackProc(Wnd: HWND; uMsg: UINT; lParam, lpData: LPARAM): Integer; stdcall;
begin
if uMsg = BFFM_INITIALIZED then
begin
SendMessage(Wnd, BFFM_SETSELECTION, 1, lpData);
SetWindowText(Wnd, '选择一个目标');
end;
Result := 0;
end;
//hdl: 窗口句柄
//Root: 根� ......
Delphi 中将对象作为参数传递的使用 举例分析
2009-07-24 13:40
下面的单击事件，将要调用一个以对象为参数的方法，并将结果显示出来。
procedure TForm1.btn1Click(Sender: TObject);
var
lStrings: TStrings;
begin
lStrings:= TStringList.Create;
try
lStrings.Add('chen');
&nbs ......
数组是可以通过索引来引用的同类型数据的列表。按照存储空间的获取方式，Delphi
支持的数组类型有两种，即静态数组和动态数组。所谓静态数组就是在声明时就已经确定大小的数组类型，而动态数组是指其大小在声明时不能确定的数组，动态数组的大小在使用时确定。
声明静态数组的方式非常简单，只要指明数组长度和数据类型 ......
之前做一个程序，用ListBox读入一个文本文件，但文本中有空行，为了删除其中的空行，折腾了好长时间。
先给出一段代码给大家看
var
i:Integer;
begin
ListBox1.Items.LoadfromFile('data.txt');
for i:=0 to ListBox1.Count - 1 do
begin
......
DELPHI参数几个概念上的区别 收藏
引用参数：
引用参数用var关键字标示
procedure DoubleTheValue (var Value: Integer);
begin
Value := Value * 2;
end;在这种情况下，参数既把一个值传递给过程，又把新值返回给调用过程的代码。当你执行完以下代码时：
var
X: Integer;
begin
X : ......
