Comment realiser un lecteur audio

GeeK-h Messages postés 1 Date d'inscription mercredi 8 juillet 2020 Statut Membre Dernière intervention 27 juillet 2020 - 27 juil. 2020 à 16:08
GeeK-h - 4 sept. 2020 à 11:47

Salut vénérable programmeurs , je suis debutant en Delphi et j'aimerais bien savoir qu'elle bibliotèque utiliser pour la réalisation d'un programme de lecture audio avec Delphi ou Lazarus . Je suis sur un projet , Merci de m'aider !

A voir également:

Delphi audio
Delphi format - Conseils pratiques -Delphi
Delphi thread - Conseils pratiques -Delphi
Delphi pos - Forum Delphi / Pascal
Delphi stringreplace - Forum Delphi / Pascal
Shellexecute delphi ✓ - Forum Delphi / Pascal

2 réponses

Réponse 1 / 2

denisbertin Messages postés 245 Date d'inscription lundi 22 avril 2013 Statut Membre Dernière intervention 13 mai 2023 1
5 août 2020 à 19:09

Il y a un composant Delphi pour cela qui est représentée par un triangle vert, que tu doit placer dans ton interface, il sait lire les fichiers *.wav et on peut les écouter, il donne aussi la durée des morceau musicaux.

denisbertin Messages postés 245 Date d'inscription lundi 22 avril 2013 Statut Membre Dernière intervention 13 mai 2023 1
Modifié le 5 août 2020 à 21:41

Le composant dont je te parle s'appel comme ceci- MediaPlayer1: TMediaPlayer

voici comment l'interfacer en Delphi,



{*******************************************************}
{                                                       }
{       Borland Delphi Visual Component Library         }
{                                                       }
{  Copyright (c) 1995-2001 Borland Software Corporation }
{                                                       }
{*******************************************************}

unit MPlayer;

procedure Obtenir_la_duree(time:integer; var heure,Minute,Seconde:integer);
  var SecondeTotal:integer;
  begin
  SecondeTotal := time div 1000;  // transformation de milliseconde en seconde
  Heure:=SecondeTotal div 3600;
  SecondeTotal:=SecondeTotal-(Heure * 3600);
  Minute := (SecondeTotal div 60);  // en divise les seconde par 60 = minutes
  Seconde := (SecondeTotal mod 60);
  end;

procedure get_duration(time:integer; var duration:string; separateur:string);
  var Heure,Minute,Seconde:integer;
  begin
  Obtenir_la_duree(time,heure,Minute,Seconde);
  if heure<>0 then
    duration:=inttostr(heure)+' heure '
  else
    duration:='';
  duration:=duration+inttostr(Minute);
  if length(inttostr(Seconde))=1 then
    duration:=duration+separateur+'0'+inttostr(Seconde)
  else
    duration:=duration+separateur+inttostr(Seconde);
  end; {get_duration}


z_open_file.Form_console.<gras>MediaPlayer1</gras>.FileName:=strpas(buffer);
              z_open_file.Form_console.MediaPlayer1.Open; {Coquille}
              wutil.get_duration(z_open_file.Form_console.MediaPlayer1.TrackLength[1],duration,':');
              chaine_de_ficelle:=chaine_de_ficelle+wutil.kpc_space+duration;
            except
              chaine_de_ficelle:=chaine_de_ficelle+' Fichier audio';
              end;
            end; //Audio média files detected
          chaine_de_ficelle:=chaine_de_ficelle+utile.CRLF;

denisbertin Messages postés 245 Date d'inscription lundi 22 avril 2013 Statut Membre Dernière intervention 13 mai 2023 1 > denisbertin Messages postés 245 Date d'inscription lundi 22 avril 2013 Statut Membre Dernière intervention 13 mai 2023
6 août 2020 à 00:37

J'ai trouvé ce pictogramme dans le dock de delphi - 7:

GeeK-h > denisbertin Messages postés 245 Date d'inscription lundi 22 avril 2013 Statut Membre Dernière intervention 13 mai 2023
4 sept. 2020 à 11:45

Ok , sa fonctionne bien . Merci !

Réponse 2 / 2

japee Messages postés 1727 Date d'inscription vendredi 27 décembre 2002 Statut Modérateur Dernière intervention 6 novembre 2021 8
6 août 2020 à 12:51

Salut,

Bass.dll!
Equalizer, effet d'écho, vu-mètre, tout est possible avec.
MediaPlayer est trop limité pour faire un player complet et te fait perdre ton temps.
Interfacage avec Delphi disponible sur le net, je n'ai pas les liens, mais facile à trouver.

--

denisbertin Messages postés 245 Date d'inscription lundi 22 avril 2013 Statut Membre Dernière intervention 13 mai 2023 1
6 août 2020 à 17:16

Il existe aussi sur le web ce logiciel fort bien conçu dit WinAmp en plus de toutes les fonctions différentes
énumérées dans le post-message précédent, il effectue aussi une analyse spectrométrique en temps - réel
du signal audio pour cela il faut connaître la décomposition des courbes fondamentales de Fourrier.

https://interstices.info/la-decomposition-en-series-de-fourier/
https://www.winamp.com/

Malheureusement WinAmp installe dans on ne sait quel répertoire Direct-X 10 alors que ce n'était pas nécessaire, notament pour recouvrir Direct_X 12 suivant "Méfiance".

Denis A+Plus.

GeeK-h > denisbertin Messages postés 245 Date d'inscription lundi 22 avril 2013 Statut Membre Dernière intervention 13 mai 2023
4 sept. 2020 à 11:47

Discussions similaires

Convertir un png en jpeg Delphi XE

Parametre de ShellExecute

Fonction Pos().

Manipulation avec FormatDateTime

fonction opposée a FormatDateTime

Votre réponse

Discussions similaires