Nov 20

Lorsque l’on développe avec Delphi, que l’on veuille déployer sur Windows, Mac, iOS ou Android, on peut dans tous les cas utiliser un fichier ressource.

Cela peut s’avérer, par exemple, utile pour intégrer un fichier de configuration, des images, …

Image chargée depuis une ressource

Image chargée depuis une ressource

Dans l’exemple suivant, je charge un fichier JPG dans un TImage.

J’ai posé un contrôle TImage sur ma fiche et je l’ai aligné sur le client.
Le code source est simple :

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
unit uMain;

interface

uses
  System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants,
  FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs, FMX.Objects;

type
  TfrmResource = class(TForm)
    imgBelly: TImage;
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmResource: TfrmResource;

implementation

{$R *.fmx}

procedure TfrmResource.FormCreate(Sender: TObject);
var
  rsBelly: TResourceStream;
begin
  rsBelly := TResourceStream.Create(HInstance, 'belly', RT_RCDATA);
  try
    imgBelly.Bitmap.LoadFromStream(rsBelly);
  finally
    rsBelly.Free;
  end;
end;

end.

L’image a simplement été ajoutée en utilisant :

Menu Ressources & Images

Menu Ressources & Images


Ressources et Images

Ressources et Images

De la même façon, on aurait pu ajouter des fichiers de tout type (XML, …)

Share

Lien permanent vers Utiliser une ressource Delphi Rédigé par Whiler \\ Tags : , , , ,

Une réponse pour “Utiliser une ressource Delphi”

  1. Pings: Liens de l’épisode 2 de la saison 3 | Le Dev du Jeudi

Laisser une réponse

(requis)

(requis)

*

Notifiez-moi les commentaires à venir via email. Vous pouvez aussi vous abonner sans commenter.

;) (lol) (y) |-( (hi) 8-) (angel) :s (clap) (bow) (tmi) (:| plus »