PDA

Ver la Versión Completa : Error EIdReplyRFCError


A-Soft
09-08-2007, 01:28:06
Hola estoy haciendo una pequena aplicacion para subir un archivo a un servidor ftp. Obtengo un error con mensaje 'archivo: Permission denied'. Alguien pudiera orientarme por favor? el codigo es el siguiente:

procedure TForm1.Button4Click(Sender: TObject);
var
FTP: TIdFTP;
begin
FTP:= TIdFTP.Create(Self);
try
with FTP do
begin
Username:= '*******';
Password:= '*****';
Host:= 'ftp.abcdefstsl.com';
Connect;
SendCmd('MKD respaldos');
SendCmd('CWD respaldos');
Put('C:\holamundo.txt','holamundo.txt');
Disconnect;
end;
finally
FTP.Free (ftp://ftp.Free);
end;
end;

Gracias de antemano!!