(PowerBuilder) Accept Connection on Socket

Demonstrates how to create a TCP/IP socket, listen on a port, accept an incoming connection, and send a "Hello World" message to the client.

Chilkat ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

integer li_rc
oleobject loo_ListenSocket
integer li_Success
oleobject loo_ConnectedSocket

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

loo_ListenSocket = create oleobject
// Use "Chilkat_9_5_0.Socket" for versions of Chilkat < 10.0.0
li_rc = loo_ListenSocket.ConnectToNewObject("Chilkat.Socket")
if li_rc < 0 then
    destroy loo_ListenSocket
    MessageBox("Error","Connecting to COM object failed")
    return
end if

// Bind to a port and listen for incoming connections:
// This example will listen at port 5555 and allows for a backlog
// of 25 pending connection requests.
li_Success = loo_ListenSocket.BindAndListen(5555,25)
if li_Success <> 1 then
    Write-Debug loo_ListenSocket.LastErrorText
    destroy loo_ListenSocket
    return
end if

// Get the next incoming connection
// Wait a maximum of 20 seconds (20000 millisec)

loo_ConnectedSocket = loo_ListenSocket.AcceptNextConnection(20000)
if loo_ListenSocket.LastMethodSuccess = 0 then
    Write-Debug loo_ListenSocket.LastErrorText
    destroy loo_ListenSocket
    return
end if

// Set maximum timeouts for reading an writing (in millisec)
loo_ConnectedSocket.MaxReadIdleMs = 10000
loo_ConnectedSocket.MaxSendIdleMs = 10000

// Send a "Hello World!" message to the client:
li_Success = loo_ConnectedSocket.SendString("Hello World!")
if li_Success <> 1 then
    Write-Debug loo_ConnectedSocket.LastErrorText
    destroy loo_ConnectedSocket
    destroy loo_ListenSocket
    return
end if

// Close the connection with the client.
// Wait a max of 20 seconds (20000 millsec)
li_Success = loo_ConnectedSocket.Close(20000)

Write-Debug "success!"


destroy loo_ListenSocket