Forum: Multimedia
Delphi
by Amateurprofi,
16. Jul 2021
@venice2:
Ich glaube da machst du einen Denkfehler.
In "TBassPlayer.DrawData" sind TRA und TIA zwar als Array of Single, also statische Arrays deklariert.
Aber an procedure TBassPlayer.XFFT(FR, FI: array of single; Sign, Sample, SampleCount: Integer);.
werden die TRA und TIA als dynamische Arrays übergeben und haben dort die Indizes 0..511, SampleCount jedoch hat den Wert 512.
Wenn du in...
Forum: Multimedia
Delphi
by Amateurprofi,
16. Jul 2021
@venice2:
Ohne mich wirklich intensiv damit befasst zu haben:
while Q <= (SampleCount + 1) do
sollte m.E. heißen while Q < SampleCount
.
Du greifst mit FR und FI auf die Arrays FR und FI zu.
Die Arrays sind als Array of Single deklariert und ich vermute, sie enthalten SampleCount Einträge, also die Indizes 0..SampleCount-1.
Wenn Q der Wert SampleCount erreicht, wird der Zugriff FR...