Hallo Zusammen,
bekomme immer den SocketFehler #10013 - Festgelegte Grösse überschritten.
Indy Komponente - IdIcmpClient1
Delphi-Quellcode:
procedure TForm1.IdIcmpClient1Reply(ASender: TComponent;
const AReplyStatus: TReplyStatus);
var
sTime: String;
begin
if (AReplyStatus.MsRoundTripTime = 0) then
sTime := '< 1'
else
sTime := '=';
ListBox1.Items.Add(Format('%d bytes from %s: icmp_seq=%d ttl=%d time%s%d ms',
[AReplyStatus.BytesReceived, AReplyStatus.FromIpAddress,
AReplyStatus.SequenceId, AReplyStatus.TimeToLive, sTime,
AReplyStatus.MsRoundTripTime]));
end;
eigentlicher Ping
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var
i: Integer;
begin
IdIcmpClient1.Host := 'www.delphi-treff.de';
for i := 1 to 4 do
begin
IdIcmpClient1.Ping;
Application.ProcessMessages;
end;
end;
kann es daran liegen das ich hier keine Admin-Rechte habe?