Visual FoxPro

Receive Text up to a Match into a StringBuilder

Demonstrates Socket.ReceiveUntilMatchSb, which receives bytes until an exact byte sequence is found and appends the received text to a StringBuilder.

Background. The match string is encoded using StringCharset and compared byte-for-byte. The match may span multiple underlying network reads.

Chilkat Visual FoxPro Downloads

Download Chilkat for Visual FoxPro

Visual FoxPro

LOCAL lnSuccess
LOCAL loSocket
LOCAL lnBTls
LOCAL lnMaxWaitMs
LOCAL lcCommand
LOCAL loSb
LOCAL lcResponse

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 bytes until an exact byte sequence is found, appending the received text to a
*  StringBuilder.  The match may span multiple underlying network reads.
loSb = CreateObject('Chilkat.StringBuilder')
lnSuccess = loSocket.ReceiveUntilMatchSb("<EOM>",loSb)
IF (lnSuccess = 0) THEN
    ? loSocket.LastErrorText
    RELEASE loSocket
    RELEASE loSb
    CANCEL
ENDIF

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

? lcResponse

RELEASE loSocket
RELEASE loSb