Receive Text up to a Delimiter Byte

See more Socket/SSL/TLS Examples

Demonstrates Socket.ReceiveStringUntilByte, which receives bytes until a specific raw byte value is found, then decodes the preceding bytes using StringCharset. The delimiter is excluded from the returned string.

LOCAL nSuccess
LOCAL oSocket
LOCAL nBTls
LOCAL nMaxWaitMs
LOCAL cCommand
LOCAL cLine

nSuccess := 0

oSocket := 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.
nBTls := 1
nMaxWaitMs := 5000
nSuccess := oSocket:Connect("example.com", 5000, nBTls, nMaxWaitMs)
IF (nSuccess == 0)
    ? oSocket:LastErrorText
    oSocket:destroy()
    RETURN
ENDIF

//  StringCharset controls the character encoding used when sending and receiving text.
oSocket:StringCharset := "utf-8"
//  Send a request using a simple application-defined text protocol in which each message ends with a
//  CRLF.
cCommand := "STATUS" + Chr(13) + Chr(10)
nSuccess := oSocket:SendString(cCommand)
IF (nSuccess == 0)
    ? oSocket:LastErrorText
    oSocket:destroy()
    RETURN
ENDIF

//  Receive bytes until a specific raw byte value is found, then decode the preceding bytes using
//  StringCharset.  The delimiter itself is excluded from the returned string.  Here the delimiter is
//  the linefeed byte (decimal 10).
cLine := oSocket:ReceiveStringUntilByte(10)
IF (oSocket:LastMethodSuccess == 0)
    ? oSocket:LastErrorText
    oSocket:destroy()
    RETURN
ENDIF

? cLine

oSocket:destroy()