Les premiers pas

Programmer en Delphi avec la JEDI Code Library (JCL) implique d'utiliser une suite de bibliothèques et d'outils open-source pour améliorer la fonctionnalité et la productivité dans vos projets Delphi. La JEDI Code Library fournit des composantes et des utilitaires pour une variété de tâches courantes, telles que la gestion des exceptions, la manipulation des chaînes de caractères, la gestion des fichiers, et bien plus encore.

Étapes pour programmer avec JEDI en Delphi

• Installer la JEDI Code Library (JCL) : Téléchargez la JCL depuis le site officiel ou le dépôt GitHub de JEDI. Décompressez l'archive et ouvrez le fichier de projet Delphi de la JCL (généralement un fichier .dpk ou .dproj). Compilez et installez les paquets de la JCL dans Delphi en utilisant l'IDE. Cela ajoutera les unités JCL aux chemins de recherche de votre IDE.
• Ajouter les références JCL à votre Projet : Dans votre projet Delphi, ajoutez les unités JCL pertinentes à la clause uses de vos unités pour utiliser les fonctionnalités fournies par la JCL. Par exemple, pour utiliser les outils de sérialisation, vous ajouteriez JclDebugSerialization à la clause uses.
• Utiliser les fonctionnalités JCL : Voici quelques exemples de comment utiliser les différentes unités de la JCL dans votre code Delphi.
• Voici un exemple d'utilisation de la gestion des exceptions avec JEDI dans Delphi :
1. Uses
2.  JclDebug;
3.  
4.  { ... } 
5.  
6. Procedure TestExceptionHandling;Begin
7.  Try
8.     { Code susceptible de lancer une exception }
9.  Except
10.   On E: EJclException do
11.    ShowMessage('Exception JCL capturée : ' + E.Message);
12.  End;
13. End;
14.  { ... }


• Voici un exemple d'utilisation de la sérialisation en JEDI dans Delphi :
1. Program JediSerialisationSamples;
2.  
3. Uses
4.  JclDebugSerialization, SysUtils;
5.  
6. Type
7.  MyObject=Class
8.   Private
9.    FName:String;
10.    FAge:Integer;
11.   Public
12.    Property Name:String Read FName Write FName;
13.    Property Age:Integer Read FAge Write FAge;
14.  End;
15.  
16. Var
17.   MyObj:TMyObject;
18.   SerializedData:TStringStream;
19. BEGIN
20.  MyObj := TMyObject.Create;
21.  Try
22.   MyObj.Name:='Sylvain Maltais';
23.   MyObj.Age:=30;
24.  
25.    { Sérialiser l'objet en format XML }
26.   SerializedData:=TStringStream.Create;
27.   Try
28.    SerializeObject(MyObj,SerializedData,stXML);
29.    WriteLn('Données sérialisées :');
30.    WriteLn(SerializedData.DataString);
31.  
32.     { Désérialiser l'objet à partir des données }
33.    Var NewObj:TMyObject;
34.    NewObj:=TMyObject.Create;
35.    Try
36.     SerializedData.Position := 0;
37.     DeserializeObject(NewObj, SerializedData, stXML);
38.     WriteLn('Nom : ', NewObj.Name);
39.     WriteLn('Âge : ', NewObj.Age);
40.    Finally
41.     NewObj.Free;
42.    End;
43.   Finally
44.    SerializedData.Free;
45.   End;
46.  Finally
47.   MyObj.Free;
48.  End;
49. END.


• Voici un exemple d'utilisation de la gestion des fichiers en JEDI dans Delphi :
1. Uses
2.  JclFileUtils;
3.  
4. Procedure CopyFileExample(Const SourceFile,DestFile:String);Begin
5.  If FileExists(SourceFile)Then JclFileUtils.CopyFile(SourceFile,DestFile);
6. End;