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;
end;
end;
Gracias de antemano!!