yvemoreau
Messages postés308Date d'inscriptionmardi 11 juin 2002StatutMembreDernière intervention26 septembre 2008 28 déc. 2003 à 09:59
indy pourrait faire l'affaire
les composants de françois piette également sont pour moi les plus facile à utiliser...
exemple simple avec ftpClient de françoisPiette
{ Prepare connection to Ftp server }
FtpClient1.HostName := 'ftpperso.free.fr'; // change l'adresse pour la tienne
FtpClient1.Port := 'ftp';
FtpClient1.HostDirName := '';
FtpClient1.HostFileName := 'listes.txt';
FtpClient1.LocalFileName := 'c:\listes0000.txt';
FtpClient1.Binary := TRUE;
FtpClient1.UserName := 'ljbcv'; // ton nom d'utilisateur quand tu te branche manuellement (ouvrir une session en tant que...
FtpClient1.Password := '???????'; // ton mot de passe
FtpClient1.Connect;
FtpClient1.Cwd;
FtpClient1.Get; // aller chercher le fichier listes.txt
if FileExists('c:\listes0000.txt')then
//si le fichier interne à été créé c'est que le process à réussi
begin
assignFile(g,'c:\listes0000.txt');
reset(g);
...
closeFile(g);
end