DraculaLin 老大，用 FMod 如何装入 Mid 文件呢？

luotuo

我使用：  FMusic := FMUSIC_LoadSong('DuiDui.mid'); 时，FMusic ＝ Nil，加上路径也不行；
看帮助，里面有个 FMUSIC_LoadSongEx（）函数，因不懂 E 文，不知怎么做，请老大指点。

juedno2004

这里 VC 的控制台程序, 很简单, 希望对你有帮助........

--------------------------------------------------------

#include "stdafx.h"

#include "fmod.h"
#pragma comment(lib, "fmodvc.lib")


int main(int argc, char* argv[])
{
// 初始化 Fmod
FSOUND_Init(44100, 32, FSOUND_INIT_GLOBALFOCUS);

// 播放 midi 音乐
FMUSIC_MODULE* pMusic = FMUSIC_LoadSong("MidiMusic.mid");
FMUSIC_PlaySong(pMusic);

while(!getchar())        // 回车跳出循环
{}

// 释放
FMUSIC_FreeSong(pMusic);
FSOUND_Close();

return 0;
}

luotuo

juedno2004: Re: DraculaLin 老大，用 FMod 如何装入 Mid 文件呢？   


这里 VC 的控制台程序, 很简单, 希望对你有帮助........

------------------------------------------...

还是不行啊！怎么办呀？：（
这是源码！

luotuo

juedno2004: Re: DraculaLin 老大，用 FMod 如何装入 Mid 文件呢？   


这里 VC 的控制台程序, 很简单, 希望对你有帮助........

------------------------------------------...

这是可执行文件，与上面的放在一起！

wxhui

问题我找到了原因了：
你在TMainForm.FormMouseDown 事件中的这段代码：

//背景音乐开关区
  if (l_CanMusic) and (x > 541) and (x < 561) and (y > 315) and (y < 343) then
    l_MusicOn := not l_MusicOn;
    if l_Playing then
      FMUSIC_SetPaused(FMusic, not l_MusicOn);

改为：

//背景音乐开关区
  if (l_CanMusic) and (x > 541) and (x < 561) and (y > 315) and (y < 343) then
  begin
    l_MusicOn := not l_MusicOn;
    if l_Playing then
      FMUSIC_SetPaused(FMusic, not l_MusicOn);
  end;

就可以了！

luotuo

谢谢！你找到的确是一个大 Bug，我已经改过来了。
然而，我遇到的问题的根源还不是这里，因为在 Mid 装入时就是 Nil，也就是说没装入成功！
同样的代码，在我的台式机上装入 Mid 不成功，而到了“本本”上就可以。
在台式机上，我用其它的播放器播放这个 Mid 就可以，这个 FMod 对硬件的要求是什么呢？

郁闷！！！

最后，还要谢谢您帮我找到的 Bug！

wxhui

也许这是你机子问题，我这的台式机上没有什么此类问题！

luotuo

很明显，是我机器的问题，我也正在准备重装系统，可问题究竟出在哪里呢？真想弄明白它！