Recherche recursive sur FTP avec l'api WinINet

Résolu
Signaler
Messages postés
718
Date d'inscription
jeudi 19 décembre 2002
Statut
Membre
Dernière intervention
22 novembre 2016
-
Messages postés
718
Date d'inscription
jeudi 19 décembre 2002
Statut
Membre
Dernière intervention
22 novembre 2016
-
Voila j'ai crée une sorte de client FTP, mais j'ai besoin d'eefectuer une recherche recursive de tout les dossier contenu dans le FTP.

J'ai fait un bout de code :

procedure Recursive( tList : TListBox; Repertoire : string );
var
STRUCT_DATA : _WIN32_FIND_DATAA;
FoundFile : Pointer;
bFound : Boolean;
TypeFile : string;
begin


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


TypeFile := AttributeToStr( STRUCT_DATA.dwFileAttributes );
tList.Items.Add( TypeFile + ' > ' + STRUCT_DATA.cFileName );


bFound := InternetFindNextFile( FoundFile, @STRUCT_DATA );


until not bFound;


InternetCloseHandle( FoundFile );


end;


end;

PS :
- SlachFTP() : rajoute un '/' a la fin de la chaine s'il n'y est pas.
- AttributeToStr() : Renvoi 'Dossier' ou 'Fichier' selon la nature du fichier.

Mais pas moyen d'y arriver, qqn a une idée ?

Damien

1 réponse

Messages postés
718
Date d'inscription
jeudi 19 décembre 2002
Statut
Membre
Dernière intervention
22 novembre 2016
3
C'est bon j'ai trouvé tout seul comment faire, plus besoin d'aide !!