Visual FoxPro

Receive a String from a Socket

Demonstrates Socket.ReceiveString, which receives text and decodes it using StringCharset. It returns the first nonempty decoded result rather than draining all available data.

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 lcCommand
LOCAL lcResponseText

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"
*  Send a request using a simple application-defined text protocol in which each message ends with a
*  CRLF.
lcCommand = "STATUS" + CHR(13) + CHR(10)
lnSuccess = loSocket.SendString(lcCommand)
IF (lnSuccess = 0) THEN
    ? loSocket.LastErrorText
    RELEASE loSocket
    CANCEL
ENDIF

*  Receive text and decode it using StringCharset.  ReceiveString returns the first nonempty decoded
*  result; it does not keep reading to drain all available data.
lcResponseText = loSocket.ReceiveString()
IF (loSocket.LastMethodSuccess = 0) THEN
    ? loSocket.LastErrorText
    RELEASE loSocket
    CANCEL
ENDIF

? lcResponseText

RELEASE loSocket