Discussion :

[Invité]

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 :

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

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.

[Jipété]

Salut,

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 ! , la preuve :

Code :

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

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 :

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

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...

[Invité]

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 !

[Jipété]

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...

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...

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.

[tintinux]

Bonjour

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

Code :

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

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...

[Invité]

Bonjour.

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" ...

[droggo]

Bonjour,

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" ...

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 ).

[Invité]

Bonjour.

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 ...

???

[Jipété]

Yep !

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 :

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

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,

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 :

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

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.

[Invité]

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 !


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 ...