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 lnSuccess
LOCAL loSocket
LOCAL lnBTls
LOCAL lnMaxWaitMs
LOCAL lcCommand
LOCAL lcLine

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 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).
lcLine = loSocket.ReceiveStringUntilByte(10)
IF (loSocket.LastMethodSuccess = 0) THEN
    ? loSocket.LastErrorText
    RELEASE loSocket
    CANCEL
ENDIF

? lcLine

RELEASE loSocket