Discussion :

[bvsud]

Bonsoir à tous

J'escomptais en compilant en ligne de commande, un projet sans form, obtenir un EXE plus compact.

Je me heurte à un problème de syntaxe. Ici j'ai vu une discussion là-dessus. J'ai reproduit le code fourni :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
program Project1;
 
uses
  Forms, Dialogs;
 
procedure ShowHello;
begin
  ShowMessage('Hello');
end;
 
begin
  Application.Initialize;
  Application.Run;
  ShowHello;
end.

Oui, mais si je veux rajouter (c'est le cas, forcément) telle ou telle procédure ou fonction : où je la déclare ? Ce code ne passe pas :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
 
program Project1;
 
uses
  Forms, Dialogs;
 
Procedure Essai;
 
 
 
procedure ShowHello;
begin
  ShowMessage('Hello');
end;
 
begin
  Application.Initialize;
  Application.Run;
  ShowHello;
  Essai;
 
 
Procedure Essai;
begin
 
end;
 
end.

Si je la déclare avant USES, ça ne passe pas non plus. Euh...

[Caribensila]

Bonsoir,

Perso, pour une application sans form, j'utilise un objet TDataModule.

[Ph. B.]

Bonjour,

J'escomptais en compilant en ligne de commande, un projet sans form, obtenir un EXE plus compact.

Je me heurte à un problème de syntaxe. Ici j'ai vu une discussion là-dessus. J'ai reproduit le code fourni

Copier sans comprendre, ce n'est pas bien...

Si je la déclare avant USES, ça ne passe pas non plus. Euh...

Ben oui, et c'est logique.
Il faudrait étudier un peu plus en détail la syntaxe d'un programme (Objet)Pascal en particulier l'ordre de déclarations de fonctions, procédures, variables, constantes, etc, etc.

Bref remis dans le bon ordre et dans le cas présent après la clause uses et avant le bloc de code principal begin ... end., cela compile et fonctionne...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
program Project1;
 
uses
  Forms, Dialogs;
 
Procedure Essai;
begin
  ShowMessage('Ceci est un essai (réussi) !');
end;
 
procedure ShowHello;
begin
  ShowMessage('Hello');
end;
 
// BLOC PRINCIPAL
begin
  Application.Initialize;
  Application.Run;
  ShowHello;
  Essai;
end.

Par contre, comme il y a encore l'unité Forms nécessaire pour l'objet Application, je ne pense pas que vous y gagniez tant d'octets que ça au final...

[Paul TOTH]

Bonjour,

Dans ce cas l'objet Application ne sert à rien, et l'unité Form non plus du coup.

on évitera l'usage de MessageBox qui crée un TForm ! et on passera par l'API Windows

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
 
program Project1;
 
uses
  Winapi.Windows;
 
{$R *.res}
 
begin
  MessageBox(0, 'Hello', 'Coucou', 0);
end.

[bvsud]

Bonjour.

Je m'aperçois qu'avec un fichier .pas en include (Uses), ça passe. Sans les inclusions Forms, etc, juste le nécessaire : je dois pouvoir générer des EXE un peu plus compacts avec le compilateur en ligne de commande ?

Après tout, s'il n'y a rien à afficher, pourquoi une Form ?

[Ph. B.]

Ke m'aperçois qu'avec un fichier .pas en include (Uses), ça passe.

Il faut vraiment que vous étudiez la structure d'un programme (Object)Pascal, car j'ai nettement l'impression que vous êtes dans l'empirisme le plus pur...
http://www.marcocantu.com/epascal/Fr...h11unitfr.html

Sans les inclusions Forms, etc, juste le nécessaire : je dois pouvoir générer des EXE un peu plus compacts avec le compilateur en ligne de commande ?

Non, compiler depuis l'EDI ou en ligne de commandes ne changera rien à l'affaire.
Par contre, jouer sur certaines options de compilations peut entrainer une réduction plus ou moins importante de la taille de l’exécutable.

Après tout, s'il n'y a rien à afficher, pourquoi une Form ?

Pas une Form (ou un objet de la classe TForm) mais l'unité Forms. Du moment que l'objet Application n'est plus présent, ni aucun autre objet ne nécessitant l'unité Forms, on peut évidemment s'en passer et la retirer.
C'est valable pour toutes les unités qui répondent à ces conditions.
Peganza avait sorti à l'époque un outil gratuit signalant (supprimant même) dans le code d'un projet et de ses unités les références inutiles dans les clauses uses.
En fait, il existe toujours : ICARUS

[Roland Chastain]

Peganza avait sorti à l'époque un outil gratuit signalant (supprimant même) dans le code d'un projet et de ses unités les références inutiles dans les clauses uses.
En fait, il existe toujours : ICARUS

Pardon pour le hors-sujet mais il y a des choses fort intéressantes sur ce site. Merci pour le lien.

Ça donne des idées pour le défi Pascal/Delphi.