Discussion :

[Invité]

Bonjour à tous,

dans le but de simplifier nos entraînements, j'ai décidé de créer un timer qui lirait des sons au format MP3 en début et fin de reprise. Le problème est que sous Lazarus, je ne trouve pas de composants permettant la lecture des MP3.
Pouvez vous m'indiquer une piste à suivre ?

Merci de vos réponses et bonne journée !

[Invité]

Bonjour,

cela dépend de l'OS. Quelques pistes : http://forum.lazarus.freepascal.org/...p?action=forum... lien "Search"...

Cordialement. Gilles

[Invité]

Bonjour Selzig et merci de ton aide.

Je suis sous Windows XP sp3 32 Bits. J'en déduis par ta réponse que Lazarus ne possède pas nativement de composants ou fonctions qui permettent la lecture de fichiers MP3.

Si je trouve quelque chose, je poste pour en faire profiter tout le monde.

A Bientôt

[Roland Chastain]

Bonjour !

Parmi les différentes solutions proposées ici et là, j'ai essayé la suivante :

Code :

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

1
2
3
4
5
6
7
8
9
10
uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls,
  LCLIntf; 
 
{...}
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  OpenDocument('tchaikovsky_danse.mp3');
end;

Ça fonctionne : le fichier s'ouvre dans le programme par défaut et la lecture démarre toute seule.

[Roland Chastain]

Celle-ci fonctionne également :

Code :

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

1
2
3
4
5
6
7
8
9
10
uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls,
  ShellAPI;
 
{...}
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  ShellExecute(0, nil, PChar('cmd'), PChar('/c start tchaikovsky_danse.mp3'), nil, 0);
end;

[SoftChris]

Salut as-tu essayé ?

OpenURL(filename);

Au moins c'est portable parce que Shellexecute c'est bon que sous windows.

[Paul TOTH]

ceci doit pouvoir s'adapter sous Lazarus

[Invité]

Bonsoir,

souffrant d'un petit problème technique (plantage de ma machine de développement) je tiens à tous vous remercier pour vos différentes réponses.
Le temps que tout soit revenu à la normale, je place le sujet "en mode Résolu", et dès que tout ira mieux, je vous ferais part des solutions que j'ai adoptées.

Merci encore, bonne soirée et à bientôt