Delphi IDFtp用法，包含断点续传
1 连接远程服务器 procedure Connect(AAutoLogin: boolean; const ATimeout: Integer); 2 改变目录 procedure ChangeDir(const ADirName: string); 3 下载 procedure Get(const ASourceFile: string; ADest: TStream; AResume: Boolean); overload; procedure Get(const ASourceFile: string; const ADestFile: string; const ACanOverwrite: boolean; AResume: Boolean); overload; 4 上传 procedure Put(const ASource: TStream; const ADestFile: string; const AAppend: boolean); overload; procedure Put(const ASourceFile: string; const ADestFile: string; const AAppend: boolean); overload; 5 删除 procedure Delete(const AFilename: string);