Voir la source de DeleteEntityByKey (TSDataServiceProviderInfo)

<source lang='delphi'>procedure deleteEntityByKey(const iResourceName:string; const iKey:string);</source>

Cette fonction supprime une ressource en effectuant un HTTP DELETE de l'entité sur le Service SData.

{|class="wikitable"
|-
|iResourceName
|Nom de la ressource à supprimer
|-
|iKey
|Identifiant de la ressource
|}

{{tip|Cette méthode ne contrôle pas le ETag de la ressource }}

{{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">
//Procedure DeleteExpense;
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);

  prv.DeleteEntityByKey('expense',inst.SDataKey);

  inst := prv.GetEntityWhere('RE_Expense','reason=%1','dateExpense',[aReason]) as RE_expense;
  if Assigned(inst)
     then showMessage('foound after delete !')
     else showMessage('delete ok');
end;
</source>

Voir aussi

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

{{Footer|TSDataServiceProviderInfo (class)}}