Hola,
Ya estoy otra vez a la carga. Estoy desarroyando un cliente ftp y tengo el siguiente problema. Cuando me tiene que crear la lista de directorios y archivos del servidor, me lanza un error -> FORMATO DE LISTA DESCONOCIDO
La vedad qeu no tengo ni puta idea de porque, y ya me estoy tirando de los pelos, asi que os paso el codigo haber si me podeis ayudar.
Código:
var
i: Integer;
begin
Memo1.Lines.Add('Generando lista de Archivos y Directorios . . .');
ListBox1.Items.Clear;
ListBox1.Items.Add( '..' );
ListBox2.Items.Clear;
IdFtpCliente.List(IdFtpCliente.ListResult, '',False);
If IdFtpCliente.DirectoryListing.ListFormat = (flfDos) Then //el error me lo marca aqui
begin
for i := 0 to IdFtpCliente.DirectoryListing.Count - 1 do
if IdFtpCliente.DirectoryListing.Items[i].ItemType = (ditDirectory) then
ListBox1.Items.Add( IdFtpCliente.DirectoryListing.Items[i].Text )
else
ListBox2.Items.Add( IdFtpCliente.DirectoryListing.Items[i].Text );
Memo1.Lines.Add('Lista Terminada . . .');
end;
end;
Os agradeceria tambien que me aclaraseis la duda de porque me da error y tambien que me indiqueis el camino para que no me lance el error.
Muchas gracias de antemano.