FileList avec IdFTP de Indy

Signaler
Messages postés
61
Date d'inscription
mercredi 24 septembre 2008
Statut
Membre
Dernière intervention
16 juin 2012
-
Messages postés
20
Date d'inscription
mardi 5 octobre 2004
Statut
Membre
Dernière intervention
12 juillet 2015
-
Bonjour à tous,

Je débute en Delphi, grâce auquel je développe un client FTP de base.
J'arrive à me connecter, mais depuis ce matin je cherche un composant dans le genre de celui de droite, pour remplacer mon horrible FileListBox illisible ... mais impossible de trouver quelque chose dans le genre.
Il faut que je puisse naviguer à travers les dossiers de mon FTP
L'ouverture de l'esprit n'est pas une fracture du crâne
A voir également:

6 réponses

Messages postés
20
Date d'inscription
mardi 5 octobre 2004
Statut
Membre
Dernière intervention
12 juillet 2015

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
Messages postés
61
Date d'inscription
mercredi 24 septembre 2008
Statut
Membre
Dernière intervention
16 juin 2012
1
Merci.

J'avais deja essayer quelque chose d'identique, mais le probleme est que cela genere des erreurs : Types incompatibles Tstrings et TListItems.
En effet, en regardant : IdFTP.List(ADest : TStrings), or on lui donne un TListItems depuis ListeRepFTP.Items

C'est bien là mon gros problème
L'ouverture de l'esprit n'est pas une fracture du crâne
Messages postés
20
Date d'inscription
mardi 5 octobre 2004
Statut
Membre
Dernière intervention
12 juillet 2015

$cHn4wD
Messages postés
61
Date d'inscription
mercredi 24 septembre 2008
Statut
Membre
Dernière intervention
16 juin 2012
1
???

Tu n'as rien écris ou ca vient de moi ?

L'ouverture de l'esprit n'est pas une fracture du crâne
Messages postés
20
Date d'inscription
mardi 5 octobre 2004
Statut
Membre
Dernière intervention
12 juillet 2015

$cHn4wD
Messages postés
20
Date d'inscription
mardi 5 octobre 2004
Statut
Membre
Dernière intervention
12 juillet 2015

En fait, c'est ce con d'IE. Je l'utilise pour lire les mails et sur l'élan ben j'ai poster le message. C'est vraiment pourri quand même.

Sinon pour ton pb, moi je ne l'ai pas. Mais faudrait voir si ça vient de la compilation ou d'une manipulation.
Est-ce que ça vient du type de serveur DOS ou UNIX?
Est-ce que c'est le paramétrage de idFTP?

Faudrait donc effectuer ces tests.

$cHn4wD