Mit Delphi Anwendung andere rechner anpingen

[Christian18]

Hallo,

kann ich mittels Delphi Anwendung einen anderen rechner anpingen?

MFG Christian18

[DeddyH]

Jepp. Entweder nimmst Du dazu Netzwerk-Komponenten wie die Indys, ICS, etc. oder Du rufst den Windows-eigenen Ping z.B. mit ShellExecute auf.

[Christian18]

Ích will das über indys machen. hast du ein bisschen quellcode für mich.

MFG Chris

[Klaus01]

Zitat:

Zitat von Christian18

Ích will das über indys machen. ....

MFG Chris

bei den Indys benötigst Du Adminrechte um den Ping auszuführen.

Edit: etwas Code:

Delphi-Quellcode:

    IF pingserver1.Checked  AND (current_server <> '') THEN
      BEGIN
        pingtest.ReceiveTimeout:=settings.getPingTimeout*1000;
        pingtest.Host:=current_server;
        pingtest.Ping;

        case pingtest.ReplyStatus.ReplyStatusType of
           rsEcho :  begin
                       led.Draw(led_display.Canvas,0,0,1);
                      end;
           rsTimeout: led.Draw(led_display.Canvas,0,0,2);
           rsErrorUnreachable : led.Draw(led_display.Canvas,0,0,3);
         else
           led.Draw(led_display.Canvas,0,0,2);
        end;
       led_display.Repaint;
      end
  end;

Grüße
Klaus

[DeddyH]

Ansonsten [dp]Indy+ping[/dp]