details:=TStringList.Create; nodetails:=TStringList.Create; FTPClient.List(details,’’,True); FTPClient.List(nodetails,’’,False); //weonlywanttohavedirectoriesinthelist(without’.’and’..’) //nunfilternwirdasnachdenordnern(ohne’.’und’..’) fork:=details.Count-1downto0do begin...
上传本地目录到FTP服务器procedureUploadPerFTP;procedureGetDir(dir:string);varSearchRec:TSearchRec;details,nodetails:TStringList;k:Integer;beg..