hi
ich versuche eine internetseite anzupingen, und zwar mithilfe der indys, genauer IdIcmpClient
das versuche ich so:
Delphi-Quellcode:
procedure TForm1.Btn_GetClick(Sender: TObject);
//Ping einleiten
var i:Integer;
begin
Btn_Get.Enabled := False;
try
Ping.Host := Edt_URL.Text;
for i := 1 to 4 do
begin
Ping.Ping;
Application.ProcessMessages;
end;
finally
Btn_Get.Enabled := True;
end;
end;
Delphi-Quellcode:
procedure TForm1.PingReply(ASender: TComponent; const AReplyStatus: TReplyStatus);
//Bei PingReply
var sTime: string;
begin
if (Ping.ReplyStatus.MsRoundTripTime = 0) then
sTime := '<1'
else
sTime := '=';
ListBox1.Items.Add(Format('%d Byte von %s: icmp_seq=%d ttl=%d Zeit%s%d ms',
[Ping.ReplyStatus.BytesReceived,
Ping.ReplyStatus.FromIpAddress,
Ping.ReplyStatus.SequenceId,
Ping.ReplyStatus.TimeToLive,
sTime, Ping.ReplyStatus.MsRoundTripTime]));
end;
dies ist bisher nur von
hier abgeschrieben, aber es funzt trotzdem nicht.
was mache ich falsch?