Q&A

  • 핑 라벨 ping label
<!--CodeS-->
procedure TForm1.Button1Click(Sender: TObject);
begin
  Label1.Caption := ''; // 실행되지 않음
  IdIcmpClient1.Host := 'www.naver.com';
  IdIcmpClient1.Ping();
end;

procedure TForm1.IdIcmpClient1Reply(ASender: TComponent;
  const AReplyStatus: TReplyStatus);
begin
  Label1.Caption := 'ping';
end;
<!--CodeE-->

안녕하세요?
버튼을 누르면 라벨을 지우고 핑을 실행하는 것입니다.
핑은 되는데 라벨이 안지워집니다.
이유를 알려 주시기 바랍니다.
안녕히 계세요.
2  COMMENTS