RealICQClient/Client/Utility/RealICQUtility.pas

unit RealICQUtility;

interface

uses
  Classes, SysUtils;

type
  TRealICQUtility = class
  private
  public
    class procedure ClearStringList(AStringList: TStringList);
    class procedure FreeStringList(AStringList: TStringList);
    class procedure FreeList(AList: TList); static;
    class function SplitString(const Source, Ch: string): TStringList;
    class function GetServerID(ALoginName: string): string;
    class function GetAndClearServerID(var ALoginName: string): string;
    class function ClearServerID(ALoginName: string): string; static;
    class function ClearCenterServerID(ALoginName: string): string; static;
    class function FullLoginName(ACenterServerID, AServerID, ALoginName: string): string; static;
    class function GetLocalUID(ACenterServerID, AServerID, ALoginName: string): string;
    class function GetGuid: string;
  end;

implementation

//procedure TRealICQUtility.AccessDropFiles(AControl: TWinControl);
//const
//  WM_COPYGLOBALDATA = $0049;
//var
//  DLL_Handle: Integer;
//  _ChangeWindowMessageFilter: T_ChangeWindowMessageFilter;
//begin
//  try
//    DLL_Handle := LoadLibrary('user32.dll');
//    if DLL_Handle <> 0 then
//    begin
//      try
//          _ChangeWindowMessageFilter := GetProcAddress(DLL_Handle,'ChangeWindowMessageFilter');
//          if Assigned(_ChangeWindowMessageFilter) then
//          begin
//            _ChangeWindowMessageFilter(WM_COPYDATA, 1);
//            _ChangeWindowMessageFilter(WM_COPYGLOBALDATA, 1);
//            _ChangeWindowMessageFilter(WM_DROPFILES, 1);
//          end;
//      finally
//        FreeLibrary(DLL_Handle);
//      end;
//    end;
//  except
//  end;
//
//end;

class procedure TRealICQUtility.ClearStringList(AStringList: TStringList);
var
  AObj: TObject;
begin
  if AStringList = nil then
    Exit;
  while AStringList.Count > 0 do
  begin
    Aobj := AStringList.Objects[0];
    AStringList.Delete(0);
    FreeAndNil(AObj);
  end;
end;

class procedure TRealICQUtility.FreeStringList(AStringList: TStringList);
var
  AObj: TObject;
begin
  if AStringList = nil then
    Exit;
  while AStringList.Count > 0 do
  begin
    Aobj := AStringList.Objects[0];
    AStringList.Delete(0);
    FreeAndNil(AObj);
  end;

  FreeAndNil(AStringList);
end;

class procedure TRealICQUtility.FreeList(AList: TList);
var
  AObj: TObject;
begin
  if AList = nil then
    Exit;
  while AList.Count > 0 do
  begin
    Aobj := AList[0];
    AList.Delete(0);
    FreeAndNil(AObj);
  end;

  FreeAndNil(AList);
end;

class function TRealICQUtility.GetServerID(ALoginName: string): string;
var
  iStart, iEnd, Len: Integer;
begin
  Result := '';
  iEnd := AnsiPos('-', ALoginName);
  if iEnd < 0 then
    Exit;

  iStart := AnsiPos('+', ALoginName);
  if iStart < 0 then
    iStart := 0;
  if iEnd <= iStart + 1 then
    Exit;

  Result := Copy(ALoginName, iStart + 1, iEnd - iStart - 1);
end;

class function TRealICQUtility.SplitString(const Source, Ch: string): TStringList;
var
  Temp: string;
  iLoop: Integer;
begin
  Result := TStringList.Create;
  Temp := Source;
  iLoop := Pos(Ch, Source);
  while iLoop <> 0 do
  begin
    Result.Add(copy(temp, 0, iLoop - 1));
    Delete(temp, 1, iLoop + Length(Ch) - 1);
    iLoop := Pos(Ch, Temp);
  end;
  Result.Add(temp);
end;

class function TRealICQUtility.GetAndClearServerID(var ALoginName: string): string;
var
  iStart, iEnd, Len: Integer;
begin
  Result := '';
  iEnd := AnsiPos('-', ALoginName);
  if iEnd < 0 then
    Exit;

  iStart := AnsiPos('+', ALoginName);
  if iStart < 0 then
    iStart := 0;
  if iEnd <= iStart + 1 then
    Exit;

  Result := Copy(ALoginName, iStart + 1, iEnd - iStart - 1);
  ALoginName := Copy(ALoginName, iEnd + 1, Length(ALoginName) - iEnd);
end;

class function TRealICQUtility.GetGuid: string;
var
  Guid: TGUID;
begin
  CreateGUID(Guid);
  Result := GUIDToString(Guid);
end;

class function TRealICQUtility.ClearCenterServerID(ALoginName: string): string;
var
  iStart: Integer;
begin
  Result := ALoginName;
  iStart := AnsiPos('+', ALoginName);
  if iStart < 0 then
    Exit;

  Result := Copy(ALoginName, iStart + 1, Length(ALoginName) - iStart);
end;

class function TRealICQUtility.ClearServerID(ALoginName: string): string;
var
  iStart: Integer;
begin
  Result := ALoginName;
  iStart := AnsiPos('-', ALoginName);
  if iStart < 0 then
    Exit;

  Result := Copy(ALoginName, iStart + 1, Length(ALoginName) - iStart);
end;

class function TRealICQUtility.GetLocalUID(ACenterServerID, AServerID, ALoginName: string): string;
begin
  Result := FullLoginName(ACenterServerID, AServerID, ALoginName);
end;

class function TRealICQUtility.FullLoginName(ACenterServerID, AServerID, ALoginName: string): string;
var
  iStart, iEnd, Len: Integer;
begin
  Result := ALoginName;
  if AServerID = '' then
    Exit;

  if AnsiPos('-', Result) <= 0 then
  begin
    if AnsiPos('+', Result) <= 0 then
      Result := AServerID + '-' + Result
    else
      Insert(AServerID + '-', Result, AnsiPos('+', Result) + 1);
  end;

  if ACenterServerID = '' then
    Exit;

  if AnsiPos('+', Result) <= 0 then
    Result := ACenterServerID + '+' + Result;
end;

end.