Visual FoxPro

Receive Text from a Socket into a StringBuilder

Demonstrates Socket.ReceiveSb, which receives text, decodes it using StringCharset, and appends it to a StringBuilder.

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 loSb
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 append it to a StringBuilder, decoding using StringCharset.
loSb = CreateObject('Chilkat.StringBuilder')
lnSuccess = loSocket.ReceiveSb(loSb)
IF (lnSuccess = 0) THEN
    ? loSocket.LastErrorText
    RELEASE loSocket
    RELEASE loSb
    CANCEL
ENDIF

lcResponseText = loSb.GetAsString()
IF (loSb.LastMethodSuccess = 0) THEN
    ? loSb.LastErrorText
    RELEASE loSocket
    RELEASE loSb
    CANCEL
ENDIF

? lcResponseText

RELEASE loSocket
RELEASE loSb