(Visual FoxPro) Send Bytes on a Socket Connection

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

Chilkat ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

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

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

* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.Socket')
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"
* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.BinData')
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