RealICQClient/CA/InterfaceCA.pas

unit InterfaceCA;

interface

type
  ICAConfig = interface
  ['{C26F30F4-9263-44EA-BE03-F4A4AC1CB2C7}']
    function GetAppID: string; stdcall;
    function GetEnable: Boolean; stdcall;
    function GetURL: string; stdcall;
    function GetCASubject: string; stdcall;
//    function GetIsChooseCa: Boolean; stdcall;
//    procedure SetIsChooseCa(AValue: Boolean); stdcall;
  end;

  ICAClient = interface
  ['{3AB63609-78D6-4B85-A9F5-8D9947E8E6A6}']
    function Request: string; stdcall;
  end;

implementation

end.