Position features added to WaveAudio(to check by Kambiz)&

ddantoni · Member Joined: 05 Oct 2004 Posts: 4

I have added SetPosition and GetPosition to StockAudioPlayer class.
Please, Kambiz can you check if the algorith is ok.
The modifications are in WavePlayers.

I have also modified :
function Percent2DWVolume(prVol: WORD): DWORD;
begin
Result := 0;
Result := MulDiv(prVol, $FFFF, 100);
Result := Result Or (Result ShL 16);
end;
because when we changed the volume, all sound was in left speaker.

And I have also developped a MP3Storage class that is inherited of TWaveStorage that Load MP3 to Stream and save Stream to MP3 file.

The component icon is in WaveReg.dcr
This is a beta version.

I'm currently develop TStockAudioPlayerRecorder that must allow to do a TMediaPlayer.

Thanks.
PS : Excuse for my very bad english, I am French.

Kambiz · Posted: 06/10/04 09:10 Post subject:

Thanks a lot for these improvements.

I'll look at the code on this weekend and let you know.

Cheers for now,
Kambiz

Kambiz · Posted: 22/10/04 11:47 Post subject:

Hi David,

Sorry for being so late.

Just today I could look at your code, well done, compliments!

Because MP3 stuff uses external dlls, if you don't mind I'll publish it as a third-party pack besides the main package.

Regarding to StockAudioPlayer, I couldn't get the usage of DSamplesPerSec property. Could you please describe this property? I'll put your answer in the component's documentation too.

Thank you very much,
Kambiz

ddantoni · Member Joined: 05 Oct 2004 Posts: 4

Hi Kambiz,

DSamplesPerSec property define speed/pitch of playback (sample rate of playback). I wrote this because Pitch property cannot be modify on my computer.

For MP3Storage, I will make it in production. So I will post final version soon.

GetPosition function is not right. I dont know why but when playback, Position advance and move back (we see the problem when we getposition in a slide bar).

For WavePlayerRecorder, I have correct lot of bugs and added some features. You can see getposition problem with this component and set OnPositionChange event to a procedure that move slide bar.

Thanks a lot,
David

ddantoni · Member Joined: 05 Oct 2004 Posts: 4

There is a bug in TWaveAudioPlayerRecorder : this bug appear when we Play and Stop fastly.

Replace TMultimediaTimer to TTimer and delete line FPosTimer.Resolution
TMultimediaTimer bug if we change Enable proterty Fastly.

ddantoni · Member Joined: 05 Oct 2004 Posts: 4

There is a bug in TWaveAudioPlayerRecorder : this bug appear when we Play and Stop fastly.

Replace TMultimediaTimer to TTimer and delete line FPosTimer.Resolution
TMultimediaTimer bug if we change Enable proterty Fastly.