Upload file su server FTP in Dynamics Nav con dll DotNet

In un recente progetto ho dovuto gestire l’Upload di file, in formato jpg, tramite protocollo FTP dal gestionale Miscrosoft Dynamics Nav 2018. Nel post di oggi condivido il codice C/AL utilizzato per effettuare Upload file su server FTP in Dynamics Nav con dll DotNet.

Upload file su server FTP in Dynamics Nav con dll DotNet

Per effettuare l’upload tramite protocollo FTP ho utilizzato le dll DotNet che sono visibili direttamente nel codice qui sotto (VAR).
La funzione FTP_GetSetup si occupa di inizializzare i parametri di accesso all’FTP e il percorso locale dei file.
Per quanto riguarda la funzione FTP_Upload riceve, come parametro, il nome del file (FileNamePar) da inviare ed effettua l’Upload.

    VAR
      FtpRequest@1101318017 : DotNet "'System, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089'.System.Net.FtpWebRequest";
      FtpResponse@1101318016 : DotNet "'System, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089'.System.Net.FtpWebResponse";
      NetworkCredential@1101318015 : DotNet "'System, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089'.System.Net.NetworkCredential";
      RequestStream@1101318013 : DotNet "'mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089'.System.IO.Stream";
      FileStream@1101318012 : DotNet "'mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089'.System.IO.FileStream";
      FileDotNet@1101318022 : DotNet "'mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089'.System.IO.File";
      FTP_PATH@1101318010 : Text;
      FTP_USER@1101318009 : Text;
      FTP_PSW@1101318008 : Text;
      LOCAL_PATH@1101318007 : Text;

PROCEDURE FTP_GetSetup@1101318025();
    BEGIN

      FTP_PATH := 'ftp://yourFtpIP/RemoteDirectory/';
      FTP_USER := 'YourFtpUser';
      FTP_PSW := 'YourFtpPassword';
      LOCAL_PATH := 'YourLocalPath/LocalDirectory'; //example: 192.160.10.10/TMP/
	  
    END;
	
PROCEDURE FTP_Upload@1101318022(FileNamePar@1101318000 : Text);
    BEGIN

      FTP_GetSetup;

      FtpRequest := FtpRequest.Create(FTP_PATH + FileNamePar);
      FtpRequest.Credentials := NetworkCredential.NetworkCredential(FTP_USER, FTP_PSW);
      FtpRequest.KeepAlive := TRUE;
      FtpRequest.UseBinary := TRUE;
      FtpRequest.Method := 'STOR';

      FileStream := FileDotNet.OpenRead(LOCAL_PATH + FileNamePar);
      RequestStream := FtpRequest.GetRequestStream();
      FileStream.CopyTo(RequestStream);
      RequestStream.Close;

      FtpResponse := FtpRequest.GetResponse();
      //MESSAGE(FtpResponse.StatusDescription); //for view the status message
	  
    END;

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

Nei prossimi post vedremo come implementare il Download e il Delete dei file.

Maggiori info sulla classe FtpWebrequestMethods le trovate a questo link.

A presto 😉

Upload file su server FTP in Dynamics Nav con dll DotNet

Articoli Correlati

Lascia un commento Annulla risposta