AutoIt

Socket Send/Receive 16-bit Integers

Demonstrates sending and receiving 16-bit integers over a socket connection using either big-endian or little-endian byte ordering. 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 16-bit integer using big-endian byte ordering (also called network byte order)
;  12022 decimal = 2EF6 hex
Local $iValue = 12022
Local $bigEndian = True
$oSock.SendInt16($iValue,$bigEndian)
;  Send it again, because we'll read it two different ways..
$oSock.SendInt16($iValue,$bigEndian)

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

;  Let's see hex values of the 2 bytes sent in network byte order (big-endian)
;  (The echo server sends back exactly the bytes received.)
Local $sHexStr = $oSock.ReceiveNBytesENC(2,"hex")

;  In the big-ending byte order, the byte order is most significant byte to least significant,
;  therefore we should see the bytes in the order 0x2E 0xF6.
ConsoleWrite("Expecting big-endian 2EF6" & @CRLF)
ConsoleWrite($sHexStr & @CRLF)

;  Let's read directly to an integer..
$bSuccess = $oSock.ReceiveInt16($bigEndian,True)
ConsoleWrite("Expecting 12022" & @CRLF)
ConsoleWrite("Received: " & $oSock.ReceivedInt & @CRLF)

;  Consume the LF that gets echoed back..
$oSock.ReceiveByte(True)

;  --------------------------------------------------------------------
;  Let's do the same thing, but with little-endian byte ordering.

ConsoleWrite("----" & @CRLF)

;  12022 decimal = 2EF6 hex, but little-endian byte ordering will send the bytes in the order 0xF6 0x2E
$iValue = 12022
$bigEndian = False
$oSock.SendInt16($iValue,$bigEndian)
$oSock.SendInt16($iValue,$bigEndian)
$oSock.SendByte(10)

$sHexStr = $oSock.ReceiveNBytesENC(2,"hex")

ConsoleWrite("Expecting little-endian F62E" & @CRLF)
ConsoleWrite($sHexStr & @CRLF)

$bSuccess = $oSock.ReceiveInt16($bigEndian,True)
ConsoleWrite("Expecting 12022" & @CRLF)
ConsoleWrite("Received: " & $oSock.ReceivedInt & @CRLF)

;  Consume the LF that gets echoed back..
$oSock.ReceiveByte(True)

$oSock.Close(1000)

;  Output:

;  Expecting big-endian 2EF6
;  2EF6
;  Expecting 12022
;  Received: 12022
;  ----
;  Expecting little-endian F62E
;  F62E
;  Expecting 12022
;  Received: 12022