Visual FoxPro

Send Bytes on a Socket Connection

See more Socket/SSL/TLS Examples

Demonstrates how to send a mixture of binary (non-text) and text bytes on a socket connection. Visual FoxPro

LOCAL lnSuccess
LOCAL loSocket
LOCAL lnSsl
LOCAL lnMaxWaitMillisec
LOCAL lnPort
LOCAL loBd

lnSuccess = 0

* This example requires the Chilkat API to have been previously unlocked.
* See Global Unlock Sample for sample code.

loSocket = CreateObject('Chilkat.Socket')

* Connect to some host:port
lnSsl = 0
lnMaxWaitMillisec = 20000
lnPort = 5555
lnSuccess = loSocket.Connect("test.com",lnPort,lnSsl,lnMaxWaitMillisec)
IF (lnSuccess <> 1) THEN
    ? loSocket.LastErrorText
    RELEASE loSocket
    CANCEL
ENDIF

* We wish to send a 0x00 byte followed by the us-ascii string "10800"
loBd = CreateObject('Chilkat.BinData')

loBd.AppendByte(0)
loBd.AppendString("10800","utf-8")

* Send the entire contents of bd.
lnSuccess = loSocket.SendBd(loBd,0,0)
IF (lnSuccess <> 1) THEN
    ? loSocket.LastErrorText
    RELEASE loSocket
    RELEASE loBd
    CANCEL
ENDIF

RELEASE loSocket
RELEASE loBd