Hello,

here's my OnSessionAvailable.
I use TWSocket insteat of TWSocketServer because it already works and I
don't want to change that part of my program.

procedure TServerSocket.MyOnSessionAvailable(Sender: TObject;
          ErrCode: Word);
var news:TSocket; begin
if not assigned(asoc) then
  begin
    try
      { We need to accept the client connection }
      NewS := self.Accept;

      { And then associate this connection with our client socket }
      asoc:=TAnswerSocket.Create(callback, OnClose);
      asoc.Dup(news);
    except
      On e:exception do
      begin
        // log a message
      end;
    end;
  end;
end;

Greetings

Markus



-- 
To unsubscribe or change your settings for TWSocket mailing list
please goto http://www.elists.org/mailman/listinfo/twsocket
Visit our website at http://www.overbyte.be

Reply via email to