Visual FoxPro

Receive a Line Terminated by CRLF

Demonstrates Socket.ReceiveToCRLF, which receives text through a CRLF line terminator and returns the text including the terminator.

Background. Chilkat encodes CR followed by LF using StringCharset and searches the incoming byte stream for that exact sequence. This is convenient for line-oriented text protocols.

Chilkat Visual FoxPro Downloads

Download Chilkat for Visual FoxPro

Visual FoxPro

LOCAL lnSuccess
LOCAL loSocket
LOCAL lnBTls
LOCAL lnMaxWaitMs
LOCAL lcCommand
LOCAL lcResponseLine

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 through a CRLF line terminator, returning the text including the terminator.  This is
*  convenient for line-oriented text protocols in which each response is a CRLF-terminated line.
lcResponseLine = loSocket.ReceiveToCRLF()
IF (loSocket.LastMethodSuccess = 0) THEN
    ? loSocket.LastErrorText
    RELEASE loSocket
    CANCEL
ENDIF

? lcResponseLine

RELEASE loSocket