在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
......
Delphi 中流的使用(1) 用 TMemoryStream(内存流) 入门
前言:
所谓"流", 就是一段数据或是一块内存;
在进行流操作时, 我们不必关心流中的数据到底是什么; 只需要知道流的大小和当前的指针位置. 所以流只有两个属性:
Size、Position.
对流的操作, 不过就是读取和写入. 所以流最主要的方法就是 Read 和 Write.
在很多� ......
(一) 使用动态创建的方法
首先创建 Excel 对象，使用ComObj:
var ExcelApp: Variant;
ExcelApp := CreateOleObject( 'Excel.Application' );
1) 显示当前窗口：
ExcelApp.Visible := True;
2) 更改 Excel 标题栏：
ExcelApp.Caption := '应用程序调用 Microsoft Excel';
3) 添加新工作簿：
ExcelApp.WorkBooks.Add ......
很早做过的一个delphi项目，把里面用到的技术总结一下，主要是针对象我这样的delphi新手，技术上做个积累吧！
假设我们的数据库配置文件ServerInfo.ini内容如下：
[ServerInfo]
ServerIP=192.168.1.5
SQLDBName=Data
SQLUserID=sa
SQLPwd=
我们定义一个连接数据库的过 ......
Delphi中DLL初始化和退出处理
choysan
2010-01-08 8:56:43
<1>利用Unit的Initalization与Finalization这两个小节
可以在Unit的这两个小节中安排Unit的进入和退出，但是
Program与Library并没有这两个部分，所以只能写在Unit中。
<2>利用ExitProc变量
在Library的begin..end.中间是可以写代码的� ......
