Put (TSDataRemoteObject)

procedure Put;

Cette méthode effectue un PUT de la ressource SData.

Tip : Cette méthode utilise un fournisseur de service enregistré dans l'Administration

Tip : La valeur de la clé primaire de la ressource SDataKey doit être définie avant l'appel à PUT

Exemple :

procedure UpdateRemote(const iKey:string);
var inst:RE_ClassA;
begin
  // Retreive the resource to update
  inst := RE_ClassA.Get(iKey);

  // Update the resource
  if Assigned(inst) then
   begin
     inst.aInteger := 2;
     inst.Put;
   end;
end;

function CreateAndUpdateRemote:Boolean;
var inst:RE_ClassA;
begin
  // Create a resource
  inst := RE_ClassA.Create;
  inst.aString  := 'string value';
  inst.aInteger := 1;
  inst.Post;

  // The Post return has updated the value of the SDataKey attribute

  //Update the resource
  inst.aInteger := 2;
  inst.Put;

  // Verify
  inst := RE_ClassA.Get(inst.SDataKey);
  Result := Assigned(inst) and (inst.aInteger=2);
end;

Voir aussi

• Classe entité de service distant

— Classe entité de service distant (stereotype) — Développement DSM —