Discussion :

[Laskar]

Salut à tous.
J'ai développé une application Android avec Delphi 10.3 très basique : consultation, édition et mise à jour d'une liste de participants via un téléphone. J'utilise un serveur DataSnap REST sur une machine Linux qui communique avec une base FireBird 2.5. Après quelques cheveux blancs, l'application fonctionne à peu près.
Pour la consultation et l'insertion de nouveaux enregistrements, pas de problème. En revanche, pour la suppression, j'ai une put@#!% d'erreur dont je ne comprends pas le sens.
Lorsque j'efface un enregistrement depuis le smartphone et que j'applique les mises à jour sur ma base distante. Ca marche. Si, dans la foulée, je supprime un second enregistrement, j'obtiens cette erreur :
EFDException [FireDac][DApt]-400. Delete command deleted[0] instead of [1] record. Possible reasons : update table does not have PK or row identifier, record has been changed/deleted by another user.
Je précise que ma base contient bien une clé primaire et que, évidement, aucun autre utilisateur n'utilise cette base à part moi.
La table IDENTITE de ma base est très simple : ID (integer), NOM (varchar(30)), PRENOM (varchar(35)) et PHOTO (BLOB binaire). ID est ma clé primaire.
Le programme client utilise une FDMemTable et les échanges entre le client et le serveur se font au format JSON conformément à toute application multi-tiers.
J'ai fouillé des heures sur la toile en quête d'un début de solution : chou blanc !

Un peu d'aide serait la bienvenue.
Merci.

[Papy214]

des transactions qui se mangent le nez ??
la table aurait-elle une liaison avec une autre table qui elle, n'aurait pas de clé primaire ?

[ShaiLeTroll]

on dirait une sorte de conflit de conciliation
Il n'arrive pas à supprimer l'enregistrement

Comment supprimes-tu l'enregistrement côté Serveur ?
As-tu fourni un TFDUpdateSQL avec un DeleteSQL spécifique ou tu laisse FireDac se débrouiller à générer la bonne requête (ayant tellement de soucis avec ADO à ce sujet, je ne plus confiance à aucune couche du genre pour faire ce boulot correctement)

Coté Client, la donnée est bien supprimée ?

DataSnap REST sur une machine Linux

Une chose que je vais devoir explorer l'année prochaine, si tu dis que l'application fonctionne a peu près, c'est général ou c'est juste le bug mentionné ici ?

[SergioMaster]

Bonjour,

attention c'est juste une indication des causes possibles de l'erreur, pas forcément La cause.
Le message indique simplement que la ligne n'a pas été supprimée (0 de fait sur 1 demandée)

[Laskar]

Coté client (application Android), l'enregistrement est supprimé de la FDMemTable par un simple FDMemTable.Delete. Je calcule ensuite le Delta des deux DataSets (avant et après suppression) et j'appelle la méthode serveur "ApplyUpdate" avec le résultat de ce calcul au format JSON. Ca fonctionne nickel pour les insertions. Si je supprime un enregistrement et que je fais une insertion immédiatement derrière, pas de problème. Le souci intervient quand je fais deux suppressions l'une derrière l'autre.

Une chose que je vais devoir explorer l'année prochaine, si tu dis que l'application fonctionne a peu près, c'est général ou c'est juste le bug mentionné ici ?

Non, à part ce "bug" que j'espère résoudre très vite, tout marche. La machine Linux est derrière une FreeBox V6 et je viens m'y connecter depuis un smartphone Android en 4G (je pense pouvoir compiler pour iOS sans trop de difficulté).
Devant le nombre de galères auxquelles j'ai fait face (en particulier pour le transfert des images), je n'exclus pas de faire un petit tuto.
Pour mon problème, je fouille dans la propriété UpdateOptions de la FDMemTable qui est très peu documentée. Je vous tiens au courant de mes trouvailles.
A+

[SergioMaster]

Je calcule ensuite le Delta des deux DataSets (avant et après suppression)

ça, ça me parait étrange, FDMemTable en CacheUpdate le fait tout seul normalement, il y a quelque chose qui m'échappe il va falloir que je relise les chapitres 12 et 13 de "Delphi in depth : Firedac"
et retrouve les sources associées avant d'en dire plus.

Devant le nombre de galères auxquelles j'ai fait face (en particulier pour le transfert des images), je n'exclus pas de faire un petit tuto.

je me ferais une joie de mettre mon grain de sel lors de la correction technique

[SergioMaster]

Bonjour,

le chapitre 16 "Using CachedUpdate" m'a peut-être donné une piste, après le ApplyUpdates y-a t'il un CommitUpdates pour "vider" le cache il se pourrait en fait que vous essayez de détruire un enregistrement déjà effacé mais toujours indiqué comme étant à détruire

(demo : FDBasicCache dans http://www.jensendatasystems.com/fir...acbookcode.zip)

[Laskar]

@SergioMaster

En nettoyant un peu le code, l'erreur a disparu. La bizarrerie, c'est que si je compile pour W32, les enregistrements sont correctement effacés (la machine Linux se trouve sur mon réseau local). En revanche, si je compile pour Android, bien que l'erreur ait disparu, les enregistrements ne sont pas effacés (rien ne se passe).
La propriété "CachedUpdates" de ma FDMemTable est bien à TRUE. Sans conviction, j'ai tenté un FDMemTable.ApplyUpdates(-1) suivi d'un FDMemTable.CommitUpdates avant d'invoquer la méthode serveur de mise à jour sur la base. Ca ne fonctionne toujours pas.

(note hors sujet)
Le calcul du delta dont je parle est une fonction qui me retourne le DataSet JSON qui sera envoyé à la méthode serveur ApplyUpdates. Code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
function TForm1.GetDeltas: TFDJSONDeltas;
begin
    if FDMemTable.State in dsEditModes then FDMemTable.Post;
    Result := TFDJSONDeltas.Create;
    TFDJSONDeltasWriter.ListAdd(Result, 'IDENTITE', FDMemTable);
end;

J'ai trouvé de nombreux exemples (celui de FDBasicCache que je connaissais m'a d'ailleurs très inspiré) mais tous traitent du GET et de l'insertion. Rien concernant la suppression.
Je creuse toujours ...

[Laskar]

Problème résolu. Il s'agissait d'un oubli de ma part. Voici la solution :
Pour le OnClick du bouton "Delete" :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
procedure TForm1.bSupClick(Sender: TObject);
var
  DeltaList : TFDJSONDeltas;
begin
    gFlag := 1; // (ça, c'est pour ma cuisine interne ...)
    FDMemTable.Delete;
    // suppression immédiate
    DeltaList := GetDeltas; 
    MyClientModule.MyServerMethods_Client.sm_ApplyUpdates(DeltaList);
    GetList; // <====== Voila ce qu'il fallait ajouter !!
end;

La méthode GetList

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
procedure TForm1.GetList;
Var
    JSONList: TFDJSONDataSets;
Begin
    // Ferme la table mémoire
    FDMemTable.Close;
    // Va chercher la liste sur le serveur (au format JSON)
    JSONList := MyClientModule.MyServerMethods_Client.sm_GetList;
    // La copie dans FDMemTable
    FDMemTable.AppendData(TFDJSONDataSetsReader.GetListValue(JSONList, 0));
    // Ouvre à nouveau FDMemTable pour l'afficher dans ma ViewList
    FDMemTable.Open;
End;

Il fallait donc fermer et réouvrir la table après la suppression pour que ça marche. Logique.

Merci à tous.