Q&A

  • Cport에서 writestr후 rxchar 응답이 없어요.
Cport1 Events의 OnRxChar에 아래 수신함수연결하였는데 명령전송 후 응답이 없습니다.
(Com1 Port 1개로 송수신함)
상대편 기기에서 응답이 없는 것인지,잘못된 것인지 방법 좀 알려주세요.

//전송
procedure TMonitoring_F.btnSystemCheckClick(Sender: TObject);
begin
  ComPort1.ClearBuffer(True,True);
  With ComPort1 Do
  Begin
     WriteStr('SYS?'+#13);
  end;
end;

//수신
procedure TMonitoring_F.ComPort1RxChar(Sender: TObject; Count: Integer);
var
  str: string;
begin
  ComPort1.ReadStr(str, Count);
end;
1  COMMENTS
  • Profile
    신철우 2005.09.22 20:56
    델7 Cport bug인것 같네요.
    컴포넌트 Port에 COM1이라는 걸 세팅해놓았지만 웬일인지 COM2로 읽어들이네요.
    그래서 아래와 같이 Port를 재정의하니까 OK!

    procedure TMonitoring_F.btnSystemCheckClick(Sender: TObject);
    begin
      With ComPort1 Do
      Begin
         Port := 'COM1';
         if Not(Connected) then Open;

         WriteStr('SYS?'+#13);
      end;
    end;