Developpez.com - Delphi
X

Choisissez d'abord la catégorieensuite la rubrique :

Nono40.developpez.com
Le petit coin du web de Nono40
SOURCES TESTS DELPHI WIN32 AUTOMATISMES DELPHI .NET QUICK-REPORT
Retour à l'accueil
32 - STOCKER DES IMAGES EN RESSOURCES

PRÉSENTATION : Stocker et utiliser des images dans les ressources du .EXE
ZIP : Téléchargez le zip APERÇUS :

NOTES : Cette méthode permet de stocker des images dans le .EXE sous forme de ressources. Et de les utiliser ensuite sous forme de BitMap. C'est une solution alternative à l'utilisation de TImage pour le stockage. Les images doivent être dans un fichier .RES qui sera lié à l'application.

CODE :
Unit Unit1;
// Conserver des images dans .EXE sous forme de ressource
//
// Par Nono40 : http://nono40.developpez.com   http://nono40.fr.st
//              mailTo:nono40@fr.st
//
// Le 25/01/2002
//

Interface

Uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, StdCtrls;

Type
  TForm1 = Class(TForm)
    Button1: TButton;
    Image1: TImage;
    Button2: TButton;
    Procedure Button1Click(Sender: TObject);
    Procedure Button2Click(Sender: TObject);
  Private
    { Déclarations privées }
  Public
    { Déclarations publiques }
  End;

Var
  Form1: TForm1;

Implementation

{$R *.dfm}

// Pour stocker les images il faut créer un fichier de ressources qui les contient.
// Il est possible d'utiliser l'éditeur d'images de Delphi pour le faire.
// Le fichier doit être lié à l'aide de la ligne ci-dessous.
{$R images.res }

Procedure TForm1.Button1Click(Sender: TObject);
Begin
// Un type TBitMap peut alors lire directement une image sous forme de ressource.
  Image1.Picture.Bitmap.LoadFromResourceName(HInstance,'BMPERREUR');
End;

Procedure TForm1.Button2Click(Sender: TObject);
Begin
// Un type TBitMap peut alors lire directement une image sous forme de ressource.
  Image1.Picture.Bitmap.LoadFromResourceName(HInstance,'BMPATTENTE');
End;

End.

Les sources présentées sur cette page sont libres de droits et vous pouvez les utiliser à votre convenance. Par contre, la page de présentation constitue une œuvre intellectuelle protégée par les droits d'auteur. Copyright © 2003 Bruno Guérangé. Aucune reproduction, même partielle, ne peut être faite de ce site et de l'ensemble de son contenu : textes, documents, images, etc. sans l'autorisation expresse de l'auteur. Sinon vous encourez selon la loi jusqu'à trois ans de prison et jusqu'à 300 000 € de dommages et intérêts.

Responsables bénévoles de la rubrique Delphi : Gilles Vasseur - Alcatîz -