Chilkat
HOME
Android™
ASP
Visual Basic
VB.NET
C#
iOS (IPhone)
Objective-C
C++
C
MFC
Delphi
FoxPro
Java
Perl
PHP Extension
PHP ActiveX
Python
PowerShell
Ruby
SQL Server
VBScript
SSL Server ExampleDemonstrates how to create an SSL socket for accepting connections. This example is *very* simple in that it will create an SSL socket for accepting a single connection. It will read a message from the client, send a reply, and exit.
uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, CHILKATCERTIFICATELib_TLB, CHILKATSOCKETLib_TLB, OleCtrls; ... procedure TForm1.Button1Click(Sender: TObject); var listenSslSocket: TChilkatSocket; success: Integer; certStore: CHILKATCERTIFICATELib_TLB.IChilkatCertStore; cert: CHILKATSOCKETLib_TLB.IChilkatCert; myPort: Integer; backLog: Integer; clientSock: IChilkatSocket; maxWaitMillisec: Integer; receivedMsg: String; begin listenSslSocket := TChilkatSocket.Create(Self); // Any string automatically begins a fully-functional 30-day trial. success := listenSslSocket.UnlockComponent('Anything for 30-day trial'); if (success <> 1) then begin ShowMessage('Failed to unlock component'); Exit; end; // An SSL server needs a digital certificate. This example loads it from a PFX file. // Create an instance of a certificate store object, load a PFX file, // locate the certificate we need, and use it. // (a PFX file may contain more than one certificate.) certStore := CoChilkatCertStore.Create(); // The 1st argument is the filename, the 2nd arg is the // PFX file's password: success := certStore.LoadPfxFile('chilkat.pfx','test'); if (success <> 1) then begin ShowMessage(certStore.LastErrorText); Exit; end; // Find the certificate to be used for SSL: cert := certStore.FindCertBySubject('Chilkat Software, Inc.') As CHILKATSOCKETLib_TLB.IChilkatCert; if (cert = nil ) then begin ShowMessage(certStore.LastErrorText); Exit; end; // Use the certificate: success := listenSslSocket.InitSslServer(cert As CHILKATSOCKETLib_TLB.IChilkatCert); if (success <> 1) then begin ShowMessage(listenSslSocket.LastErrorText); Exit; end; // Bind and listen on a port: myPort := 8123; // Allow for a max of 5 queued connect requests. backLog := 5; success := listenSslSocket.BindAndListen(myPort,backLog); if (success <> 1) then begin ShowMessage(listenSslSocket.LastErrorText); Exit; end; // If accepting an SSL/TLS connection, the SSL handshake is part of the connection // establishment process. This involves a few back-and-forth messages between the // client and server to establish algorithms and a shared key to create the secure // channel. The sending and receiving of these messages are governed by the // MaxReadIdleMs and MaxSendIdleMs properties. If these properties are set to 0 // (and this is the default unless changed by your application), then the // AcceptNextConnection can hang indefinitely during the SSL handshake process. // Make sure these properties are set to appropriate values before calling AcceptNextConnection. // Set a 10 second max for waiting to read/write. This is for the SSL/TLS handshake establishment. listenSslSocket.MaxReadIdleMs := 10000; listenSslSocket.MaxSendIdleMs := 10000; // Accept a single client connection and establish the secure SSL/TLS channel: maxWaitMillisec := 20000; clientSock := listenSslSocket.AcceptNextConnection(maxWaitMillisec); if (clientSock = nil ) then begin ShowMessage(listenSslSocket.LastErrorText); Exit; end; // The client (in this example) is going to send a "Hello Server! -EOM-" // message. Read it: receivedMsg := clientSock.ReceiveUntilMatch('-EOM-'); if (Length(receivedMsg) = 0 ) then begin ShowMessage(clientSock.LastErrorText); Exit; end; ShowMessage(receivedMsg); // Send a "Hello Client! -EOM-" message: success := clientSock.SendString('Hello Client! -EOM-'); if (success <> 1) then begin ShowMessage(clientSock.LastErrorText); Exit; end; // Close the connection with the client // Wait a max of 20 seconds (20000 millsec) clientSock.Close(20000); end; |
© 2000-2010 Chilkat Software, Inc. All Rights Reserved.