CLIENT FTP AVEC L'API WINDOWS (WININET.DLL)

Commentaire de elguevel le 31/08/2005 16:32:49

Je vois que mon code n'interesse pas grand monde :s

Sinon j'ai repondu a ma question pour faire une recherche recursive qui permet de lister tout les fichiers d'un FTP :

{ Lit tout les fichier d'un serveur FTP en partant d'un chemin de depart ! }
procedure Recursive( tList : TListBox; Repertoire : string );
var
    STRUCT_DATA : _WIN32_FIND_DATAA;
    FoundFile   : Pointer;
    bFound      : Boolean;
    TypeFile    : String;
    Memorise    : Array[0..50] of string;
    idx         : Integer;
    i           : Integer;
begin

    // Init
    i := 0;
    idx := 0;
    FoundFile := nil;
    bFound := False;

    if PConnexionFTP <> nil then
    begin

        FtpSetCurrentDirectory( PConnexionFTP, Pchar( SlachFTP(Repertoire) ) );
        FoundFile := FtpFindFirstFile( PConnexionFTP, PChar('*.*'), STRUCT_DATA, 0, 0 );

        if FoundFile <> nil then
        repeat

            if (STRUCT_DATA.dwFileAttributes and FILE_ATTRIBUTE_DIRECTORY ) = FILE_ATTRIBUTE_DIRECTORY  then
            begin
                if ( Trim(STRUCT_DATA.cFileName) <> '.' ) and ( Trim(STRUCT_DATA.cFileName) <> '..' ) then
                begin
                    Memorise[idx] := STRUCT_DATA.cFileName;
                    inc( idx );
                end;
            end else
            begin

//              TypeFile := AttributeToStr( STRUCT_DATA.dwFileAttributes );
                tList.Items.Add( SlachFTP(GetCurrentDirectory( PConnexionFTP )) + STRUCT_DATA.cFileName  );
            end;

            bFound := InternetFindNextFile( FoundFile, @STRUCT_DATA );

        until not bFound;

        InternetCloseHandle( FoundFile );
    end;

    for i := 0 to High( Memorise ) do
    begin
        if ( Memorise[i] <> '' ) then
        begin
            Recursive( tList,  Memorise[i] );
            FtpSetCurrentDirectory( PConnexionFTP, PChar( ExtractBeforeFolder( GetCurrentDirectory( PConnexionFTP ) ) ) );
            Application.ProcessMessages;
        end;
    end;

end;

Voila ..

Damien

Commentaire de elguevel le 21/09/2005 21:49:31

désolé je ne fait pas de .Net :-(

Par contre si tu as des questions à poser à propos de cette application, ou des améliorations à apporter n'hesite pas.

J'en ai pas mal chier pour le faire ce programme car l'API Wininet est très peu rependu ... la plupart préferant utiliser les composants Indy !

PS : J'ai fait une mise a jour pour ceux que çà interesse !

Damien.

Commentaire de Ludolpif le 10/08/2006 10:33:14

Je rencontre un soucis aussi bien avec ce prog qu'avec le client Indy FTP :
Au moment du tranfert de données, c'est le serveur qui établi la connexion pour les datas (donc connexion entrante) et BitDefender 9 pour ne citer que lui bloque ces connexions, même si on ajoute un règle qui autorise mon appli à accéder à internet (avec tout les droits possibles !)
J'ai testé avec FileZilla, ça ne se produit pas, FileZilla va établir la connexion de données lui-même, et n'attend pas que le serveur le fasse.
Nb : avec Indy j'ai testé les modes actif et passif, le comportement est quelque peu différent (N° de ports) mais il y a toujours ce pb de connexion entrante !

Commentaire de Ludolpif le 16/08/2006 08:07:47

Oui, c'est sûr ça venai de BitDefender... Et bien du fait qu'il bloquai les connexions entrantes !
Je n'ai pas de routeur sur la machine sur laquelle j'ai testé (je suis encore avec un pauvre 56k... ouin !)
Mais je suis un boulet : je pensai avoir testé le mode passif avec mon IndyFTP, mais queneni car j'avais 2 feuilles contenant chacune un idFTP (dont 1 inutle et collé par erreur !) et j'ai modifié la propriété passive de celui qui n'était pas utilisé !
Donc en mode passive, c'est le prog qui établi la conenxion de contrôle, mais aussi la conenxion de données, donc tout fonctionne bien avec BitDefender, ainsi qu'avec un routeur...
NB : Utiliser un FTP en mode actif de nos jours, et sous Widnows (pusiqu'ici, delphifr.com on parle surtout Windows) n'est utilisable que dans des cas extrèmes :
- utilisable par un geek qui laisse une plage de port user en connexion entrante sur son PC et qui n'a pas de routeur, ou bien que ce dernier translate (NAT) tout le traffic sur les mêmes numéros de port sur son PC
- Un 56k-iste un peu fou ou encore un adepte des modem ADSL USB non routeurs (parce qu'il est à peu près impossible d'avoir une machine qui marche en acceptant toute connexion entrante...)

Commentaire de elguevel le 20/11/2006 11:04:50

oui en récupérant la taille du fichier avec "FtpGetFileSize" et en comparant avec ce qui est telechargé, je pense que l'affichage d'une barre de progression est possible.

Commentaire de phephelavi le 16/01/2007 08:28:41

Bonjour,

J'ai pris connaissance de votre code et je l'ai "interprêté" pour l'intégrer dans un programme dont j'avais besoin d'une simple connexion et d'un envoi d'un fichier par session sur un serveur.

Voici le bout de code :

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

  Tout se passe bien mais je rencontre un seul problème : le fichier n'est pas  
  mis sur le serveur, il est absent alors que la procédure a réussie. Pour
  mieux  comprendre le problème, j'ai repris un peu de votre code avec
Opendialog :

  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 ?

Avez-vous une suggestion ?

Merci d'avance

Phephelavi

Commentaire de phephelavi le 16/01/2007 09:45:11

Bonjour,

Suite à votre message de 09:12:34

Oui, j'ai bien indique le chemin complet du fichier :
C:\CobraS\Main\CSmc.txt.

Voilà le fichier qui est sur mon poste et je dois l'envoyer régulièrement à un serveur. ET j'ai vérifié les valuers des variables dans l'EDI Delphi, il m'indique bien :

avant extracFilename : C:\CobraS\Main\CSmc.txt
après extracFilename : CSmc.txt

Ma fonction est tout simple : juste envoyé ce fichier sur un serveur si tout. Sans OpenDialog, le fichier n'est pas placé sur le serveur : problème de chaine ? Au niveau des Slash / Qu'est-ce qui ferait que la même chaine formatée
n'aboutit pas dans mon code .

La manière doit être transparente pour l'utilisateur. Mon programme doit faire cet envoi sans que l'utilisateur intervienne.

Oui, j'utilise votre variable ailleurs pour être sûr que la connexion est coupée.

Merci pour aide !

Commentaire de phephelavi le 16/01/2007 19:31:53

Bonsoir Damien,

J'ai lu ton message, ExtractFolder est bien dans ton unité module.

Je vais modifié mon code et je vous tiens au courant demain.

Merci !

Commentaire de elguevel le 16/01/2007 21:11:19

attention tu poste toujours deux fois :D

sinon n'a tu pas de probleme lié au reseau comme par exemple un firewall (ou anti virus genre norton) ou meme un routeur (meme si çà serai etonnant que çà vienne de là ) ?

Commentaire de phephelavi le 17/01/2007 09:46:38

Bonjour Damien,

J'ai fini l'intégration d'une gestion de procédure d'envoi FTP en suivant votre code mais je n'arrive toujours pas à envoyer le fichier sur le serveur.Dans l'exemple ci-dessous, j'ai repris votre premier code pour expliquer :

Voici une partie du code qui concerne l'envoi du fichier :

  if OpenConnexion(Self.Handle, Serveur, Login, MotPasse, StrToInt(Port))
  then begin
         UpLoadFile(FichierLocal, ExtractFileName(FichierServeur));
         Sleep(2000);
         ShowMessage('Transfert réussi !');
         ...
       end;

Dans ce cas, le fichier n'est pas mis sur le serveur (pas d'erreur, les variables contiennent bien les bonnes données)

Si je modifie le code comme ci-dessous :

  if OpenConnexion(Self.Handle, Serveur, Login, MotPasse, StrToInt(Port))
  then begin
        if OpenDialog.Execute
        then begin
               OpenDialog.Title := 'CobraSecurite';
               FichierLocal     := OpenDialog.FileName;
               UpLoadFile(FichierLocal, ExtractFileName(FichierServeur));
             end;
         Sleep(3000);
         ShowMessage('Transfert réussi !');
       end;

Là, ca marche, le fichier est sur le serveur. Je ne comprends pas pourquoi avec OpenDialog c'est OK, c'est au niveau de la chaine ? Je n'ai pas de routeur, juste le parefeu de Windows XP, un anti-virus, rien de plus conventionnel. Puis de toute façon, ca marche avec FTPExpert ou votre TinyFTP.

Mais l'envoi du fichier doit-être "transparent" pour l'utilisateur, il ne doit pas être obligé de passer par une boite de dialogue.

Merci encore pour aide, je continue...

Phephelavi

Commentaire de phephelavi le 18/01/2007 18:19:51

Bonsoir Elguevel !

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 pour par que l'utilisateur le voit !

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

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

Si tu as une info sur le sujet, je suis preneur pour comprendre le problème pourquoi je suis obligé de passer par un TFileListBox pour que le nom du fichier soit bien compris et que le fichier soit placé sur le serveur.

Merci et bon weekend à toi et à tous les développeurs !

Phephelavi

Commentaire de phephelavi le 19/01/2007 04:24:25

Oui, J'ai mis un Application.ProcessMessages mais rien n'y fait.

Bon pour l'instant, ça fonctionne bien !

Je voulais savoir comment on peut atteindre directement un sous répertoire sur le serveur ?

Merci et à bientôt Damien

Phephelavi

Commentaire de phephelavi le 19/01/2007 18:11:57

Je n'ai pas trouvé le module ElgFTP, tu as livré que Module.pas avec ton projet TintyFTP. J'ai regardé dans le FTP.pas, il y a bien des commandes pour le répertoire mais pas celle là.

Peux t-être une j'ai mal lu ?

A tout a l'heure

Merci

Commentaire de elguevel le 13/03/2007 21:34:25

Tout ce que je poste ici est entièrement libre, utilisable et modifiable par la communauté.

Vas y lache toi :-D

Commentaire de veki51 le 17/05/2007 13:26:57

merci boucoup pour ton code.mais ca marche pas avec moi??????

Commentaire de veki51 le 18/06/2007 15:24:48

bonjour ton code est vraiment formidable merciiiiiiiiiiiii.
j'ai besoin de ton aide.

InternetOpen( PChar('Tiny FTP'), INTERNET_OPEN_TYPE_DIRECT, nil, nil, 0 ); les paramètre de cette instruction je les pas compris.  

STRUCT_DATA : _WIN32_FIND_DATAA; ???????????????
InternetConnect( PConnexionInternet, Pchar(Serveur), Port, Pchar(Login), Pchar(MotDePasse), INTERNET_SERVICE_FTP, 0, 0 ); les 3 paramètre qui son à la fin.

merci d'avance