PowerBuilder

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. PowerBuilder

integer li_rc
long li_Success
oleobject loo_Sock
long li_UseTls
long li_Port
long li_MaxWaitMs
long li_Value
long li_BigEndian
string ls_HexStr

li_Success = 0

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

loo_Sock = create oleobject
li_rc = loo_Sock.ConnectToNewObject("Chilkat.Socket")
if li_rc < 0 then
    destroy loo_Sock
    MessageBox("Error","Connecting to COM object failed")
    return
end if

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

li_UseTls = 0
li_Port = 4242
li_MaxWaitMs = 5000
li_Success = loo_Sock.Connect("tcpbin.com",li_Port,li_UseTls,li_MaxWaitMs)
if li_Success = 0 then
    Write-Debug loo_Sock.LastErrorText
    destroy loo_Sock
    return
end if

//  Wait a max of 2 seconds for a response..
loo_Sock.MaxReadIdleMs = 2000

//  Send a 16-bit integer using big-endian byte ordering (also called network byte order)
//  12022 decimal = 2EF6 hex
li_Value = 12022
li_BigEndian = 1
loo_Sock.SendInt16(li_Value,li_BigEndian)
//  Send it again, because we'll read it two different ways..
loo_Sock.SendInt16(li_Value,li_BigEndian)

//  The tcpbin.com echo server only echoes after receiving an LF (linefeed char)
loo_Sock.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.)
ls_HexStr = loo_Sock.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.
Write-Debug "Expecting big-endian 2EF6"
Write-Debug ls_HexStr

//  Let's read directly to an integer..
li_Success = loo_Sock.ReceiveInt16(li_BigEndian,1)
Write-Debug "Expecting 12022"
Write-Debug "Received: " + string(loo_Sock.ReceivedInt)

//  Consume the LF that gets echoed back..
loo_Sock.ReceiveByte(1)

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

Write-Debug "----"

//  12022 decimal = 2EF6 hex, but little-endian byte ordering will send the bytes in the order 0xF6 0x2E
li_Value = 12022
li_BigEndian = 0
loo_Sock.SendInt16(li_Value,li_BigEndian)
loo_Sock.SendInt16(li_Value,li_BigEndian)
loo_Sock.SendByte(10)

ls_HexStr = loo_Sock.ReceiveNBytesENC(2,"hex")

Write-Debug "Expecting little-endian F62E"
Write-Debug ls_HexStr

li_Success = loo_Sock.ReceiveInt16(li_BigEndian,1)
Write-Debug "Expecting 12022"
Write-Debug "Received: " + string(loo_Sock.ReceivedInt)

//  Consume the LF that gets echoed back..
loo_Sock.ReceiveByte(1)

loo_Sock.Close(1000)

//  Output:

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


destroy loo_Sock