« Put (TSDataRemoteObject) » : différence 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… ») |
Aucun résumé des modifications |
||
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 | |||
// 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 | begin | ||
inst := | // Create a resource | ||
inst. | 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 à 13:36
<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 enregistré dans l'Administration |
Exemple :
<source lang="delphi">
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;
</source>
Voir aussi
{{#if:Classe entité de service distant (stereotype)|
{{#if:Classe entité de service distant (stereotype)|— Classe entité de service distant (stereotype) |}} — Développement DSM —
|
{{#if:|— [[{{{1}}}]] |}} — Développement DSM —
}}