AutoIt

TCP Socket Send Byte and Receive Byte

Demonstrates the Chilkat Socket ReceiveByte and SendByte method. AutoIt

Local $bSuccess = False

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

$oSock = ObjCreate("Chilkat.Socket")

; --------------------------------------------------------------------
; This example uses the public TCP echo service at https://tcpbin.com/
; --------------------------------------------------------------------

Local $bUseTls = False
Local $iPort = 4242
Local $iMaxWaitMs = 5000
$bSuccess = $oSock.Connect("tcpbin.com",$iPort,$bUseTls,$iMaxWaitMs)
If ($bSuccess = False) Then
    ConsoleWrite($oSock.LastErrorText & @CRLF)
    Exit
EndIf

; Wait a max of 2 seconds for a response..
$oSock.MaxReadIdleMs = 2000

; Send a byte.
$oSock.SendByte(96)

; The tcpbin.com echo server only echoes after receiving an LF (linefeed char)
$oSock.SendByte(10)

; The echo server will echo back whatever is sent to it.
; We should be able to read the same byte back..
; After successfully reading, the byte value is available in the ReceivedInt property.
Local $bTreatAsUnsignedInt = True
$bSuccess = $oSock.ReceiveByte($bTreatAsUnsignedInt)
If ($bSuccess = False) Then
    ConsoleWrite($oSock.LastErrorText & @CRLF)
    Exit
EndIf

; Let's look at the value of the byte received.  It should be 96.
ConsoleWrite($oSock.ReceivedInt & @CRLF)

; The echo server also echoed the LF back.
$bSuccess = $oSock.ReceiveByte($bTreatAsUnsignedInt)
; Assuming success..

; Should be decimal 10.
ConsoleWrite($oSock.ReceivedInt & @CRLF)