[Lazarus] Mettre des data dans un exécutable

bonjour

j’ai conçu un petit logiciel avec Lazarus qui me permet de faire des recherches dans un livre. (qui marche très bien !)

Actuellement au démarrage de mon logiciel, le programme charge le livre en mémoire. (quelques méga)

Donc actuellement je suis obligé de mettre l’exécutable et le fichier texte qui contient le livre dans un dossier.

Ma question est donc la suivante, peut-on inclure dans l’exécutable les données issues du fichier texte ?

merci de vos conseils.

JoseF

Tu as la possibilité d'utiliser la methode classique manuelle : créer un fichier .rc et le compiler en .res avec brcc32 de delphi ou windres fourni avec lazarus, puis de l'inclure dans ton code source avec la syntaxe {$R MaRessource.res} etc... Cette methode est bien expliquée dans les tutoriels de delphi, cependant elle n'est pas portable...

Lazarus fourni un outil : lazres qui va te permettre de faire ce que tu cherches.

lazres est par défaut dans le répertoire outil en tant que code source, il te faudra tout d'abord le compiler...

Puis tu peux, avec cet outil créer un fichier *.lrs (lazarus resource) que tu vas pouvoir inclure à ton fichier final en ajoutant la ligne :

Code:

---

{$I MaRessource.lrs}

---

Cette méthode a l'avantage d'etre portable !!!!

Voici un petit exemple avec un memo et un bouton qui me permet d'afficher dynamiquement le contenu d'un fichier texte en resource dans mon executable dans le memo lors de l'appui sur le bouton...

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44

{ Le fichier livre.lrs a ete cree a l'aide de l'outil lazres en lançant la commande : lazres livre.lrs livre.txt }   unit Unit1;   {$mode objfpc}{$H+}   interface   uses Classes, SysUtils, LResources, Forms, Controls, Graphics, Dialogs, Buttons, StdCtrls;   type   { TForm1 }   TForm1 = class(TForm) Button1: TButton; Memo1: TMemo; procedure Button1Click(Sender: TObject); private { private declarations } public { public declarations } end;   var Form1: TForm1;   implementation   { TForm1 }   procedure TForm1.Button1Click(Sender: TObject); begin Memo1.Lines.Add(lazarusresources.Find('livre').Value); // affichage end;   initialization {$I unit1.lrs} {$I livre.lrs} // inclusion de la ressource end.

---

Bonne programmation
Clandestino

Merci bien !! c 'est super ! je vais tester et te tenir au courant :king:

je connaissais cette façon de faire dans un basic... (bon ne pas rire...)


De plus je n'avais pas pensé à la portabilité, de ce fait mon executable pourra être compilé pour Linux !! :pingoin2: (j'aurais peut être besoin de conseil à ce moment là ..)

suggestion mettre ton explication dans un tutorial ou dans la FAQ ?

re bonjour,

Voilà ça fonctionne [presque] parfaitement.

en effet sous windows98 (je pense que ça vient de L'OS ..) le mémo se bloque à 32K environ .. en windows XP pas de soucis ! (ça ouvre plusieurs méga en un temps record !)

(linux je testerai en son temps)


merci bien clandestino !