Fórum Problemas com TidFTP indy 10 #350600
14/12/2007
0
procedure TFrmFTP.ShowDir;
var
Item: TIdFtpListItems;
X: integer;
begin
FTP.List(Nil);
Item := FTP.DirectoryListing;
for X := 0 to Item.Count -1 do
if (Item.Items[X].ItemType = ditDirectory) then
begin
lbDirectory.Items.Add(Item.Items[X].FileName);
end;
end;
end;
pq ele retorna 0 na listagem?
com o codigo:
FTP.List(lbDirectory,´´,False);
funciona, so q eu preciso listar apenas os diretorios..
flw
var
Item: TIdFtpListItems;
X: integer;
begin
FTP.List(Nil);
Item := FTP.DirectoryListing;
for X := 0 to Item.Count -1 do
if (Item.Items[X].ItemType = ditDirectory) then
begin
lbDirectory.Items.Add(Item.Items[X].FileName);
end;
end;
end;
pq ele retorna 0 na listagem?
com o codigo:
FTP.List(lbDirectory,´´,False);
funciona, so q eu preciso listar apenas os diretorios..
flw
Nightshade
Curtir tópico
+ 0
Responder
Post mais votado
14/12/2007
inclui o seguinte include na causa uses
IdFTPListParseWindowsNT
li em alguns foruns que esse include fixava o erro do idftp da indy 10..
mas n funcionou, alguem tem uma sugestão melhor?
IdFTPListParseWindowsNT
li em alguns foruns que esse include fixava o erro do idftp da indy 10..
mas n funcionou, alguem tem uma sugestão melhor?
Nightshade
Responder
Gostei + 1
Clique aqui para fazer login e interagir na Comunidade :)