Q&A

  • ics의 ping콤포넌트로 pingtest하기
메인프로그램이 실행할때 FormCreate이벤트에서

핑테스트를 해서 핑이 죽었으면 메인프로그램을

죽이려고 합니다.



Ping1.DnsLookup(TmpTns);

if pingError then begin

WinExec('C:TessTnsTnsProgram.EXE', SW_SHOWNORMAL);

Application.Terminate;

Close;

end;



procedure TfBas_Main.Ping1EchoReply(Sender, Icmp: TObject; Error: Integer);

begin if Error = 0 then pingError := True

else pingError := False;

end;

라고 하면 TnsProgram은 실행되지만 메인프로그램은 FormActivate이벤트에서

에러가 생기는데요.

이유가 뭔지 알수가 없네요.

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



0  COMMENTS