关于delphi的 ics的使用例子。我现在想做个ftp服务器和。现在给大家一个例子
关于连接函数应该很简单,这是上传的代码,供大家参考。
FtpClient1.HostDirName := '/';
FtpClient1.Cwd;
FtpClient1.HostDirName :=dir;
if not FtpClient1.Cwd then
begin
//-----创建
FtpClient1.HostFileName :=dir;
FtpClient1.Mkd;
//-----进入目录
FtpClient1.Cwd;
end;
FtpClient1.HostDirName :=ftpDateName;
if not FtpClient1.Cwd then
begin
FtpClient1.HostFileName :=ftpDateName;
FtpClient1.Mkd;
//-----进入目录
FtpClient1.Cwd;
end;
FtpClient1.HostFileName :=ftpfilename;
FtpClient1.LocalFileName := Floacalfile;
Result:= FtpClient1.Put;
//--------返回根目录
FtpClient1.HostDirName :='../../';
FtpClient1.Cwd;