Existe-t-il un moyen simple d’utiliser la fonction FTP dans le code Lazarus

Je suis nouveau depuis quelques mois à Lazarus. J’ai essayé de créer un petit programme FTP qui enverra un petit fichier après la connexion. J’ai tout ce qu’il faut et mon seul souci est la partie FTP. J’ai beaucoup d’erreurs et j’ai eu du mal à installer les bons paquets

Mon code FTP ressemble à ceci

function TModel.Send(LocalFile : ssortingng; remoteFile : ssortingng; RemoteDir : ssortingng) : boolean; //=========================================================================== // ********************************************************************** // * Send a file to the FTP server * // ********************************************************************** //--------------------------------------------------------------------------- var rc : boolean; begin // Create the FTP Client object and set the FTP parameters FTPClient := TFTPSend.Create; with FTPClient do begin TargetPort := cFtpProtocol; TargetHost := fHost; // these were properties set somewhere else UserName := fUserID; Password := fPassword; //----------------------------------------------------------------------- // bail out if the FTP connect fails if not LogIn then exit; //------------------------------------------------------------------------ // Set filename to FTP DirectFileName := LocalFile; DirectFile := True; //------------------------------------------------------------------------ // change directory if requested if RemoteDir  '' then ChangeWorkingDir(RemoteDir); //------------------------------------------------------------------------ // STOR file to FTP server. rc := StoreFile(RemoteFile,false); //------------------------------------------------------------------------ // close the connection LogOut; //------------------------------------------------------------------------ // free the FTP client object free; //------------------------------------------------------------------------ end; Result := rc; //=========================================================================== end; 

Merci de votre aide.

• Ruby FTP extrêmement lent sous Windows XP
• Batch supprimer des fichiers sur FTP plus ancien que x jours
• Comment planifier un téléchargement FTP automatique sous Windows?
• C # Comment télécharger des fichiers volumineux sur un site FTP
• Client FTP alternatif pour Windows

• Comment pouvez-vous exécuter un SFTP via pbrun
• Windows équivalent de .netrc sur unix?
• Filezilla arrête de se connecter après MLSD
• socket.error: Aucune connexion n’a pu être établie car la machine cible l’a activement refusée
• programmation ftp: comment annuler le transfert de fichiers?

  begin IdSMTP := TIdSMTP.Create(nil); try IdSMTP.Host := 'smtp.jonas.com'; IdSMTP.Port := 587; IdSMTP.AuthType := satDefault; IdSMTP.Username := '[email protected]'; IdSMTP.Password := 'TeCat#!'; IdSMTP.Connect; if IdSMTP.Authenticate then; begin IdMessage := TIdMessage.Create(nil); try IdMessage.From.Name := 'Jonas Server'; IdMessage.From.Address := '[email protected]'; IdMessage.Subject := subject; IdMessage.Body.AddSsortingngs(message); IdEmailAddressItem := IdMessage.Recipients.Add; IdEmailAddressItem.Address := '[email protected]'; IdSMTP.Send(IdMessage); finally IdMessage.Free; end; end; IdSMTP.Disconnect; finally IdSMTP.Free; end; end;