delphi TIdFtp 控件的问题？

Question

 File := 'G:\A.txt';
 idftp1.Put(File,(ExtractFileName(File)));put时 报错！ 
错误信息 ：Project Project1.exe raised exception  class  EIdProtocolReplyError  with  message  'A.txt': Forbidden 
FileName ', Process stopped .Use Step or Run to continue。    有哪位高人与见过这种情况吗？

Answer 1

 
错误信息 ：
Project Project1.exe raised exception  class  EIdProtocolReplyError  with  message  'A.txt': Forbidden FileName '……
[/Quote]

Answer 2

idftp1.ChangeDir();
然后你再idftp1.put

Answer 3

比如利用IdFTP1.put()把文件a.word上传到网站www.abcd.com/wwwroot目录下
确定网站指定的目录是提供FTP站点。
idftp1登陆成功后  Dir_List: TStringList;
IdFTP1.List(Dir_List,'',true); 获到目录下面的文件夹IdFTP1.ChangeDir('wwwroot');  
IdFTP1.Put('d:\a.word', 'a.word', false);

Answer 4

还是出同样的问题！这是个多线程的程序，一个线程是先获取文件的，全路径，通过一个动态链接库获取固有属性（hash值，大小，修改时间）后，将文件保存到一个数据库中，
另一个线程从数据库中遍历所有文件的全路径 ，然后上传值ftp！我更总发现 ，当一个文件被获取属性保存到数据库中后，另一个线程（从数据库中获得了这个文件的全路径）也在上传这个文件时，就会出错！ accesss violation at address 00000. 

Answer 5

建议先把tidftp的使用整好：新建工程，按钮上传然后再与线程配合。