I write a very simple application to test ping issues I was having on
Win2K3 Server.
As you can see its a very simple test. This works fine on Win2K and
WinXP. However, when I execute this on Win 2K3 is crashes out with a
error and the message of 'Range check error'.
The code was built under Delphi 7 using Indy 10 (gsIdVersion = '10.1.5')
Any thoughts ????
TIA, Ivor
procedure TForm1.Button1Click(Sender: TObject);
begin
IdIcmpClient1.Host := Edit1.Text;
IdIcmpClient1.Ping('ABCDEFGHIJ',0);
end;
procedure TForm1.IdIcmpClient1Reply(ASender: TComponent;
const AReplyStatus: TReplyStatus);
var
s: String;
begin
case AReplyStatus.ReplyStatusType of
rsEcho: s:= 'Alive RTT '+
IntToStr(AReplyStatus.MsRoundTripTime)+'ms';
rsError: s:= 'Error';
rsTimeOut: s:= 'Timeout';
rsErrorUnreachable: s:= 'Unreachable';
rsErrorTTLExceeded: s:= 'TTL Expired';
end;
Memo1.Lines.Add(s);
end;
--
