FileList avec IdFTP de Indy
Leucistic
Messages postés
61
Date d'inscription
mercredi 24 septembre 2008
Statut
Membre
Dernière intervention
16 juin 2012
-
3 avril 2008 à 14:38
schnawd Messages postés 20 Date d'inscription mardi 5 octobre 2004 Statut Membre Dernière intervention 12 juillet 2015 - 4 avril 2008 à 15:40
schnawd Messages postés 20 Date d'inscription mardi 5 octobre 2004 Statut Membre Dernière intervention 12 juillet 2015 - 4 avril 2008 à 15:40
6 réponses
schnawd
Messages postés
20
Date d'inscription
mardi 5 octobre 2004
Statut
Membre
Dernière intervention
12 juillet 2015
4 avril 2008 à 09:31
4 avril 2008 à 09:31
Salut, j'avais réaliser une appli comme tu le souhaites. Mais sache que si tu veux un affichage comme à droite, tu vas devoir te le réaliser le composant à moins qu'il n'existe. Sinon pour naviguer dedant
procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
AjoutListe : TListItem;
FichierEnCours:String;
begin
//Définition des paramètres FTP
idFTP.Host:='ftpperso.free.fr';
idFTP.User:='fabiche64';
idFTP.Password:='8cexw6af';
//Connection au serveur FTP
idFTP.Connect(true);
//Récupération des fichier et dossiers du serveur
idFTP.List(ListeRepFTP.Items,'',false);
idFTP.List(ListeDetailsFTP.Items,'',true);
for i:=0 to ListeRepFTP.Items.Count -1 do
begin
FichierEnCours := ListeRepFTP.Items.Strings[i];
If (FichierEnCours <> '.') then
begin
AjoutListe := ListView1.Items.Add;
if pos('.',FichierEnCours)<>0 then
AjoutListe.Caption := 'Fichier ' + FichierEnCours
else AjoutListe.Caption := 'Dossier ' + FichierEnCours;
end;
end;
end;
procedure TForm1.ListeRepFTPDblClick(Sender: TObject);
var RepSelect:string;
begin
RepSelect := ListeRepFTP.Items.Strings[ListeRepFTP.itemindex];
idFTP.ChangeDir(RepSelect);
ListeRepFTP.Clear;
idFTP.List(ListeRepFTP.Items,'',false);
end;
Voilà j'espère que tu comprendras ce source
$cHn4wD
procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
AjoutListe : TListItem;
FichierEnCours:String;
begin
//Définition des paramètres FTP
idFTP.Host:='ftpperso.free.fr';
idFTP.User:='fabiche64';
idFTP.Password:='8cexw6af';
//Connection au serveur FTP
idFTP.Connect(true);
//Récupération des fichier et dossiers du serveur
idFTP.List(ListeRepFTP.Items,'',false);
idFTP.List(ListeDetailsFTP.Items,'',true);
for i:=0 to ListeRepFTP.Items.Count -1 do
begin
FichierEnCours := ListeRepFTP.Items.Strings[i];
If (FichierEnCours <> '.') then
begin
AjoutListe := ListView1.Items.Add;
if pos('.',FichierEnCours)<>0 then
AjoutListe.Caption := 'Fichier ' + FichierEnCours
else AjoutListe.Caption := 'Dossier ' + FichierEnCours;
end;
end;
end;
procedure TForm1.ListeRepFTPDblClick(Sender: TObject);
var RepSelect:string;
begin
RepSelect := ListeRepFTP.Items.Strings[ListeRepFTP.itemindex];
idFTP.ChangeDir(RepSelect);
ListeRepFTP.Clear;
idFTP.List(ListeRepFTP.Items,'',false);
end;
Voilà j'espère que tu comprendras ce source
$cHn4wD
