Utilisation du Livebinding avec un modèle de données Livebinding

Concernant les appels REST, il n’y a pas grand-chose à connaître en plus. Encore une fois, l’implémentation de l’appel est similaire aux deux autres cas d’usage vus précédemment :

procedure TClientControler.GetItemList; 
  var aResult :TJsonResult; 
  tmpStr:string; 
begin 
  FCurrentAction := twmgetshop; 
  aResult := TJsonResult.Create(errSuccess); 
  RESTClient.BaseURL := c_BaseURL+'delphi/items'; 
  RESTRequest.Method := rmGET; 
  RESTRequest.ClearBody; 
  RESTRequest.ExecuteAsync( 
    procedure 
    begin 
      FCurrentStatusCode := RESTResponse.StatusCode; 
      aResult.ParseJsonString(RESTResponse.Content); 
      FCurrentResult := aResult; 
      TThread.Queue(nil,DoActionCompleted); 
    end, 
    False 
  ); 
end; 

Par contre, ce cas d’application va permettre de voir comment utiliser un modèle de données à travers le concepteur de liaison visuel.

Pour rappel, le modèle de produit est comme suit :

 type TProduct = class(Tobject) 
  private 
    FId : integer; ...
Pour consulter la suite, découvrez le livre suivant :
couv_RIDELPH.png
60-signet.svg
En version papier
20-ecran_lettre.svg
En version numérique
41-logo_abonnement.svg
En illimité avec l'abonnement ENI
130-boutique.svg
Sur la boutique officielle ENI
Précédent
Authentification REST de type Basic et login d’un utilisateur
Suivant
Conclusion