Ouvrir un fichier audio Mp3 et pouvoir sélectionner un échantillon de 30s en se déplacant sur l'échantillonage

Version imprimable

Voir 40 message(s) de cette discussion en une page

15/04/2018, 09h26
cincap

Ouvrir un fichier audio Mp3 et pouvoir sélectionner un échantillon de 30s en se déplacant sur l'échantillonage

Bonjour à toutes et à tous,

Serait t'il possible d'afficher le fichier audio mp3 sur un bar graph placé sur le Tform afin de sélectionner une plage de 30s et de sauvegarder ce morceau avec une extension AAC ou M4A.

Merci pour l'aide éventuelle.

@+,

cincap
15/04/2018, 11h38
SergioMaster

Bonjour,

Avec quelle version de Delphi ? de base ou avec des composants supplémentaires gratuits ou payant ?
15/04/2018, 19h53
cincap

@ SergioMaster, merci pour ta réponse.

Avec Delphi6 et sans composant payant, c'est pour réaliser un logiciel personnel qui me permettrai de choisir un fichier mp3, choisir 30s de musique à une position connue (comme avec le logiciel Audacy) et de le sauvegarder afin de l'utiliser comme sonnerie pour IPhone.

Je pense que la position du début est plus importante car pour celle de fin on ajoute 30s.

Donc si on connait la durée maximum de la musique on pourrait utiliser un champ ou serait renseigné en seconde le départ.

La partie du chargement et lecture mp3, il n'y a pas de problème, c'est pour la sauvegarde au format AAC ou m4a que je suis bloqué.

On ne sait avoir accès au dossier sons de l'IPhone qu'avec ITunes car ceux qui se substituent provoquent des problèmes au Gsm.

@+,

cincap
16/04/2018, 14h29
Cirec

Bonjour,

le plus simple pour toi serait d'utiliser ffmpeg.exe en ligne de commande
donc utilisable dans une app delphi:

Code:

ffmpeg -ss 0 -i fichier_source.mp3 -t 30 fichier_sortie.aac

-ss: indique le début en sec
-i: le fichier_source.mp3 entre guillemets "" si tu as des espaces dans le nom de fichier
-t: la durée en sec
fichier_sortie.aac

tu trouveras des exemples et de la documentation sur le site

un exemple concret et testé:

Code:

C:\répertoire FFMpeg>ffmpeg.exe -y -ss 00:00:14.539 -i "E:\Savegardes\MP3\Serge Gainsbourg\Aux armes ecetera\Track 21.mp3" -t 30 "E:\Savegardes\MP3\Serge Gainsbourg\Aux armes ecetera\Track 21_Cutted.aac"

copie et converti 30s à 14.539 secondes du début
Cordialement,
@+
16/04/2018, 16h21
Caribensila

Bonjour,

Autre solution :
- il me semble que Delphi 6 contient le contrôle MediaPlayer.
En tout cas il est présent dans D7 (dans l'onglet "système").
17/04/2018, 09h18
cincap

Bonjour à toutes et à tous,

@ Cirec, Hello, merci de ta suggestion, je vais tester et ajouter des Tedit (dans la ligne de commande) pour me permettre d'indiquer le nom du fichier lors du chargement et les secondes pour créer le nouveau fichier au format AAC après le convertir en mca.

@ Caribensila, merci aussi de ta suggestion, le lecteur primaire que j'avais réalisé utilisait le Tmediaplayer.

Je vais donc tester et vous tiens au courant.

@+,

cincap
17/04/2018, 15h31
Cirec

Citation:

Envoyé par Caribensila

Bonjour,

Autre solution :
- il me semble que Delphi 6 contient le contrôle MediaPlayer.
En tout cas il est présent dans D7 (dans l'onglet "système").

je ne dirais pas "Autre solution" mais plutôt en complément :D

le TMediaPlayer pour charger et positionner la balise de début
Ex:

Code:

FormatDateTime('hh:mm:ss.zzz', MediaPlayer1.Position / MSecsPerDay);

et la partie ffmpeg.exe pour extraire et convertir les données

Cordialement,
@+
17/04/2018, 18h20
cincap

@ Cirec, merci pour ta réponse.

J'ai téléchargé le fichier FFMPEG avec ton lien mais c'est un fichier compressé et je ne trouve pas l'exécutable lors de la décompression.

Sur ce site, l'exe existe ?

En attendant je vais faire une application de test mais comme il fait bon dehors, l'entretien de la parcelle est de mise.

@+,

cincap
17/04/2018, 19h41
tourlourou

Un peu plus loin, après avoir cliqué sur Packages, Windows, Get, je suis arrivé ici : https://ffmpeg.zeranoe.com/builds/ où j'ai choisi version 3.4.2, architecture Win32, static linking, puis téléchargé un zip avec des exe dans le répertoire bin.
17/04/2018, 19h44
Cirec

:mrgreen::mrgreen::mrgreen:
faut pas sauter sur le premier bouton "Télécharger" :P
juste en dessous il y a "Get the packages"
et quand tu passes avec la souri sur l'icône Windows tu as un premier lien vers les binaires ...

mais je t'ai mis 2 liens:
l'un pour Windows 32-bit
et l'autre pour Windows 64-bit

Cordialement,
@+

EDIT: arf tourlourou a été plus rapide que moi :aie:

Bonjour à toutes et à tous,

Merci @ Cirec et tourlourou pour vos explications.

Lors de mon teste, j'utilise le shellexecute pour la commande mais certainement quelque chose m'échappe.
Code:

1 2 3 4 5 6 7 procedure TForm1.Button2Click(Sender: TObject); begin MonFichier := chappli + 'ffmpeg.exe'; ShellExecute(Handle,'Open', PChar(Monfichier) -y -ss 00:00:14.539 -i "chappli\aquin.mp3" -t 30 "chappli\aquin_Cutted.aac"); end;
Le y et autres ne sont pas reconnus.

@+,

cincap

re
deux problèmes dans ton approche
la liste de paramètres n'est pas construite correctement
mais l'utilisation de ShellExecute est compliqué avec ffmpeg
le plus simple est d'utiliser TDosCommand que tu dois certainement avoir ...
et de faire quelque chose comme ça:
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 // ffmpeg.exe se trouve dans le répertoire de l'application procedure TForm3.Button3Click(Sender: TObject); const ffmpegParams = 'ffmpeg.exe -y -ss %s -i "%s" -t 30 "%s"'; var MonFichier, chappli, FileIn, FileOut: string; begin ChAppli := ExtractFilePath(Application.ExeName); FileIn := ChAppli + 'aquin.mp3'; FileOut := ChAppli + 'aquin_Cutted.aac'; MonFichier := Format(ffmpegParams, [ FormatDateTime('hh:mm:ss.zzz', MediaPlayer1.Position / MSecsPerDay), FileIn, FileOut]); Memo1.Text := Monfichier; // juste pour voir la ligne de commande Ds.CommandLine := Monfichier; // Ds = DosCommand Ds.Execute; end;
Cordialement,

@+

18/04/2018, 19h37
cincap

@ Cirec, décidément, j'ai une exception une fois compilé.

Grace au Tmemo voici ce qui est indiqué :

Citation:

ffmpeg.exe -y -ss 00:00:00.000 -i "C:\Data\Delphi\Lecteur multimedia\2018\aquin.mp3" -t 30 "C:\Data\Delphi\Lecteur multimedia\2018\aquin_Cutted.aac"

J'ai du téléchargé TDosCommand et j'utilise son unité *.pas dans les uses.

Le chemin est correct et le nom du fichier aussi.

@+,

cincap

Bonjour à toutes et à tous,

J'ai isolé la commande "Ds" et plus d'exception donc c'est bien à ce niveau que cela bloque.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 
procedure TForm1.Button2Click(Sender: TObject);
// ffmpeg.exe se trouve dans le répertoire de l'application
const
  ffmpegParams = 'ffmpeg.exe -y -ss %s -i "%s" -t 30 "%s"';
 
var
 ds : Tdoscommand;
 FileIn, FileOut: string;
begin
  ChAppli := ExtractFilePath(Application.ExeName);
  FileIn := ChAppli + 'Aquin.mp3';
  FileOut := ChAppli + 'Aquin_Cutted.aac';
  MonFichier := Format(ffmpegParams, [FormatDateTime('hh:mm:ss.zzz', MediaPlayer1.Position / MSecsPerDay),
    FileIn,FileOut]);
  Memo1.Text := Monfichier; // juste pour voir la ligne de commande
 
  Ds.CommandLine := Monfichier; // Ds = DosCommand //exception à partir d'ici ! (Violation d'accès à l'adresse 00404490..)
  Ds.Execute;
end;

Et forcément le fichier ne se crée pas.

@+,

cincap

19/04/2018, 12h42
Cirec
re,

ton TDosCommand est-il bien fait pour ton Delphi 6 ?
as-tu installé le composant ? // pas obligatoire
si non:
as-tu pensé à créer le composant avant ?
Code:

1 2 // dans le OnCreate de la fiche Ds := TDosCommand.Create(Self);
ton problème vient certainement d'une des 3 pistes
la ligne de commande est juste et fonctionnel
et TDosCommand opérationnel du moins avec D7

Cordialement,
@+

EDIT:
je viens de voir ceci:

Citation:

var
ds : Tdoscommand;

ton problème est ici :
déclare Ds en variable globale
puis dans le OnCreate de la fiche tu y ajoutes:

Code:

Ds := TDosCommand.Create(Self);

et le code devrait compiler et s'exécuter

et pour voir ce qu'il se passe :
dans ta déclaration de TForm1 tu ajoutes ceci:

Code:

1
2
3
4
5
6
7
8
  TForm1 = class(TForm)
    ...
    Memo1: TMemo;
    ...
    procedure FormCreate(Sender: TObject);
    procedure DosCommandNewLine(Sender: TObject; NewLine: String;
      OutputType: TOutputType);
    procedure DosCommandTerminated(Sender: TObject; ExitCode: LongWord);

plus loin:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
implementation
procedure TForm1.DosCommandNewLine(Sender: TObject; NewLine: String;
  OutputType: TOutputType);
begin
  Memo1.Lines.Add(NewLine);
end;
 
procedure TForm1.DosCommandTerminated(Sender: TObject; ExitCode: LongWord);
begin
 Memo1.Lines.Add('** Processus terminé **');
end;
 
procedure TForm1.FormCreate(Sender: TObject);
begin
  Ds := TDosCommand.Create(self);
  Ds.OnNewLine := DosCommandNewLine;
  Ds.OnTerminated := DosCommandTerminated;
end;

voilà ceci devrait compléter l'exemple et le rendre fonctionnel ;)

Cordialement,
@+

19/04/2018, 13h02
cincap

@ Cirec, bien vu comme toujours, cela fonctionne très bien, TdosCommand n'était pas créer, je suppose que je dois aussi le libérer à la fermeture de l'application ? .

Citation:

// dans le OnCreate de la fiche
Ds := TDosCommand.Create(Self);

J'ai rajouté un TScrollBar pour choisir le début des 30s dont j'ai besoin.

Il suffit maintenant de renommer le fichier de sortie au format *.m4r pour être accepter par ITunes et être copié sur l'Iphone dans le dossier "Sonneries".

Je ferai le test ce soir.

Je considère ce problème comme résolut et remercie tous ceux qui ont participé.

EDIT: cette ligne provoque une erreur :" Ds.OnTerminated := DosCommandTerminated;"

Citation:

[Erreur] Unit1.pas(80): Types incompatibles : 'Les listes de paramètres diffèrent'
[Erreur fatale] Project1.dpr(5): Impossible de compiler l'unité utilisée 'Unit1.pas'

@+,

cincap
19/04/2018, 13h09
Cirec

Citation:

Envoyé par cincap

... , je suppose que je dois aussi le libérer à la fermeture de l'application ? ...

non il ne faut pas
puisqu'il a été crée avec le paramètre "Self" comme Owner (propriétaire)
c'est donc lui (Self = Form1 ici) qui se chargera de libérer le DosCommand

Cordialement,
@+
19/04/2018, 13h27
Cirec

Citation:

EDIT: cette ligne provoque une erreur :" Ds.OnTerminated := DosCommandTerminated;"

donne moi le lien où tu as téléchargé TDosCommand tu dois avoir une version différente de la mienne ;)

il doit y avoir un changement dans les paramètres

et pour la conversion finale :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 procedure TForm3.Button4Click(Sender: TObject); const ffmpegParams = 'ffmpeg.exe -y -i "%s" -f ipod -b:a 96k "%s"'; var MonFichier, chappli, FileIn, FileOut: string; begin ChAppli := ExtractFilePath(Application.ExeName); FileIn := ChAppli + 'aquin_Cutted.aac'; FileOut := ChAppli + 'aquin_Cutted_Converted.m4p'; //ou m4r ou m4a MonFichier := Format(ffmpegParams, [ FileIn, FileOut]); Memo1.Text := Monfichier; // juste pour voir la ligne de commande Ds.CommandLine := Monfichier; Ds.Execute; end;
ah oui j'avais oublié
le paramètre "-y" est là pour autoriser le remplacement de fichiers existants
sinon ffmpeg attend une réponse clavier :calim2:
c'est donc à toi de vérifier que le fichier de sortie n'existe pas déjà

Cordialement,
@+
Voilà yapluka :mouarf:

Voir 40 message(s) de cette discussion en une page