Visual FoxPro

Receive an Exact Number of Bytes as Encoded Text

Demonstrates Socket.ReceiveNBytesENC, which receives exactly the requested number of bytes and returns them encoded using a named encoding. It waits until the full count is received.

Background. Inactivity is controlled by MaxReadIdleMs: the call fails if incoming bytes halt for longer than MaxReadIdleMs milliseconds before the full amount is received. The ENC methods move raw binary data to and from printable text using a named encoding such as base64 or hex.

Chilkat Visual FoxPro Downloads

Download Chilkat for Visual FoxPro

Visual FoxPro

LOCAL lnSuccess
LOCAL loSocket
LOCAL lnBTls
LOCAL lnMaxWaitMs
LOCAL lcHex

lnSuccess = 0

loSocket = CreateObject('Chilkat.Socket')

*  Connect to the server using TLS.
lnBTls = 1
lnMaxWaitMs = 5000
lnSuccess = loSocket.Connect("example.com",5000,lnBTls,lnMaxWaitMs)
IF (lnSuccess = 0) THEN
    ? loSocket.LastErrorText
    RELEASE loSocket
    CANCEL
ENDIF

*  MaxReadIdleMs controls the inactivity limit for receiving.  The ReceiveNBytesENC call will fail if
*  incoming bytes halt for longer than this many milliseconds before the full amount is received.
loSocket.MaxReadIdleMs = 15000

*  Receive exactly the requested number of bytes and return them encoded using the named encoding.
*  Unlike ReceiveBytesENC, this waits until the full count has been received.
lcHex = loSocket.ReceiveNBytesENC(16,"hex")
IF (loSocket.LastMethodSuccess = 0) THEN
    ? loSocket.LastErrorText
    RELEASE loSocket
    CANCEL
ENDIF

? lcHex

RELEASE loSocket