source: trunk/UGameSocket.pas

unit UGameSocket;

{$mode delphi}

interface

uses
  Classes, SysUtils, UTCP;

type

  { TGameSocket }

  TGameSocket = class
    procedure Send(Index: Integer; DataOut, DataIn: Pointer); virtual;
  end;

  { TGameSocketNetworkServer }

  TGameSocketNetworkServer = class(TGameSocket)
  private
    procedure ClientConnect(Sender: TObject);
  public
    TCPServer: TTCPServer;
    constructor Create;
    destructor Destroy; override;
    procedure Send(Index: Integer; DataOut, DataIn: Pointer); override;
  end;

  { TGameSocketNetworkClient }

  TGameSocketNetworkClient = class(TGameSocket)
    TCPClient: TTCPClient;
    procedure Send(Index: Integer; DataOut, DataIn: Pointer); override;
    constructor Create;
    destructor Destroy; override;
  end;

  { TGameSocketDirect }

  TGameSocketDirect = class(TGameSocket)
    Remote: TGameSocketDirect;
    procedure Send(Index: Integer; DataOut, DataIn: Pointer); override;
  end;

implementation

{ TGameSocketNetworkClient }

procedure TGameSocketNetworkClient.Send(Index: Integer; DataOut, DataIn: Pointer
  );
begin
  TCPClient.Socket.Write(DataOut^, MemSize(DataOut));
end;

constructor TGameSocketNetworkClient.Create;
begin
  TCPClient := TTCPClient.Create;
end;

destructor TGameSocketNetworkClient.Destroy;
begin
  TCPClient.Free;
  inherited Destroy;
end;

{ TGameSocketDirect }

procedure TGameSocketDirect.Send(Index: Integer; DataOut, DataIn: Pointer);
begin
  inherited Send(Index, DataOut, DataIn);
end;

{ TGameSocket }

procedure TGameSocket.Send(Index: Integer; DataOut, DataIn: Pointer);
begin
end;

{ TGameSocketNetworkServer }

procedure TGameSocketNetworkServer.ClientConnect(Sender: TObject);
var
  Text: string;
begin
  //Text := 'Welcome' + LineEnding;
  //TTCPClientThread(Sender).Socket.Write(Text[1], Length(Text));
end;

constructor TGameSocketNetworkServer.Create;
begin
  TCPServer := TTCPServer.Create;
  TCPServer.OnClientConnect := ClientConnect;
end;

destructor TGameSocketNetworkServer.Destroy;
begin
  TCPServer.Free;
  inherited Destroy;
end;

procedure TGameSocketNetworkServer.Send(Index: Integer; DataOut, DataIn: Pointer
  );
var
  I: Integer;
begin
  for I := 0 to TCPServer.ThreadPool.Items.Count - 1 do
    //(TCPServer.ThreadPool.Items[I]).Send(Index, DataOut, DataIn);
end;

end.