FoxPro Examples

ChilkatHOMEAndroid™ASPVisual BasicVB.NETC#iOS (IPhone)Objective-CC++CUnicode C++Unicode CMFCDelphi DLLDelphi ActiveXFoxProJavaPerlPHP ExtensionPHP ActiveXPythonPowerShellRubySQL ServerVBScript

Visual FoxPro Examples

Bounced Mail
Bz2
Character Encoding
CSV
Digital Certificates
Digital Signatures
Email
Email Object
FTP
HTML Conversion
HTTP
IMAP
Encryption
MHT / HTML Email
POP3
RSA
S/MIME
Socket
Spider
SFTP
SMTP
SSH
SSH Key
SSH Tunnel
String
Tar
Upload
XML
XMP
Zip Compression
Self-Extractor

More Examples...
Amazon S3
DKIM / DomainKey
NTLM
RSS
Atom
Byte Array
Service
PPMD
Deflate
DH Key Exchange
DSA
FileAccess
Bzip2
LZW

 

Non-Chilkat Links
Text and String Handling

(Visual FoxPro) TCP/IP Socket Connect to Remote Host:Port

Demonstrates how to create a TCP/IP socket, connect to a remote host:port, and receive a "Hello World!" message.

Download Chilkat Socket ActiveX

LOCAL loSocket
LOCAL lnSuccess
LOCAL lnSsl
LOCAL lnMaxWaitMillisec
LOCAL lcReceivedMsg

loSocket = CreateObject('Chilkat.Socket')

lnSuccess = loSocket.UnlockComponent("Anything for 30-day trial")
IF (lnSuccess <> 1) THEN
    ? loSocket.LastErrorText
    QUIT
ENDIF

*  Connect to port 5555 of localhost.
*  The string "localhost" is for testing on a single computer.
*  It would typically be replaced with an IP hostname, such
*  as "www.chilkatsoft.com".

lnSsl = 0

lnMaxWaitMillisec = 20000
lnSuccess = loSocket.Connect("localhost",5555,lnSsl,lnMaxWaitMillisec)
IF (lnSuccess <> 1) THEN
    ? loSocket.LastErrorText
    QUIT
ENDIF

*  Set maximum timeouts for reading an writing (in millisec)
loSocket.MaxReadIdleMs = 10000
loSocket.MaxSendIdleMs = 10000

*  Pretend, for the sake of the example, that the
*  ficticious server is going to send a "Hello World!"
*  after accepting the connection.
*  Note: Technically, the ReceiveString may not receive the
*  complete string, although it's highly probable given the short
*  length of the "Hello World!" message.
*  See this Chilkat blog post for more information:
*  http://www.cknotes.com/?p=302

lcReceivedMsg = loSocket.ReceiveString()
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.