Instructions pas exécutées correctement

Version imprimable

11/08/2016, 08h36
Invité

1 pièce(s) jointe(s)

Instructions pas exécutées correctement
Bonjour.

Malgré mon désir une fois exprimé de retourner dans le giron de Delphi, je continue mes expériences avec Lazarus 1.6 (sous W2000).

Normalement le code ci-dessous :
Code:

1 2 3 4 5 6 procedure TMain.Bouton_QuitterClick(Sender: TObject); begin AdvLed.State:=lsOff; sndPlaySound('Mus_fin.wav', SND_SYNC); TerminateProcess(GetCurrentProcess, 0); end;
devrait éteindre la Led (allumée au départ), jouer le fichier wav et à la fin quitter le programme.
EH BIEN NON !
La Led reste allumée et DISPARAÎT vers la fin du son (remplacée par un carré) avant fermeture du programme. Par contre une instruction Main.Hide à la place fonctionne ! Curieux ... Je joins le zip du projet pour ceux qui voudraient faire le test !

Merci d'avance.

Salut,

Citation:

Envoyé par alberich

Normalement le code ci-dessous :

pour lequel il existe un bouton "Mettre en forme" (le dièse au bout de la deuxième ligne de boutons de l'éditeur du forum) avec l'infobulle "Ajouter la balise [CODE]", bon sang ! :furax:, la preuve :
Citation:
Envoyé par alberich
Code:

1 2 3 4 5 6 procedure TMain.Bouton_QuitterClick(Sender: TObject); begin AdvLed.State:=lsOff; sndPlaySound('Mus_fin.wav', SND_SYNC); TerminateProcess(GetCurrentProcess, 0); end;
(quand même plus classe et plus lisible, nan ?)
pourrait être modifié en
Code:

1 2 3 4 5 6 7 procedure TMain.Bouton_QuitterClick(Sender: TObject); begin AdvLed.State:=lsOff; Application.ProcessMessages; // pour faire prendre immédiatement en compte le changement d'état -- valable aussi quand on veut écrire dans un TLabel, par ex. sndPlaySound('Mus_fin.wav', SND_SYNC); TerminateProcess(GetCurrentProcess, 0); end;
Nota : tu aurais eu exactement le même problème sous Delphi...

11/08/2016, 11h17
Invité

Merci Jipété, ton astuce fonctionne !

La mise en forme ne changeait rien au fonctionnement. Au passage j'ai copié-collé mon code (mis en forme ! ) à partir du presse-papier, et c'est le forum qui m'a bouffé les retraits. A part celà, embêtant, ce comportement qui pousse le multitâche un peu trop loin !
:(
11/08/2016, 13h14
Jipété

Citation:

Envoyé par alberich

La mise en forme ne changeait rien au fonctionnement.

Certes, mais c'est juste grandement plus plaisant à l'œil et donc ça donne envie de lire ; quand on voit certains posts d'une trentaine de lignes (ou plus !), même pas je les lis ! Tant pis pour l'auteur et son problème...

Citation:

Envoyé par alberich

Au passage j'ai copié-collé mon code (mis en forme ! ) à partir du presse-papier, et c'est le forum qui m'a bouffé les retraits.

Parce que tu n'avais pas utilisé le bouton de mise en forme...

Citation:

Envoyé par alberich

A part cela, embêtant, ce comportement qui pousse le multitâche un peu trop loin !

Euh, c'est un comportement que je connais depuis VB3 et D1, alors c'est pas nouveau et la solution est toujours la même, faut laisser "respirer" la machine, surtout dans les boucles et là, en l'espèce, entre le begin et le end c'est une sorte de boucle, exécutée une seule fois, mais c'est l'idée.
12/08/2016, 08h36
tintinux

Bonjour

A mon avis il manque, avant de jouer le son, un

Code:

Application.ProcessMessages;

Je pense que c'est ce que voulait dire Jipété avec sa "respiration"

Un peu d'humilité, que diable : tu devrais aussi respirer un peu plus avant d'attribuer à Lazarus des problèmes dus à une mauvaise connaissance des systèmes, et qui se produisent très certainement sous Delphi et d'autres EDI...
12/08/2016, 16h59
Invité

Réponse à Tintinux

Bonjour.

Citation:

Envoyé par tintinux

Un peu d'humilité, que diable : tu devrais aussi respirer un peu plus avant d'attribuer à Lazarus des problèmes dus à une mauvaise connaissance des systèmes, et qui se produisent très certainement sous Delphi et d'autres EDI...

Je n'ai jamais dit que le problème était spécifique et dû à Lazarus. Les problèmes du multitâche seraient même plutôt à attribuer à ... l'environnement "Zindozs" ...

:mouarf:
13/08/2016, 15h06
droggo

Bonjour,

Citation:

Envoyé par alberich

Bonjour.

Je n'ai jamais dit que le problème était spécifique et dû à Lazarus. Les problèmes du multitâche seraient même plutôt à attribuer à ... l'environnement "Zindozs" ...

:mouarf:

Alors retourne sur MS-DOS (pas Linux, car ça ferait la même chose que Windows).

Si tu n'admets pas le fonctionnement des OS modernes, n'utilise que les anciens, mais ça va sérieusement te limiter, au point que tu abandonneras la programmation (perso, je me vois mal revenir 20 ans en arrière :)).
15/08/2016, 15h40
Invité

Réponse à Jipété

Bonjour.

Citation:

Envoyé par Jipété

Nota : tu aurais eu exactement le même problème sous Delphi...

Au risque de te "décevoir" : le problème ne se pose PAS avec Delphi7 ! Cela fonctionne correctement SANS le Application.ProcessMessages ...

???

Yep !

Citation:

Envoyé par alberich

Au risque de te "décevoir" : le problème ne se pose PAS avec Delphi7 ! Cela fonctionne correctement SANS le Application.ProcessMessages ...

???

Alors c'est probablement une particularité de ton composant AdvLed dans le contexte du sndPlaySound, je ne vois que ça.

Tiens, essaye ça sous D7, avec un bouton et un TEdit :
Code:

1 2 3 4 5 6 7 8 9 10 11 procedure TForm1.Button1Click(Sender: TObject); var i: integer; begin for i := 0 to 10 do // ou 100 ou 10000 ou ... begin Edit1.Text := IntToStr(i); Sleep(500); // ou 100 ou 1000 ou ... millisecondes, pour voir ce qui se passe //Application.ProcessMessages; // commenté ou décommenté, pour comparer end; end;
Note : je ne me souviens plus si Sleep en D7 travaille avec des secondes ou des millisecondes : tu adapteras en conséquence, histoire de pas passer la soirée devant l'écran, :lol:

Chez moi, avec App.PM commenté, le Tedit affiche son texte de base, "Edit1", pendant 5 secondes, puis "10".
En décommentant, je vois l'incrémentation 0...1...2... toutes les demi-secondes.
Tu choisis...

Et pour les boucles longues, "on" estime que ce n'est pas une bonne idée d'appeler App.PM à chaque tour de boucle, on insère donc plutôt une ligne genre

Code:

if (i mod 3 = 0) then Application.ProcessMessages;

mod 3 à adapter : si tu dois traiter 100 000 fichiers avec une barre de progression, mod 20 ou même 100 c'est bien ; enfin, à voir au cas par cas.

15/08/2016, 22h33
Invité

1 pièce(s) jointe(s)

Voilà la nouvelle suite de mes instructions ...

1) Mettre une animation gif à une vitesse 0 ; j'ai remarqué que mettre animated à false peut provoquer des plantages, tout n'est donc pas parfait !
2) Eteindre la Led.
3) Mettre Application.Title à 'un espace'
4) Jouer la musique de manière "synchrone", puis quitter.

Malheureusement le problème réapparaît si entre 3 et 4 j'ajoute une autre musique de manière synchrone puis l'affichage d'une image ... Pour que celle-ci apparaisse, il faut que j'ajoute à la suite le fameux "ProcessMessages" !

Moralité : quand cela ne fonctionne pas, on ne sait pas pourquoi ; quand cela fonctionne, on ne le sait pas non plus !
:mouarf:

Je dois ajouter que la Led peut afficher toutes les couleurs, je soupçonne qu'elle doit utiliser quelque part un "paint", mais je n'ai pas analysé le code ! En tout cas elle n'utilise pas l'affichage d'un nombre fini d'images, contrairement à la première Led de "Industrial". J'ai aussi essayé sous Lazarus d'utiliser la seconde Led de "Industrial", mais je me suis écroulé sous le nombre de paramètres possibles !

Si quelqu'un s'intéresse au fonctionnement de cette Led trouvée sur le net, je joins le zip que j'ai téléchargé. Bon courage ...