还是不行,我用ics写的也是有我问题。。
if ftp1.Connected then ftp1.Quit;
ftp1.Username:='greenway';
ftp1.Passive:=true;
ftp1.password:='';
ftp1.hostname:=';
ftp1.Connect;
if ftp1.Connected=true then
begin
ftp1.LocalFileName:=filedir+filename;
Ftp1.HostFileName:=filename;
ftp1.Put;
end;
这样写好像也是有问题,传上去的文件只有扩展名。。。