IDFTP

Question

BONSOIR
Comment afficher dans une ttreview la liste des dossier ex :

eclems
|_ dossier1
|_ dossier2
     |_sousdossierx

eclems etant la base des repertoires du site si vous levoullez

cordialement

cs_rt15 · Answer

Salut,

Sur Delphi 6 et 7 et peut être d'autre, tu as un composant "ShellTreeView" dans l'onglet "Exemples".

Tu peux mettre le chemin vers eclems dans sa propriété Root (En double cliquant sur le composant).

eclems · Answer

merci mais enfaite c'est en utilisant idftp que j'aimerais faire cela

cs_rt15 · Answer

Ah, je comprends mieux le titre en fait, désolé.

Tu as pu lister ce qui est sur le serveur ? Apparemment, il y a List qui remplit DirectoryListing.

eclems · Answer

merci mais je ne sais absolument pas comment fait avec idftp.list et le ttreeview pour afficher mes 3 dossiers

eclems · Answer

J'ai explorer la toile et j'ai trouvez ce code

Mais il m'affiche des repertoire bizard pouvez vous m'aider !!!


procedure TForm1.FTPDirToTreeView(AFTP: TIdFTP; ATree: TTreeView;
const ADirectory: String; AItem: TTreeNode;
AIncludeFiles:Boolean);
var
TempItem: TTreeNode;
I: Integer;
DirList: TIdFTPListItems;
DirItem: TIdFTPListItem;
LS: TStringList;
begin
LS := TStringList.Create;
try
LS.Sorted := True;
ATree.Items.BeginUpdate;
try
if (ADirectory <> '') then
AFTP.ChangeDir(ADirectory);
AFTP.TransferType := ftASCII;
AFTP.List(nil);

DirList := AFTP.DirectoryListing;
for i := 0 to DirList.Count - 1 do
begin
try
DirItem := DirList.Items[i];
if (DirItem.ItemType = ditDirectory) then
begin
TempItem := ATree.Items.AddChild(AItem, Trim(DirItem.FileName) + '/');
LS.AddObject(Trim(DirItem.FileName), TempItem);
end
else
begin
if (AIncludeFiles) then
ATree.Items.AddChild(AItem, DirItem.FileName);
end;
except
end;
end;

for i := 0 to LS.Count - 1 do
begin
FTPDirToTreeView(AFTP, ATree, ADirectory +
LS.Strings[i] + '/', TTreeNode(LS.Objects[i]), AIncludeFiles);
end;
finally
ATree.Items.EndUpdate;
end;
finally
LS.Free;
end;
end;

IDFTP

5 réponses

Votre réponse

Discussions similaires