Lazarus - MacOS X/Linux - Do a network Ping from within your appliccations - Delphi, Lazarus, Free Pascal

RE: Lazarus - MacOS X/Linux - Do a network Ping from within your appliccations

Hans — Sun, 23 Jun 2024 12:59:10 +0000

For those writing apps with the intend to place them in the Apple App Store:

Applications in the App Store are sandboxed, which means that without the proper entitlements, PING will not work.

After wasting an entire day on how to better implement ping (in code for example - note: Synapse's ping host function does not work under macOS), I found that you will need to set these 2 entitlements for ping to work (in the code I presented above):

com.apple.security.network.client
com.apple.security.network.server

One to send "signals" to the network, but the other one is also needed to receive the ping response.

So you entitlements.plist file could look something like this:




  com.apple.security.app-sandbox
  
  com.apple.security.network.server
  
  com.apple.security.network.client

Hope that by posting this here I'm saving someone wasting a day as well 😉

RE: Lazarus - MacOS X/Linux - Do a network Ping from within your appliccations

Hans — Mon, 02 May 2016 11:21:59 +0000

A version that works for Windows (tested Windows 10) and MacOS X (tested with El Capitan) - downside for Windows is the briefly popping up of a shell window.

function Ping(Host:string):boolean;
var s : ansistring;
const PingCount   = '2'; // number of pings
      PingTimeout = '2'; // timout for each ping
begin
  s:='';
  {$IFDEF Darwin}
  RunCommand('/sbin/ping',,s);
  {$ENDIF}
  {$IFDEF Windows}
  RunCommand('ping.exe',,s);
  {$ENDIF}
  Result := (pos('100.0% packet loss',S)=0) and (pos('100% packet loss',S)=0) and (pos('100% loss',S)=0);
end;

Lazarus - MacOS X/Linux - Do a network Ping from within your appliccations

Hans — Mon, 25 Apr 2016 15:31:31 +0000

You could use Synapse to do a Ping, but so far I have had zero luck in executing any of the example codes - this appear related to required elevated admin rights to actually do a ping that way. However ... you can do it by using the Terminal/Commandline "ping".

You will need to include the "process" unit in the Uses Clause.

Quickly wrapped in a simple function for MacOS X and Linux - This function WILL NOT WORK under Windows:

function TForm1.Ping(Host:string):boolean;
var s : ansistring;
const PingCount   = '1'; // number of pings
      PingTimeout = '2'; // timout for each ping
begin
  {$IFDEF Darwin}
    RunCommand('/sbin/ping',,s);
  {$ELSE}
    RunCommand('/bin/ping',,s);
  {$ENDIF}
  Result := (pos('100.0% packet loss',S)=0) and (pos('100% packet loss',S)=0);
end;

I've tested this under MacOSX and Linux (Ubuntu / Freya OS).

You will see that time out parameter under MacOS X (-t) is slightly different than under Linux (-w), and that the location of ping is different as well.

The parameters and location might be different under different Linux versions as well.