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, …
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 :
De la même façon, on aurait pu ajouter des fichiers de tout type (XML, …)
Pings: Liens de l’épisode 2 de la saison 3 | Le Dev du Jeudi