RealICQClient/GroupClient/GroupProtocols.pas

unit GroupProtocols;

interface

uses
  Classes, SysUtils, GroupUtility, superobject;

type
  TGroupProtocol = class
  private
    FProtocols: TStringList;
  public
    constructor Create(AGroupClient: TObject);
    destructor Destroy; override;
    procedure Proccess(AData: string);
  end;

implementation

uses
  GroupProcess, LoggerImport, GroupClient;

{ TGroupProtocol }

constructor TGroupProtocol.Create(AGroupClient: TObject);
var
  AClient: TGroupClient;
begin
  AClient := (AGroupClient as TGroupClient);
  FProtocols := TStringList.Create;
//  FProtocols.AddObject(GROUP_CREATE_REQUEST, TBaseProcess.Create(nil));
  FProtocols.AddObject(GROUP_CREATE_RESPONSE, TGroupCreateResponse.Create(nil));
  FProtocols.AddObject(GROUP_CREATE_FAIL, TBaseProcess.Create(nil));
  FProtocols.AddObject(GROUP_CREATE_BROADCAST, TGroupCreateResponse.Create(nil));

//  FProtocols.AddObject(GROUP_UPDATE_REQUEST, TBaseProcess.Create(nil));
  FProtocols.AddObject(GROUP_UPDATE_RESPONSE, TGroupUpdateResponse.Create(nil));
  FProtocols.AddObject(GROUP_UPDATE_FAIL, TBaseProcess.Create(nil));
  FProtocols.AddObject(GROUP_UPDATE_BROADCAST, TGroupUpdateResponse.Create(nil));

//  FProtocols.AddObject(GROUP_DEL_REQUEST, TBaseProcess.Create(nil));
  FProtocols.AddObject(GROUP_DEL_RESPONSE, TGroupDeleteResponse.Create(nil));
  FProtocols.AddObject(GROUP_DEL_FAIL, TBaseProcess.Create(nil));
  FProtocols.AddObject(GROUP_DEL_BROADCAST, TGroupDeleteResponse.Create(nil));

//  FProtocols.AddObject(GROUP_GET_REQUEST, TBaseProcess.Create(nil));
  FProtocols.AddObject(GROUP_GET_RESPONSE, TGroupSearchByIDResponse.Create(nil));
  FProtocols.AddObject(GROUP_GET_FAIL, TBaseProcess.Create(nil));

//  FProtocols.AddObject(GROUP_QUERY_REQUEST, TBaseProcess.Create(nil));
  FProtocols.AddObject(GROUP_QUERY_RESPONSE, TGroupSearchResponse.Create(nil));
  FProtocols.AddObject(GROUP_QUERY_FAIL, TBaseProcess.Create(nil));

//  FProtocols.AddObject(MEMBER_QUERY_REQUEST, TBaseProcess.Create(nil));
  FProtocols.AddObject(MEMBER_QUERY_RESPONSE, TBaseProcess.Create(nil));
  FProtocols.AddObject(MEMBER_QUERY_FAIL, TBaseProcess.Create(nil));

//  FProtocols.AddObject(MEMBER_ADD_REQUEST, TBaseProcess.Create(nil));
  FProtocols.AddObject(MEMBER_ADD_RESPONSE, TMemberAddResponse.Create(nil));
  FProtocols.AddObject(MEMBER_ADD_FAIL, TBaseProcess.Create(nil));
  FProtocols.AddObject(MEMBER_ADD_BROADCAST, TMemberAddResponse.Create(nil));
//  FProtocols.AddObject(MEMBER_ADD_P, TBaseProcess.Create(nil));

//  FProtocols.AddObject(MEMBER_DEL_REQUEST, TBaseProcess.Create(nil));
  FProtocols.AddObject(MEMBER_DEL_RESPONSE, TMemberDelResponse.Create(nil));
  FProtocols.AddObject(MEMBER_DEL_FAIL, TBaseProcess.Create(nil));
  FProtocols.AddObject(MEMBER_DEL_BROADCAST, TMemberDelResponse.Create(nil));

//  FProtocols.AddObject(MEMBER_UPDATE_REQUEST, TBaseProcess.Create(nil));
  FProtocols.AddObject(MEMBER_UPDATE_RESPONSE, TBaseProcess.Create(nil));
  FProtocols.AddObject(MEMBER_UPDATE_FAIL, TBaseProcess.Create(nil));
  FProtocols.AddObject(MEMBER_UPDATE_BROADCAST, TBaseProcess.Create(nil));

//  FProtocols.AddObject(MEMBER_APPLY_REQUEST, TBaseProcess.Create(nil));
  FProtocols.AddObject(MEMBER_APPLY_RESPONSE, TBaseProcess.Create(nil));
  FProtocols.AddObject(MEMBER_APPLY_FAIL, TBaseProcess.Create(nil));
  FProtocols.AddObject(MEMBER_APPLY_P2P, TMemberApplyP.Create(nil));

//  FProtocols.AddObject(MEMBER_REPLY_REQUEST, TBaseProcess.Create(nil));
  FProtocols.AddObject(MEMBER_REPLY_RESPONSE, TBaseProcess.Create(nil));
  FProtocols.AddObject(MEMBER_REPLY_FAIL, TBaseProcess.Create(nil));
  FProtocols.AddObject(MEMBER_REPLY_P2P, TBaseProcess.Create(nil));

//  FProtocols.AddObject(MESSAGE_SAY_REQUEST, TBaseProcess.Create(nil));
  FProtocols.AddObject(MESSAGE_SAY_RESPONSE, TBaseProcess.Create(nil));
  FProtocols.AddObject(MEMBER_SAY_BROADCAST, TBaseProcess.Create(nil));

//  FProtocols.AddObject(MARK_MK_REQUEST, TBaseProcess.Create(nil));
  FProtocols.AddObject(MARK_MK_RESPONSE, TBaseProcess.Create(nil));
//  FProtocols.AddObject(MEMBER_GS_REQUEST, TBaseProcess.Create(nil));
  FProtocols.AddObject(MEMBER_GS_RESPONSE, TBaseProcess.Create(nil));
end;

destructor TGroupProtocol.Destroy;
begin
  FreeAndNil(FProtocols);
  inherited;
end;

procedure TGroupProtocol.Proccess(AData: string);
var
  ja: TSuperArray;
  proto: string;
  i: Integer;
begin
  try
    //GrpMonitor.ReflashLastTime;
    AData := copy(AData,2,length(AData));
    if AData = '' then
      Exit;
    ja := SO(AData).AsArray;
    i := FProtocols.IndexOf(ja.S[0]);
    if i < 0 then
      Exit;
    (FProtocols.Objects[i] as TBaseProcess).Excute(ja.O[1])
  except
    on E: Exception do
      Error(E.Message+AData, 'TGroupProtocol.Proccess('+AData+')');
  end;
end;

end.