Put (TSDataRemoteObject)
De Wiki1000
(Différences entre les versions)
(Page créée avec « <source lang='delphi'>procedure Put;</source> Cette méthode effectue un PUT de la ressource SData. {{tip|Cette méthode utilise un [[Fournisseur de Service (sdata)|fournis… ») |
|||
| Ligne 4 : | Ligne 4 : | ||
{{tip|Cette méthode utilise un [[Fournisseur de Service (sdata)|fournisseur de service]] enregistré dans l'Administration}} | {{tip|Cette méthode utilise un [[Fournisseur de Service (sdata)|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}} | ||
{|class="wikitable" | {|class="wikitable" | ||
| Ligne 14 : | Ligne 16 : | ||
<source lang="delphi"> | <source lang="delphi"> | ||
| − | var inst: | + | |
| + | procedure UpdateRemote(const iKey:string); | ||
| + | var inst:RE_ClassA; | ||
begin | begin | ||
| − | inst := | + | // Retreive the resource to update |
| − | inst. | + | 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; | inst.Put; | ||
| + | |||
| + | // Verify | ||
| + | inst := RE_ClassA.Get(inst.SDataKey); | ||
| + | Result := Assigned(inst) and (inst.aInteger=2); | ||
end; | end; | ||
| + | |||
</source> | </source> | ||
Version du 19 août 2011 à 14:36
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 (stereotype) — Développement DSM —
