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.
| iResourceName | Nom de la ressource à supprimer |
| iKey | Identifiant de la ressource |
|
Tip : Cette méthode ne contrôle pas le ETag de la ressource |
|
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"> //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
{{#if:TSDataServiceProviderInfo (class)|
{{#if:TSDataServiceProviderInfo (class)|— TSDataServiceProviderInfo (class) |}} — Développement DSM —
|
{{#if:|— [[{{{1}}}]] |}} — Développement DSM —
}}