real time mixing and play 2 wave file

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

real time mixing and play 2 wave file

Postby bdv » February 10th, 2015, 9:36 pm

I developed a component for mixing and play 2 file and change the volume level, position, paused of each of them
see ATTACHMENTS
property Track1: TWaveStreamAdapter
property Track1Volume: Byte
property Track1Position: Cardinal
property Track1Paused: Boolean

property Track2: TWaveStreamAdapter
property Track2Volume: Byte
property Track2Position: Cardinal
property Track2Paused: Boolean

example of use
WaveFile1 := TWaveFile.Create('C:\Users\BDV\Downloads\Пример\0124_Angels_Morandi.wav', fmOpenRead or fmShareDenyWrite);
WaveFile2 := TWaveFile.Create('C:\Users\BDV\Downloads\Пример\0532_Sweet Dreams_Eurythmics_готовый.wav', fmOpenRead or fmShareDenyWrite);
LiveAudioMixerPlayer := TLiveAudioMixerPlayer.Create(Self);
LiveAudioMixerPlayer.PCMFormat := WaveFile1.PCMFormat;
LiveAudioMixerPlayer.Options := [woSetVolume];
LiveAudioMixerPlayer.Track1 := WaveFile1;
LiveAudioMixerPlayer.Track2 := WaveFile2;
LiveAudioMixerPlayer.Active := True;
Attachments
LiveAudioMixerPlayer.pas
(6.35 KiB) Downloaded 53 times
bdv
Member
Member
 
Posts: 1
Joined: February 2nd, 2015, 5:48 pm

Return to DELPHI AREA Projects

Who is online

Users browsing this forum: No registered users and 2 guests

cron