首先确保你的FTP开通成功
程序大致代码如下:
with IdFtp1 do begin
if connected then quit;
user := '你的登录名';
password := '登录密码';
host := 'FTP地址';
connect;
transfertype:= ftASCII;
pub('上传后的文件名','准备上传的文件名及路径',true); //true表示如果遇到相同文件,
则追加数据至原文件尾;
false:同名文件,则删除FTP服务器上的此文件
quit;
end;
用nmftp控件
nmftp1.Host:=;
nmftp1.Port:=21;
nmftp1.TimeOut:=30000;
nmftp1.UserID:=edit1.Text;
nmftp1.Password:=edit2.Text;
if nmftp1.Connected then
begin
try
nmftp1.ChangeDir('www/server');
nmftp1.Upload(fielname,'');
.....
nmftp1.Disconnect ;
nmftp1.Host:=;
nmftp1.Port:=21;
nmftp1.TimeOut:=30000;
nmftp1.UserID:=edit1.Text;
nmftp1.Password:=edit2.Text;
if nmftp1.Connected then
begin
try
nmftp1.ChangeDir('www/server');
nmftp1.Upload(fielname,'');
.....
nmftp1.Disconnect ;
用indy也支持代理啊:
idftp1.ProxySettings.ProxyType
idftp1.ProxySettings.Host
idftp1.ProxySettings.UserName
idftp1.ProxySettings.Password
idftp1.ProxySettings.Port