基于TIdFTP的Delphi文件上传实例,只写了一个上传,是因为一个朋友只要上传功能,下载就没有写,把源码贴出来供大家学习,当时着急没写几行注释,连错误处理也少得可怜,见谅.可以上传整个目录,单线程。作者QQ:5659170网虫先生。 　　关于上传类型的定义：'1'表示上传类型是文件夹,'0'表示上传类型是文件。