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;
컴포넌트 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;