The code below is attempting to generate a lengthly series of varying tones and saving it all as a .WAV file. The file size is approx 10 times the length of DataCount and DataCount is derived from a variable Duration(msec). Playing back the file, I get one single one approx 1/10th the time expected. There should be 10 tone intervals. What am I doing wrong.
How does a playback device know when it reaches the end-of-file in the .WAV file??
I am trying to get away from gaps that exist between adjacent tones, caused by generating one tone at a time, i.e. where it assigns headers to each tone. In the for/next loop at the end of DataCount I select a new freq and assign it to variable 'a', thus hoping to build a .WAV file without the gaps. What am I going wrong??
Thank you,
Vern
cnt := 1;
REPEAT
r := RandomRange(1, 5);
a := fq[r]; ?/ select 1 of 4 tones
w := 2 * Pi * a; //Frequency; // omega
for i := 0 to DataCount - 1 do
begin
SoundValue := 127 + trunc(Volume * sin(i * w / SampleRate)); // wt = w * i / SampleRate
Write(SoundValue, SizeOf(Byte));
end;
sndPlaySound(MS.Memory, SND_MEMORY or SND_SYNC);
inc(cnt);
UNTIL cnt = 10;
MS.Seek(0, soFromBeginning);
MS.SaveToFile('MyWave.wav');