자유롭게 질의 및 응답을 할 수 있는 게시판입니다. 개발자 여러분의 답변이 큰 도움이 됩니다.
- 제품설치/등록 오류 문의: 설치/등록 Q&A 이용 (제품 구매 고객 한정)
Firemonkey IdIcmpClient1.Ping Test Error
2014.04.11 20:15
안녕하세요.
Delphi XE5에서 Ping Test하면 "Socket Error #10013 Access Denied "가 발생 하는데
같은 PC에서 Delphi7로 테스트하면 error가 없습니다.
테스트 소스는 아래와 같습니다.
검토 부탁드립니다.
================ Delphi XE5 - TEST 내용 -- Socket Error #10013 Access Denied ======================
procedure TForm1.Button3Click(Sender: TObject);
var
ABuffer : string;
begin
IdIcmpClient1.ReceiveTimeout := 1000;
ABuffer := '192.168.3.76' + stringofchar(' ', 256);
IdIcmpClient1.Host := '192.168.3.76';
IdIcmpClient1.Ping(ABuffer);
//IdIcmpClient1.Ping();
Sleep(2000);
if IdIcmpClient1.ReplyStatus.ReplyStatusType = rsEcho then
ShowMessage('True')
else
ShowMessage('False');
end;
================ Delphi7 - TEST 내용--- Error없음 ======================
procedure TForm1.Button1Click(Sender: TObject);
begin
IdIcmpClient1.ReceiveTimeout := 1000;
IdIcmpClient1.Host := '192.168.3.76';
IdIcmpClient1.Ping;
Sleep(500);
if IdIcmpClient1.ReplyStatus.ReplyStatusType = rsEcho then
ShowMessage('True')
else
ShowMessage('False');
end;
댓글 3
Firemonkey IdIcmpClient1.Ping Test Error
2014.04.11 20:15
안녕하세요.
Delphi XE5에서 Ping Test하면 "Socket Error #10013 Access Denied "가 발생 하는데
같은 PC에서 Delphi7로 테스트하면 error가 없습니다.
테스트 소스는 아래와 같습니다.
검토 부탁드립니다.
================ Delphi XE5 - TEST 내용 -- Socket Error #10013 Access Denied ======================
procedure TForm1.Button3Click(Sender: TObject);
var
ABuffer : string;
begin
IdIcmpClient1.ReceiveTimeout := 1000;
ABuffer := '192.168.3.76' + stringofchar(' ', 256);
IdIcmpClient1.Host := '192.168.3.76';
IdIcmpClient1.Ping(ABuffer);
//IdIcmpClient1.Ping();
Sleep(2000);
if IdIcmpClient1.ReplyStatus.ReplyStatusType = rsEcho then
ShowMessage('True')
else
ShowMessage('False');
end;
================ Delphi7 - TEST 내용--- Error없음 ======================
procedure TForm1.Button1Click(Sender: TObject);
begin
IdIcmpClient1.ReceiveTimeout := 1000;
IdIcmpClient1.Host := '192.168.3.76';
IdIcmpClient1.Ping;
Sleep(500);
if IdIcmpClient1.ReplyStatus.ReplyStatusType = rsEcho then
ShowMessage('True')
else
ShowMessage('False');
end;
위 코드로 XE5로 동작 시 위의 오류 메시지가 발생하지 않습니다. 서버는 델파이의 PAServer로 테스트 했습니다.