RealICQClient/CA/TestAuth.pas

unit TestAuth;

interface

uses
  xmldom, XMLIntf, msxmldom, XMLDoc, Classes, SysUtils, Dialogs, LoggerImport,
  mybean.core.objects, InterfaceCA, IdHTTP, Forms;

type
  TTestAuth = class(TMyBeanInterfacedObject, ICAClient)
  public
    function Request: string; stdcall;
  end;

implementation

uses
  CAImport, Windows, StrUtils;
  
{ TTestAuth }

function TTestAuth.Request: string;
const
  GETUSER_URL: string = 'http://%s:%d/api/basic/GetUserByCA?appKey=%s&appSecret=%s&ca=%s';
var
  AID: string;
  AIdHttp: TIdHttp;
  AURL: string;
  Str: string;
begin


end;

end.