TIdFTP上传文件总失败,是虚拟主机的问题吗?

[zyl366]

上传文件的代码如下:
FileFTP: TIdFTP;

procedure TForm1.Button2Click(Sender: TObject);
var
FileName:String;
begin
FileFTP.Host:='210.51.178.198';
FileFTP.Port:=21;
FileFTP.Username:='admin';
FileFTP.Password:='123123';
try
FileFTP.Connect;
except
MessageBox(Handle,'连接FTP失败请检查网络!','提示',MB_OK);
FileName:=ExtractFilePath(Application.ExeName)+'readme.txt';
try
FileFTP.Put(FileName,'wwwroot',False);//上传到FTP目录
MessageBox(Handle,'用户注册文件上传成功!','提示',MB_OK);
except
MessageBox(Handle,'用户注册文件上传失败!','提示',MB_OK);
end;
end;
请问代码有没有错误,假如是虚拟主机的问题如何能上传成功?先谢啦.

[starluck]

procedure TForm1.Button2Click(Sender: TObject); 
var 
  FileName:String; 
begin 
  FileFTP.Host:='210.51.178.198'; 
  FileFTP.Port:=21; 
  FileFTP.Username:='admin'; 
  FileFTP.Password:='123123'; 
  idftp.passive := True;           //   這樣試下。
  try 
    FileFTP.Connect; 
  except 
  MessageBox(Handle,'连接FTP失败请检查网络!','提示',MB_OK); 
  FileName:=ExtractFilePath(Application.ExeName)+'readme.txt'; 
  try 
    FileFTP.Put(FileName,'wwwroot',False);//上传到FTP目录 
    MessageBox(Handle,'用户注册文件上传成功!','提示',MB_OK); 
  except 
    MessageBox(Handle,'用户注册文件上传失败!','提示',MB_OK); 
  end; 
  end; 

[zyl366]

谢谢,还是不行.
加上如下代码 "FileFTP.passive := True; // 這樣試下。"后报如下下错:

Project Project1.exe raised exception class EIDProtocolReplyError with message
'Permission denied.'.Process stopped.Use Step or Run to continue.

[zyl366]

明天再加分也.

[zyl366]

怎么不让加分呢?
请高手们在您自己的虚拟主机帮忙试试为什么"TIdFTP上传文件总失败"?
而且能连接FTP服务器是成功的,就是不能上传啊.

[starluck]

直接上去試下，看有沒有權限。

[zyl366]

有权限的,可以通过CuteFTP软件上传的

[ly_liuyang]

自己查看问题的所在~不同的服务器配置不一样的

[zyl366]

谢谢!
请问上边的代码是否一定没有错呢?假如没有错,就再换服务器.

[starluck]

給你個建議，自己在自己的電腦上裝個SERVER-U試下，看能不能上傳。通常是由於於主動式被動式的問題。但也不排除其它的問題。

[shuaialang]

先自己搭建一个FTP试试。。

indy9 idftp组建

上传

IdFTP1.Host := '主机地址';
IdFTP1.Username := '用户名';
IdFTP1.Password := '密码';
if IdFTP1.Connected then IdFTP1.Disconnect;
IdFTP1.Connect();
try
IdFTP1.Put('data/本地文件名','远程文件名');
except

[zyl366]

谢谢9楼、10楼的朋友，马上去试。