Discussion :

[Tonyfr]

Bonjour à tous,

Je cherche comment créer un exécutable à partir d'un programme Perl Tk contenant des objets de type Photo.
J'ai, en effet dans mon programme, remplacé des boutons avec des images png comme il est indiqué ici : https://perl.developpez.com/faq/tk/?...boutons-Button
Le programme fonctionne en ".pl" ainsi que le programme en ".exe" fonctionnent bien sur une machine ou l'interprétateur Perl est installé, mais le .exe ne se lance pas sur une machine sans interprétateur Perl.
Je travaille sur des machines 64 bits avec strawberry 64 bits sur la machine de développement.
Pour compiler, j'ai testé les lignes de commandes suivantes sans succès :
pp -g -o cible.exe source.pl
pp -g -M Tk -M Tk::Photo -o cible.exe source.pl

Si quelqu'un a une idée, je suis preneur car je ne vois comment je peux faire.

PS : lorsque je remets des boutons à la place des images le programme en ".exe" fonctionne bien sur les machines sans interprétateur Perl.

D'avance, merci.
Tony

[djibril]

Bonjour,

Peux-tu enlever l'option -g quand tu crées l'exécutable. Puis tu lances l'exe en ligne de commande et nous affiche les messages d'erreurs s'il y en a.

[Tonyfr]

Merci de votre réponse rapide.

Je viens de créer l'exécutable à partir de mon programme en '.pl' comme suit et sans message d'erreur :

pp -o cible.exe source.pl

Lorsque je lance l'exécutable, sous Dos, sur une autre machine (sans interprétateur Perl), le message suivant s'affiche :

C:\Users\xxxx\Documents>Myprog.exe
Can't load 'C:\Users\xxxx\AppData\Local\Temp\par-6564656e\cache-46701e2947449c8b61807c43b31a71c83d6c170b\6c78816c.xs.dll' for module Tk::JPEG: load_file:Le module spÚcifiÚ est introuvable at C:/Strawberry/perl/lib/DynaLoader.pm line 193.
at C:/Strawberry/perl/vendor/lib/PAR/Heavy.pm line 123.
Compilation failed in require at script/Myprog.pl line 8.
BEGIN failed--compilation aborted at script/Myprog.pl line 8.


PS : sur la machine de DEV Tk::JPEG est installé

cpan> install Tk::JPEG
Fetching with LWP:
http://cpan.strawberryperl.com/authors/01mailrc.txt.gz
Fetching with LWP:
http://cpan.strawberryperl.com/modul...details.txt.gz
Fetching with LWP:
http://cpan.strawberryperl.com/modul...odlist.data.gz
Database was generated on Tue, 30 May 2017 12:18:49 GMT

Updating database file ...
Done!
Tk::JPEG is up to date (4.003).

[djibril]

Code :

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

pp -M Tk -M Tk::JPEG -o cible.exe source.pl

ça donne quoi ?

[Tonyfr]

J'ai exactement le même message d'erreur.
Une précision, cependant, les images en ".gif" fonctionnent parfaitement. Autrement dit, il y a un problème quand j'utilise :
use Tk::JPEG et/ou use Tk::JPEG



Merci !

[Tonyfr]

Bonjour Djibril,

Puisque cela fonctionne avec le format gif, je vais m'en contenter.
Cependant, quand j'aurais compris pourquoi j'ai ces messages d'erreur, je ne manquerais pas de partager l'info avec toi, car ce n'est pas évident de savoir quels sont les modules manquants nécessaires à ce type de compilation.

Je tiens, par ailleurs, à te remercier pour l'ensemble des documents concernant le langage Perl que tu as bien voulu mettre à disposition sur ce site.

A bientôt,

Tony

[djibril]

Bonjour,

Dès que je trouve la solution, je t'en fais part sur cette discussion.

[Tonyfr]

C'est entendu.
Merci !

[djibril]

Bonjour,

Je viens de faire un test chez moi sur un Strawberry Perl 5.24 64 bits, sur un Windows 10.

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
#!/usr/bin/perl 
use strict; 
use warnings; 
use Tk; 
use Tk::Photo; 
use Tk::JPEG; 
 
my $fenetre = new MainWindow( 
  -title      => 'button image', 
  -background => 'white', 
);     
 
 
my $objet_image = $fenetre->Photo( -file => 'lama.jpg' ); 
$fenetre->Button ( 
    -image => $objet_image,  
    -command => sub { exit; }, 
)->pack(); 
 
MainLoop;

Commande de conversion :

Code :

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

pp -o test.exe test.pl

Le .pl et le .exe fonctionne parfaitement. Le premier lancement du .exe est long car mon antivirus fait une vérification des fichiers dll, xs...

Peux-tu nous afficher

Code :

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

perl -V

Peux-tu aussi afficher ton code et le résultat de la commande

Code :

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

pp -o cible.exe source.pl -v