Accept the Next Incoming Connection

See more Socket/SSL/TLS Examples

Demonstrates Socket.AcceptNext, which waits for and accepts the next incoming connection on a listening socket, delivering it as a new connected Socket.

var
success: Integer;
socket: TChilkatSocket;
connectedSock: TChilkatSocket;

begin
success := 0;

socket := TChilkatSocket.Create(Self);

success := socket.BindAndListen(5000,25);
if (success = 0) then
  begin
    Memo1.Lines.Add(socket.LastErrorText);
    Exit;
  end;

//  Wait for and accept the next incoming connection on the listening socket.  maxWaitMs = 0 waits
//  indefinitely; a positive value waits up to that many milliseconds.  For a TLS listener, acceptance
//  includes the server-side TLS handshake.
connectedSock := TChilkatSocket.Create(Self);
success := socket.AcceptNext(20000,connectedSock.ControlInterface);
if (success = 0) then
  begin
    Memo1.Lines.Add(socket.LastErrorText);
    Exit;
  end;
Memo1.Lines.Add('Accepted a connection from ' + connectedSock.RemoteIpAddress);