{"id":5153,"date":"2013-11-20T08:00:45","date_gmt":"2013-11-20T07:00:45","guid":{"rendered":"http:\/\/blogs.wittwer.fr\/whiler\/?p=5153"},"modified":"2014-03-03T19:44:49","modified_gmt":"2014-03-03T18:44:49","slug":"utiliser-une-ressource-delphi","status":"publish","type":"post","link":"https:\/\/blogs.wittwer.fr\/whiler\/2013\/11\/20\/utiliser-une-ressource-delphi\/","title":{"rendered":"Utiliser une ressource Delphi"},"content":{"rendered":"

Lorsque l’on d\u00e9veloppe avec Delphi, que l’on veuille d\u00e9ployer sur Windows, Mac, iOS ou Android, on peut dans tous les cas utiliser un fichier ressource.<\/p>\n

Cela peut s’av\u00e9rer, par exemple, utile pour int\u00e9grer un fichier de configuration, des images, …<\/p>\n

\"Image<\/a>

Image charg\u00e9e depuis une ressource<\/p><\/div>\n

Dans l’exemple suivant, je charge un fichier JPG dans un TImage<\/span><\/code>.
\n
\nJ’ai pos\u00e9 un contr\u00f4le TImage<\/span><\/code> sur ma fiche et je l’ai align\u00e9 sur le client.
\nLe code source est simple :<\/p>\n

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
<\/div><\/td>
unit<\/span> uMain;<\/span>
\n
\ninterface<\/span>
\n
\nuses<\/span>
\n  System.<\/span>SysUtils<\/span>,<\/span> System.<\/span>Types<\/span>,<\/span> System.<\/span>UITypes<\/span>,<\/span> System.<\/span>Classes<\/span>,<\/span> System.<\/span>Variants<\/span>,<\/span>
\n  FMX.<\/span>Types<\/span>,<\/span> FMX.<\/span>Controls<\/span>,<\/span> FMX.<\/span>Forms<\/span>,<\/span> FMX.<\/span>Graphics<\/span>,<\/span> FMX.<\/span>Dialogs<\/span>,<\/span> FMX.<\/span>Objects<\/span>;<\/span>
\n
\ntype<\/span>
\n  TfrmResource =<\/span> class<\/span>(<\/span>TForm)<\/span>
\n    imgBelly:<\/span> TImage;<\/span>
\n    procedure<\/span> FormCreate(<\/span>Sender:<\/span> TObject<\/span>)<\/span>;<\/span>
\n  private<\/span>
\n    { Private declarations }<\/span>
\n  public<\/span>
\n    { Public declarations }<\/span>
\n  end<\/span>;<\/span>
\n
\nvar<\/span>
\n  frmResource:<\/span> TfrmResource;<\/span>
\n
\nimplementation<\/span>
\n
\n{$R *.fmx}<\/span>
\n
\nprocedure<\/span> TfrmResource.<\/span>FormCreate<\/span>(<\/span>Sender:<\/span> TObject<\/span>)<\/span>;<\/span>
\nvar<\/span>
\n  rsBelly:<\/span> TResourceStream;<\/span>
\nbegin<\/span>
\n  rsBelly :<\/span>=<\/span> TResourceStream.<\/span>Create<\/span>(<\/span>HInstance,<\/span> 'belly'<\/span>,<\/span> RT_RCDATA)<\/span>;<\/span>
\n  try<\/span>
\n    imgBelly.<\/span>Bitmap<\/span>.<\/span>LoadFromStream<\/span>(<\/span>rsBelly)<\/span>;<\/span>
\n  finally<\/span>
\n    rsBelly.<\/span>Free<\/span>;<\/span>
\n  end<\/span>;<\/span>
\nend<\/span>;<\/span>
\n
\nend<\/span>.<\/span><\/div><\/td><\/tr><\/tbody><\/table><\/div>\n

L’image a simplement \u00e9t\u00e9 ajout\u00e9e en utilisant :
\n

\"Menu<\/a>

Menu Ressources & Images<\/p><\/div>
\n

\"Ressources<\/a>

Ressources et Images<\/p><\/div><\/p>\n

De la m\u00eame fa\u00e7on, on aurait pu ajouter des fichiers de tout type (XML, …)<\/p>\n

\n \n <\/div>
\"ajax<\/div><\/div>","protected":false},"excerpt":{"rendered":"

Lorsque l\u2019on d\u00e9veloppe avec Delphi, que l\u2019on veuille d\u00e9ployer sur Windows, Mac, iOS ou Android, on peut dans tous les cas utiliser un fichier ressource.<\/p>\n

Cela peut s\u2019av\u00e9rer, par exemple, utile pour int\u00e9grer un fichier de configuration, des images, \u2026<\/p>\n","protected":false},"author":2,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"footnotes":"","_links_to":"","_links_to_target":""},"categories":[132,7,6],"tags":[158,27,154,44,146],"class_list":["post-5153","post","type-post","status-publish","format-standard","hentry","category-android","category-delphi","category-dev","tag-android","tag-coloration-syntaxique","tag-delphi","tag-embarcadero","tag-firemonkey"],"_links":{"self":[{"href":"https:\/\/blogs.wittwer.fr\/whiler\/wp-json\/wp\/v2\/posts\/5153","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/blogs.wittwer.fr\/whiler\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/blogs.wittwer.fr\/whiler\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/blogs.wittwer.fr\/whiler\/wp-json\/wp\/v2\/users\/2"}],"replies":[{"embeddable":true,"href":"https:\/\/blogs.wittwer.fr\/whiler\/wp-json\/wp\/v2\/comments?post=5153"}],"version-history":[{"count":0,"href":"https:\/\/blogs.wittwer.fr\/whiler\/wp-json\/wp\/v2\/posts\/5153\/revisions"}],"wp:attachment":[{"href":"https:\/\/blogs.wittwer.fr\/whiler\/wp-json\/wp\/v2\/media?parent=5153"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/blogs.wittwer.fr\/whiler\/wp-json\/wp\/v2\/categories?post=5153"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/blogs.wittwer.fr\/whiler\/wp-json\/wp\/v2\/tags?post=5153"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}