Problema al subir archivo via FTP!!
 

hola a todos:

bueno mi problema es el siguiente, estoy tratando de subir un archivo a un directorio de mi servidor, pero hasta ahora no lo eh conseguido, lo unico que eh logrado hacer gracias a los ejemplos que eh encontrado en el foro es la conexion con el servidor, pero al momento de subir el archivo me sale el error: Project.exe raised exception class EIdReplyRFCError with message 'M01.01.S.txt': Access denied.

M01.01.S es el archivo que quiero subir.

estoy utilizando el componente idFTP1 con delphi 2010.
Aqui les dejo el codigo que tengo. Gracias por la ayuda que me puedan proporcionar.

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
begin
idFTP1.Host := 'host';
idFTP1.DirectoryListing.DirectoryName:='host/carpeta/subcarpeta/';
idFTP1.Port := 21;
idFTP1.Username := 'user';
idFTP1.Password := 'password';
idFTP1.Connect;
ShowMessage('Conectado con el servidor.');

 if idFTP1.Connected then
  begin
      idFTP1.Put('C:\Documents and Settings\Administrador\Escritorio\M02.01.S.txt', ExtractFileName('C:\Documents and Settings\Administrador\Escritorio\M02.01.S.txt'));
      idFTP1.Disconnect;
      ShowMessage('Fichero subido.');
    end;

end;

Hola.

Yo comprobaría dos cosas.

1º Que tengas permiso de escritura en el servidor ftp, por ejemplo usando un programa para subir el fichero con el mismo usuario y clave que estás usando.
2º Que la ruta en la que estás intentando colocar el archivo existe, en principio podías intentar subir el archivo sin ruta a ver si cuela, si es así deberías revisar la ruta donde lo quieres soltar.

Saludos

Hola
 

ya eh comprobado la conexion y ya subi por medio de comandos en consola un archivo y lo hizo perefectamente, eh estado investigando pero aun no encuentro la solucion para el problema, muchas gracias por responder. Alguna otra idea que me pueda ayudar?

Una solución que he encontrado es crear el componente idFTP dinamicamente y luego liberarlo por cada vez que se vaya a utilizar