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

[ddantoni]

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]

Thanks a lot for these improvements.

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

Cheers for now,
Kambiz

[Kambiz]

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]

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]

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]

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.

[Hero1984]

@Kambiz: Thanx for the great component

Hello ddantoni,

would it be possible to get your component? I´d like to have the SetPosition-Feature. Would be great!

Thx:)