RealICQClient/Client/Group/GroupUtility.pas

unit GroupUtility;

interface

uses
  Classes, SysUtils, Graphics, SuperObject;

const
  // 创建
  // q						{id:'', group:{name:'', type:0, creator:'', intro:'', notice:'', members: []}}
  // r(send)			{id:'', ret:0, group: {}} // all
  // f(send)			{id:'', ret:0, data: {}}
  // b(members)		{id:'', group:{}}
  GROUP_CREATE_REQUEST: string = 'g.create.q';
  GROUP_CREATE_RESPONSE: string = 'g.create.r';
  GROUP_CREATE_FAIL: string = 'g.create.f';
  GROUP_CREATE_BROADCAST: string = 'g.create.b';

  GROUP_CREATE_JSON:string = '{"id":"", "group":{"name":"", "type":"", "creator":"", "intro":"", "notice":"", "members":[]}}';

  // 更新
  // q						{id:'', group:{id:'', intro:'', notice:'', members: [], managers: []}};
  // r(send)			{id:'', ret:0, group: {}} // changes
  // f(send)			{id:'', ret:0, data: {}}
  // b(members)		{id:'', group:{}} // changes
  GROUP_UPDATE_REQUEST: string = 'g.update.q';
  GROUP_UPDATE_RESPONSE: string = 'g.update.r';
  GROUP_UPDATE_FAIL: string = 'g.update.f';
  GROUP_UPDATE_BROADCAST: string = 'g.update.b';

  // 删除
  // q						{id:'', group:{id:[id...]}}
  // r(send)			{id:'', ret:0, group:{id:[id...]}} 删除成功的编号
	// f(send)			{id:'', ret:0, data: {}}
	// b(members)		{id:'', group:{id:[id...]}}
  GROUP_DEL_REQUEST: string = 'g.del.q';
  GROUP_DEL_RESPONSE: string = 'g.del.r';
  GROUP_DEL_FAIL: string = 'g.del.f';
  GROUP_DEL_BROADCAST: string = 'g.del.b';

	// 根据 ID 查询
	// q						{id:'', group:{id: 'id' /* or Array */}};
	// r(send)			{id:'', ret:0, groups:[group...]};
	// f(send)			{id:'', ret:0, data: {}}
  GROUP_GET_REQUEST: string = 'g.get.q';
  GROUP_GET_RESPONSE: string = 'g.get.r';
  GROUP_GET_FAIL: string = 'g.get.f';

	// 搜索
	// q						{id:'', group:{id:'', name:'', intro:'', notice:'', members: [], managers: []}, skip:0, limit: 0};
	// r(send)			{id:'', ret:0, groups:[group...], skip:0, limit: 0}
	// f(send)			{id:'', ret:0, data: {}}
  GROUP_QUERY_REQUEST: string = 'g.search.q';
  GROUP_QUERY_RESPONSE: string = 'g.search.r';
  GROUP_QUERY_FAIL: string = 'g.search.f';

	// 添加
	// q						{id:'', group:{id:''}};
	// r(send)			{id:'', ret:0, group:{id:'', members: [id...], managers: [id...]}}
	// f(send)			{id:'', ret:0, data: {}}
  MEMBER_QUERY_REQUEST: string = 'm.query.q';
  MEMBER_QUERY_RESPONSE: string = 'm.query.r';
  MEMBER_QUERY_FAIL: string = 'm.query.f';

	// 添加
  // q						{id:'', group:{id:'', members: [id...], managers: [id...]}};
  // r(send)			{id:'', ret:0, group:{id:'', members: [id...], managers: [id...]}}
  // f(send)			{id:'', ret:1}
  // b						{id:'', group:{id:'', members: [id...], managers: [id...]}}
  MEMBER_ADD_REQUEST: string = 'm.add.q';
  MEMBER_ADD_RESPONSE: string = 'm.add.r';
  MEMBER_ADD_FAIL: string = 'm.add.f';
  MEMBER_ADD_BROADCAST: string = 'm.add.b';
//  MEMBER_ADD_P: string = 'u.add.p';

  // 删除
	// q						{id:'', group:{id:'', members: [id...], managers: [id...]}};
	// r(send)			{id:'', ret:0, group:{id:'', members: [id...], managers: [id...]}}
	// f(send)			{id:'', ret:0, data: {}}
	// b(members)		{id:'', group:{id:'', members: [id...], managers: [id...]}}
	MEMBER_DEL_REQUEST: string = 'm.del.q';
  MEMBER_DEL_RESPONSE: string = 'm.del.r';
  MEMBER_DEL_FAIL: string = 'm.del.f';
  MEMBER_DEL_BROADCAST: string = 'm.del.b';

  // 更新
	// q						{id:'', group:{id:'', members: [{id:'', alias:''}]}};
	// r(send)			{id:'', ret:0, group:{id:'', members: [{id:'', alias:''}]}};
	// f(send)			{id:'', ret:0, data: {}}
	// b(members)		{id:'', group:{id:'', members: [{id:'', alias:''}]}};
	MEMBER_UPDATE_REQUEST: string = 'm.update.q';
  MEMBER_UPDATE_RESPONSE: string = 'm.update.r';
  MEMBER_UPDATE_FAIL: string = 'm.update.f';
  MEMBER_UPDATE_BROADCAST: string = 'm.update.b';

  // 申请
  // q						{id:'', group:{id:'', apply:{uid:'', msg:''}}}
  // r(send)			{id:''}
  // f(send)			{id:'', ret:1}
  // 	400 请求错误(一般缺少 group id)
  // 	304 用户已存在
  //	405 群禁止用户加入
  //	group type:
  //	0, 调用 u.add
  //	1, 申请加入
  //	4, 返回 405
  // p(managers)	{id:'', group:{id:'', apply:{id:'', uid: '', msg:''}}}, 管理员接收到 apply.p, 发起 replay.q
  MEMBER_APPLY_REQUEST: string = 'm.apply.q';
  MEMBER_APPLY_RESPONSE: string = 'm.apply.r';
  MEMBER_APPLY_FAIL: string = 'm.apply.f';
  MEMBER_APPLY_P2P: string = 'm.apply.p';
  // 审核
  // q										{id:'', group:{id:'', apply:{id:'', uid:'', msg:''}, reply:{id:'', uid:'', ret:0, msg}}}
  //	ret:
  //			1 允许
  //			0 拒接
  // r(send)							{id:'', _ret:0, group:{id:'', apply:{id:'', msg:''}, reply:{id:'', uid:'', ret:0, msg}}}
  // f(send)							{id:'', ret:1}
  // p(apply & managers)	{id:'', group:{id:'', apply:{id:'', uid:'', msg:''}, reply:{id:'', uid:'', ret:0, msg}}}
  MEMBER_REPLY_REQUEST: string = 'm.reply.q';
  MEMBER_REPLY_RESPONSE: string = 'm.reply.r';
  MEMBER_REPLY_FAIL: string = 'm.reply.f';
  MEMBER_REPLY_P2P: string = 'm.reply.p';

  // 邀请加入
  // q  "id":"","group":{"id":"","members":[], "operator":{"id":"","msg":""}}}
  // r
  // f
  // p()
  //invite: 'u.invite',
  INVITE_REQUEST: string = 'm.invite.q';

  // 会话
  // q						{id:'', group:{id:[id...]}, message:{message}}
  // r(send)			{id:'', ret:0, group:{id: [id...], message:{message}}}
  // b(members)		{id:'', group:{id:[id...]}, message:{message}}
  MESSAGE_SAY_REQUEST: string = 'msg.say.q';
  MESSAGE_SAY_RESPONSE: string = 'msg.say.r';
  MESSAGE_SAY_BROADCAST: string = 'msg.say.b';

  // 离线消息
  // r(client)		[{msg},{event}...]
  MESSAGE_OFFLINE_REQUEST: string = 'msg.off.q';
  MESSAGE_OFFLINE_RESPONSE: string = 'msg.off.r';

  // 会话回执
  // q						{id:'', message:{id:[id...]}}
  // r(send)			{id:'', ret:0}
  // mark: 'm.mk'

  // 消息回执
  // q						{id:'', event:{id:[id...]}}
  // r(send)			{id:'', ret:0}
  // mark: 'e.mk'

  // 回执
  // q						{id:'', message:{id:[id...]}, event:{id:[id...]}}
  // r(send)			{id:'', ret:0}
  MARK_MK_REQUEST: string = 'mi.mk.q';
  MARK_MK_RESPONSE: string = 'mi.mk.r';

  // 用户群组
  // r(send)			{id:'', groups:[]}
  MEMBER_GS_REQUEST: string = 'u.gs.q';
  MEMBER_GS_RESPONSE: string = 'u.gs.r';

  // 请求群列表
  USER_LI_REQUEST: string = 'u.li.q';
  USER_LI_RESPONSE: string = 'u.li.r';

  //文件请求
  FILE_UPLOADED_REQUEST: string = 'f.up.q';
  FILE_UPLOADED_RESPONSE: string = 'f.up.r';
  FILE_UPLOADED_BROADCAST: string = 'f.up.b';

  SHAKEHANDS_STEP1: string = 'http://%s:%d/socket.io/?uid=%s&EIO=3&transport=polling&t=%d-0';
  SHAKEHANDS_STEP2: string = 'http://%s:%d/socket.io/?uid=%s&EIO=3&transport=polling&t=%d-0&sid=%s';
  WEBSOCKET_URL: string = '/socket.io/?uid=%s&EIO=3&transport=websocket&sid=%s';

  UPLOAD_URL: string = 'http://%s:%d/file/upload';
  DOWNLOAD_URL: string = 'http://%s:%d/file/%s';

  GATEWAY_URL: string = 'http://%s:%d/v1/servers';

  // style: 定义 {family: ,style: ,variant: ,weight: ,size: }
  // family: 字体       ["宋体", "9", "clBlack", ""]
  // style: normal, italic, oblique, inherit
  // variant: normal, small-caps, inherit
  // weight: normal, bold, bolder, lighter, 100-900, inherit
  // size: xx-small, x-small, small, medium, large, x-large, xx-large, smaller, larger, length, %, inherit
  function FontToJson(AFont: TFont): ISuperObject;
  function JsonToFont(AJo: ISuperObject): string;
//  function GetDefaultFont: string;
implementation

uses
  xFonts;

  function GetRGBColor(AColor: TColor): Integer;
  var
    R, B: Integer;
  begin
    R := AColor and $0000FF;
    B := AColor and $FF0000;
    B := B shr 16;
    if R = B then
    begin
      Result := AColor;
      Exit;
    end;
    R := R shl 16;
    Result := (AColor and $00FF00) or R or B;
  end;
  
  function GetBGRColor(AColor: TColor): Integer;
  var
    R, B: Integer;
  begin
    R := AColor and $FF0000;
    B := AColor and $0000FF;
    B := B shl 16;
    if R = B then
    begin
      Result := AColor;
      Exit;
    end;
    R := R shr 16;
    Result := (AColor and $00FF00) or R or B;
  end;

  function FontToJson(AFont: TFont): ISuperObject;
  begin
    if (AFont.Name = '宋体') and (AFont.Size = 9)
      and (AFont.Color = clBlack ) and (AFont.Style = []) then
      Exit;
    Result := SO('{}');
    if AFont.Name <> '宋体' then
      Result.S['family'] := AFont.Name;
    if AFont.Size <> 9 then
      Result.I['size'] := AFont.Size;
    if AFont.Color <> clBlack then
      Result.S['color'] := ColorToString(AFont.Color);
    if fsBold in AFont.Style then
      Result.S['weight'] := 'bold';
    if fsItalic in AFont.Style then
      Result.S['style'] := 'italic';
    if fsUnderline in AFont.Style then
      Result.S['decoration'] := 'underline';
  end;

  function JsonToFont(AJo: ISuperObject): string;
  var
    AFont: TFont;
  begin
    if AJo = nil then
    begin
      Result := '["宋体", 9, "clBlack", ""]';
      Exit;
    end;
    AFont := TFont.Create;
    try
      if AJo.S['family'] <> '' then
        AFont.Name := AJo.S['family']
      else
        AFont.Name := '宋体';
      if AJo.I['size'] <> 0 then
        AFont.Size := AJo.I['size']
      else
        AFont.Size := 9;
      if AJo.S['color'] <> '' then
        AFont.Color := StringToColor(AJo.S['color'])
      else
        AFont.Color := clBlack;
        
      if AJo.S['weight'] <> '' then
        AFont.Style := AFont.Style + [fsBold];
      if AJo.S['style'] <> '' then
         AFont.Style := AFont.Style + [fsItalic];
      if AJo.S['decoration'] <> '' then
        AFont.Style := AFont.Style + [fsUnderline];
    except
      Result := '["宋体", 9, "clBlack", ""]';
      FreeAndNil(AFont);
    end;
    Result := FontToString(AFont);
    FreeAndNil(AFont);
  end;
end.