上传文件的代码如下:
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;
请问代码有没有错误,假如是虚拟主机的问题如何能上传成功?先谢啦.
