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

Please post bug reports, feature requests, or any question regarding the DELPHI AREA products here.

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

Postby ddantoni » October 5th, 2004, 11:10 am

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.
ddantoni
Active Member
Active Member
 
Posts: 7
Joined: October 5th, 2004, 10:52 am

Postby Kambiz » October 6th, 2004, 9:10 am

Thanks a lot for these improvements.

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

Cheers for now,
Kambiz
User avatar
Kambiz
Administrator
Administrator
 
Posts: 2408
Joined: March 7th, 2003, 7:10 pm

Postby Kambiz » October 22nd, 2004, 11:47 am

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
User avatar
Kambiz
Administrator
Administrator
 
Posts: 2408
Joined: March 7th, 2003, 7:10 pm

Postby ddantoni » October 24th, 2004, 9:32 am

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
Active Member
Active Member
 
Posts: 7
Joined: October 5th, 2004, 10:52 am

Postby ddantoni » October 25th, 2004, 8:35 am

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
Active Member
Active Member
 
Posts: 7
Joined: October 5th, 2004, 10:52 am

Postby ddantoni » October 25th, 2004, 8:35 am

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
Active Member
Active Member
 
Posts: 7
Joined: October 5th, 2004, 10:52 am

Postby Hero1984 » July 18th, 2005, 10:05 pm

@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:)
Hero1984
Member
Member
 
Posts: 4
Joined: July 9th, 2005, 3:24 pm


Return to DELPHI AREA Products

Who is online

Users browsing this forum: No registered users and 1 guest

cron