Bonjour,
Apres avoir déconnecté ma DB, et placé ceci (dans le before d'un service) ...
Je me suis apercu que je rentrai ni dans le 1er cas, ni dans le 2nd. Ce test m'aurait permi de rediriger l'utilisateur vers une joli page "Désolé, DB off", mais j'obtiens le fameux
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13 //test de connection à la DB DB := (XMLCollection as IXMLCollection2).GetDatabaseComponent('test'); if not DB.Connected then begin //DB.Connected := True; showmessage('DB non connectée !'); Context.SetValue('ERRORDB','1'); end else begin showmessage('DB connectée !'); Context.SetValue('ERRORDB','0'); end;
N'y a t'il donc pas moyen de personnaliser ce genre d'erreur (comme je voulais le faire avec une redirection JS dans un before dans mon XMLGram, récupérant 'ERRORDB' envoyé par Delphi en Context) ?TXMLApplication.Initialize TXMLApplication.PreCreateXMLCollections TXMLApplication.CreateNewXMLCollection TXMLCollection.InitializeExtDataSources TDacDatabase.Open - Attribut de chaîne de connexion non valide
Nico
Partager