Mit Delphi Anwendung andere rechner anpingen

[Klaus01]

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