Eseguire il Ping in Dynamics Nav tramite dll DotNet

Nell’articolo di oggi vedremo come Eseguire il Ping in Dynamics Nav tramite dll DotNet. Effettuare un Ping prima di effettuare una connessione con un dispositivo di rete permette di verificare se il dispositivo, a cui tentiamo di connetterci, risulta raggiungibile.

Eseguire il Ping in Dynamics Nav tramite dll DotNet

Il codice è abbastanza semplice. La funzione ExecutePing(HostNameOrIP) riceve come parametro l’IP, o il nome host, a cui vogliamo connetterci e verifica se l’indirizzo è raggiungibile.
La funzione ritorna come valore un Boolean: se il Ping va a buon fine il valore di ritorno è TRUE altrimenti è FALSE.

    PROCEDURE ExecutePing@1101318034(HostNameOrIP@1101318002 : Text) : Boolean;
    VAR
      Ping@1101318000 : DotNet "'System, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089'.System.Net.NetworkInformation.Ping";
      PingReply@1101318001 : DotNet "'System, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089'.System.Net.NetworkInformation.PingReply";
    BEGIN
      Ping := Ping.Ping;
      PingReply := Ping.Send(HostNameOrIP, 1000);
      //MESSAGE('Status: %1\Time: %2\Address: %3', PingReply.Status, PingReply.RoundtripTime,PingReply.Address);
      IF FORMAT(PingReply.Status) = 'Success' THEN
        EXIT(TRUE)
      ELSE EXIT(FALSE);
    END;

Se proviamo a decommentare il MESSAGE, presente all’interno della funzione, e proviamo ad effettuare un Ping verso l’indirizzo google.it in questo modo:

ExecutePing('google.it');

ci verrà mostrato l’esito del Ping

Il codice è stato testato e utilizzato sulla versione di Dynamics Nav 2018 on-premise.

Questa la parte che riguarda la dichiarazioni delle variabili DotNet Ping e PingReply

Nel mio caso ho utilizzato questa funzione prima di inviare il codice ZPL, per la stampa delle etichette su stampanti Zebra, per verificare se la stampante a cui tento di connettermi risulta raggiungibile.

Maggiori informazioni sulla classe DotNet Ping le trovate a questo link.

A presto;