OK how I setup from the top, this is broke down into a Client and a
Server app so I'll explain each.
<< Client >>>
Create a VCL Application and drop a TIdTCPClient and a
TIdSSLIOHandlerSocketOpenSSL on the form. Set the TIdTCPClient's Host
to localhost, Port to 16000 and IOHandler to the SSL IOHandler.
Next, alter the SSL options so that Method is set to sslvSSLv3 and Mode
is set to sslmClient.
Next create OnCreate/OnDestroy event handlers for the form and in that
put Client.Connect/Client.Disconnect respectively.
Compile.
<< Server >>
Create a VCL Application and drop a TIdCMDTcpServer and a
TIdServerIOHandlerSSLOpenSSL on the form. Set the TIdCMDTCPServer's
Bindings to 127.0.0.1:16000 and IOHandler to the SSL IOHandler.
Next alter the SSL options so that Method is set to sslvSSLv3 and Mode
is set to sslmServer. Set CertFile to server.cert, KeyFile to
server.key and RootCertFile to ca.cert.
Next, create event handlers for the form OnCreate/OnDestroy to
Server.Active := True/Server.Active := False respectively.
Compile.
<< Running >>
Now run the server and then the client. What should happen here is the
client connects to the server via SSL and everything is fine. However
what really happens is when the client attempts to connect the error
"Cannot connect with SSL" comes up.
<< Certificates? >>
Initial idea was the certificates are fubar'd, so I swapped them out
with ones my friend supplied and the same issue happens here.
Hope that helps :/
Remy Lebeau (TeamB) wrote:
>
> "Lloyd Kinsella" <lloydkinsella@gmail.com> wrote in message
> news:442b04ef@newsgroups.borland.com...
>
> > There's pratically nothing to the code, all I did was drop
> > the client on the form, set it to connect to the server.
>
> What is your EXACT setup? Please explain, in detail, everything you
> are doing to reproduce the issue.
>
>
> Gambit
--
