FTP上传和下载 ( 积分: 200 )

求~~用 ICS 控件 FtpClient1 做的FTP上传和下载的例子(Demos的就不要贴出来了)

谢谢

http://www.51zhan.com 最好的网址站
http://www.51zhan.com 最好的网址站
http://www.51zhan.com 最好的网址站

有没有啊

只能说是给你参考一下。
fadodm.FtpClient1.Timeout := 60; // default is 15
fadodm.FtpClient1.HostName := IPAddress;
fadodm.FtpClient1.Port := Port;
fadodm.FtpClient1.UserName := UserName;
fadodm.FtpClient1.Password := PassWord;
fadodm.FtpClient1.DisplayFileFlag := TRUE;
fadodm.FtpClient1.LocalFileName := LocaFilename;
fadodm.FtpClient1.HostDirName := HostPath;
fadodm.FtpClient1.HostFileName := HostFileName;
if not fadodm.FtpClient1.Connect then begin
Response.Write('连接失败!');
fadodm.FtpClient1.Abort;
Exit;
end
else
Response.Write('连接成功!');
Response.Write('<BR>');
Response.Write('正在上传');
Response.Write('<BR>');
sleep(1500);
if not fadodm.FtpClient1.Put then begin
Response.Write('上传失败!');
fadodm.FtpClient1.Abort;
Exit;
end
else
Response.Write('上传成功!');
Response.Write('<BR>');
if not fadodm.FtpClient1.Quit then begin
Response.Write('断开失败!');
fadodm.FtpClient1.Abort;
Exit;
end
else
Response.Write('成功断开!');
Response.Write('<BR>');
Response.Write('所有操作成功完成.');

接受答案了.