Is this way of implementation ok?
interface
TP2PIOHandlerSocket = class(TIdIOHandlerSocket)
public
constructor Create(AOwner: TComponent); override;
destructor Destroy; override;
function Send(var Buf; Len: Integer): Integer; override;
function Recv(var Buf; Len: Integer): Integer; override;
end;
TP2PServerIOHandlerSocket = class(TIdServerIOHandler)
public
function Accept(ASocket: TIdStackSocketHandle; AThread: TIdThread):
TIdIOHandler; override;
end;
implementation
function TP2PIOHandlerSocket.Send(var Buf; Len: Integer): Integer;
begin
//do my stuff
end;
function TP2PIOHandlerSocket.Recv(var Buf; Len: Integer): Integer;
begin
//do my stuff
end;
function TP2PServerIOHandlerSocket.Accept(ASocket: TIdStackSocketHandle;
AThread: TIdThread): TIdIOHandler;
begin
Result := TP2PIOHandlerSocket.Create(nil); //owner??
end;
end.
