Discussion :

[[ZiP]]

Bonjour,

J'essai d'uploader la même image deux fois de suite sous deux noms différents mais l'image est complètement corrompue.

Voici 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
16
17
18
19
20
21
22
23
24
25
 
     Fichier := FormatDateTime('yyyy-mm-dd hh-nn-ss',Horaire) + '.jpg';
 
     FtpClient1.HostName := Ini_FTP_Host;
     FtpClient1.UserName := Ini_FTP_Login;
     FtpClient1.PassWord := Ini_FTP_Password;
     FtpClient1.Passive := true;
     try
          FtpClient1.Connect;
          FtpClient1.Binary := true;
 
          FtpClient1.LocalFileName := Ini_Path + Fichier;
          FtpClient1.HostDirName := Ini_FTP_Path;
          FtpClient1.HostFileName := 'webcam.jpg';
          FtpClient1.Put;
 
          FtpClient1.LocalFileName := Ini_Path + Fichier;
          FtpClient1.HostDirName := Ini_FTP_Path;
          FtpClient1.HostFileName := Fichier;
          FtpClient1.Put;
 
          FtpClient1.Quit;
     finally
 
     end;

L'image webcam.jpg existe déjà et doit être ecrasée, je ne sais pas si FtpClient le fait par défaut...

Savez-vous comment je peux faire ?

Merci,
Mathieu

[HumanTool]

salut,
est ce que tu as affecté l'évènement "OnRequestDone" de ton FTpClient pour savoir ce que le serveur FTP te répond (ecriture refusée par exemple) ?

[[ZiP]]

Bonjour,

J'ai oublié de vous donner des nouvelles, j'ai réglé mon problème en remplaçant :

Code :

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

1
2
 
FtpClient1.Binary := true;

par

Code :

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

1
2
 
FtpClient1.TypeBinary := true;

Cordialement,
Mathieu

[aadamfr]

Bonjour à tous,

Je viens apporter ma contribution...

J'ai eu le même problème que Mathieu, j'ai donc tester ce fameux "FtpClient1.TypeBinary := true;", mais cela ne fonctionne pas puisque TypeBinary est une fonction et non une propriété. (Peut être que la définition a changée je ne sais pas).

Voici comment j'ai résolu le problème.

Code :

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

1
2
 FtpClient1.Binary := True;
 FTPClient1.TypeSet;

TypeSet semble mettre a jour la valeur Binary.

En esperant avoir pu vous aider