Discussion :

[JoseF]

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

[Clandestino]

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 :

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

  {$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 :

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

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

[JoseF]

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

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 !! (j'aurais peut être besoin de conseil à ce moment là ..)

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

[JoseF]

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 !