bsp;     // 等待允许传递WM_COMMNOTIFY通讯消息

          WaitForSingleObject(Post_event,INFINITE);

          // 处理WM_COMMNOTIFY消息时不再发送WM_COMMNOTIFY消息

          ResetEvent(Post_Event);

          // 传递WM_COMMNOTIFY通讯消息

          Ok:=PostMessage(Form1.Handle,WM_COMMNOTIFY,hNewCommFile,0);

          if (not Ok) then

            begin

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

              Exit;

            end;

        end;

    end;

  CloseHandle(Os.hEvent); // 关闭重叠读事件对象

end;

  

procedure TForm1.WMCOMMNOTIFY(var Message :TMessage);  // 消息处理函数

var

  CommState : ComStat;

  dwNumberOfBytesRead : Dword;

  ErrorFlag : Dword;

  InputBuffer : Array [0..1024] of Char;

begin

  if not ClearCommError(hNewCommFile,ErrorFlag,@CommState) then

    begin

      MessageBox(0,''ClearCommError !'',''Notice'',MB_OK);

      PurgeComm(hNewCommFile,Purge_Rxabort or Purge_Rxclear);

      Exit;

    end;

  if (CommState.cbInQue>0) then

    begin

      fillchar(InputBuffer,CommState.cbInQue,#0);

      // 接收通讯数据

      if (not ReadFile( hNewCommFile,InputBuffer,CommState.cbInQue,

                        dwNumberOfBytesRead,@Read_os )) then

        begin

          ErrorFlag := GetLastError();

          if (ErrorFlag <> 0) and (ErrorFlag <> ERROR_IO_PENDING) then

            begin

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

              Receive :=False;

              CloseHandle(Read_Os.hEvent);

        &nb