So habe ich es:
Zitat:
IDFTP := TidFTP.Create(XYZ);
IDFTP.IOHandler := SSLHandler;
IDFTP.UseTLS := utUseExplicitTLS;
IDFTP.DataportProtection := ftpdpsPrivate;
IDFTP.Passive := True;
IDFTP.TransferType := ftBinary;
IDFTP.AUTHCmd := tAuto;
SSLHandler.PassThrough := False;
Du kannst auch mal probieren, dem SSLIOHandler das Ereignis "OnVerfiyPeer" zu implementieren und darin einfach nur das Result := True zu setzen.