PutEntity (TSDataServiceProviderInfo) - Historique des versions

Syfre le 15 mars 2013 à 08:04

2013-03-15T08:04:04Z

Syfre le 9 mai 2011 à 12:12

2011-05-09T12:12:30Z

Syfre : a renommé PutEntity (sdata) en PutEntity (TSDataServiceProviderInfo)

2011-05-06T11:21:53Z

a renommé PutEntity (sdata) en PutEntity (TSDataServiceProviderInfo)

Syfre : Page créée avec « procedure putEntity(data:TitObject); Cette fonction met à jour une ressource en effectuant un HTTP PUT de l'entité sur le Service SData. {|… »

2011-05-06T10:08:28Z

Page créée avec « <source lang='delphi'>procedure putEntity(data:TitObject);</source> Cette fonction met à jour une ressource en effectuant un HTTP PUT de l'entité sur le Service SData. {|… »

Nouvelle page

<source lang='delphi'>procedure putEntity(data:TitObject);</source>

Cette fonction met à jour une ressource en effectuant un HTTP PUT de l'entité sur le Service SData.

{|class="wikitable"
|-
|data
|Un objet de type [[Classe entité de service distant non persistante (stereotype)|classe d'entité de service distant non persistant]].
|}

{{info|En cas d'erreur cette méthode lève une exception et le code de retour et le message correspondant peuvent être obtenu dans lastResultCode et lastResultText }}

Exemple :

<source lang="delphi">
var data:remoteEntity;
begin
// create an instance of sdata service provider
prv := TSDataServiceProviderInfo.Create;
prv.UserName := userName;
prv.UserPassword := jeton;
prv.EndPointURL := endpoint;

// Update an entity
//
data := prv.GetEntity('remoteEntity','id=%1',[remoteID]);
data.someProperty := newValue;
prv.putEntity(data);
end;
</source>

Voir aussi

*[[Classe entité de service distant non persistante (stereotype)|Classe entité de service distant non persistant]]

{{Footer|TSDataServiceProviderInfo (class)}}

← Version précédente		Version du 15 mars 2013 à 08:04
Ligne 49 :		Ligne 49 :

	{{Footer\|TSDataServiceProviderInfo (class)}}		{{Footer\|TSDataServiceProviderInfo (class)}}
		+	[[Category:Stéréotype entité de service distant]]

@@ Ligne 14 : / Ligne 14 : @@
 <source lang="delphi">
-var data:remoteEntity;
+var prv:TSDataServiceProviderInfo; inst:RE_Expense; aReason:string;
 begin
    prv := TSDataServiceProviderInfo.Create;
-   prv.UserName := userName;
+   prv.UserName := 'syfre';
-   prv.UserPassword := jeton;
+   prv.UserPassword := '';
-   prv.EndPointURL := endpoint;
+   prv.EndPointURL := 'http://syfre/syfre/server/sdata/syfre/ndfContract/-/';
-   // Update an entity
+   aReason := Format('expense du %s',[FormatDatetime('c',Now)]);
-   //
-   data := prv.GetEntity('remoteEntity','id=%1',[remoteID]);
+   inst := RE_Expense.Create;
-   data.someProperty := newValue;
+   inst.reason := aReason;
-  prv.putEntity(data);
+  inst.dateExpense := Now;
 end;
 </source>