Bonjour,

J'ai un petit soucis avec ma procédure de téléchargement de fichier.
Normalement elle est sensée récupérer un fichier sur mon serveur et me le copier dans mon répertoire temporaire.

Pb: l'opération s'effectue à un détail pret, le fichier local est vide.

J'ai mis un try except sur le download, mais je ne rentre jamais dans l'except.
Par contre, la fonction d'upload elle marche impecable (avec les même chemins d'accès mais inversés ce coup ci).

Mon code :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
    FTP_Get: TNMFTP;
 
 
  Login    := 'MonLogin';
  Pass     := 'MonPass';
  FTP_Get.UserID   := Login;
  FTP_Get.Password := Pass;
  FTP_Get.Host     := 'SERVEUR';
  try
     FTP_Get.Connect;
     try
       if FileExists(TempPath+ExtractFileName(FilePath)) then DeleteFile(TempPath + ExtractFileName(FilePath));
      MD_Com.FTP_Get.Download( FilePath,TempPath+ExtractFileName(FilePath));
      MD_Com.FTP_Get.Upload(TempPath+ExtractFileName(FilePath), FilePath);
J'ai essayé avec un autre composant :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
    IdFTPTestFile: TIdFTP;
 
 
  Login    := 'MonLogin';
  Pass     := 'MonPass';
  FTP_Get.UserName  := Login;
  FTP_Get.Password := Pass;
  FTP_Get.Host     := 'SERVEUR';
 
     IdFTPTestFile.Username := Login;
     IdFTPTestFile.Password := Pass;
     IdFTPTestFile.Host     := 'SERVEUR';
     IdFTPTest.Get('FilePath,TempPath+ExtractFileName(FilePath));
Mais là je récupère une violation d'accès (de plus, il crée bien le fichier en local mais toujours vide).


J'avoue que je pédale grandement là.

Si quelqu'un a une idée...

Merci d'avance

Ps: Je suis sous delphi 4 avec indy 9