Italian community of Lazarus and Free Pascal

Programmazione => Generale => Topic aperto da: Take It Easy - Novembre 05, 2015, 06:00:32 pm

Titolo: Come verificare la connessione (ping) ad un PC?
Inserito da: Take It Easy - Novembre 05, 2015, 06:00:32 pm

Salve ragazzi, a volte ritorno con dei quesiti che ad alcuni di Voi faranno sorridere.. per via della banalità!!

Ho in pratica bisogno di stabilire quali PC in un dato momento siano raggiungibili in rete (LAN).. ed in base al relativo risultato effettuare determinate operazioni.

Ancora più semplicemente mi basterebbe "intercettare" il risultato del ping ad una serie di indirizzi IP.

Al solito ringrazio anticipatamente per la cortese disponibilità.

Nico

Titolo: Re:Come verificare la connessione (ping) ad un PC?
Inserito da: nomorelogic - Novembre 06, 2015, 12:30:39 am

guarda in
...\fpc\packages\fcl-net\examples\testnet.pp


poi c'è anche synapse
http://synapse.ararat.cz/doc/help/pingsend.TPINGSend.html

Titolo: Re:Come verificare la connessione (ping) ad un PC?
Inserito da: bonmario - Novembre 06, 2015, 08:01:47 am

Ciao,
non so se il post è tuo, ma se ne parla proprio qui in questi giorni: http://forum.lazarus.freepascal.org/index.php/topic,30283.0/topicseen.html

Ciao, Mario

Titolo: Re:Come verificare la connessione (ping) ad un PC?
Inserito da: Take It Easy - Novembre 06, 2015, 08:05:51 am

Adesso provo.. e poi vi farò sapere!!  ;)

Titolo: Re:Come verificare la connessione (ping) ad un PC?
Inserito da: Take It Easy - Novembre 06, 2015, 10:48:49 am

Raga risolto!!!  ;)

..installato (per modo di dire) Synapse, o meglio il solo "pingsend.pas" e molto semplicemente:

in NomeProgr.lpr:

uses
  ..., pingsend;

nella unit:

Codice: [Seleziona]

uses 
  ..., pingsend;
...
var
  Ping: TPINGSend;
Begin
...
Ping := TPINGSend.Create;
try
    Ping.Timeout := 500;
    if Ping.Ping('192.168.1.1') = True then
    begin
      // Tutto OK
      ...
    end
    else
    begin
      // Ping fallito!
      ...
    end;
   finally
     Ping.Free;
   end;

Grazie ancora per la dritta  :D