[Dll] Inclure des images dans une .Dll et les charger ensuite.Résolu

Question

Bonjoir !

A mon tour d'avoir un problème sans solution :
J'ai une form1 avec un composant TImage posé. (super !)
J'ai 20mo d'images à charger dedans. DONC si j'inclus mes 20mo de BMP en .res, mon exe fera 20.5mo, vraiment pas top.
J'ai pensé à inclure donc mes images dans un DLL (de 20mo donc :/) pour pouvoir faire un exe de 500k. je pourrais meme mettre à jour mes images sans toucher à l'exe.
Ma question est donc : comment mettre ces images dans ma dll pour ensuite les apeller dans mon TImage sur ma form1 de mon projet ?

ps : D'autres solutions existent, je suis preneur MAIS je veux tout de meme reussir à mettre des images dans une dll pour les charger par la suite.
ps2 : non, je ne peux pas utiliser des JPG, juste des BMP bien lourdes ^^

cs_Delphiprog · Accepted Answer

Il n'est pas plus difficile d'inclure une ressource dans une DLL que dans un exe puisque la directive est la m&#234;me : $r. On ne fait m&#234;me plus attention &#224; ce que l'IDE fait tout seul en ajoutant {$R *.dfm} au d&#233;but des sections impl&#233;mentation ou dans une DLL comme ceci :
library Project2;

uses
  SysUtils,
  Classes;

{$R *.res}

begin
end..
Il suffit d'en faire autant en ajoutant, de la m&#234;me mani&#232;re :
library Project2;
uses
  SysUtils,
  Classes;

{$R *.res}
{$R MaRessource.res}
begin
end.
Pour te faciliter la t&#226;che, un &#233;diteur de ressources comme RES_HIA peut faire gagner beaucoup de temps et &#233;viter les erreurs de frappe, surtout si tu as beaucoup de fichiers &#224; inclure.
<hr color="#008000">Pensez &#224; cliquer sur R&#233;ponse accept&#233;e lorsque la r&#233;ponse vous convient.

JulioDelphi · Answer

ps3 : merci à vous d'avance =)

Abadianet · Answer

Bonsoir JulioDelphi,

Pourquoi ne pas mettre tes images dans une base de données
J'utilise Absolute Database (http://www.componentace.com).
Tu as une version Free pour une utilisation perso et tes images sont compressées dans la base (d'où un gain de place en plus !)
Au final tu n&#8217;as que ton exe et le seul fichier (*.ABS) pour ta base de données (pas de DLL ou autres fichier à ajouter)

Abadiane

JulioDelphi · Answer

Oui pourquoi pas, je DL ça et je test.
J'ai zippé mes images pour le moment dans un zip renommé en .dll (houuu l'affreux !!!) je ne gagne meme pas 1mo :/

Bon, a part cette solution ^^ je souhaite de toute façon savoir comment mettre des images dans une dll pour lex charger dans mon TImage sur ma form =)

merci abadianet

cs_Delphiprog · Answer

JulioDelphi is back ! 
En clair, tu veux cr&#233;er et utiliser une DLL de resources.
Pour cela, je te conseille de (re)visiter le site de Delphicool sur l'utilisation des ressources.
Note bien que le param&#232;tre HInstance utilis&#233; peut &#234;tre celui renvoy&#233; par la fonction LoadLibrary.
<hr color="#008000">Pensez &#224; cliquer sur R&#233;ponse accept&#233;e lorsque la r&#233;ponse vous convient.

JulioDelphi · Answer

J'ai usé cette page et mon clavier dessus par la même occasion :( d'autres pages parlant de DLL en ressources aussi.
Je sais mettre des images dans un .res, aller les chercher etc, mais pas dans une DLL.
est-ce si différent ? 
(en fait ce sont des .GIF que je veux utiliser mais bon, là n'est pas le soucis du format d'image.)
C'est un problème qui date en fait pour moi, mais ma pause Delphi n'a pas amélioré la chose ^^
Bon, je vais prendre cette page et la rererelire (je n'ai pas encore recup le net chez moi :s)

Dès que je trouve, je post ici. si quelqu'un a encore plus de details, alors n'hesitez pas je suis preneur =^)

ps@delphiprog : durdur de s'y remettre, mais motivé comme toujours :p

Cirec · Answer

Salut,

Voici un petit exemple vite fait test&#233; sous D4 OK

MesIMG.rc :

CLOUD     BITMAP        "Cloud.bmp"

la DLL :

library ResDLL;


uses
  SysUtils,
  Classes;
{$R MesIMG.res}
begin
end.

Le Prog. :

unit Unit1;


interface


uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, ExtCtrls;


type
  TForm1 = class(TForm)
    Image1: TImage;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { D&#233;clarations priv&#233;es }
  public
    { D&#233;clarations publiques }
  end;


var
  Form1: TForm1;


implementation


{$R *.DFM}


procedure TForm1.Button1Click(Sender: TObject);
Var
  hRes              : Cardinal;
begin
    hRes := LoadLibrary('ResDLL.dll');
    If hRes <> 0 Then
    Try
    Image1.Picture.Bitmap.LoadFromResourceName(hRes, 'CLOUD');
    Finally
    FreeLibrary(hRes);
    End;
end;


end.

en esp&#233;rant que &#231;a t'aideras

@+
Cirec

JulioDelphi · Answer

mais...mais...MAIS !
c'est "aussi bête" que ça ? dis donc, j'ai cherché midi à quatorze heures moi ...
holala ! je test ça ce soir Oo
merci =)

Nicolas___ · Answer

Salut , 

tout d abbord merci delphiprog  pour l astuce et cirec pour l exemple 

Mais j aimerais poser une question a la suite de tout cela 

Comment  se fait il que mon fichier .res pese seulement 65ko et ma .dll elle 149ko ???

Merci 

Ciao

cs_Delphiprog · Answer

Comment pourrait-on te r&#233;pondre sans avoir connaissance des autres unit&#233;s ou du code inclus par ailleurs dans ta DLL ?

Indications :
Une DLL standard (avec SysUtils et Classes) fait 89088 octets.
Une DLL Standard n'incluant aucune autre unit&#233; fait : 15872 octets.

Pour une DLL n'incluant que des ressources, tu dois pouvoir te passer des services de Classes et SyUtils &#224; mon avis.
<hr color="#008000">Pensez &#224; cliquer sur R&#233;ponse accept&#233;e lorsque la r&#233;ponse vous convient.

Nicolas___ · Answer

Merci Delphiprog 

Je vais essayer sans  Classes et SyUtils
Deja j avais pas fait attention que je mettais autres chose que mon fichier .res ds la dll ... enfin il y en avait 2 ... 

Ciao

JulioDelphi · Answer

Attention de ne pas poser de nouvelles questions DANS une question du forum, il est plus utile de créer une nouvelle question =)

cs_Delphiprog · Answer

Disons que la question de Nicolas___ &#233;tait tr&#232;s compl&#233;mentaire &#224; la tienne.
N&#233;anmoins, je valide ta r&#233;ponse, moi  
<hr color="#008000">Pensez &#224; cliquer sur R&#233;ponse accept&#233;e lorsque la r&#233;ponse vous convient.

[Dll] Inclure des images dans une .Dll et les charger ensuite.

13 réponses

Votre réponse

Discussions similaires