(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.
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.
loSocket = CreateObject('Chilkat_9_5_0.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_9_5_0.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
|