在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:波特率，可直接�
相关文档：
附件资料
*类的内存信息（代码）
示例：获取类信息
说明：比对通过类地址以及通过类方法获取信息的效果。
代码：
type
TMyObject = class(TObject)
private
FData: Integer;
protected
......
*类的公开属性（代码）
示例：访问类的published属性
说明：vmtFieldTable（Published Field表）指向Published Field表有序排列，只存储当前类的PublishedField表，得到父类的Published Field表需要往上遍历。
注意：只有类型是类或接口的数据成员才可定义为published的访问级别
代码：
type
TMyO ......
本书通过典型的实例，系统地介绍了Delphi典型组件的基本使用方法和一些使用技巧。每一个实例都提供了程序的源代码、操作步骤，并且在一些特殊的实例中注明了知识点。力争使读者通过阅读实例后，可以较好地掌握每一个知识点。 本书分为五章，内容由浅入深、循序渐进，适用于初级用户和院校师生学习参考。 下载阅读边用边学D ......
Delphi 中将对象作为参数传递的使用 举例分析
2009-07-24 13:40
下面的单击事件，将要调用一个以对象为参数的方法，并将结果显示出来。
procedure TForm1.btn1Click(Sender: TObject);
var
lStrings: TStrings;
begin
lStrings:= TStringList.Create;
try
lStrings.Add('chen');
&nbs ......
procedure TfrmMain.FormCreate(Sender: TObject); //主窗体FormCreate事件
var FWidth:integer;
begin
if (screen.Width <> 1024) then //假设你设计程序时的分辨率为1024
begin
FWidth:=width;
scaled:=true;
& ......
