串口紧急问题!!!

Question

此代码出现的问题是:1 字符串发送不出去. 2 接收不到数据. 已经调了1天了,快疯了.期盼各位高手能给予帮助!万分感谢!![不要求用控件]
代码如下:
unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Registry, ExtCtrls;const
 WM_COMMNOTIFY=WM_USER+1;type
  TForm1 = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    SendEdit: TEdit;
    Memo1: TMemo;
    Button1: TButton;
    CkHComboBox: TComboBox;
    Button2: TButton;
    Timer1: TTimer;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
  private
    Procedure Comminitialize(ComName: string);
  public end; TCommThread=Class(TThread)
 protected
  procedure Execute;override;
 end;var
 Form1: TForm1;
 hcom,Post_Event: Thandle;
 lpol: Poverlapped;
 CommThread: TCommThread;implementation{$R *.DFM}procedure TCommThread.Execute; //线程监听过程
var
  dwEvtMask: Dword;
Begin
  while True do
  Begin
    dwEvtMask:=EV_RXCHAR;
    if WaitCommEvent(hcom,dwEvtMask,lpol) Then
      form1.Timer1.Enabled:=True;
  end;
end;procedure TForm1.Timer1Timer(Sender: TObject);
var
  Clear: Boolean;
  Coms: TComStat;
  cbNum,ReadNumber,lpErrors: Cardinal;
  Read_Buffer: array[0..2047]of char;
  Ls: string;
Begin
  Clear:=ClearCommError(hcom,lpErrors,@Coms);
  if Clear Then
  Begin
    //FillChar(Read_Buffer,2047,0);
    cbNum:=Coms.cbInQue;
    ReadFile(hCom,Read_Buffer,cbNum,ReadNumber,lpol);
    if Read_Buffer[cbNum-1]=#6 then
    begin
      Ls:=Copy(Read_Buffer,1,cbNum);
      Memo1.Text:=Memo1.Text+Ls;
      Timer1.Enabled:=False;
    end;
  end;
end;procedure Tform1.Comminitialize(ComName: string);//串口初始化
var
  lpDCB: TDCB;
Begin
  hcom:=CreateFile(Pchar(ComName),GENERIC_READ or GENERIC_WRITE,0,nil,OPEN_EXISTING,
       FILE_ATTRIBUTE_NORMAL or FILE_FLAG_OVERLAPPED,0);
  if hcom=INVALID_HANDLE_VALUE then
  begin
    MessageBox(Handle,'串口设置失败！','错误',MB_OK+MB_ICONERROR);
    Exit;
  end
  else
  begin
    SetupComm(hcom,2048,2048); //设置缓冲区
    GetCommState(hcom,lpDCB);
    lpDCB.baudrate:=9600;
    lpDCB.StopBits:=1;
    lpDCB.ByteSize:=8;
    lpDCB.Parity:=NOPARITY;     //无校验
    SetCommState(hcom,lpDCB);
    setCommMask(hcom,EV_RXCHAR);  //指定串口事件为接收到字符；
    MessageBox(Handle,'串口设置成功！','提示',MB_OK+MB_ICONWARNING);
  end;
end;function GetSysCom(var ComList: TStringList): Boolean;
var
  i: integer;
  Reg: TRegistry;
  RegStr: string;
  tmpList: TStringList;
begin
  try
    RegStr:='\HARDWARE\DEVICEMAP\SERIALCOMM';
    Reg:=TRegistry.Create;
    Reg.RootKey:=HKEY_LOCAL_MACHINE;
    if Reg.OpenKey(RegStr,False) then
    begin
      try
        tmpList:=TStringList.Create;
        Reg.GetValueNames(tmpList);
        for i := 0 to tmpList.Count - 1 do
          ComList.Add(Reg.ReadString(tmpList.Strings[i]));
      finally
        FreeAndNil(tmpList);
      end;
    end;
  finally
    FreeAndNil(Reg);
  end;
  if ComList.Count>0 then
    result:=True
  else
    result:=False;
end;procedure TForm1.FormCreate(Sender: TObject);
var
  ComString: TStringList;
  i: integer;
begin
  try
    ComString:=TStringList.Create;
    if GetSysCom(ComString) then
    begin
      for i:=0 to ComString.Count-1 do
        CkHComboBox.Items.Add(ComString.Strings[i]);
      CkHComboBox.ItemIndex:=0;
    end;
  finally
    FreeAndNil(ComString);
  end;
end;procedure TForm1.Button1Click(Sender: TObject);
var
  SendText: string;
  Nbw: LongWord;
begin
  SendText:=SendEdit.Text;
  WriteFile(hCom,Pointer(SendText)^,Length(SendText),Nbw,lpol);
end;procedure TForm1.Button2Click(Sender: TObject);
begin
  CommInitialize(CkHComboBox.Text);
  CommThread:=TCommThread.Create(False); //创建串口监视线程；
end;end.

Answer 1

建议你还是使用 spcomm , mscomm 这类现成的控件

Answer 2

同意ari的。用spcomm吧。网上很多例子，代码实现也很简单。看看下面这个：http://www.gjwtech.com/scomm/scdelphispcomm.htm

Answer 3

不用SPCOMM的原因是: 计算机有块多串口卡相连,要监控十几个串口,如果用SPCOMM的话就要用十几个,并且一个SPCOMM要开两个线程,这样就有近30个线程,好象不切合实际.我的想法是用一个线程监听十几个串口,实现方法是为每个串口创建一个事件,后用WaitForMultipleObjects监听这些串口事件的结合,这样应该比较实际.不知道我说的对不对.

Answer 4

奇怪,为什么接收数据不用线程,而用 Timer呢! 你即然是异步处理就应该给 lpol 变量添加一个事件句柄,然后用一个线程去监听这个事件. 你好好看看 spcomm 的源码就会发现你的问题原因了. 还有 再看看跟串口有关的API的使用吧!