AutoIt

Socket Send and Receive BinData

Demonstrates the Chilkat Socket ReceiveBdN and SendBd methods. 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 26 bytes contained in a Chilkat BinData
$oBdToSend = ObjCreate("Chilkat.BinData")
Local $i = 0
Local $iByteVal = 65
While $i < 26
    $oBdToSend.AppendByte($iByteVal)
    $iByteVal = $iByteVal + 1
    $i = $i + 1
Wend
; Send the contents of the BinData
; Pass zero's in the 2nd and 3rd arguments to send the entire contents of the BinData.
$oSock.SendBd($oBdToSend,0,0)

; 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 bytes back..
$oBdRecv = ObjCreate("Chilkat.BinData")
; Receive the 26 bytes previously sent, plus the LF char.
$bSuccess = $oSock.ReceiveBdN(27,$oBdRecv)
If ($bSuccess = False) Then
    ConsoleWrite($oSock.LastErrorText & @CRLF)
    Exit
EndIf

; Show the contents of bdRecv in hex format
ConsoleWrite($oBdRecv.GetEncoded("hex") & @CRLF)

; Output:  4142434445464748494A4B4C4D4E4F505152535455565758595A0A