Código Delphi [-]TIdSSLIOHandlerSocket *SSL; TIdFTP *FTP; bool UsaSTARTTLS; .... if(UsaSTARTTLS) { SSL->SSLOptions->Method = sslvTLSv1; SSL->PassThrough = true; } if(UsaSSL) FTP->IOHandler=SSL; ...
TIdSSLIOHandlerSocket *SSL; TIdFTP *FTP; bool UsaSTARTTLS; .... if(UsaSTARTTLS) { SSL->SSLOptions->Method = sslvTLSv1; SSL->PassThrough = true; } if(UsaSSL) FTP->IOHandler=SSL; ...