Objets persistants sous Windows XP/Delphi 7

Question

J'essaie de créer un AlarmSystem dans Delphi 7, Windows XP. Je dois enregistrer des alarmes dans une base de données (MS SQL Server 2000). Mais que faire si le serveur est en panne ??? Eh bien, je peux imaginer que je dois persister des objets de type TAlarm. Alors, comment puis-je faire cela? Peut-être hériter de TComponent ??? S'il vous plaît, comment puis-je faire cela ??

Merci beaucoup.

Je suis désolé pour mon anglais.

Ici vous avez plus d'informations ... TAlarm est une classe qui descend de TObject, fondamentalement. Il y a 10 classes de plus qui descendent de TAlarm (certains types d'alarmes). TAlarm a un champ nommé FParams: TParams, et les classes enfants ont seulement une méthode Execute. Le champ FParams peut être de différents types: TAlarmX1_Params, TAlarmX2_Params, etc., etc.

Answer 1

Vous pouvez conserver les informations dans un fichier XML ou INI localement. Cela ne nécessite pas de changer de quoi TAlarm descend. Vous devrez cependant persister manuellement et restaurer toutes les propriétés que vous souhaitez conserver localement. Ça ne devrait pas être si compliqué.

Answer 2

Vous pouvez hériter de TPersistent, puis vous pouvez utiliser le composant TJvAppXMLFileStorage (JVCL) pour sérialiser la classe TAlarm.

Enregistrer un objet

uses 
    JvAppXMLStorage; 

Procedure SaveMyObject(MyAlarm : TAlarm) 
var 
    MyStore: TJvAppXMLFileStorage; 
begin 
    MyStore:= TJvAppXMLFileStorage.Create(nil); 
    try 
    MyStore.WritePersistent('', MyAlarm); 
    MyStore.Xml.SaveToFile('C:\MyAlarm.xml'); 
    finally 
    MyStore.Free; 
    end; 
end; 

Restaurer un objet

uses 
    JvAppXMLStorage; 

Procedure LoadMyObject(MyAlarm : TAlarm) 
var 
    MyStore: TJvAppXMLFileStorage; 
begin 
    MyStore:= TJvAppXMLFileStorage.Create(nil); 
    try 
    MyStore.FileName:='C:\MyAlarm.xml';   
    MyStore.Xml.LoadFromFile('C:\MyAlarm.xml'); 
    MyStore.ReadPersistent('', MyAlarm); 
    finally 
    MyStore.Free; 
    end; 
end; 

MISE À JOUR

Si vous devez persister plus d'un objet à l'X Fichier ML vous devez affecter un chemin (identifiant unique) aux méthodes WritePersistent et ReadPersistent.

Voir cet exemple,

multiples persist

Procedure SaveMyObjects(MyObjects : Array of TComponent); 
var 
    MyStore: TJvAppXMLFileStorage; 
    i  : integer; 
begin 
    MyStore:= TJvAppXMLFileStorage.Create(nil); 
    try 
    for i := Low(MyObjects) to High(MyObjects) do 
    MyStore.WritePersistent(MyObjects[i].Name, MyObjects[i]); //In this case i use the name property of the component. 
    MyStore.Xml.SaveToFile('C:\Tools\MyAlarm.xml'); 
    finally 
    MyStore.Free; 
    end; 
end; 

pour enregistrer les composants

SaveMyObjects([Button1,Button2,Edit1,Edit2]); 

multiples CHARGE

Procedure LoadMyObjects(MyObjects:Array of TComponent); 
var 
    MyStore : TJvAppXMLFileStorage; 
    i   : integer; 

begin 
    MyStore:= TJvAppXMLFileStorage.Create(nil); 
    try 
    MyStore.FileName:='C:\Tools\MyAlarm.xml'; 
    MyStore.Xml.LoadFromFile('C:\Tools\MyAlarm.xml'); 
    for i := Low(MyObjects) to High(MyObjects) do 
     MyStore.ReadPersistent(MyObjects[i].Name, MyObjects[i]); 
    finally 
    MyStore.Free; 
    end; 
end; 

Pour restaurer les propriétés

LoadMyObjects([Button1,Button2,Edit1,Edit2]); 

Une autre option pour charger

Procedure LoadMyObjectById(Id:String;MyObject:TComponent); //using the id of the object 
var 
    MyStore : TJvAppXMLFileStorage; 
    i   : integer; 

begin 
    MyStore:= TJvAppXMLFileStorage.Create(nil); 
    try 
    MyStore.FileName:='C:\Tools\MyAlarm.xml'; 
    MyStore.Xml.LoadFromFile('C:\Tools\MyAlarm.xml'); 
    MyStore.ReadPersistent(id, MyObject); 
    finally 
    MyStore.Free; 
    end; 
end; 

vous devez exécuter cette façon

LoadMyObjectById(Button1.Name,Button1); //Again using the Name property. 

J'espère que cet exemple sera utile;)

Answer 3

Si le serveur sur lequel vous êtes censé enregistrer vos données est hors service, le meilleur moyen consiste généralement à provoquer l'échec de l'opération et à renvoyer une erreur. De cette façon, vous n'avez pas besoin de deux ensembles distincts de codes de sérialisation, qui doivent tous deux être synchronisés entre eux, et d'un moyen de prendre vos données locales et de les télécharger sur le serveur une fois qu'il est sauvegardé. De plus, si votre application dépend d'un serveur distant, il est probable que l'utilisateur ne pourra pas en faire beaucoup avec le mode hors connexion, ce qui n'est pas une mauvaise idée une perspective d'interface utilisateur.

Answer 4

J'ai utilisé une base de données locale, un fichier Access mdb accessible via ADO, avec le même schéma que le serveur. Lorsque la connexion se rétablit, j'ai fait une synchronisation. Mais, de nos jours, j'ai abandonné cette technique; Lorsque la connexion est perdue ou que le serveur est arrêté, l'application échoue.