sp;   CloseHandle(hNewCommFile);

    end;

  Label1.Font.Color :=clBlack;

  Label1.Caption:=''发送成功!'';

  Button1.Enabled :=True;

  Button3.Enabled :=True;

  Button4.Enabled :=True;

end;

  

procedure TForm1.Button3Click(Sender: TObject); // 接收处理

var

  Ok : Boolean;

  dcb : TDCB;

  com_thread: Thandle;

  ThreadID:DWORD;

begin

  ReceiveData :=0;

  Button1.Enabled :=False;

  Button2.Enabled :=False;

  RichEdit1.Clear;

  // 打开COM2

  hNewCommFile:=CreateFile( ''COM2''，GENERIC_READ,0,

                         nil, OPEN_EXISTING,FILE_FLAG_OVERLAPPED,0 );

  if hNewCommFile = INVALID_HANDLE_VALUE then

     begin

       MessageBox(0,''Error opening com port!'',''Notice'',MB_OK);

       Exit;

     end;

  Ok:=SetCommMask(hNewCommFile,EV_RXCHAR);

  if ( not Ok) then

    begin

      MessageBox(0,''SetCommMask Error!'',''Notice'',MB_OK);

      Exit;

    end;

  SetupComm(hNewCommFile,1024,1024);

  GetCommState( hNewCommFile, dcb );

  dcb.BaudRate :=9600;

  dcb.ByteSize :=8;

  dcb.Parity :=NOPARITY;

  dcb.StopBits := ONESTOPBIT;

  Ok := SetCommState( hNewCommFile, dcb );

  if ( not Ok) then MessageBox(0,''SetCommState Error!'',''Notice'',MB_OK);

  FillChar(Read_Os,SizeOf(Read_Os),0);

  Read_Os.Offset := 0;

  Read_Os.OffsetHigh := 0;

  // Create Event for Overlapped Read

  Read_Os.hEvent :=CreateEvent(nil,true,False,nil);

  if Read_Os.hEvent=null then

    begin

      CloseHandle(hNewCommFile);

      MessageBox(0,''CreateEvent Error!'',''Notice'',MB_OK);

      Exit;

    end;

  // Create Event for PostMessage

  Post_Event:=CreateEvent(nil,True,True,nil);

  if Post_Event=null then

    begin

      CloseHandle(hNewCommFile);

      CloseHandle(Read_Os.hEvent);

      MessageBox(0,''CreateEvent Error!'',''Notice'',MB_OK);

      Exit;

end;

  // 建立通信监视线程

  Com_Thread:=CreateThread(nil,0,@CommWatch,nil,0,ThreadID);

  if (Com_Thread=0) then

    MessageBox(Handle,''No CraeteThread!'',nil,mb_OK);

  EscapeCommFunction(hNewCommFile,SETDTR);

  Label1.Font.Color :=clRed;

&