救救我！操作串口怎么这样不行，那位能帮忙看一下，代码如下，谢谢！出现的错误为error handle! (200分)

shangxuan · 2004-02-05

procedure TForm1.Button2Click(Sender: TObject); var    hNewCommFile,hCommFile:   THandle;    commtimeouts:   TCommTimeouts;    dcb:            Tdcb;    commprop:       TCommProp;    fdwEvtMask:     DWORD;    pDataToWrite:   PChar;    dwNumberOfBytesWritten,dwNumberOfBytesToWrite

word;    lpOverlappedWrite: POverlapped; begin      hNewCommFile := CreateFile( 'com1',                                  GENERIC_READ or GENERIC_WRITE,                                  0,                                  nil,                                  OPEN_EXISTING,                                  FILE_ATTRIBUTE_NORMAL or FILE_FLAG_OVERLAPPED,                                  0 &nbsp

;      if hNewCommFile = INVALID_HANDLE_VALUE then         raise ECommsError.Create( 'Error opening serial port' );      // Is this a valid comm handle?      if GetFileType( hNewCommFile ) <> FILE_TYPE_CHAR then      begin           CloseHandle( hNewCommFile );           raise ECommsError.Create( 'File handle is not a comm handle ' )      end;      if not SetupComm( hNewCommFile, 4096, 4096 ) then      begin           CloseHandle( hNewCommFile );           raise ECommsError.Create( 'Cannot setup comm buffer' )      end;      // purge any information in the buffer      PurgeComm( hNewCommFile, PURGE_TXABORT or PURGE_RXABORT or                            PURGE_TXCLEAR or PURGE_RXCLEAR ) ;     GetCommTimeouts( hNewCommFile, commtimeouts );      // The CommTimeout numbers will very likely change if you are      // coding to meet some kind of specification where      // you need to reply within a certain amount of time after      // recieving the last byte.  However,  If 1/4th of a second      // goes by between recieving two characters, its a good      // indication that the transmitting end has finished, even      // assuming a 1200 baud modem.      commtimeouts.ReadIntervalTimeout         := 100;      commtimeouts.ReadTotalTimeoutMultiplier  := 0;      commtimeouts.ReadTotalTimeoutConstant    := 0;      commtimeouts.WriteTotalTimeoutMultiplier := 0;      commtimeouts.WriteTotalTimeoutConstant   := 0;      SetCommTimeouts( hNewCommFile, commtimeouts );     GetCommState( hNewCommFile, dcb );     GetCommProperties(hNewCommFile, commprop );     GetCommMask(hNewCommFile, fdwEvtMask );  dcb.BaudRate := 9600;  dcb.Flags := 1;  dcb.Parity :=NOPARITY;  Dcb.ByteSize :=8;  dcb.StopBits :=ONESTOPBIT;  SetCommMask(hNewCommFile,EV_ERR or EV_RXCHAR);  SetCommState(hNewCommFile,Dcb);  hCommFile:=hNewCommFile;  pDataToWrite:='dsfasf';  dwNumberOfBytesToWrite:=strlen(pDataToWrite);  dwNumberOfBytesWritten:=5;  //出现错误,查询到的错误是error handle;  if not WriteFile(hCommFile,                              pDataToWrite,                              dwNumberOfBytesToWrite, dwNumberOfBytesWritten,                              lpOverlappedWrite ) then  showMessage(inttostr(getlasterror())); //下面我要查询事件有数据收到 //然后再读串口 //然后再写串口...... end;

app2001 · 2004-02-05

我这有一个资料，你参看一下？？ unit frmComm; interface uses   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,   StdCtrls, ComCtrls, shellapi; const MAXBLOCK = 160; type   TComm = record     idComDev: THandle;     fConnected: Boolean;   end;   TCommForm = class(TForm)     ComboBox1: TComboBox;     Button1: TButton;     Button2: TButton;     StatusBar1: TStatusBar;     procedure Button1Click(Sender: TObject);     procedure Button2Click(Sender: TObject);     procedure FormClose(Sender: TObject; var Action: TCloseAction);   private     { Private declarations }   public     { Public declarations }   end;   TCommThread = class(TThread)   protected     procedure Execute; override;   public     constructor Create;   end; var   CommForm: TCommForm;   CommHandle: THandle;   Connected: Boolean;   CommThread: TCommThread; implementation {$R *.dfm} procedure TCommThread.Execute; var   dwErrorFlags, dwLength: DWORD;   ComStat: PComStat;   fReadStat: Boolean;   InChar: Char;   AbIn: string;   XX, YY: double; //file; //经度、纬度   VID: string; //file: //车号 begin   while Connected do   begin     GetMem(ComStat, SizeOf(TComStat));     ClearCommError(CommHandle, dwErrorFlags, ComStat);     if (dwErrorFlags > 0) then     begin       PurgeComm(CommHandle, (PURGE_RXABORT and PURGE_RXCLEAR));       // return 0;     end;     dwLength := ComStat.cbInQue;     if (dwLength > 0) then     begin       fReadStat := ReadFile(CommHandle, InChar, 1, dwLength, nil);       if (fReadStat) then       begin         if (InChar <> Chr(13)) and (Length(abIn) < MAXBLOCK + 5) then AbIn := AbIn + InChar         else         begin           //...{接收完毕，}         end; //if (fReadStat>0){       end; //file: //if (dwLength>0){       FreeMem(ComStat);     end; {while}   end; end; constructor TCommThread.Create; begin   FreeOnTerminate := TRUE;   inherited Create(FALSE); //file: //Createsuspended = false end; procedure TCommForm.Button1Click(Sender: TObject); var   CommTimeOut: TCOMMTIMEOUTS;   DCB: TDCB;   fRetVal: Boolean; begin   StatusBar1.SimpleText := '连接中...';   CommHandle := CreateFile(PChar(ComboBox1.Text), GENERIC_READ, 0, nil, OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL     , 0);   if CommHandle = INVALID_HANDLE_VALUE then begin     StatusBar1.SimpleText := '连接失败';     Exit;   end;   StatusBar1.SimpleText := '已同端口' + ComboBox1.Text + '连接！';   CommTimeOut.ReadIntervalTimeout := MAXDWORD;   CommTimeOut.ReadTotalTimeoutMultiplier := 0;   CommTimeOut.ReadTotalTimeoutConstant := 0;   SetCommTimeouts(CommHandle, CommTimeOut);   GetCommState(CommHandle, DCB);   DCB.BaudRate := 9600;   DCB.ByteSize := 8;   DCB.Parity := NOPARITY;   DCB.StopBits := ONESTOPBIT;   fRetVal := SetCommState(CommHandle, DCB);   if (fRetVal) then   begin     Connected := TRUE;     try       CommThread := TCommThread.Create;     except       Connected := FALSE;       CloseHandle(CommHandle);       fRetVal := FALSE;       StatusBar1.SimpleText := '线程建立失败';       Exit;     end;   end   else   begin     Connected := FALSE;     CloseHandle(CommHandle);   end; end; procedure TCommForm.Button2Click(Sender: TObject); begin   if Connected then   begin     Connected := FALSE;     CloseHandle(CommHandle); {终止线程}     CommThread.Terminate;     StatusBar1.SimpleText := '关闭端口' + ComboBox1.Text;   end   else     StatusBar1.SimpleText := '已关闭端口' + ComboBox1.Text; end; procedure TCommForm.FormClose(Sender: TObject; var Action: TCloseAction); begin   if Connected then   begin     Connected := FALSE;     CloseHandle(CommHandle);     CommThread.Terminate;     StatusBar1.SimpleText := '关闭端口' + ComboBox1.Text;   end; end; end.

wql · 2004-02-05

唉! activeX中的mscomm就可以简单搞定!

qince · 2004-02-05

SPCOMM是有这样的问题，会出现File Hanlde is not COM Handle，你将com1大写试试 或者干脆改成：MSCOMM 或 TApdComPort 吧 TApdComport不错，功能比SPCOMM强大

shangxuan · 2004-02-06

//现在出现的问题是当没有数据发回串口时会出现程序死锁，请帮忙看看！ procedure TForm1.Button2Click(Sender: TObject); var    hNewCommFile,hCommFile:   THandle;    commtimeouts:   TCommTimeouts;    dcb:            Tdcb;    commprop:       TCommProp;    fdwEvtMask:     DWORD;    pDataToWrite:   PChar;    dwNumberOfBytesWritten,dwNumberOfBytesToWrite,lpnNumberOfBytesRead

word;    lpOverlappedWrite: POverlapped;     buffer:array[0..20] of byte; begin      hNewCommFile := CreateFile( 'com1',                                  GENERIC_READ or GENERIC_WRITE,                                  0,                                  nil,                                  OPEN_EXISTING,                                  0,                                  0 &nbsp

;      if hNewCommFile = INVALID_HANDLE_VALUE then         raise ECommsError.Create( 'Error opening serial port' );      // Is this a valid comm handle?      if GetFileType( hNewCommFile ) <> FILE_TYPE_CHAR then      begin           CloseHandle( hNewCommFile );           raise ECommsError.Create( 'File handle is not a comm handle ' )      end;      if not SetupComm( hNewCommFile, 4096, 4096 ) then      begin           CloseHandle( hNewCommFile );           raise ECommsError.Create( 'Cannot setup comm buffer' )      end;      // purge any information in the buffer      PurgeComm( hNewCommFile, PURGE_TXABORT or PURGE_RXABORT or                            PURGE_TXCLEAR or PURGE_RXCLEAR ) ;     GetCommTimeouts( hNewCommFile, commtimeouts );      // The CommTimeout numbers will very likely change if you are      // coding to meet some kind of specification where      // you need to reply within a certain amount of time after      // recieving the last byte.  However,  If 1/4th of a second      // goes by between recieving two characters, its a good      // indication that the transmitting end has finished, even      // assuming a 1200 baud modem.      commtimeouts.ReadIntervalTimeout         := 100;      commtimeouts.ReadTotalTimeoutMultiplier  := 0;      commtimeouts.ReadTotalTimeoutConstant    := 0;      commtimeouts.WriteTotalTimeoutMultiplier := 0;      commtimeouts.WriteTotalTimeoutConstant   := 0;      SetCommTimeouts( hNewCommFile, commtimeouts );     GetCommState( hNewCommFile, dcb );     GetCommProperties(hNewCommFile, commprop );     GetCommMask(hNewCommFile, fdwEvtMask );  dcb.BaudRate := 9600;  dcb.Flags := 1;  dcb.Parity :=NOPARITY;  Dcb.ByteSize :=8;  dcb.StopBits :=ONESTOPBIT;  SetCommMask(hNewCommFile,EV_ERR or EV_RXCHAR);  SetCommState(hNewCommFile,Dcb);  hCommFile:=hNewCommFile;  pDataToWrite:='dsfasf';  dwNumberOfBytesToWrite:=strlen(pDataToWrite);  dwNumberOfBytesWritten:=5;  //出现错误,查询到的错误是error handle;  if not WriteFile(hCommFile,                              pDataToWrite,                              dwNumberOfBytesToWrite, dwNumberOfBytesWritten,                              0 ) then  showMessage(inttostr(getlasterror())); //然后再读串口   ReadFile( hCommFile,buffer                   , 20,                   lpnNumberOfBytesRead, 0 ); //现在出现的问题是当没有数据发回串口时会出现程序死锁，请帮忙看看！ //然后再写串口...... end;

shangxuan · 2004-02-06

不知在         commtimeouts.ReadIntervalTimeout         := 100;     commtimeouts.ReadTotalTimeoutMultiplier  := 0;     commtimeouts.ReadTotalTimeoutConstant    := 0;     commtimeouts.WriteTotalTimeoutMultiplier := 0;     commtimeouts.WriteTotalTimeoutConstant   := 0; 改成     commtimeouts.ReadIntervalTimeout         := 100;     commtimeouts.ReadTotalTimeoutMultiplier  := 0;     commtimeouts.ReadTotalTimeoutConstant    := 20;     commtimeouts.WriteTotalTimeoutMultiplier := 0;     commtimeouts.WriteTotalTimeoutConstant   := 0; 还会不会出现死锁!

救救我！操作串口怎么这样不行，那位能帮忙看一下，代码如下，谢谢！出现的错误为error handle! (200分)

shangxuan

Unregistered / Unconfirmed

app2001

Unregistered / Unconfirmed

wql

Unregistered / Unconfirmed

qince

Unregistered / Unconfirmed

shangxuan

Unregistered / Unconfirmed

shangxuan

Unregistered / Unconfirmed

Similar threads