Chilkat HOME Android™ ASP Visual Basic VB.NET C# iOS (IPhone) Objective-C C++ C Unicode C++ Unicode C MFC Delphi DLL Delphi ActiveX FoxPro Java Perl PHP Extension PHP ActiveX Python PowerShell Ruby SQL Server VBScript
|
(Visual FoxPro) SSL Client ExampleDemonstrates how to connect to an SSL server, send a simple message, receive a simple response, and disconnect.
LOCAL loSocket LOCAL lnSuccess LOCAL lnSsl LOCAL lnMaxWaitMillisec LOCAL lcSslServerHost LOCAL lnSslServerPort LOCAL lcReceivedMsg loSocket = CreateObject('Chilkat.Socket') lnSuccess = loSocket.UnlockComponent("Anything for 30-day trial") IF (lnSuccess <> 1) THEN ? loSocket.LastErrorText QUIT ENDIF lnSsl = 1 lnMaxWaitMillisec = 20000 * The SSL server hostname may be an IP address, a domain name, * or "localhost". You'll need to change this: lcSslServerHost = "123.123.88.88" lnSslServerPort = 8123 * Connect to the SSL server: lnSuccess = loSocket.Connect(lcSslServerHost,lnSslServerPort,lnSsl,lnMaxWaitMillisec) IF (lnSuccess <> 1) THEN ? loSocket.LastErrorText QUIT ENDIF * Set maximum timeouts for reading an writing (in millisec) loSocket.MaxReadIdleMs = 20000 loSocket.MaxSendIdleMs = 20000 * Send a "Hello Server! -EOM-" message: lnSuccess = loSocket.SendString("Hello Server! -EOM-") IF (lnSuccess <> 1) THEN ? loSocket.LastErrorText QUIT ENDIF * The server (in this example) is going to send a "Hello Client! -EOM-" * message. Read it: lcReceivedMsg = loSocket.ReceiveUntilMatch("-EOM-") IF (lcReceivedMsg = NULL ) THEN ? loSocket.LastErrorText QUIT ENDIF * Close the connection with the server * Wait a max of 20 seconds (20000 millsec) loSocket.Close(20000) =MESSAGEBOX(lcReceivedMsg) |
© 2000-2013 Chilkat Software, Inc. All Rights Reserved.