Visual FoxPro

Send BinData Contents over a Socket

Demonstrates Socket.SendBd, which sends bytes from a BinData beginning at an offset. A numBytes of 0 sends from the offset through the end of the data.

Background. The BinData receive methods accumulate raw bytes in a BinData object. A single receive returns only what is currently available, whereas the counted receive waits for an exact number of bytes.

Chilkat Visual FoxPro Downloads

Download Chilkat for Visual FoxPro

Visual FoxPro

LOCAL lnSuccess
LOCAL loSocket
LOCAL lnBTls
LOCAL lnMaxWaitMs
LOCAL loBd

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

*  Place some bytes into a BinData to be sent.
loBd = CreateObject('Chilkat.BinData')
loBd.AppendString("message payload","utf-8")

*  Send bytes from the BinData starting at the given offset.  A numBytes of 0 sends from the offset
*  through the end of the data.
lnSuccess = loSocket.SendBd(loBd,0,0)
IF (lnSuccess = 0) THEN
    ? loSocket.LastErrorText
    RELEASE loSocket
    RELEASE loBd
    CANCEL
ENDIF

? "Sent " + STR(loBd.NumBytes) + " bytes."

RELEASE loSocket
RELEASE loBd