C++ Builder平台使用Indy9开发自动FTP程序01

Indy9与CB自带的Indy8不同处还是挺多的。首先就是图标变漂亮了，其次很多Method都重写了。它主要是依据Delph里的函数，力求与之相通。不同点在本系列的后续章节中会一一介绍。

在写ftp代码之前，非常有必要了解下FTP网络相关知识。再次借用下Binny的博文：

在使用FTP时，如果客户端机器和FTP服务器双方之间的所有端口都是开放的，那连接不存在问题。如果客户端与服务器之间有防火墙，如果没配置好防火策略和采用合适的连接模式，会导致登录成功，但无法List列表的问题。要避免出现这样的问题，首先要了解FTP的工作模式。

1.FTP的PORT（主动模式）和PASV（被动模式）

(1) PORT（主动模式）

PORT中文称为主动模式，工作的原理： FTP客户端连接到FTP服务器的21端口，发送用户名和密码登录，登录成功后要list列表或者读取数据时，客户端随机开放一个端口（1024以上），发送 PORT命令到FTP服务器，告诉服务器客户端采用主动模式并开放端口；FTP服务器收到PORT主动模式命令和端口号后，通过服务器的20端口和客户端开放的端口连接，发送数据，原理如下图：

(2) PASV（被动模式）

PASV是Passive的缩写，中文成为被动模式，工作原理：FTP客户端连接到FTP服务器的21端口，发送用户名和密码登录，登录成功后要list列表或者读取数据时，发送PASV命令到FTP服务器， 服务器在本地随机开放一个端口（1024以上），然后把开放的端口告诉客户端， 客户端再连接到服务器开放的端口进行数据传输，原理如下图：

在使用

IdFTP1->Connect()

连接FTP的时候最好先弄清楚FTP的模式是主动还是被动。 在代码中体现为

IdFTP1->Passive

但是由于ftp服务器的多样性，经常会出现各种各样的socket error。 在此附上错误全集

Socket error 0 - Directly send error 
Socket error 10004 - Interrupted function call 
Socket error 10013 - Permission denied 
Socket error 10014 - Bad address 
Socket error 10022 - Invalid argument 
Socket error 10024 - Too many open files 
Socket error 10035 - Resource temporarily unavailable 
Socket error 10036 - Operation now in progress 
Socket error 10037 - Operation already in progress 
Socket error 10038 - Socket operation on non-socket 
Socket error 10039 - Destination address required 
Socket error 10040 - Message too long 
Socket error 10041 - Protocol wrong type for socket 
Socket error 10042 - Bad protocol option 
Socket error 10043 - Protocol not supported 
Socket error 10044 - Socket type not supported 
Socket error 10045 - Operation not supported 
Socket error 10046 - Protocol family not supported 
Socket error 10047 - Address family not supported by protocol family 
Socket error 10048 - Address already in use 
Socket error 10049 - Cannot assign requested address 
Socket error 10050 - Network is down 
Socket error 10051 - Network is unreachable 
Socket error 10052 - Network dropped connection on reset 
Socket error 10053 - Software caused connection abort 
Socket error 10054 - Connection reset by peer 
Socket error 10055 - No buffer space available 
Socket error 10056 - Socket is already connected 
Socket error 10057 - Socket is not connected 
Socket error 10058 - Cannot send after socket shutdown 
Socket error 10060 - Connection timed out 
Socket error 10061 - Connection refused 
Socket error 10064 - Host is down 
Socket error 10065 - No route to host 
Socket error 10067 - Too many processes 
Socket error 10091 - Network subsystem is unavailable 
Socket error 10092 - WINSOCK.DLL version out of range 
Socket error 10093 - Successful WSAStartup not yet performed 
Socket error 10094 - Graceful shutdown in progress 
Socket error 11001 - Host not found 
Socket error 11002 - Non-authoritative host not found 
Socket error 11003 - This is a non-recoverable error 
Socket error 11004 - Valid name, no data record of requested type

WSAEADDRINUSE (10048) Address already in use 
WSAECONNABORTED (10053) Software caused connection abort 
WSAECONNREFUSED (10061) Connection refused 
WSAECONNRESET (10054) Connection reset by peer 
WSAEDESTADDRREQ (10039) Destination address required 
WSAEHOSTUNREACH (10065) No route to host 
WSAEMFILE (10024) Too many open files 
WSAENETDOWN (10050) Network is down 
WSAENETRESET (10052) Network dropped connection 
WSAENOBUFS (10055) No buffer space available 
WSAENETUNREACH (10051) Network is unreachable 
WSAETIMEDOUT (10060) Connection timed out 
WSAHOST_NOT_FOUND (11001) Host not found 
WSASYSNOTREADY (10091) Network sub-system is unavailable 
WSANOTINITIALISED (10093) WSAStartup() not performed 
WSANO_DATA (11004) Valid name, no data of that type 
WSANO_RECOVERY (11003) Non-recoverable query error 
WSATRY_AGAIN (11002) Non-authoritative host found 
WSAVERNOTSUPPORTED (10092) Wrong WinSock DLL version

此外，还会出现的问题，是“Project ftp01.exe raised exception class EIdConnClosedGracefully with message'Connection Closed Gracefully.'.Process stopped.Use Step or Run continue.”  这是由服务器端发起的断开请求。此问题是因为网络未识别其协议导致的，它其实就是一个类似VCL的异常处理，可以在编译生成exe后消除。可以避免的方法是：在CB tools 选项中Debugger Options -> Language Exceptions添加一个条例（EIdSilentException）