问题描述
我正在使用Inno Setup为我的应用程序创建安装程序。我使用BASS音频库在安装程序的后台播放音乐。
这是我播放声音的代码。
[Code]
const
DI_norMAL = 3;
FR_PRIVATE = $10; {added to compact Mode}
BASS_SAMPLE_LOOP = 4;
BASS_ACTIVE_STOPPED = 0;
BASS_ACTIVE_PLAYING = 1;
BASS_ACTIVE_STALLED = 2;
BASS_ACTIVE_PAUSED = 3;
BASS_UNICODE = $80000000;
BASS_CONfig_GVOL_STREAM = {#MusicVolume};
EncodingFlag = BASS_UNICODE;
#if CheckCRC == "1"
PM_REMOVE = 1;
WM_QUIT = 18;
#endif
function BASS_Init(device: LongInt; freq,flags: DWORD; win: HWND; clsid: Cardinal): BOOL;
external 'BASS_Init@files:bass.dll stdcall';
function BASS_StreamCreateFile(mem: BOOL; f: string; offset1: DWORD; offset2: DWORD; length1: DWORD; length2: DWORD; flags: DWORD): HSTREAM;
external 'BASS_StreamCreateFile@files:bass.dll stdcall';
function BASS_Start: BOOL;
external 'BASS_Start@files:bass.dll stdcall';
function BASS_Pause: BOOL;
external 'BASS_Pause@files:bass.dll stdcall';
function BASS_ChannelPlay(handle: DWORD; restart: BOOL): BOOL;
external 'BASS_ChannelPlay@files:bass.dll stdcall';
function BASS_SetConfig(option: DWORD; value: DWORD ): BOOL;
external 'BASS_SetConfig@files:bass.dll stdcall';
function BASS_ChannelIsActive(handle: DWORD): DWORD;
external 'BASS_ChannelIsActive@files:bass.dll stdcall';
function BASS_Free: BOOL;
procedure MusicButtonClick(Sender: TObject);
begin
case BASS_ChannelIsActive(SoundStream) of
BASS_ACTIVE_PLAYING:
begin
if BASS_Pause then
MusicButton.Caption := ExpandConstant('{cm:MusicButtonCaptionSoundOn}');
end;
BASS_ACTIVE_PAUSED:
begin
if BASS_Start then
MusicButton.Caption := ExpandConstant('{cm:MusicButtonCaptionSoundOff}');
end;
end;
end;
ExtractTemporaryFile('{#MusicFile}');
if BASS_Init(-1,44100,0) then
begin
SoundStream := BASS_StreamCreateFile(False,ExpandConstant('{tmp}\{#MusicFile}'),EncodingFlag or BASS_SAMPLE_LOOP);
BASS_SetConfig(BASS_CONfig_GVOL_STREAM,2500);
BASS_ChannelPlay(SoundStream,False);
end;
我只想在安装程序的页面(在此情况下为许可页面)中播放声音 我希望当用户进入许可页面,正常音乐停止和其他声音开始播放时,在完成此声音音乐后开始再次播放 还能禁用下一步按钮,直到声音结束?
谢谢
在Martin Prikryl的帮助下,我对代码进行了一些编辑。我的代码现在是这样的(再次,由于行很多,我无法将完整的代码发布在上面)
procedure InitializeWizard();
var
SoundStream: HSTREAM;
LicenseSoundStream: HSTREAM;
//-some other code-//
IniFile := ExpandConstant('{tmp}\Settings.ini');
#if Music == "1"
if BASS_Init(-1,0) then
begin
BASS_SetConfig(BASS_CONfig_GVOL_STREAM,2500);
ExtractTemporaryFile('{#MusicFile}');
ExtractTemporaryFile('lic.mp3');
SoundStream :=
BASS_StreamCreateFile(
False,BASS_UNICODE or BASS_SAMPLE_LOOP);
LicenseSoundStream :=
BASS_StreamCreateFile(
False,ExpandConstant('{tmp}\lic.mp3'),BASS_UNICODE);
BASS_ChannelPlay(SoundStream,False);
end;
#endif
procedure CurPageChanged(CurPageID: integer);
begin
//-some other code-//
#if UseLicense == "1"
if CurPageID = wpLicense then
begin
AboutButton.Hide;
WizardForm.DirEdit.Hide;
WizardForm.DirbrowseButton.Hide;
WizardForm.GroupEdit.Hide;
WizardForm.GroupbrowseButton.Hide;
WizardForm.PageNameLabel.Hide;
WizardForm.PageDescriptionLabel.Hide;
WizardForm.UserInfoNameLabel.Hide;
WizardForm.UserInfoNameEdit.Hide;
if Assigned(LicenseSoundStream) then
begin
BASS_ChannelPlay(LicenseSoundStream,True);
BASS_Start;
end;
end
else
begin
{ On other pages,restore the standard music }
if Assigned(SoundStream) then
begin
BASS_ChannelPlay(SoundStream,False);
end;
end;
#endif
end;
它现在给我if Assigned(LicenseSoundStream)
中的编译器错误,错误是Line 4416: Column 17: UnkNown identifier 'LicenseSoundStream'
-编辑2-
您知道我的安装程序中有2种声音
procedure MusicButtonClick(Sender: TObject);
begin
case BASS_ChannelIsActive(SoundStream) of
BASS_ACTIVE_PLAYING:
begin
if BASS_Pause then
MusicButton.Caption := ExpandConstant('{cm:MusicButtonCaptionSoundOn}');
end;
BASS_ACTIVE_PAUSED:
begin
if BASS_Start then
MusicButton.Caption := ExpandConstant('{cm:MusicButtonCaptionSoundOff}');
end;
end;
end;
但是我的问题是,如果用户在许可间页面之前暂停背景声音,则许可页面内的背景声音会再次播放(而不是其他声音)
解决方法
假设您的ExtractTemporaryFile
和BASS_Init
通话在InitializeSetup
中,如下所示:How to make Stop and Pause/Resume/Play music buttons in Inno Setup
更新代码以加载两个音乐文件:
var
SoundStream: HSTREAM;
LicenseSoundStream: HSTREAM;
procedure InitializeWizard;
begin
if BASS_Init(-1,44100,0) then
begin
BASS_SetConfig(BASS_CONFIG_GVOL_STREAM,2500);
ExtractTemporaryFile('{#MusicFile}');
ExtractTemporaryFile('{#LicenseMusicFile}');
SoundStream :=
BASS_StreamCreateFile(
False,ExpandConstant('{tmp}\{#MusicFile}'),BASS_UNICODE or BASS_SAMPLE_LOOP);
LicenseSoundStream :=
BASS_StreamCreateFile(
False,ExpandConstant('{tmp}\{#LicenseMusicFile}'),BASS_UNICODE);
BASS_ChannelPlay(SoundStream,False);
end;
end;
然后在许可页面上的CurPageChanged
event function中,开始“许可”音乐:
procedure CurPageChanged(CurPageID: Integer);
begin
if CurPageID = wpLicense then
begin
if LicenseSoundStream <> 0 then
begin
BASS_ChannelPause(SoundStream);
BASS_ChannelPlay(LicenseSoundStream,True);
BASS_Start;
end;
end
else
begin
{ On other pages,restore the standard music }
if SoundStream <> 0 then
begin
BASS_ChannelPause(LicenseSoundStream);
BASS_ChannelPlay(SoundStream,False);
end;
end;
end;
未经测试-可能需要进行一些调整。