{"id":4969,"date":"2013-04-26T15:00:19","date_gmt":"2013-04-26T13:00:19","guid":{"rendered":"http:\/\/blogs.wittwer.fr\/whiler\/?p=4969"},"modified":"2013-05-03T10:34:26","modified_gmt":"2013-05-03T08:34:26","slug":"reduire-la-taille-application-delphi","status":"publish","type":"post","link":"https:\/\/blogs.wittwer.fr\/whiler\/2013\/04\/26\/reduire-la-taille-application-delphi\/","title":{"rendered":"R\u00e9duire la taille d’une application Delphi"},"content":{"rendered":"

D\u00e8s que l’on cr\u00e9e une application avec Delphi<\/a>, qui contient une fiche, m\u00eame si celle-ci ne fait rien de plus, on obtient une application d’une certaine taille…<\/p>\n

\"Delphi\"

Delphi<\/p><\/div>\n

Les diff\u00e9rentes options et\/ou directives que l’on choisit peuvent influencer la taille… J’ai test\u00e9 celles-ci qui ont \u00e9t\u00e9 port\u00e9es \u00e0 mon attention par Matthias<\/a> :
\n
\n

WEAKLINKRTTI<\/strong><\/a> & RTTI<\/strong><\/a><\/center><\/p>\n

J’ai ajout\u00e9 ces directives \u00e0 mon projet ainsi :<\/p>\n

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
<\/div><\/td>
program<\/span> Project1;<\/span>
\n
\n{$WEAKLINKRTTI ON}<\/span>
\n{$RTTI EXPLICIT METHODS([]) PROPERTIES([]) FIELDS([])}<\/span>
\n
\nuses<\/span>
\n  Vcl.<\/span>Forms<\/span>,<\/span>
\n  Unit1 in<\/span> 'Unit1.pas'<\/span> {Form1}<\/span>;<\/span>
\n
\n{$R *.res}<\/span>
\n
\nbegin<\/span>
\n  Application.<\/span>Initialize<\/span>;<\/span>
\n  Application.<\/span>MainFormOnTaskbar<\/span> :<\/span>=<\/span> True<\/span>;<\/span>
\n  Application.<\/span>CreateForm<\/span>(<\/span>TForm1,<\/span> Form1)<\/span>;<\/span>
\n  {$IFDEF DEBUG}<\/span>
\n    ReportMemoryLeaksOnShutdown :<\/span>=<\/span> True<\/span>;<\/span>
\n  {$ENDIF DEBUG}<\/span>
\n  Application.<\/span>Run<\/span>;<\/span>
\nend<\/span>.<\/span><\/div><\/td><\/tr><\/tbody><\/table><\/div>\n

 
\nVoici les diff\u00e9rentes tailles constat\u00e9es en compilant depuis Delphi XE4<\/a>, une application 32 bits :
\n

<\/p>\n\n\n\n\n\n\n\n
VCL<\/th>\nDebug<\/td>\n10698 Ko<\/td>\n<\/tr>\n
Release<\/td>\n2275 Ko<\/td>\n<\/tr>\n
Release sans RTTI<\/td>\n1902 Ko<\/td>\n<\/tr>\n
FMX<\/th>\nDebug<\/td>\n\"Windows\" 18267 Ko<\/td>\n\"Sous 31551 Ko<\/td>\n<\/tr>\n
Release<\/td>\n\"Windows\" 4802 Ko<\/td>\n\"Sous 7115 Ko<\/td>\n<\/tr>\n
Release sans RTTI<\/td>\n\"Windows\" 4039 Ko<\/td>\n\"Sous 5426 Ko<\/del><\/td>\n<\/tr>\n<\/table>\n

<\/center><\/p>\n

Comme vous pouvez le constater, si vous n’utilisez pas l’unit\u00e9 System.<\/span>Rtti<\/span><\/span><\/code>, vous pouvez facilement gagner de la place en utilisant ainsi ces deux directives \"(y)\" . Cela fonctionne bien s\u00fbr \u00e9galement en 64 bits m\u00eame si je n’ai pas mis les valeurs dans le tableau ci-dessus. \";)\" De plus, sur un projet vide<\/em>, la seconde directive ne change rien. Je la conserve n\u00e9anmoins pour des projets plus cons\u00e9quents, avec du code, o\u00f9 celle-ci s’av\u00e8re r\u00e9ellement utile.<\/p>\n

\"AttentionVous remarquerez \u00e9galement que j’ai barr\u00e9 une taille pour OS X ; en effet, la premi\u00e8re directive n’est pas compatible avec ce syst\u00e8me d’exploitation. Par cons\u00e9quent, j’utilise concr\u00e8tement ceci dans mes projets FireMonkey<\/a> :<\/p>\n

{$IFDEF MSWINDOWS}<\/span>
\n{$WEAKLINKRTTI ON}<\/span>
\n{$ENDIF MSWINDOWS}<\/span>
\n{$RTTI EXPLICIT METHODS([]) PROPERTIES([]) FIELDS([])}<\/span><\/div><\/div>\n

 
\nVous pouvez ajouter et s\u00e9lectionner les configurations depuis le Gestionnaire de projets :
\n

\"Gestionnaire<\/a>

Gestionnaire de projets<\/p><\/div><\/p>\n

Encore merci \"(bow)\" \u00e0 Matthias<\/a> pour cette astuce int\u00e9ressante !<\/p>\n

 <\/p>\n

Article mis \u00e0 jour<\/strong> : en faisant quelques tests compl\u00e9mentaires avec Thierry<\/a>, nous avons remarqu\u00e9 que la directive {$WEAKLINKRTTI\u00a0ON}<\/span><\/span><\/code> fait planter l’application sous \"Sous.<\/p><\/blockquote>\n

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

D\u00e8s que l\u2019on cr\u00e9e une application avec Delphi, qui contient une fiche, m\u00eame si celle-ci ne fait rien de plus, on obtient une application d\u2019une certaine taille\u2026
\nLes diff\u00e9rentes options et\/ou directives que l\u2019on choisit peuvent influencer la taille\u2026 J\u2019ai test\u00e9 celles-ci qui ont \u00e9t\u00e9 port\u00e9es \u00e0 mon attention par Matthias…<\/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":[7],"tags":[27,154,146,108],"class_list":["post-4969","post","type-post","status-publish","format-standard","hentry","category-delphi","tag-coloration-syntaxique","tag-delphi","tag-firemonkey","tag-script"],"_links":{"self":[{"href":"https:\/\/blogs.wittwer.fr\/whiler\/wp-json\/wp\/v2\/posts\/4969","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=4969"}],"version-history":[{"count":0,"href":"https:\/\/blogs.wittwer.fr\/whiler\/wp-json\/wp\/v2\/posts\/4969\/revisions"}],"wp:attachment":[{"href":"https:\/\/blogs.wittwer.fr\/whiler\/wp-json\/wp\/v2\/media?parent=4969"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/blogs.wittwer.fr\/whiler\/wp-json\/wp\/v2\/categories?post=4969"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/blogs.wittwer.fr\/whiler\/wp-json\/wp\/v2\/tags?post=4969"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}