Discussion :

[kernigansnotdead]

Bonjour,

j'utilise Delphi7 avec indy10. J'ai un programme qui tente de transférer un fichier .dat de 7mb sur un serveur par FTP, mais le transfert échoue, dumoins le fichier de destination fait dans les 600kb et parcontre je ne recois aucune erreur ou exception pour me prévenir que quelquechose n'a pas fonctionné.

J'ai essayé de charger le meme fichier sur le meme serveur mais manuellement, pour voir en cas si ce n'est pas un problème de restriction sur le serveur, et ça a réussi;
donc je pense que quelquechose ne va pas dans 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
26
27
 
try
 if FileExists(myFile) then
  begin 
  ftp.Host:='xxxxx';
  ftp.Username:='xxxxx';
  ftp.Password:='xxxxx';
  ftp.Port := 21;
  ftp.Passive := True;
  ftp.Connect;
      if FTPFileExists(myFile2) then
      begin
      showmessage('remote file exists already!');
      end
      else
      begin
      ftp.Put(myFile, '/htdocs/dat/remote_file.dat', true);
      showmessage('dat file uploaded!');
      end;
      ftp.Disconnect;
   end;
except
     on E : Exception do
     begin
     showmessage('transfer failed');
     end;
  end;

avez-vous une idée?

merci d'avance
KND

[Rayek]

Essai sans le Passive := True;

[kernigansnotdead]

salut,

en fait, j'ai essayé sans passive := true; ça ne fonctionne pas, je n'ai meme pas de fichier à l'arriver sur le serveur, meme de petite taille.
J'ai essayé le mode ftBinary, pareil, la je vois pas