Problème exécution .EXE

Version imprimable

31/05/2007, 11h33
revsys

Problème exécution .EXE

Bonjour,

Quand j'exécute mon programme à partir de Delphi, toutes mes commandes fonctionnent.
Mais si je lance seulement l'EXE, là une option me permettant de rentrer le nombre de fois où un son doit être lancé (grâce à un edit), ne fonctionne plus 8O .
C'est sûrement dû à la variable que j'utilise qui n'est plus prise en compte...

Une idée ?:question:
31/05/2007, 11h36
Ludo_360

Montre le code parceque la je ne vois pas trop le problème soulevé... :)
31/05/2007, 11h38
Clorish

Citation:

Envoyé par Ludo_360

Montre le code parceque la je ne vois pas trop le problème soulevé... :)

Surtout que Delphi compile l'exe et lance lui meme l'exe ;)

Partie du programme utilisant la variable concernée :

Code:

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
39
40
41
42
43
44
45
46
47
48
49
50
51
52
 
var
    B : integer;
 
procedure TForm1.btJouerClick(Sender: TObject);
begin
    Lecteur;
end;
 
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if (Key <> chr(8)) and ((Key < '0') or (Key > '9')) then
begin
Key := chr(0); // Permet d'annuler la frappe de la touche
end;
end;
 
procedure TForm1.Lecteur;
begin
 
    if RadioBtmont.Checked then
    begin
        MediaPlayer1.FileName := 'C:\Sons\MONTE.WAV';
        MediaPlayer1.Open;
        MediaPlayer1.Notify := true;
        MediaPlayer1.OnNotify := NotifyProc; 
        B:= StrToInt(Edit1.Text);
        MediaPlayer1.Play;
        Arretautorise := true;  // évite un bug si nous appuyons sur arrêter
                                       // alors q'aucun son WAV n'a été lancé
    end;
 
procedure TForm1.NotifyProc(Sender: TObject);
begin
   with Sender as TMediaPlayer do
          begin
           if Mode = mpStopped
              then begin
                    Dec(B);
                    if B > 0 then Play
                   end;
           Notify := True
          end
end;
 
procedure TForm1.btArreterClick(Sender: TObject);
begin
    if Arretautorise then
    begin
        MediaPlayer1.Stop;
    end;
end;

31/05/2007, 11h44
revsys

Citation:

Surtout que Delphi compile l'exe et lance lui meme l'exe

C'est pour ça qu'il y a quelque chose qui m'échappe...
31/05/2007, 11h47
Clorish

et c'est quoi exactement les symptomes ?
31/05/2007, 11h51
Ludo_360

Si tu affecte une valeur arbitraire à B, à la form create par exemple... est-ce que ton exe va jouer le morceau le nombre de fois voulu?

Si tu affecte la valeur à B avant d'appeller ta fonction NotifyProc:

Code:

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
procedure TForm1.Lecteur;
begin
 
    if RadioBtmont.Checked then
    begin
        MediaPlayer1.FileName := 'C:\Sons\MONTE.WAV';
        MediaPlayer1.Open;
        MediaPlayer1.Notify := true;
        B:= StrToInt(Edit1.Text);
        MediaPlayer1.OnNotify := NotifyProc; 

        MediaPlayer1.Play;
        Arretautorise := true;  // évite un bug si nous appuyons sur arrêter
                                       // alors q'aucun son WAV n'a été lancé
    end;
  
procedure TForm1.NotifyProc(Sender: TObject);
begin
   with Sender as TMediaPlayer do
          begin
           if Mode = mpStopped
              then begin
                    Dec(B);
                    if B > 0 then Play
                   end;
           Notify := True
          end
end;

31/05/2007, 12h07
Clorish

Citation:

Envoyé par Ludo_360

Si tu affecte la valeur à B avant d'appeller ta fonction NotifyProc:

Le code

Code:

MediaPlayer1.OnNotify := NotifyProc;

N'appelle pas directement la procedure Notifyproc mais l'affecte a l'evenement.
Cette procedure sera appelée quand le message Notify sera lancé.
Ce message sera lancé quand la procedure le lancant sera executé, et le traitement de ce message se fera quand l'applciation tournera pas.
2 raisons qui font que le message ne peut etre lancé ni traité tant que la procedure est en cours .....
Il peut eventuelement etre lancé si l'executon se fait dans un thread parallele .. mais en aucun cas traité car le traitement fait parti du thread.
De toute maniere il le pourra pas etre lancé tant que l'appel a play ne sera pas fait.

Citation:

Envoyé par Ludo_360

Si tu affecte une valeur arbitraire à B, à la form create par exemple... est-ce que ton exe va jouer le morceau le nombre de fois voulu?

Elle l'est deja .... Delphi initialise les variables globales (a 0)
Au pire elle n'est pas initialisee et contient un residu memoire a l'adresse de cette variable ... donc forcement quelque chose :)

Ca non plus,
31/05/2007, 12h13
revsys
En affectant la valeur 5 à B :
Code:

1 2 3 4 5 B :=5; MediaPlayer1.Notify := true; MediaPlayer1.OnNotify := NotifyProc1 MediaPlayer1.Play;
En faisant F9 à partir de delphi, le son est joué 5 fois.
Je ferme delphi, et je lance l'EXE directement.
Là le son n'est joué qu'une seule fois..
31/05/2007, 12h14
revsys

Clorish, j'ai pas bien compris ton explication...
Qu'est ce que je dois faire ?
31/05/2007, 12h22
Clorish

Citation:

Envoyé par revsys

Clorish, j'ai pas bien compris ton explication...
Qu'est ce que je dois faire ?

J'en sais rien ... j'expliquais juste pourquoi les solutions proposées par ludo_360 ne corrigerais rien :)

A mon avis le probleme est ailleur que dans ce code.

Verifie bien que tu lance bien le meme exe que Delphi ...
On sais jamais, des fois avec les changements de reperoires ...
31/05/2007, 12h23
Ludo_360

Regarde dans Projet -> Option -> onglet "Répertoire/ condition" et vérifie le chemin de ton .exe... On ne sait jamais
31/05/2007, 12h24
Ludo_360

Ah bah clorish ta di la même chose... pardon :s
31/05/2007, 12h36
revsys

En testant l'EXE qui est le bon (modifié à la bonne heure) sur un autre pc, je me retrouve avec le même problème :marteau:
31/05/2007, 12h47
Ludo_360

... :arf: :mur: :scarymov:

C'est bizar
31/05/2007, 13h47
revsys

:triste:
31/05/2007, 15h29
revsys

J'ai trouvé la cause du problème mais je ne sais vraiment pas comment faire pour y remédier.
J'utilise donc la procedure NotifyProc qui "signale" la fin de lecture (mpStopped) et décrémente B. J'ai donc théoriquement une boucle qui fonctionne.
Comme je l'ai dit plus haut, en exécutant par Delphi (F9), tout fonctionne (je rentre 5, le son est joué 5 fois) donc je suppose que NotifyProc fonctionne tout autant.
Par contre, en exécutant à partir de l'EXE, le signal mpStopped ne marche plus : le son ne se joue qu'une seule fois.
En appuyant sur la touche Stop, le son reboucle (mpStopped devient alors actif).
Par exemple je rentre 5, le son se joue 1 fois puis 'arrête, je réappuie sur stop, il reboucle et ainsi de suite jusqu'à que 5 passe à 0.

Donc mpStopped de NotifyProc est actif avec delphi mais pas avec l'EXE :scarymov:

Si quelqu'un avait une solution, je prends avec plaisir :P
31/05/2007, 15h33
Ludo_360

Si ce qu'a dit Clorish est exact, delphi compile puis execute ton .exe, qui est logiquement le même, donc le déroulement devrait être identique... C'est bizar...
31/05/2007, 15h35
revsys

Oui et là je ne sais vraiment pas comment résoudre ce problème...
NotifyProc n'utilise pas quelque chose de Delphi qui ne réapparait pas en dehors ?
31/05/2007, 15h36
Ludo_360

[bidouille]
Commen l'évènement OnNotify se produit à la fin d'une lecture multimédia, et que tu as remarqué qu'il te fallait appuyer sur stop pour ton appli prenne en compte l'arrêt, pourquoi tu simulerais pas l'appui sur cette touche à la fin de ta boucle??
31/05/2007, 15h38
Clorish

Non.
Je ne vois pas quoi en tout cas ....

Tu veux dire que je mette MediaPlayer1.Stop; dans NotifyProc ?

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
procedure TForm1.NotifyProc(Sender: TObject);
begin
   with Sender as TMediaPlayer do
          begin
           if Mode = mpStopped
              then begin
                    Dec(B);
                    if B > 0 then Play
                   end;
           Notify := True
          end
MediaPlayer1.Stop;
end;

Il me dit [Error] Exp.pas(345): Missing operator or semicolon

Pour ce qui est de l'erreur du compilo, essai de rajouter un point virgule après ton end :D

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
 
procedure TForm1.NotifyProc(Sender: TObject);
begin
   with Sender as TMediaPlayer do
          begin
           if Mode = mpStopped
              then begin
                    Dec(B);
                    if B > 0 then Play
                   end;
           Notify := True
          end;    // ici
MediaPlayer1.Stop;
end;

Il faut qu'après chaque fin de lecture de ton wav, tu envoi le message envoyé lorsque tu appui toi même sur le bouton stop...

31/05/2007, 16h16
revsys

Oui à peine posté je me suis rendu compte de mon erreur :roll:
Mais maintenant que ça compile, le son est joué une fois puis ça plante, je ne peux plus rien faire.
31/05/2007, 16h20
Ludo_360
Pendant que le son est joué ton appli fait quoi?
Si elle attend, Simule l'appui sur le btn à la fin de ton play.

Sinon je ne vois pas... :(
Code:

1 2 3 4 5 6 7 8 procedure TForm1.NotifyProc(Sender: TObject); begin with Sender as TMediaPlayer do begin if Mode = mpStopped then begin Dec(B);
est-ce que tu retouche à Mode? si oui, à la fin de ta lecture essais de le passer à mpStopped... Puisque apparemment il ne rentre pas dans cette boucle après un play...
31/05/2007, 16h33
Clorish

j'y pense .... t'as pas une prop qui specifie le comportement du media player a la fin d'une piste ? si il doit stopper ou pauser .....

On sait jamais ....

Il ya un chronomètre qui est en marche pendant que le son est joué.
A part MediaPlayer1.Play; dans Lecteur, Mode n'est pas touché.

Mais j'utilise en fait 2 NotifyProc :

Code:

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
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
 
procedure TForm1.Lecteur;
begin
 
    if RadioBtmont.Checked then    
    begin
        Arretautorise := true;  // evite un bug si nous appuyons sur arreter
                                       // alors q'aucun son WAV n'a été lancé
        MediaPlayer1.FileName := 'C:\Sons expérience\MONTE.wav';
        MediaPlayer1.Open;
        B:= StrToInt(Edit1.Text);   
        MediaPlayer1.Notify := true;
        MediaPlayer1.OnNotify := NotifyProc1;
        MediaPlayer1.Play;     
    end;
 
    if RadioBtdesc.Checked then
    begin
        Arretautorise := true;
        MediaPlayer1.FileName := 'C:\Sons expérience\DESC.WAV';
        MediaPlayer1.Open;
        C:= StrToInt(Edit2.Text);
        MediaPlayer1.Notify := true;
        MediaPlayer1.OnNotify := NotifyProc2;
        MediaPlayer1.Play;
    end;
 
end;
 
procedure TForm1.NotifyProc1(Sender: TObject);
begin
   with Sender as TMediaPlayer do
          begin
           if Mode = mpStopped   
              then begin
                    Dec(B);   
                    if B > 0 then Play    
                   end;
           Notify := True;
          end;
end;
 
procedure TForm1.NotifyProc2(Sender: TObject);
begin
   with Sender as TMediaPlayer do
          begin
           if Mode = mpStopped
              then begin
                    Dec(C);
                    if C > 0 then Play
                   end;
           Notify := True;
          end;
end;

Mais je ne pense pas qu'il y ait une incidence ?

31/05/2007, 17h07
Clorish

haaaa bha ben si ya une dif !
L'execution du notify depeends de celui qui est executé.

Controle bien que tu execute le bon notify ..... on sais jamais.
Ensuite verifie que les variables qui affecte le notify sont bient toutes initialisee comme il faut.
31/05/2007, 17h21
Ludo_360

C'est quand même étrange que sous delphi, lorsque il execute le code, ça marche, et que l'executable seul ne marche pas...
31/05/2007, 17h34
Clorish

ca je ne te le fait pas dire .....
Mais va savoir ce qui se passe au niveau des initializations.
31/05/2007, 23h29
revsys

Je vais essayer d'enlever un Notify demain pour voir...
01/06/2007, 09h20
revsys

Avec un seul NotifyProc : même problème.
Ca fonctionne avec Delphi mais pas avec l'EXE
:scarymov: :mur: :furieux: :cfou: :marteau:
Je commence à désespérer...
01/06/2007, 10h36
revsys

J'utilise dans mon projet la dll ZLPortIO mais je pense que cela n'a aucune incidence, puisque le port parallèle est actif en lancant l'EXE.
Mais est-ce qu'il y a un moyen de redire à Delphi de prendre tous les fichiers et de bien les joindre à l'EXE ?
01/06/2007, 10h53
Ludo_360

oui c'est dans les options du projet dans l'oglet paquet, tu dois décocher la case "compiler avec les paquet d'execution".. Mais je crois que je te l'ai déjà dit et que ça n'a pas marché...

ludo
01/06/2007, 11h11
revsys

Non tu me l'avais pas dit ;)
Mais toujours l'éternel problème...
01/06/2007, 11h46
revsys

Sinon, en utilisant une autre méthode, y'a t il la possibilité de mettre AutoRewind dans les propriétés de MediaPlayer à true, et de coder le Notify pour qu'il décrémente dès que le mode passe à Rewind ?

Bon j'ai trouvé une autre technique qui n'engendre plus ce problème !

Code:

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
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
 
procedure TForm1.btJouerClick(Sender: TObject);
begin
    Lecteur;
end;
 
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
     if (Key <> chr(8)) and ((Key < '0') or (Key > '9')) then
     begin
          Key := chr(0);
     end;
end;
 
procedure TForm1.Lecteur;
begin
 
    if RadioBtmont.Checked then    
    begin
        Arretautorise := true;  
        MediaPlayer1.FileName := 'C:\Sons expérience\MONTE.wav';
        MediaPlayer1.Open;
        B:= StrToInt(Edit1.Text);   
        MediaPlayer1.Play;    
 
        if B <> 1 then          
        begin
            MediaPlayer1.Notify := true;
            MediaPlayer1.OnNotify := NotifyProc1
        end;
    end;
 
    if RadioBtdesc.Checked then
    begin
        Arretautorise := true;
        MediaPlayer1.FileName := 'C:\Sons expérience\DESC.WAV';
        MediaPlayer1.Open;
        C:= StrToInt(Edit2.Text);
        MediaPlayer1.Play;
 
        if C <> 1 then
        begin
            MediaPlayer1.Notify := true;
            MediaPlayer1.OnNotify := NotifyProc2;// Appel de la procédure NotifyProc
        end;
    end;
 
end;
 
procedure TForm1.NotifyProc1(Sender: TObject);
begin
    with Sender as TMediaPlayer do
        begin
            if NotifyValue = nvSuccessful then     // Nouvelle ligne
            begin
                Dec(B);   
                if B > 0 then
                begin
                    Play;    
                end;
            end;
Notify := True;
        end;
end;
 
procedure TForm1.NotifyProc2(Sender: TObject);
begin
    with Sender as TMediaPlayer do
        begin
            if NotifyValue = nvSuccessful then    // Nouvelle ligne
            begin
                Dec(C);
                if C > 0 then
                begin
                    Play;
                end;
            end;
Notify := True;
        end;
end;
 
procedure TForm1.btArreterClick(Sender: TObject);
begin
    if Arretautorise then
    begin
        MediaPlayer1.Stop;
    end;
end;

Comme ça, l'EXE fonctionne.
Allez savoir pourquoi mpStopped ne fonctionnait pas avec l'EXE...8O

Mais bon evidemment j'ai encore un petit problème...
La première fois que j'ouvre l'application, le nombre entré est pris en compte, le son est joué x fois.
Mais si je rappuie sur Play, le son est joué (x - 1)fois.
Une idée ?