PostEntity (TSDataServiceProviderInfo)
De Wiki1000
(Différences 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… ») |
|||
| (2 révisions intermédiaires par un utilisateur sont masqué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]] | ||
Version actuelle en date du 15 mars 2013 à 09:03
procedure postEntity(data:TitObject);
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 :
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;
Voir aussi
