path: root/packages/googleapi/src/googleoauth2.pp

unit googleoauth2;
{$MODE objfpc}
{$H+}

interface

uses sysutils, classes, googleservice, restbase, googlebase;

type
  
  //Top-level schema types
  TJwk = Class;
  TTokeninfo = Class;
  TUserinfoplus = Class;
  TJwkArray = Array of TJwk;
  TTokeninfoArray = Array of TTokeninfo;
  TUserinfoplusArray = Array of TUserinfoplus;
  //Anonymous types, using auto-generated names
  TJwkTypekeysItem = Class;
  TJwkTypekeysArray = Array of TJwkTypekeysItem;
  
  { --------------------------------------------------------------------
    TJwkTypekeysItem
    --------------------------------------------------------------------}
  
  TJwkTypekeysItem = Class(TGoogleBaseObject)
  Private
    Falg : String;
    Fe : String;
    Fkid : String;
    Fkty : String;
    Fn : String;
    Fuse : String;
  Protected
    //Property setters
    Procedure Setalg(AIndex : Integer; const AValue : String); virtual;
    Procedure Sete(AIndex : Integer; const AValue : String); virtual;
    Procedure Setkid(AIndex : Integer; const AValue : String); virtual;
    Procedure Setkty(AIndex : Integer; const AValue : String); virtual;
    Procedure Setn(AIndex : Integer; const AValue : String); virtual;
    Procedure Setuse(AIndex : Integer; const AValue : String); virtual;
  Public
  Published
    Property alg : String Index 0 Read Falg Write Setalg;
    Property e : String Index 8 Read Fe Write Sete;
    Property kid : String Index 16 Read Fkid Write Setkid;
    Property kty : String Index 24 Read Fkty Write Setkty;
    Property n : String Index 32 Read Fn Write Setn;
    Property use : String Index 40 Read Fuse Write Setuse;
  end;
  TJwkTypekeysItemClass = Class of TJwkTypekeysItem;
  
  { --------------------------------------------------------------------
    TJwk
    --------------------------------------------------------------------}
  
  TJwk = Class(TGoogleBaseObject)
  Private
    Fkeys : TJwkTypekeysArray;
  Protected
    //Property setters
    Procedure Setkeys(AIndex : Integer; const AValue : TJwkTypekeysArray); virtual;
    //2.6.4. bug workaround
    {$IFDEF VER2_6}
    Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
    {$ENDIF VER2_6}
  Public
  Published
    Property keys : TJwkTypekeysArray Index 0 Read Fkeys Write Setkeys;
  end;
  TJwkClass = Class of TJwk;
  
  { --------------------------------------------------------------------
    TTokeninfo
    --------------------------------------------------------------------}
  
  TTokeninfo = Class(TGoogleBaseObject)
  Private
    Faccess_type : String;
    Faudience : String;
    Femail : String;
    Fexpires_in : integer;
    Fissued_to : String;
    Fscope : String;
    Ftoken_handle : String;
    Fuser_id : String;
    Fverified_email : boolean;
  Protected
    //Property setters
    Procedure Setaccess_type(AIndex : Integer; const AValue : String); virtual;
    Procedure Setaudience(AIndex : Integer; const AValue : String); virtual;
    Procedure Setemail(AIndex : Integer; const AValue : String); virtual;
    Procedure Setexpires_in(AIndex : Integer; const AValue : integer); virtual;
    Procedure Setissued_to(AIndex : Integer; const AValue : String); virtual;
    Procedure Setscope(AIndex : Integer; const AValue : String); virtual;
    Procedure Settoken_handle(AIndex : Integer; const AValue : String); virtual;
    Procedure Setuser_id(AIndex : Integer; const AValue : String); virtual;
    Procedure Setverified_email(AIndex : Integer; const AValue : boolean); virtual;
  Public
  Published
    Property access_type : String Index 0 Read Faccess_type Write Setaccess_type;
    Property audience : String Index 8 Read Faudience Write Setaudience;
    Property email : String Index 16 Read Femail Write Setemail;
    Property expires_in : integer Index 24 Read Fexpires_in Write Setexpires_in;
    Property issued_to : String Index 32 Read Fissued_to Write Setissued_to;
    Property scope : String Index 40 Read Fscope Write Setscope;
    Property token_handle : String Index 48 Read Ftoken_handle Write Settoken_handle;
    Property user_id : String Index 56 Read Fuser_id Write Setuser_id;
    Property verified_email : boolean Index 64 Read Fverified_email Write Setverified_email;
  end;
  TTokeninfoClass = Class of TTokeninfo;
  
  { --------------------------------------------------------------------
    TUserinfoplus
    --------------------------------------------------------------------}
  
  TUserinfoplus = Class(TGoogleBaseObject)
  Private
    Femail : String;
    Ffamily_name : String;
    Fgender : String;
    Fgiven_name : String;
    Fhd : String;
    Fid : String;
    Flink : String;
    Flocale : String;
    Fname : String;
    Fpicture : String;
    Fverified_email : boolean;
  Protected
    //Property setters
    Procedure Setemail(AIndex : Integer; const AValue : String); virtual;
    Procedure Setfamily_name(AIndex : Integer; const AValue : String); virtual;
    Procedure Setgender(AIndex : Integer; const AValue : String); virtual;
    Procedure Setgiven_name(AIndex : Integer; const AValue : String); virtual;
    Procedure Sethd(AIndex : Integer; const AValue : String); virtual;
    Procedure Setid(AIndex : Integer; const AValue : String); virtual;
    Procedure Setlink(AIndex : Integer; const AValue : String); virtual;
    Procedure Setlocale(AIndex : Integer; const AValue : String); virtual;
    Procedure Setname(AIndex : Integer; const AValue : String); virtual;
    Procedure Setpicture(AIndex : Integer; const AValue : String); virtual;
    Procedure Setverified_email(AIndex : Integer; const AValue : boolean); virtual;
  Public
  Published
    Property email : String Index 0 Read Femail Write Setemail;
    Property family_name : String Index 8 Read Ffamily_name Write Setfamily_name;
    Property gender : String Index 16 Read Fgender Write Setgender;
    Property given_name : String Index 24 Read Fgiven_name Write Setgiven_name;
    Property hd : String Index 32 Read Fhd Write Sethd;
    Property id : String Index 40 Read Fid Write Setid;
    Property link : String Index 48 Read Flink Write Setlink;
    Property locale : String Index 56 Read Flocale Write Setlocale;
    Property name : String Index 64 Read Fname Write Setname;
    Property picture : String Index 72 Read Fpicture Write Setpicture;
    Property verified_email : boolean Index 80 Read Fverified_email Write Setverified_email;
  end;
  TUserinfoplusClass = Class of TUserinfoplus;
  
  { --------------------------------------------------------------------
    TUserinfoV2MeResource
    --------------------------------------------------------------------}
  
  TUserinfoV2MeResource = Class(TGoogleResource)
  Public
    Class Function ResourceName : String; override;
    Class Function DefaultAPI : TGoogleAPIClass; override;
    Function Get : TUserinfoplus;
  end;
  
  
  { --------------------------------------------------------------------
    TUserinfoV2Resource
    --------------------------------------------------------------------}
  
  TUserinfoV2Resource = Class(TGoogleResource)
  Private
    FMeInstance : TUserinfoV2MeResource;
    Function GetMeInstance : TUserinfoV2MeResource;virtual;
  Public
    Class Function ResourceName : String; override;
    Class Function DefaultAPI : TGoogleAPIClass; override;
    Function CreateMeResource(AOwner : TComponent) : TUserinfoV2MeResource;virtual;overload;
    Function CreateMeResource : TUserinfoV2MeResource;virtual;overload;
    Property MeResource : TUserinfoV2MeResource Read GetMeInstance;
  end;
  
  
  { --------------------------------------------------------------------
    TUserinfoResource
    --------------------------------------------------------------------}
  
  TUserinfoResource = Class(TGoogleResource)
  Private
    FV2MeInstance : TUserinfoV2MeResource;
    FV2Instance : TUserinfoV2Resource;
    Function GetV2MeInstance : TUserinfoV2MeResource;virtual;
    Function GetV2Instance : TUserinfoV2Resource;virtual;
  Public
    Class Function ResourceName : String; override;
    Class Function DefaultAPI : TGoogleAPIClass; override;
    Function Get : TUserinfoplus;
    Function CreateV2MeResource(AOwner : TComponent) : TUserinfoV2MeResource;virtual;overload;
    Function CreateV2MeResource : TUserinfoV2MeResource;virtual;overload;
    Function CreateV2Resource(AOwner : TComponent) : TUserinfoV2Resource;virtual;overload;
    Function CreateV2Resource : TUserinfoV2Resource;virtual;overload;
    Property V2MeResource : TUserinfoV2MeResource Read GetV2MeInstance;
    Property V2Resource : TUserinfoV2Resource Read GetV2Instance;
  end;
  
  
  { --------------------------------------------------------------------
    TOauth2API
    --------------------------------------------------------------------}
  
  TOauth2API = Class(TGoogleAPI)
  Private
    FUserinfoV2MeInstance : TUserinfoV2MeResource;
    FUserinfoV2Instance : TUserinfoV2Resource;
    FUserinfoInstance : TUserinfoResource;
    Function GetUserinfoV2MeInstance : TUserinfoV2MeResource;virtual;
    Function GetUserinfoV2Instance : TUserinfoV2Resource;virtual;
    Function GetUserinfoInstance : TUserinfoResource;virtual;
  Public
    //Override class functions with API info
    Class Function APIName : String; override;
    Class Function APIVersion : String; override;
    Class Function APIRevision : String; override;
    Class Function APIID : String; override;
    Class Function APITitle : String; override;
    Class Function APIDescription : String; override;
    Class Function APIOwnerDomain : String; override;
    Class Function APIOwnerName : String; override;
    Class Function APIIcon16 : String; override;
    Class Function APIIcon32 : String; override;
    Class Function APIdocumentationLink : String; override;
    Class Function APIrootUrl : string; override;
    Class Function APIbasePath : string;override;
    Class Function APIbaseURL : String;override;
    Class Function APIProtocol : string;override;
    Class Function APIservicePath : string;override;
    Class Function APIbatchPath : String;override;
    Class Function APIAuthScopes : TScopeInfoArray;override;
    Class Function APINeedsAuth : Boolean;override;
    Class Procedure RegisterAPIResources; override;
    //Add create function for resources
    Function CreateUserinfoV2MeResource(AOwner : TComponent) : TUserinfoV2MeResource;virtual;overload;
    Function CreateUserinfoV2MeResource : TUserinfoV2MeResource;virtual;overload;
    Function CreateUserinfoV2Resource(AOwner : TComponent) : TUserinfoV2Resource;virtual;overload;
    Function CreateUserinfoV2Resource : TUserinfoV2Resource;virtual;overload;
    Function CreateUserinfoResource(AOwner : TComponent) : TUserinfoResource;virtual;overload;
    Function CreateUserinfoResource : TUserinfoResource;virtual;overload;
    //Add default on-demand instances for resources
    Property UserinfoV2MeResource : TUserinfoV2MeResource Read GetUserinfoV2MeInstance;
    Property UserinfoV2Resource : TUserinfoV2Resource Read GetUserinfoV2Instance;
    Property UserinfoResource : TUserinfoResource Read GetUserinfoInstance;
  end;

implementation


{ --------------------------------------------------------------------
  TJwkTypekeysItem
  --------------------------------------------------------------------}


Procedure TJwkTypekeysItem.Setalg(AIndex : Integer; const AValue : String); 

begin
  If (Falg=AValue) then exit;
  Falg:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TJwkTypekeysItem.Sete(AIndex : Integer; const AValue : String); 

begin
  If (Fe=AValue) then exit;
  Fe:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TJwkTypekeysItem.Setkid(AIndex : Integer; const AValue : String); 

begin
  If (Fkid=AValue) then exit;
  Fkid:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TJwkTypekeysItem.Setkty(AIndex : Integer; const AValue : String); 

begin
  If (Fkty=AValue) then exit;
  Fkty:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TJwkTypekeysItem.Setn(AIndex : Integer; const AValue : String); 

begin
  If (Fn=AValue) then exit;
  Fn:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TJwkTypekeysItem.Setuse(AIndex : Integer; const AValue : String); 

begin
  If (Fuse=AValue) then exit;
  Fuse:=AValue;
  MarkPropertyChanged(AIndex);
end;





{ --------------------------------------------------------------------
  TJwk
  --------------------------------------------------------------------}


Procedure TJwk.Setkeys(AIndex : Integer; const AValue : TJwkTypekeysArray); 

begin
  If (Fkeys=AValue) then exit;
  Fkeys:=AValue;
  MarkPropertyChanged(AIndex);
end;


//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure TJwk.SetArrayLength(Const AName : String; ALength : Longint); 

begin
  Case AName of
  'keys' : SetLength(Fkeys,ALength);
  else
    Inherited SetArrayLength(AName,ALength);
  end;
end;
{$ENDIF VER2_6}




{ --------------------------------------------------------------------
  TTokeninfo
  --------------------------------------------------------------------}


Procedure TTokeninfo.Setaccess_type(AIndex : Integer; const AValue : String); 

begin
  If (Faccess_type=AValue) then exit;
  Faccess_type:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TTokeninfo.Setaudience(AIndex : Integer; const AValue : String); 

begin
  If (Faudience=AValue) then exit;
  Faudience:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TTokeninfo.Setemail(AIndex : Integer; const AValue : String); 

begin
  If (Femail=AValue) then exit;
  Femail:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TTokeninfo.Setexpires_in(AIndex : Integer; const AValue : integer); 

begin
  If (Fexpires_in=AValue) then exit;
  Fexpires_in:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TTokeninfo.Setissued_to(AIndex : Integer; const AValue : String); 

begin
  If (Fissued_to=AValue) then exit;
  Fissued_to:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TTokeninfo.Setscope(AIndex : Integer; const AValue : String); 

begin
  If (Fscope=AValue) then exit;
  Fscope:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TTokeninfo.Settoken_handle(AIndex : Integer; const AValue : String); 

begin
  If (Ftoken_handle=AValue) then exit;
  Ftoken_handle:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TTokeninfo.Setuser_id(AIndex : Integer; const AValue : String); 

begin
  If (Fuser_id=AValue) then exit;
  Fuser_id:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TTokeninfo.Setverified_email(AIndex : Integer; const AValue : boolean); 

begin
  If (Fverified_email=AValue) then exit;
  Fverified_email:=AValue;
  MarkPropertyChanged(AIndex);
end;





{ --------------------------------------------------------------------
  TUserinfoplus
  --------------------------------------------------------------------}


Procedure TUserinfoplus.Setemail(AIndex : Integer; const AValue : String); 

begin
  If (Femail=AValue) then exit;
  Femail:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TUserinfoplus.Setfamily_name(AIndex : Integer; const AValue : String); 

begin
  If (Ffamily_name=AValue) then exit;
  Ffamily_name:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TUserinfoplus.Setgender(AIndex : Integer; const AValue : String); 

begin
  If (Fgender=AValue) then exit;
  Fgender:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TUserinfoplus.Setgiven_name(AIndex : Integer; const AValue : String); 

begin
  If (Fgiven_name=AValue) then exit;
  Fgiven_name:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TUserinfoplus.Sethd(AIndex : Integer; const AValue : String); 

begin
  If (Fhd=AValue) then exit;
  Fhd:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TUserinfoplus.Setid(AIndex : Integer; const AValue : String); 

begin
  If (Fid=AValue) then exit;
  Fid:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TUserinfoplus.Setlink(AIndex : Integer; const AValue : String); 

begin
  If (Flink=AValue) then exit;
  Flink:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TUserinfoplus.Setlocale(AIndex : Integer; const AValue : String); 

begin
  If (Flocale=AValue) then exit;
  Flocale:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TUserinfoplus.Setname(AIndex : Integer; const AValue : String); 

begin
  If (Fname=AValue) then exit;
  Fname:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TUserinfoplus.Setpicture(AIndex : Integer; const AValue : String); 

begin
  If (Fpicture=AValue) then exit;
  Fpicture:=AValue;
  MarkPropertyChanged(AIndex);
end;



Procedure TUserinfoplus.Setverified_email(AIndex : Integer; const AValue : boolean); 

begin
  If (Fverified_email=AValue) then exit;
  Fverified_email:=AValue;
  MarkPropertyChanged(AIndex);
end;





{ --------------------------------------------------------------------
  TUserinfoV2MeResource
  --------------------------------------------------------------------}


Class Function TUserinfoV2MeResource.ResourceName : String;

begin
  Result:='me';
end;

Class Function TUserinfoV2MeResource.DefaultAPI : TGoogleAPIClass;

begin
  Result:=Toauth2API;
end;

Function TUserinfoV2MeResource.Get : TUserinfoplus;

Const
  _HTTPMethod = 'GET';
  _Path       = 'userinfo/v2/me';
  _Methodid   = 'oauth2.userinfo.v2.me.get';

begin
  Result:=ServiceCall(_HTTPMethod,_Path,'',Nil,TUserinfoplus) as TUserinfoplus;
end;



{ --------------------------------------------------------------------
  TUserinfoV2Resource
  --------------------------------------------------------------------}


Class Function TUserinfoV2Resource.ResourceName : String;

begin
  Result:='v2';
end;

Class Function TUserinfoV2Resource.DefaultAPI : TGoogleAPIClass;

begin
  Result:=Toauth2API;
end;



Function TUserinfoV2Resource.GetMeInstance : TUserinfoV2MeResource;

begin
  if (FMeInstance=Nil) then
    FMeInstance:=CreateMeResource;
  Result:=FMeInstance;
end;

Function TUserinfoV2Resource.CreateMeResource : TUserinfoV2MeResource;

begin
  Result:=CreateMeResource(Self);
end;


Function TUserinfoV2Resource.CreateMeResource(AOwner : TComponent) : TUserinfoV2MeResource;

begin
  Result:=TUserinfoV2MeResource.Create(AOwner);
  Result.API:=Self.API;
end;



{ --------------------------------------------------------------------
  TUserinfoResource
  --------------------------------------------------------------------}


Class Function TUserinfoResource.ResourceName : String;

begin
  Result:='userinfo';
end;

Class Function TUserinfoResource.DefaultAPI : TGoogleAPIClass;

begin
  Result:=Toauth2API;
end;

Function TUserinfoResource.Get : TUserinfoplus;

Const
  _HTTPMethod = 'GET';
  _Path       = 'oauth2/v2/userinfo';
  _Methodid   = 'oauth2.userinfo.get';

begin
  Result:=ServiceCall(_HTTPMethod,_Path,'',Nil,TUserinfoplus) as TUserinfoplus;
end;



Function TUserinfoResource.GetV2MeInstance : TUserinfoV2MeResource;

begin
  if (FV2MeInstance=Nil) then
    FV2MeInstance:=CreateV2MeResource;
  Result:=FV2MeInstance;
end;

Function TUserinfoResource.CreateV2MeResource : TUserinfoV2MeResource;

begin
  Result:=CreateV2MeResource(Self);
end;


Function TUserinfoResource.CreateV2MeResource(AOwner : TComponent) : TUserinfoV2MeResource;

begin
  Result:=TUserinfoV2MeResource.Create(AOwner);
  Result.API:=Self.API;
end;



Function TUserinfoResource.GetV2Instance : TUserinfoV2Resource;

begin
  if (FV2Instance=Nil) then
    FV2Instance:=CreateV2Resource;
  Result:=FV2Instance;
end;

Function TUserinfoResource.CreateV2Resource : TUserinfoV2Resource;

begin
  Result:=CreateV2Resource(Self);
end;


Function TUserinfoResource.CreateV2Resource(AOwner : TComponent) : TUserinfoV2Resource;

begin
  Result:=TUserinfoV2Resource.Create(AOwner);
  Result.API:=Self.API;
end;



{ --------------------------------------------------------------------
  TOauth2API
  --------------------------------------------------------------------}

Class Function TOauth2API.APIName : String;

begin
  Result:='oauth2';
end;

Class Function TOauth2API.APIVersion : String;

begin
  Result:='v2';
end;

Class Function TOauth2API.APIRevision : String;

begin
  Result:='20160330';
end;

Class Function TOauth2API.APIID : String;

begin
  Result:='oauth2:v2';
end;

Class Function TOauth2API.APITitle : String;

begin
  Result:='Google OAuth2 API';
end;

Class Function TOauth2API.APIDescription : String;

begin
  Result:='Obtains end-user authorization grants for use with other Google APIs.';
end;

Class Function TOauth2API.APIOwnerDomain : String;

begin
  Result:='google.com';
end;

Class Function TOauth2API.APIOwnerName : String;

begin
  Result:='Google';
end;

Class Function TOauth2API.APIIcon16 : String;

begin
  Result:='http://www.google.com/images/icons/product/search-16.gif';
end;

Class Function TOauth2API.APIIcon32 : String;

begin
  Result:='http://www.google.com/images/icons/product/search-32.gif';
end;

Class Function TOauth2API.APIdocumentationLink : String;

begin
  Result:='https://developers.google.com/accounts/docs/OAuth2';
end;

Class Function TOauth2API.APIrootUrl : string;

begin
  Result:='https://www.googleapis.com/';
end;

Class Function TOauth2API.APIbasePath : string;

begin
  Result:='/';
end;

Class Function TOauth2API.APIbaseURL : String;

begin
  Result:='https://www.googleapis.com/';
end;

Class Function TOauth2API.APIProtocol : string;

begin
  Result:='rest';
end;

Class Function TOauth2API.APIservicePath : string;

begin
  Result:='';
end;

Class Function TOauth2API.APIbatchPath : String;

begin
  Result:='batch';
end;

Class Function TOauth2API.APIAuthScopes : TScopeInfoArray;

begin
  SetLength(Result,4);
  Result[0].Name:='https://www.googleapis.com/auth/plus.login';
  Result[0].Description:='Know the list of people in your circles, your age range, and language';
  Result[1].Name:='https://www.googleapis.com/auth/plus.me';
  Result[1].Description:='Know who you are on Google';
  Result[2].Name:='https://www.googleapis.com/auth/userinfo.email';
  Result[2].Description:='View your email address';
  Result[3].Name:='https://www.googleapis.com/auth/userinfo.profile';
  Result[3].Description:='View your basic profile info';
  
end;

Class Function TOauth2API.APINeedsAuth : Boolean;

begin
  Result:=True;
end;

Class Procedure TOauth2API.RegisterAPIResources;

begin
  TJwkTypekeysItem.RegisterObject;
  TJwk.RegisterObject;
  TTokeninfo.RegisterObject;
  TUserinfoplus.RegisterObject;
end;


Function TOauth2API.GetUserinfoV2MeInstance : TUserinfoV2MeResource;

begin
  if (FUserinfoV2MeInstance=Nil) then
    FUserinfoV2MeInstance:=CreateUserinfoV2MeResource;
  Result:=FUserinfoV2MeInstance;
end;

Function TOauth2API.CreateUserinfoV2MeResource : TUserinfoV2MeResource;

begin
  Result:=CreateUserinfoV2MeResource(Self);
end;


Function TOauth2API.CreateUserinfoV2MeResource(AOwner : TComponent) : TUserinfoV2MeResource;

begin
  Result:=TUserinfoV2MeResource.Create(AOwner);
  Result.API:=Self.API;
end;



Function TOauth2API.GetUserinfoV2Instance : TUserinfoV2Resource;

begin
  if (FUserinfoV2Instance=Nil) then
    FUserinfoV2Instance:=CreateUserinfoV2Resource;
  Result:=FUserinfoV2Instance;
end;

Function TOauth2API.CreateUserinfoV2Resource : TUserinfoV2Resource;

begin
  Result:=CreateUserinfoV2Resource(Self);
end;


Function TOauth2API.CreateUserinfoV2Resource(AOwner : TComponent) : TUserinfoV2Resource;

begin
  Result:=TUserinfoV2Resource.Create(AOwner);
  Result.API:=Self.API;
end;



Function TOauth2API.GetUserinfoInstance : TUserinfoResource;

begin
  if (FUserinfoInstance=Nil) then
    FUserinfoInstance:=CreateUserinfoResource;
  Result:=FUserinfoInstance;
end;

Function TOauth2API.CreateUserinfoResource : TUserinfoResource;

begin
  Result:=CreateUserinfoResource(Self);
end;


Function TOauth2API.CreateUserinfoResource(AOwner : TComponent) : TUserinfoResource;

begin
  Result:=TUserinfoResource.Create(AOwner);
  Result.API:=Self.API;
end;



initialization
  TOauth2API.RegisterAPI;
end.