PowerBuilder

Socket Receive String Until Specific Byte Value is Received

Demonstrates the Chilkat Socket ReceiveStringUntilByte method. PowerBuilder

integer li_rc
integer li_Success
oleobject loo_Sock
integer li_UseTls
integer li_Port
integer li_MaxWaitMs
integer li_LookForByte
string ls_S1
string ls_S2

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 some strings, each terminated by a 0 byte.
loo_Sock.SendString("This is the 1st string")
loo_Sock.SendByte(0)
loo_Sock.SendString("This is string number 2")
loo_Sock.SendByte(0)

// The tcpbin.com echo server only echoes after receiving an LF (linefeed char)
loo_Sock.SendByte(10)

// Now let's receive what is echoed back....
// Receive each string and the NULL byte.
// The call to ReceiveStringUntilByte will receive incoming data until the lookForByte is encountered.
// The lookForByte is receive and discarded (it is not returned in the string)
li_LookForByte = 0
ls_S1 = loo_Sock.ReceiveStringUntilByte(li_LookForByte)
if loo_Sock.LastMethodSuccess = 0 then
    Write-Debug loo_Sock.LastErrorText
    destroy loo_Sock
    return
end if

Write-Debug ls_S1

ls_S2 = loo_Sock.ReceiveStringUntilByte(li_LookForByte)
if loo_Sock.LastMethodSuccess = 0 then
    Write-Debug loo_Sock.LastErrorText
    destroy loo_Sock
    return
end if

Write-Debug ls_S2

// The echo server will also echo back the final LF
loo_Sock.ReceiveByte(1)
li_MaxWaitMs = 100
loo_Sock.Close(100)

// Output:
// This is the 1st string
// This is string number 2


destroy loo_Sock