🚀 go-pugleaf

On Wed, 7 Jun 2017 15:26:07 +0200, mmm wrote:

> Sa zaimplementowane jakieś klasy dla API Delphi ?
> Czy trzeba to wszystko zrobić ręcznie za pomocą TRESTClient ?
> 
> Poproszę o podpowiedz jak korzystać z API Googla w aplikacji delphi

Za darmo - rzeźba za pomocą RESTa jak piszesz.
Za kasę - https://www.tmssoftware.com/site/cloudpack.asp

-- 
pozdrawiam
Roman Tyczka

W dniu 2017-06-07 o 16:07, Roman Tyczka pisze:
> On Wed, 7 Jun 2017 15:26:07 +0200, mmm wrote:
> 
>> Sa zaimplementowane jakieś klasy dla API Delphi ?
>> Czy trzeba to wszystko zrobić ręcznie za pomocą TRESTClient ?
>>
>> Poproszę o podpowiedz jak korzystać z API Googla w aplikacji delphi
> 
> Za darmo - rzeźba za pomocą RESTa jak piszesz.

Struganie ręczne to mniej wiecej tak jak poniżej 
(jObject.Get('kind').JSONValue.Value )  czy tez można zrobic to jakoś 
lepiej ? Jak taki obiekt w Json przenieść do klasy dziedziczącej po 
TObject ewentualnie na podstawie RTTI jakies automatyczne przenoszenie 
danych ?


uses REST.Client, System.JSON

procedure TForm4.Button2Click(Sender: TObject);
var
   RESTClient: TRESTClient;
   RESTRequest: TRESTRequest;
   RESTResponse: TRESTResponse;
var
   jAll: TJSONValue;
   jItems:TJSonValue;
   jObject: TJSonObject;
begin
   RESTResponse := TRESTResponse.Create(self);;
   RESTClient := TRESTClient.Create(self);
   RESTRequest := TRESTRequest.Create(self);

   try

     RESTClient.BaseURL := 
'https://www.googleapis.com/youtube/v3/playlistItems';
     with RESTClient.Params.AddItem() do
     begin
       name := 'part';
       Value := 'contentDetails,id';
     end;
     with RESTClient.Params.AddItem() do
     begin
       name := 'maxResults';
       Value := '50';
     end;
     with RESTClient.Params.AddItem() do
     begin
       name := 'playlistId';
       Value := 'PLBCF2DAC6FFB574DE';
     end;
     with RESTClient.Params.AddItem() do
     begin
       name := 'key';
       Value := 'AIzaSyCgB1DcSAG7_bSbKn9z_9Y7HM6jhefN-eQ';
     end;

     RESTRequest.Client := RESTClient;
     RESTRequest.Response := RESTResponse;

     RESTResponse.RootElement := 'items';
     RESTRequest.Execute;


     if RESTResponse.StatusCode = 200 then
     begin
       showmessage(RESTResponse.Content);
       jAll := RESTResponse.JSONValue;
       if (jAll is TJSONArray) then
       begin
         jObject := (jAll as TJSONArray).Items[0] as TJSonObject;
         showmessage(jObject.Get('kind').JSONValue.Value);
       end;
     end;


   finally
     RESTResponse.Free;
     RESTClient.Free;
     RESTRequest.Free;
   end;

end;