RealICQClient/Client/Processor/BranchsProcessor.pas

unit BranchsProcessor;

interface

uses
  SysUtils, SuperObject, Classes;

type
  TBranchUsersProcessor = class
  public
    class procedure Processor(AJo: ISuperObject);

  end;

  
implementation

uses
  RealICQClient, MainFrm, InterfaceDataProvider, DataProviderImport, RealICQModel;

{ TBranchUsersProcessor }

class procedure TBranchUsersProcessor.Processor(AJo: ISuperObject);
var
  joBranchs: ISuperObject;
  item: TSuperAvlEntry;
  AServerID: string;
  AUsers: TStringList;
begin
//  joBranchs := AJo.O['bs'];
//  AServerID := AJo.S['s'];
//  for item in joBranchs.AsObject do
//  begin
//    try
//      AUsers := InitAndRequestUsers(item.Value, ARealICQClient);
//      DoGettedUsersByBranchID(AServerID, item.Name, AUsers);
//    finally
//      if AUsers <> nil then
//        FreeAndNil(AUsers);
//    end;
//  end;
end;

end.