b2k
13-07-2007, 10:00:16
Hola a todos estoy usando el componente IDFTP para conectarme a mi servidor ftp.
Yo logro ya establecer una conexion con el server ahora el problema es que cuando quiero recibir los ficheros (listarlos) en mi treeview, no lo logro hacer correctamente aqui dejo un log de lo creado hasta ahora
procedure TForm1.Button1Click(Sender: TObject);
var
StringList : tStringList;
r : Integer;
begin
ftp.Username := 'usr';
ftp.Password := 'pass';
ftp.Host := 'ftp.host';
ftp.Port := 21;
try
ftp.Connect();
except
end;
ftp.List(StringList, '*.txt', False);
for r := 0 to StringList.count-1 do begin
lista.Items.add(StringList[r]);
end;
ftp.disconnect;
StringList.Free;
end;
Estoy trabajando con un TreeView, muchas gracias
B2k
Yo logro ya establecer una conexion con el server ahora el problema es que cuando quiero recibir los ficheros (listarlos) en mi treeview, no lo logro hacer correctamente aqui dejo un log de lo creado hasta ahora
procedure TForm1.Button1Click(Sender: TObject);
var
StringList : tStringList;
r : Integer;
begin
ftp.Username := 'usr';
ftp.Password := 'pass';
ftp.Host := 'ftp.host';
ftp.Port := 21;
try
ftp.Connect();
except
end;
ftp.List(StringList, '*.txt', False);
for r := 0 to StringList.count-1 do begin
lista.Items.add(StringList[r]);
end;
ftp.disconnect;
StringList.Free;
end;
Estoy trabajando con un TreeView, muchas gracias
B2k