VC串口通信API程序代码.docxVIP

用API来实现串口通信其实不是很难，关于串口操作的函数在MSDN中都可以找到，大致的过程是:1.用CreateFile()函数创建串口2.用SetupComm()函数分配串口的输入和输出缓冲区的大小，当然也可以不设置，系统会默认的分配1024和512字节作为输入和输出缓冲区的大小3.用BuildCommDCB或者SetCommState函数来设置串口通信的相关参数，如波特率、奇偶校验、数据位、停止位以及线路检测等。4.用WriteFile()函数向串口发送数据5.Windows到WM_COMMNOTIFY消息的时候，用ReadFile()函数从串口读取数据我这里有一个示例程序，功能不是很强，但是学习串口API编程还是可以的：unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ComCtrls;const WM_COMMNOTIFY = WM_USER + 100; // 通讯消息type TForm1 = class(TForm) StatusBar1: TStatusBar; Memo1: TMemo; Memo2: TMemo; Label1: TLabel; Label2: TLabel; GroupBox1: TGroupBox; Label3: TLabel; Label4: TLabel; Label5: TLabel; Label6: TLabel; ComboBox4: TComboBox; ComboBox3: TComboBox; ComboBox2: TComboBox; ComboBox1: TComboBox; Label7: TLabel; ComboBox5: TComboBox; btnOpenCom: TButton; btnSendData: TButton; btnReceiveData: TButton; btnCloseCom: TButton; procedure btnOpenComClick(Sender: TObject); procedure FormCreate(Sender: TObject); procedure btnCloseComClick(Sender: TObject); procedure btnSendDataClick(Sender: TObject); procedure btnReceiveDataClick(Sender: TObject); private { Private declarations } procedure WMCOMMNOTIFY(var Message :TMessage);message WM_COMMNOTIFY; public { Public declarations } end;var Form1: TForm1;implementation{$R *.dfm}var CommHandle:THandle; PostEvent:THandle; ReadOs : Toverlapped; Connected:Boolean; Receive :Boolean; ReceiveData : Dword;procedure AddToMemo(Str:PChar;Len:Dword); // 接收的数据送入显示区Memo2begin //设置接收后的字符串为NULL终止 str[Len]:=#0; Form1.Memo2.Text:=Form1.Memo2.Text+StrPas(str);end;procedure CommWatch(Ptr:Pointer);stdcall; // 通讯监视线程var dwEvtMask,dwTranser : Dword; PostMsgFlag: Boolean; overlapped : Toverlapped;begin Receive :=True; FillChar(overlapped,SizeOf(overlapped),0); overlapped.hEvent :=CreateEvent(nil,True,False,nil); // 创建重叠读事件对象 if overlapped.hEvent=null then begin MessageBox(0,overlapped.Event Create Error !,Notice,MB_OK); Exit; end; //进入串口监视状态，直到全局变量Receive置为False停止 while(Receive) do begin