Discussion :

[mewiine]

Bonjour à tous,

dans le cadre d'un programme de traitement audio, je dois extraire les données de fichiers wav sous forme de fichiers texte. Pour cela j'utilise Matlab avec le code suivant :

Code :

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

1
2
3
4
[y, Fs] = wavread('piano.wav')
Mono = (y(:,1)+y(:,2))/2;
Mono=resample(Mono,2500,44100)
save('piano.txt','Mono','-ASCII')

Jusqu'à présent j'avais constitué une bibliothèque de fichiers texte, que je traitais ensuite sous Lazarus. J'aimerais cependant maintenant pouvoir exécuter le programme à partir de n'importe quel fichier wav, sans toutefois avoir à lancer Matlab indépendamment avant. J'ai donc trouvé le code suivant qui devrait me permettre de lancer le traitement Matlab directement à partir de Lazarus.

Code :

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

1
2
3
4
5
6
7
8
9
10
procedure TForm1.Button1Click(Sender: TObject);
 
var nf:string;   MatApp:variant;
begin
MatApp:=CreateOleObject('matlab.application');
MatApp.visible:=1;
nf:='FilenameEdit1.text';
MatApp.Execute('[y, Fs] = wavread(nf) Mono = (y(:,1)+y(:,2))/2; Mono=resample(Mono,2500,44100) save(''piano.txt'',''Mono'',''-ASCII'') ');
 
end;

Cependant, en testant rien ne se passe, et l'historique de Matlab affiche seulement une ligne de commentaire (%-- 11/05/2012 22:20 --%) sans aucune ligne de commande.

Si quelqu'un pouvait m'aider à trouver mon erreur
Merci d'avance!

[tourlourou]

une piste :

Code :

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

1
2
nf:='FilenameEdit1.text';
MatApp.Execute('[y, Fs] = wavread(' + nf + ') Mono = (y(:,1)+y(:,2))/2; Mono=resample(Mono,2500,44100) save(''piano.txt'',''Mono'',''-ASCII'') ');

tu avais inclu le nom de la variable en dur dans la chaîne (mais ce n'est pê qu'une erreur de recopie

[mewiine]

Merci pour ta réponse

Le problème ne semble cependant pas provenir de là car j'avais déjà essayé dans utiliser la variable nf (en mettant directement le nom d'un wav du dossier courant de Matlab) et cela ne marchait pas non plus..

Pour ce qui est des simple quote incluses dans celles de MatApp, j'en ai mis deux de suite pour qu'il les prenne en compte, est-ce bien la bonne méthode ?

[tourlourou]

ce peut être aussi un pb de lignes qui doivent être séparées par des #10#13 :

Code :

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

1
2
3
4
5
6
7
8
tsl:=TStringList.Create;
 
tsl.Add( [y, Fs] = wavread(''piano.wav'') ); // ou tsl.Add( QuotedStr( [y, Fs] = wavread('piano.wav') );
tsl.Add( Mono = (y(:,1)+y(:,2))/2; );
tsl.Add( Mono=resample(Mono,2500,44100) );
tsl.Add( save(''piano.txt'',''Mono'',''-ASCII'') ); 
 
MatApp.Execute( tsl.Text );

[mewiine]

Ça ne marche pas non plus. En laissant MatApp.visible à 1 la fenêtre Matlab Command Window apparaît mais aucune commande n'est faite, et en mettant à 0 rien ne se passe..

On est bien d'accord, je dois déclarer la variable MatApp:variant au début du programme ?
J'ai aussi essayé en mettant des double quote pour les expressions à l'intérieur même des String mais ce n'est pas mieux.

[Jerome Briot]

Normalement, il y a plus simple.

Enregistre ton code dans une fonction sous MATLAB dans un fichier myfun.m :

Code :

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

1
2
3
4
5
6
7
8
9
function myfun(nf)
 
[y, Fs] = wavread(nf)
Mono = (y(:,1)+y(:,2))/2;
Mono = resample(Mono,2500,44100)
 
nf = strrep(nf,'.wav','.txt');
 
save(nf,'Mono','-ASCII')

Tu peux ensuite, en te plaçant dans le dossier contenant myfun.m, lancer à partir d'une ligne de commande :

Code :

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

matlab -r "myfun('FilenameEdit1.text')"

Il ne te reste plus qu'à écrire et faire exécuter automatiquement cette commande sous Lazarus.

Tu peux ajouter la fonction quit à la fin de la fonction pour fermer automatiquement MATLAB.

Tu peux aussi accélérer le chargement de MATLAB en utilisant l’argument -nodesktop (voire -nojvm) en plus de l’argument -r

Plus d'information dans la documentation de MATLAB : Startup Options