Discussion :

[Xalex]

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

[Reisubar]

Tu ne crées pas d'instance des objets que tu utilises. Par exemple, avec Indy, il manque en début de fonction :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

IdFTPTestFile := TIdFTP.Create();

[Xalex]

J'utilise les objets indy directement dans la forme, c'est pas du dynamique. Donc normalement le create et le free sont fait automatiquement non?

[Aka Guymelef]

Il ne manquerait pas l'appel à la fonction Connect pour IdFTPTestFile ?