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
integer li_Success
oleobject loo_Sock
integer li_UseTls
integer li_Port
integer li_MaxWaitMs
integer li_Value
integer 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