Move a Connection into Another Socket

See more Socket/SSL/TLS Examples

Demonstrates Socket.TakeConnection, which moves the active connection from one Socket into another. The receiving object first releases any connection it previously held.

var
success: Integer;
listenSock: TChilkatSocket;
connectedSock: TChilkatSocket;
handlerSock: TChilkatSocket;

begin
success := 0;

listenSock := TChilkatSocket.Create(Self);

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

connectedSock := TChilkatSocket.Create(Self);
success := listenSock.AcceptNext(20000,connectedSock.ControlInterface);
if (success = 0) then
  begin
    Memo1.Lines.Add(listenSock.LastErrorText);
    Exit;
  end;

//  Move the active connection out of connectedSock and into another Socket object.  Unlike
//  TakeSocket, this does not add a member to a socket set.  After success, connectedSock holds no
//  connection.
handlerSock := TChilkatSocket.Create(Self);
success := handlerSock.TakeConnection(connectedSock.ControlInterface);
if (success = 0) then
  begin
    Memo1.Lines.Add(handlerSock.LastErrorText);
    Exit;
  end;
Memo1.Lines.Add('Connection moved to the handler socket.');