delphi ipub-refit

delphi ipub-refit

?

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62

unit Unit2; //https://github.com/viniciusfbb/ipub-refit interface   uses   REST.Authenticator.OAuth,   ipub.Rtl.Refit, Winapi.Windows, Winapi.Messages, System.SysUtils,   System.Variants, System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms,   Vcl.Dialogs, Vcl.StdCtrls;   type   TUser = record     name: string;     location: string;     id: Integer;   end;     [BaseUrl('https://api.github.com')]   IUser = interface(IipRestApi)     ['{36AF7C59-E4D2-4EB6-8F6F-8380E88FE7D5}']     [Headers('Header-A', '1')]     [Post('/users/{aUser}')]     function GetUsers(const AUser: string): tarray<TUser>;     [Post('/users/{aUser}')]     function GetUsersJson(const AUser: string): string;     function GetApiKey: string;     procedure SetApiKey(const AValue: string);     property ApiKey: string read GetApiKey write SetApiKey;   end;   type   TForm2 = class(TForm)     Button1: TButton;     procedure Button1Click(Sender: TObject);   private     { Private declarations }   public     { Public declarations }   end;   var   Form2: TForm2;   implementation   {$R *.dfm}   procedure TForm2.Button1Click(Sender: TObject); begin   var Api: IUser;   var Users: tarray<TUser>;   var auth: TOAuth2Authenticator;   auth := TOAuth2Authenticator.Create(nil);   Api := GRestService.&For<IUser>;   Api.ApiKey := 'XXXXX';   api.Authenticator := auth;   Users := api.GetUsers('user1');   Showmessage(api.GetUsersJson('user1'));   auth.Free; end;   end.