Visual FoxPro

Send a String over a Socket

Demonstrates Socket.SendString, which encodes a string using StringCharset and sends the resulting bytes over the connected socket. No delimiter, terminator, or length prefix is added.

Background. Text send and receive operations encode and decode bytes using the StringCharset property. For plain ASCII or UTF-8 protocols, setting StringCharset to utf-8 is a safe default.

Chilkat Visual FoxPro Downloads

Download Chilkat for Visual FoxPro

Visual FoxPro

LOCAL lnSuccess
LOCAL loSocket
LOCAL lnBTls
LOCAL lnMaxWaitMs
LOCAL lcMessage

lnSuccess = 0

loSocket = CreateObject('Chilkat.Socket')

*  Connect to the server using TLS.  The 3rd argument enables the TLS handshake after the TCP
*  connection succeeds; the 4th is the maximum time to wait, in milliseconds.
lnBTls = 1
lnMaxWaitMs = 5000
lnSuccess = loSocket.Connect("example.com",5000,lnBTls,lnMaxWaitMs)
IF (lnSuccess = 0) THEN
    ? loSocket.LastErrorText
    RELEASE loSocket
    CANCEL
ENDIF

*  StringCharset controls the character encoding used when sending and receiving text.
loSocket.StringCharset = "utf-8"

*  Encode the string using StringCharset and send the resulting bytes.  No delimiter, terminator, or
*  length prefix is added; the exact bytes are sent.  This example sends a command for a simple
*  application-defined text protocol.
lcMessage = "STATUS" + CHR(13) + CHR(10)
lnSuccess = loSocket.SendString(lcMessage)
IF (lnSuccess = 0) THEN
    ? loSocket.LastErrorText
    RELEASE loSocket
    CANCEL
ENDIF

? "Message sent."

RELEASE loSocket