RealICQClient/Client/Services/ConfigService.pas

unit ConfigService;

interface

uses
  SysUtils, StrUtils, Classes, RealICQContacterTreeView, BaseService, ComCtrls,
  RealICQClient;

type
  TConfigService = class(TBaseService)
  private
    constructor Create;
    procedure LoadLatests;
  public
    destructor Destroy; override;
    class function GetService: TConfigService;
    procedure Init;
    procedure Uninstall;
  end;
  
implementation

{ TConfigService }

constructor TConfigService.Create;
begin

end;

destructor TConfigService.Destroy;
begin

  inherited;
end;

class function TConfigService.GetService: TConfigService;
begin

end;

procedure TConfigService.Init;
begin
  { TODO -olqq -c : 需要考虑 2015/3/14 17:06:30 }
  //读取最近的联系人列表
//  try
//    LoadLatests;
//  except
//  end;
//
//  {$region '读取配置信息'}
//  try
//    //读取组配置信息
//    LoadGroupConfigs;
//  except
//    DeleteFile(TRealICQClient.GetUserDir + GroupConfigXMLFile);
//    LoadGroupConfigs;
//  end;
//
//  try
//    //读取样式
//    LoadStyleConfigs;
//  except
//
//    DeleteFile(TRealICQClient.GetUserDir + StyleConfigXMLFile);
//    LoadStyleConfigs;
//  end;
//
//  try
//    //读取热键设置
//    LoadHotKeyConfigs;
//  except
//    DeleteFile(TRealICQClient.GetUserDir + HotKeyConfigXMLFile);
//    LoadHotKeyConfigs;
//  end;
//
//  try
//    //读取消息提示和声音配置信息
//    LoadHintAndSoundConfigs;
//  except
//    DeleteFile(TRealICQClient.GetUserDir + HintAndSoundConfigXMLFile);
//    LoadHintAndSoundConfigs;
//  end;
//
//  try
//    //读取文件传输配置选项
//    LoadReceiveFileConfigs;
//  except
//    DeleteFile(TRealICQClient.GetUserDir + ReceiveFileConfigXMLFile);
//    LoadReceiveFileConfigs;
//  end;
//
//  try
//    //读取安全配置选项
//    LoadSafeConfigs;
//  except
//    DeleteFile(TRealICQClient.GetUserDir + SafeConfigXMLFile);
//    LoadSafeConfigs;
//  end;
//
//  try
//    //读取字体,表情等信息
//    LoadInputConfigs;
//  except
//
//    DeleteFile(TRealICQClient.GetUserDir + InputConfigXMLFile);
//    LoadInputConfigs;
//  end;
//
//  try
//    //读取出差设置
//    LoadOfflineAutoResponseSets;
//  except
//
//
//    DeleteFile(TRealICQClient.GetUserDir + OfflineAutoResponseConfigXMLFile);
//    LoadOfflineAutoResponseSets;
//  end;
  {$endregion}
end;

procedure TConfigService.LoadLatests;
var
  FLatestUsers: TStringList;
//  RealICQContacterListItem: TRealICQContacterListItem;
  iLoop,
  ItemIndex: Integer;
  LoginName:String;
begin
//  FLatestUsers := DBHistory.GetLatests(RealICQClient.LoginName);
//  try
//    for iLoop := 0 to FLatestUsers.Count - 1 do
//    begin
//      if iLoop >= 20 then Break;
//      LoginName:=FLatestUsers[iLoop];
//      if (AnsiPos('+',LoginName)<=0) and (trim(RealICQClient.CenterServerID)<>'') then
//         LoginName:=RealICQClient.CenterServerID+'+'+LoginName;
//         
//      RealICQUser := RealICQClient.GetRealICQUserObject(LoginName);
//      if RealICQUser = nil then Continue;;
//
//      if not AnsiSameText(RealICQUser.LoginName, RealICQClient.LoginName) then
//      begin
//        ItemIndex := FLVLatests.Items.IndexOf(RealICQUser.LoginName);
//        if ItemIndex = -1 then ItemIndex := FLVLatests.Items.Add(RealICQUser.LoginName);
//
//        RealICQContacterListItem := FLVLatests.Items.Objects[ItemIndex] as TRealICQContacterListItem;
//        BindUserDataToItem(RealICQContacterListItem, RealICQUser);
//      end;
//    end;
//  
//  finally
//    FreeAndNil(FLatestUsers);
//  end;
end;

procedure TConfigService.Uninstall;
begin

end;

end.