rlebeau on master
upgraded Delphi XE projects by … added Delphi XE project group Merge pull request #411 from co… (compare)
TIdSSLVersions _SSLProtocols_;
...
_SSLProtocols_ = TIdSSLVersions();
TStringList *protoList = new TStringList('"', ':');
protoList->DelimitedText = "tlsv1:tlsv1_1:tlsv1_2";
if (protoList->IndexOf("ssl2") != -1)
_SSLProtocols_ << sslvSSLv2;
if (protoList->IndexOf("ssl3") != -1)
_SSLProtocols_ << sslvSSLv3;
if (protoList->IndexOf("tlsv1") != -1)
_SSLProtocols_ << sslvTLSv1;
if (protoList->IndexOf("tlsv1_1") != -1)
_SSLProtocols_ << sslvTLSv1_1;
if (protoList->IndexOf("tlsv1_2") != -1)
_SSLProtocols_ << sslvTLSv1_2;
SSLHandler->SSLOptions->SSLVersions = _SSLProtocols_;