PostEntity (TSDataServiceProviderInfo)
De Wiki1000
Version du 9 mai 2011 à 11:00 par Syfre (discuter | contributions)
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