Discussion :

[PHIL45]

Bonjour,

J'utilise du code de WinInnet pour transférer un fichier sur un serveur mais j'ai le problème suivant : le fichier n'est pas sur le serveur malgré que la connexion a réussie. Voici le bout de code que j'utilise :

Code :

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

1
2
3
4
5
6
  if OpenConnexion(Self.Handle, IServeur, IUtilisateur, ILogin, StrToInt(IPort))
  then begin
         IsConnected := true;
         UpLoadFile(Fichier, ExtractFileName(Fichier));
         ...
       end;

Pour mieux comprendre le problème, j'ai modifié le code avec Opendialog :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
  if OpenConnexion(Self.Handle, IServeur, IUtilisateur, ILogin, StrToInt(IPort))
  then begin
         IsConnected := true;
         if OpenDialog.Execute
         then begin
                OpenDialog.Title := 'Uploader';
                Fichier := OpenDialog.FileName;
                UpLoadFile(Fichier, ExtractFileName(Fichier));
                ....
              end;
       end;

Et là, ca marche le fichier est sur le serveur ! Il y a bien un autre moyen de placer un fichier sans passer pas la boite de dialogue OpenDialog.

Pourtant, j'ai vérifié le chemin du fichier et j'utilise ExtractFileName. Pouvez-vous m'aider ?

Merci pour votre collaboration

Phephelavi
Avez-vous une suggestion ?

Merci d'avance

Phephelavi

[Jipété]

Vit' fait :

Dans la proc avec OpenDialog, tu mets

Fichier := OpenDialog.FileName;

et ensuite tu utilises "Fichier" avec UploadFile.
Rien de tel avec l'autre manière...
Tu ne nous as pas mis tout le code ?
--
jp

[PHIL45]

Bonsoir,

Voici la procédure entière que j'ai réalisé suivant du code de Elgeuvel mais rien n'y fait, le fichier n'est toujours pas sur le serveur alors que la connexion et le transfert se sont bien déroulé (message de fin)

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
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
 
procedure TFCobraSAgent.EnvoyerFichierFTP;
//Se connecte au serveur et envoie le fichier de service de l'agent en cours
 
var
  FichierLocal       : string;    //Nom du fichier en local Windows
  FichierServeur     : string;    //Nom du fichier pour le serveur 
  Serveur            : string;    //Adresse serveur, ex : perso-ftp.wanadoo.fr
  Login              : string;    //Nom utilisateur, ex : <a href="mailto:mr.martin@wanadoo.fr">mr.martin@wanadoo.fr</a>
  MotPasse           : string;  
  Port               : string;    //Le n° du port, FTP par défaut = 21
  PConnexionInternet : HINTERNET;
  PConnexionFTP      : HINTERNET;
 
begin
  //On récupère d'abord les paramètres du serveur (par un Reguitry
  FCobraS.LireParamFTP(Serveur, Login, MotPasse, Port);
  ShowMessage('Handle : ' + IntToStr(Self.Handle) + #13#10 +
    'Adresse : ' + Serveur + #13#10 +
    'Login : ' + Login + #13#10 +
    'Mot de passe : ' + MotPasse + #13#10 +
    'Port : ' + Port);
 
  FichierLocal   := 'C:\CobrasSecurite\MainCourante\CSmc.txt';
  FichierServeur := 'CSmc.txt';
 
  //Connexions : Internet, puis FTP
  PConnexionInternet := InternetOpen(PChar('CobraSecurite'),  
    INTERNET_OPEN_TYPE_DIRECT, nil, nil, 0);
 
  if PConnexionInternet = nil
  then Exit;
 
  PConnexionFTP := InternetConnect(PConnexionInternet, Pchar(Serveur), StrToInt(Port), Pchar(Login), Pchar(MotPasse), INTERNET_SERVICE_FTP, 0, 0 );
 
  if PConnexionFTP = nil
  then begin
    InternetCloseHandle(PConnexionInternet);
    Exit;
  end;
 
  //Envoi du fichier
  Try
    FtpPutFile(PConnexionFTP, PChar(FichierLocal), PChar(FichierServeur), 
      FTP_TRANSFER_TYPE_BINARY, 0);
    Sleep(2000); 
  Finally
    //On ferme la connexion
    InternetCloseHandle(PConnexionInternet);
    InternetCloseHandle(PConnexionFTP);
  end;
  ShowMessage('Transfert réussi !');
end;

Je n'ai pas d'erreur mais le fichier 'CSmc.txt' n'est toujours pas sur le serveur (je vérifie avec FTPExpert).

Si quelqu'un peut me dire ou est le problème ! J'utilise le FTP par WinInet.

Phephelavi

[PHIL45]

Bonjour à tous,

Je ne sais pas pourquoi cela ne veut pas fonctionner mais j'ai trouvé une solution.

J'ai beau mettre même en "dur" le chemin et le nom du fichier, après un envoi du fichier, il n'est toujours pas sur le serveur. Que je passe par un String ou un FileName, et même un OpenDialog.FileName, rien n'y fait !

Tous les exemples que j'ai trouvé sur les forums, c'est toujours une application avec envoi, suppression, téléchargement en passant par une boite de dialogue mais jamais en passant par des variables et par une tâche de fond.

Alors, j'ai posé un panel, unTDirectoyListBox relié à un TFileListBox et un composant OpenDialog. Je mets le panel en invisible.

Dans la procédure d'envoi, je place :
...
OpenDialog1.FileName := FileListBox1.Items[FileListBox1.ItemIndex];
...

Et là, je n'ai plus de problème.

Si quelqu'un à une infos sur ce sujet, je suis preneur pour comprendre le problème.

Merci et bon weekend à tous !

Phephelavi