Configure a Socket for Server-Side TLS

See more Socket/SSL/TLS Examples

Demonstrates Socket.InitSslServer, which configures the object for server-side TLS using a server certificate that has access to its private key, then listens for and accepts a TLS connection.

The file path is relative to the application's current working directory. An absolute path may also be used. Supply the path appropriate to your own environment.

var
success: Integer;
socket: TChilkatSocket;
pfxPassword: WideString;
cert: TChilkatCert;
connectedSock: TChilkatSocket;

begin
success := 0;

socket := TChilkatSocket.Create(Self);

//  The file path is relative to the application's current working directory.  An absolute path
//  may also be used.  Supply the path appropriate to your own environment.
//  The PFX password should come from a secure source rather than being hard-coded.
pfxPassword := 'myPfxPassword';
cert := TChilkatCert.Create(Self);
success := cert.LoadPfxFile('qa_data/server.pfx',pfxPassword);
if (success = 0) then
  begin
    Memo1.Lines.Add(cert.LastErrorText);
    Exit;
  end;

//  Configure this object for server-side TLS using the certificate.  The certificate must have
//  access to its corresponding private key.
success := socket.InitSslServer(cert.ControlInterface);
if (success = 0) then
  begin
    Memo1.Lines.Add(socket.LastErrorText);
    Exit;
  end;

//  Listen for connections.  Accepted connections will use TLS.
success := socket.BindAndListen(5000,25);
if (success = 0) then
  begin
    Memo1.Lines.Add(socket.LastErrorText);
    Exit;
  end;

connectedSock := TChilkatSocket.Create(Self);
success := socket.AcceptNext(20000,connectedSock.ControlInterface);
if (success = 0) then
  begin
    Memo1.Lines.Add(socket.LastErrorText);
    Exit;
  end;
Memo1.Lines.Add('Accepted a TLS client connection.');