Xbase++

Receive an Exact Number of Bytes into a BinData

Demonstrates Socket.ReceiveBdN, which receives exactly the requested number of bytes and appends them to a BinData, continuing until the full count is satisfied.

Background. Inactivity is controlled by MaxReadIdleMs: the call fails if incoming bytes halt for longer than MaxReadIdleMs milliseconds before the full amount is received. A single receive returns only what is currently available, whereas this counted receive waits for an exact number of bytes.

Chilkat Xbase++ Downloads

Download Chilkat for Xbase++

Xbase++

LOCAL nSuccess
LOCAL oSocket
LOCAL nBTls
LOCAL nMaxWaitMs
LOCAL oBd

nSuccess := 0

oSocket := CreateObject("Chilkat.Socket")

//  Connect to the server using TLS.
nBTls := 1
nMaxWaitMs := 5000
nSuccess := oSocket:Connect("example.com", 5000, nBTls, nMaxWaitMs)
IF (nSuccess == 0)
    ? oSocket:LastErrorText
    oSocket:destroy()
    RETURN
ENDIF

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

//  Receive exactly the requested number of bytes, appending them to a BinData.  The method continues
//  receiving until the full count is satisfied or a failure occurs.
oBd := CreateObject("Chilkat.BinData")
nSuccess := oSocket:ReceiveBdN(256, oBd)
IF (nSuccess == 0)
    ? oSocket:LastErrorText
    oSocket:destroy()
    oBd:destroy()
    RETURN
ENDIF

? "Received " + Str(oBd:NumBytes) + " bytes."

oSocket:destroy()
oBd:destroy()