It´s driving me nuts ... need some help! ;)

[Johnny_Bit]

can you try using streams and datapointers? It's safer and less problematic.

[Sonicfire1980]

If anyone´s interested (attention: newbie code ):
http://www.prodyon-virtual-gear.com/wrongcode.jpg

@Johnny_Bit: yes? then i should take a closer look at tmemorystream and the like. have to learn all that first, i´m afraid

[Sonicfire1980]

As you see,not much code, but obviously something must be total wrong

[very angry mobster]

Have you seen Tobybear's wavefile save/load units?WaveIOX.


vam

[Johnny_Bit]

vam: give it rest, sonic is close to his own solution, so why waste such effort?

[Sonicfire1980]

@vam: yes i know of this unit but i hope i´m able to do it alone and without it My problem is just - the last "test" in my code JPG ... the rest is working fine

[Sonicfire1980]

So why on earth has no one an idea??

[Sonicfire1980]

Procedure TForm1.ProcessWave(FileName: String);
var
Wavbuffer: TSmallIntArray;
Header: TWaveHeader;
i: Integer;
Amp: Double;

begin
Amp := 0.5; // half the volume
LoadTheWave(Outputfile.Text, Wavbuffer, sizeOf(Header)+1); //laden der audio daten
for i := 0 to High(Wavbuffer) do
begin
Wavbuffer[i] := Floor(Wavbuffer[i]*Amp);
end;
SaveTheWave(Outputfile.Text, Wavbuffer, sizeOf(Header)+1);
end;

result: almost white noise in the wav file ... does someone know why? (that worked in my old code before i switched to filestreams)

If i use e.g. Amp := 2 it correctly doubles the output volume - why doesn´t the other way around work?

[Kambiz]

I just want to remind you that SmallInt has 2 bytes length.

[Sonicfire1980]

Thanks, Kambiz - i already found the problem , it was because the "+1"!

However, anoterh little thing that is scarping my head... am i missing something here? :

I want to append a block (50%) of reversed audio data at the end of my main buffer:

[Kambiz]

Windows has a set of APIs for manipulating RIFF files (name of these functions start with mmIO). Why you don't use these functions?

[Sonicfire1980]