« PostEntity (TSDataServiceProviderInfo) » : différence entre les versions
(Page créée avec « <source lang='delphi'>procedure postEntity(data:TitObject);</source> Cette fonction crée une ressource en effectuant un HTTP POST de l'entité sur le Service SData. {|clas… ») |
Aucun résumé des modifications |
||
| (2 versions intermédiaires par le même utilisateur non affichées) | |||
| Ligne 14 : | Ligne 14 : | ||
<source lang="delphi"> | <source lang="delphi"> | ||
var prv:TSDataServiceProviderInfo; inst:RE_Expense; aReason:string; | |||
begin | begin | ||
prv := TSDataServiceProviderInfo.Create; | prv := TSDataServiceProviderInfo.Create; | ||
prv.UserName := | prv.UserName := 'syfre'; | ||
prv.UserPassword := | prv.UserPassword := ''; | ||
prv.EndPointURL := | prv.EndPointURL := 'http://syfre/syfre/server/sdata/syfre/ndfContract/-/'; | ||
aReason := Format('expense du %s',[FormatDatetime('c',Now)]); | |||
prv. | inst := RE_Expense.Create; | ||
inst.reason := aReason; | |||
inst.dateExpense := Now; | |||
inst.quantity := 1; | |||
inst.status.AsVariant := RE_NDF_STATUS_DRAFT; | |||
prv.PostEntity(inst); | |||
showMessage(Format('id:%s key:%s etag:%s',[inst.SDataID,inst.SDataKey,inst.SDataEtag])); | |||
end; | end; | ||
</source> | </source> | ||
| Ligne 32 : | Ligne 39 : | ||
{{Footer|TSDataServiceProviderInfo (class)}} | {{Footer|TSDataServiceProviderInfo (class)}} | ||
[[Category:Stéréotype entité de service distant]] | |||
Dernière version du 15 mars 2013 à 08:03
<source lang='delphi'>procedure postEntity(data:TitObject);</source>
Cette fonction crée une ressource en effectuant un HTTP POST de l'entité sur le Service SData.
| data | Un objet de type classe d'entité de service distant non persistant. |
|
Note : 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 prv:TSDataServiceProviderInfo; inst:RE_Expense; aReason:string; begin
prv := TSDataServiceProviderInfo.Create; prv.UserName := 'syfre'; prv.UserPassword := ; prv.EndPointURL := 'http://syfre/syfre/server/sdata/syfre/ndfContract/-/';
aReason := Format('expense du %s',[FormatDatetime('c',Now)]);
inst := RE_Expense.Create; inst.reason := aReason; inst.dateExpense := Now; inst.quantity := 1; inst.status.AsVariant := RE_NDF_STATUS_DRAFT; prv.PostEntity(inst);
showMessage(Format('id:%s key:%s etag:%s',[inst.SDataID,inst.SDataKey,inst.SDataEtag]));
end; </source>
Voir aussi
{{#if:TSDataServiceProviderInfo (class)|
{{#if:TSDataServiceProviderInfo (class)|— TSDataServiceProviderInfo (class) |}} — Développement DSM —
|
{{#if:|— [[{{{1}}}]] |}} — Développement DSM —
}}