如何在 Haskell 代码中跨平台播放音频文件

Question

如何在 Haskell 代码中跨平台播放音频文件

7

我正在编写一款Haskell命令行应用程序，可以在Linux、Windows和OS X上运行。现在我需要播放音频文件（.wav、.ogg和.mp3）。我该如何实现一个函数呢？

playAudioFile :: FilePath -> IO ()

甚至更好的是

playAudio :: ByteString -> IO ()

要在所有系统上简单工作的是什么？

（我很乐意调用常见的命令行工具，也不介意将它们捆绑到Windows发行版中。）

- Joachim Breitner

这与https://dev59.com/I2Yr5IYBdhLWcg3wB16h有关，但我需要播放除“.wav”之外的常见文件格式。 - Joachim Breitner

如果这是真的可能的话，我会感到惊喜（愉快）。我的意思是，没有手动编写绑定到现有的C库... - MathematicalOrchid

嗯，也许https://dev59.com/I2Yr5IYBdhLWcg3wB16h#14011063实际上指向了正确的方向；SDL似乎支持[Graphics.UI.SDL.Mixer.Music](http://hackage.haskell.org/package/SDL-mixer-0.6.1/docs/Graphics-UI-SDL-Mixer-Music.html)中的MP3和Ogg。 - Joachim Breitner

gstreamer 可在 OSX、Windows 和 Linux 上运行，并支持许多不同的格式，因此这可能值得一试。 - ocharles

我有点担心能否得到一个良好的、友好的 Windows 自包含软件包，但至少这是可能的。 - Joachim Breitner

显示剩余2条评论

2个回答

0

一个新的选择是proteaaudio Haskell库。

https://hackage.haskell.org/package/proteaaudio

ProteaAudio是一个极简的立体声音频混音/播放库，适用于Linux、MacOS和Windows操作系统。支持的音频格式包括Wav、Ogg和原始线性PCM。

- Joachim Breitner

网页内容由stack overflow 提供, 点击上面的

可以查看英文原文，
原文链接

- Joachim Breitner · Accepted Answer

这是我使用SDL-1.2编写的代码：

module PlaySound (withSound, playSound) where

import Control.Monad
import System.IO
import System.Directory
import Data.Foldable
import Control.Exception
import qualified Data.ByteString.Lazy as B
import Foreign.ForeignPtr

import Graphics.UI.SDL as SDL
import Graphics.UI.SDL.Mixer as Mix

withSound :: IO a -> IO a
withSound = bracket_ init cleanup
  where
    init = do
        SDL.init [SDL.InitAudio]
        getError >>= traverse_ putStrLn
        ok <- Mix.tryOpenAudio Mix.defaultFrequency Mix.AudioS16LSB 2  4096
        unless ok $
            putStrLn "Failed to open SDL audio device"

    cleanup = do
        Mix.closeAudio
        SDL.quit

playSound :: B.ByteString -> IO ()
playSound content = do
        dir <- getTemporaryDirectory
        (tmp, h) <- openTempFile dir "sdl-input"
        B.hPutStr h content
        hClose h

        mus <- Mix.loadMUS tmp
        Mix.playMusic mus 1
        wait

        -- This would double-free the Music, as it is also freed via a
        -- finalizer
        --Mix.freeMusic mus
        finalizeForeignPtr mus
        removeFile tmp

wait :: IO ()
wait = do
    SDL.delay 50
    stillPlaying <- Mix.playingMusic
    when stillPlaying wait

程序最终运行良好，但在Windows下编译SDL绑定很棘手。我遵循了这篇很好的解释。

SDL-1.2的SDL绑定似乎未得到维护，甚至无法在GHC-7.8或更新版本中编译。一开始我没有注意到，因为我的发行版（Debian）会修补此类问题，但这意味着我的用户不能轻松地cabal install依赖项。

虽然有SDL-2的绑定，但没有我需要的SDL_mixer绑定（我认为）。所以我很乐意阅读更好的答案。