Discussion :

[st02938]

Bonjour à tous,

Je suis sur un projet perso qui vise à faire des synchronisations temporelles dynamiques de différents enregistrements (differentes sources) d'un même évènement afin (après filtrage et nettoyage) de profiter des qualités différentes pour reconstituer un enregistrement, disons....meilleur !

J'ai mis au point un algorithme sous matlab qui marche bien maintenant. Mais je voudrait profiter de LAZARUS que je viens de découvrir pour refaire tout ça...en mieux.

J'en viens à ma première question :
comment coder clairement et simplement sous LAZARUS les étapes suivantes :
1) Selection du fichier wav à ouvrir
2) ouverture et lecture du fichier wav, mise des data dans un buffer....et....
3) affichage des deux formes d'ondes (stereo) dans la même figure.

(... les questions sur les FFT-convolutions, intercorrelations glissantes et dynamique streching viendront après....)

y a l'air d'avoir plein de pistes mais je m'y perts.

si ya quelqu'un qui saurait me faire un topo là dessus parceque j'ai pas dit mais.......je débute en PASCAL .

merci d'avance

[SergioMaster]

Bonjour , Bienvenue sur le Forum

pour le 1) je suggère le composant TFileNameEdit (onglet Misc)

point 2 la lecture (écoute)
sous Windows

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
uses ... windows;
 
function PlaySound(pszSound: PChar; hmod: HMODULE; fdwSound: DWORD): BOOLean; stdcall; external 'winmm.DLL' name 'PlaySound';
 
implementation   
 
procedure TForm1.Button2Click(Sender: TObject);
var s : string;
begin
 s:=EditFileName1.FileName;
 playsound(@s[1],0, $00020000);
end;

sous LINUX j'ai aussi la solution mais il faudrait que je re-bascule pour récupérer le source
[EDIT maintenant que je suis sous LINUX(Ubuntu) ]

Code :

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

1
2
 
SysUtils.ExecuteProcess(FindDefaultExecutablePath('paplay'),EditFileName1.FileName);

Lecture des données brutes , là je sèche , mais je pense que ce doit être un fichier binaire classique ? donc voir du coté de

Code :

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

1
2
3
4
5
6
7
Var F : File;
begin
AssignFile(F,EditFileName1.FileName);
Reset(F);
Read(f .....
CloseFile(F)
end;

ou du coté des FileStreams (là j'y connais rien)

quant au point 3 je reste coi

bon courage !
PS . Fouille aussi du coté des composants ACS tu y trouveras peut être ton bonheur , si , moins bille que moi tu arrives a télécharger la version SVN Wiki et Home

[parhelie]

Bonjour,
Pour le point 3, tu dois trouver ce qu'il te faut dans le composant TPlotPanel.
Il me semble.