DELPHI AREA Forum

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.

Thanks a lot for these improvements.

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

Cheers for now,
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

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

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.

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.

@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:)