PostEntity (TSDataServiceProviderInfo)

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

• Classe entité de service distant non persistant

— TSDataServiceProviderInfo (class) — Développement DSM —