Discussion :

[Jipété]

Bonjour,

Dans un projet D7 je trouve, dans Unit1,

Code :

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

1
2
3
4
5
var
  Form1: TForm1;
  FFT : array[1..1024] of float; // Initial array that FFT Data will go into
  Scaled_FFT : array[0..15] of float; // The sorted and scaled data
  Bin_Dist : array[0..16] of integer; // My way of sorting data

et plus loin

Code :

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

1
2
3
4
5
6
for x := 0 to 15 do
begin
  tot_sum := 0; 
  for y := Bin_Dist[x] to Bin_Dist[x+1] do tot_sum := tot_sum + (FFT[y]);
  Scaled_FFT[x] := tot_sum * 50; // Just get the numbers a little larger to work with
end;

donc ici on est en Float.

Dans une unité complémentaire

Code :

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

1
2
3
4
5
6
7
8
Procedure TSpectrum.Draw_Spec(HWND : THandle; FFTData : array of single);
var
  i : Integer;
begin
  Img_Hand := HWND;
  for i := 0 to No_Peaks - 1 do Spec_Data[i] := FFTData[i];
  Draw_It;
end;

Ici on est en Single et D7 ne dit rien à la compilation, et l'exécution est parfaite.

Lazarus, lui, n'est pas content du tout lors de l'appel de cette procédure :

Code :

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

1
2
3
4
5
procedure TForm1.Timer1Timer(Sender: TObject);
begin
  GetData; // My proc to get and sort the data
  My_Spectrum.Draw_Spec(paintbox1.Canvas.Handle, Scaled_FFT);
end;

Avec le curseur au bout de Scaled_FFT je gagne

Error: Incompatible type for arg no. 2: Got "Array[0..15] Of Extended", expected "Open Array Of Single"

Si je remplace array of single par array of float dans les déclarations, ça compile, mais les données sont tellement en vrac que c'est inutilisable
Et pareil si j'inverse :

Code :

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

1
2
//  Scaled_FFT : array[0..15] of float;  // The sorted and scaled data
    Scaled_FFT : array[0..15] of single; // The sorted and scaled data

J'ai remis en place {$MODE Delphi} mais ça ne change pas la donne.

Comment faire ?
Merci,

Ah, pour les curieux, tout ça se trouve dans le projet audio BigJim_Spectrum (Dieu sait où je l'ai trouvé, et il y a looooooongtemps…)