Die
Indy Ping Komponente habe ich heute mal getestet mit Delphi 6. Aktuelle
Indy 10.6, unter Windows 8: funktioniert. Ist sicher die 10.6 Version gefunden worden, nicht eine eventuell noch im Suchpfad enthaltenen ältere Version? Die Version lässt sich "auf die Schnelle" mit TIdIcmpClient.Create.Version ermitteln.
Tipp: Sourcecode mal hier posten, aber mit dynamisch erzeugter
Indy Komponente. Dann geht es auch ohne eine komplette Deinstallation und Neuinstallation der
Indy Komponenten, was sehr viel Zeit spart (vor allem wenn man beim Testen schnell zwischen verschiedenen Revisionen wechseln muss).
p.s. Betreff "idsmtp:..." sollte vermutlich "TIdIcmpClient:..." sein
Mein Code:
Delphi-Quellcode:
unit PingTestUnit;
interface
uses
IdIcmpClient, Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 =
class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private-Deklarationen }
public
{ Public-Deklarationen }
procedure DoReply(ASender: TComponent;
const AReplyStatus: TReplyStatus);
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var
Ping: TIdIcmpClient;
begin
Ping := TIdIcmpClient.Create;
try
// Ping.Host := '127.0.0.1';
Ping.Host := '
heise.de';
Ping.OnReply := DoReply;
Ping.Ping;
finally
Ping.Free;
end;
end;
procedure TForm1.DoReply(ASender: TComponent;
const AReplyStatus: TReplyStatus);
begin
ShowMessage(TIdIcmpClient.Create.Version + #13#10
+ AReplyStatus.Msg + '
host ' + AReplyStatus.FromIpAddress);
end;
end.