connection closed gracefully 에러가 발생합니다. ㅠㅠ

[강길남]

 

 

요즘 개인적으로 공부하는 프로젝터 전원 on/off 프로그램입니다.

15년전에 델파이로 erp 개발해보고 첨으로 집에 프로젝터를 온오프 해보고싶어서 연습하는데

실력이 없어서 안되네요.

 

서버에 연결은 잘 됩니다.

전원 on 하라 는 명령까지도 잘 됩니다.

 

몇 분 후 전원 off 하라는 btn_OffClick 실행시키면

connection closed gracefully 에러가 발생합니다.

도대체 이유를 모르겠습니다.

 

connection은 살아있는데 btn_OffClick 버튼을 클릭하여 connection closed gracefully 에러 가 발생합니다.

 

제가 tcp/ip에 대한 지식이 부족하다 보니 ㅠㅠ

 

고수님들의 조언을 부탁드립니다.

 

고맙습니다.

 

 

---------------------------------------------------------------

procedure TFormClient.btnConnectClick(Sender: TObject);  // 서버에 연결해라
begin
  IdTCPClient1.Host := '192.168.1.21';
  IdTCPClient1.Port := 4352;
  IdTCPClient1.Connect;
end;
 

procedure TFormClient.btn_OnClick(Sender: TObject);  // 전원 on 하라
var
  on_flag: widestring;
  temp: string;
  n: integer;
begin
    temp := '2531504f575220310d';

    for n := 0 to 8 do
    begin
      // 16x add Target-Mac-Adress / 16x die Ziel-Macadresse hinzufügen
      on_flag := on_flag + Chr(StrToInt('$' + temp[1] + temp[2]));
      Delete(temp, 1, 2);
    end;
  Memo1.Lines.Add(on_flag);
  IdTCPClient1.IOHandler.WriteLn(on_flag);
end;

procedure TFormClient.btn_OffClick(Sender: TObject);  // 전원 off 하라
var
  on_flag: widestring;
  temp: string;
  n: integer;
begin
    temp := '2531504f575220300d';

    for n := 0 to 8 do
    begin
      // 16x add Target-Mac-Adress / 16x die Ziel-Macadresse hinzufügen
      on_flag := on_flag + Chr(StrToInt('$' + temp[1] + temp[2]));
      Delete(temp, 1, 2);
    end;
  Memo1.Lines.Add(on_flag);
  IdTCPClient1.IOHandler.WriteLn(on_flag);

end;

procedure TFormClient.IdTCPClient1Connected(Sender: TObject);  // 연결성공시 메시지 뿌려라
var
  str: string;
begin
  Memo1.Lines.Add('연결됨');
  Thread := TMyThread.Create(IdTCPClient1, Self);
end;

[Miniuser]

해당 오류는 서버쪽에서 일방적으로 연결을 종료한 서버에 연결을 요청할 떄 발생하는 이슈라고 합니다.

예를 들어, 이미 닫힌 파일을 읽거나 쓰려고 할 떄 발생하는 것과 비슷한 것이라고 합니다.

 

아래 참고 사이트를 참고해보시면 좋을 것 같습니다.

 

참고 사이트 : 

https://stackoverflow.com/questions/1085933/delphi-indy-connection-closed-gracefully

https://www.swissdelphicenter.ch/en/showarticle.php?id=1

Edited 3월 31일 by Miniuser

[c2design]

명령어만 날리면 장비는 작동 하지 않나요 ?

장비쪽에서 따로 응답을 줄 것 같지는 않으니 TCP 가 아닌 UDP 로 전송을 해보세요.