张志峰的博客

摘要： 写了个从ftp上下载文件的程序； 一直无法成功执行； 每次都是下载一个文件夹后就结束； 出错提示是【list index out of index(数字)】 procedure TFormMain.DownAllFile(Localpath, serverPath: string); var i,count1:integer; ss:string; att:TIdDirItemType; FileList : TStrings; begin try begin FileList := TStringList.Create; ... 阅读全文

摘要： 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: b 阅读全文

摘要： 笔者最近开发的系统中需要写一个下载文件的功能。以前用BCB调用API写的很烦琐，忽然想起有一个API就可以搞定了，于是一大早就来搜索。这个API就是UrlDownloadToFile。不仅如此，Delphi的一些控件也可以轻松实现下载，如NMHTTP，指定NMHTTP1.InputFileMode := ture; 指定Body为本地文件名，指定Get就可以下载了。下面是详细代码，均出自CSDN。我把它们都整理到这儿，让大家方便查阅。uses UrlMon; function DownloadFile(Source, Dest: string): Boolean; begin try Re.. 阅读全文