FreeBASIC ExtLibbass

目次→その他→ライブラリ・ヘッダー索引→BASS←オリジナル・サイト
目次→FreeBASIC のハッキング→FreeBASIC でのハッキングのための情報→外部ライブラリ索引→BASS←オリジナル・サイト

BASS

Linux 用のベータバージョンを備えた、ウィンドウで使われるオーディオ・ライブラリ。

ウエブ・サイト: http://www.un4seen.com/bass.html∞
↑ bass.dll をダウンロードできます。↑
利用できる環境: Win32, Linux (beta)
include するヘッダー: bass.bi
ヘッダー・バージョン: 2.4.14
使用例: examples/sound/BASS/

音声ファイル dne_trtn.mod は、下記にあります。
FreeBASIC\examples\sound\data\dne_trtn.mod

例:

#include once "bass.bi"

'' この mod ファイルは fbc パッケージで利用できるはずです:
Const SOUND_FILE = "..\..\sound\data\dne_trtn.mod"

If (BASS_GetVersion() < MAKELONG(2,2)) Then
Print "BASS バージョン2.2以上が必要です！"
Sleep
End 1
End If

If (BASS_Init(-1, 44100, 0, 0, 0) = 0) Then
Print "BASSを初期化できませんでした"
Sleep
End 1
End If

Dim As HMUSIC test = BASS_MusicLoad(FALSE, @SOUND_FILE, 0, 0, BASS_MUSIC_LOOP, 0)
If (test = 0) Then
Print "BASS は ' " & SOUND_FILE & " ' をロードできませんでした"
BASS_Free()
Sleep
End 1
End If

BASS_ChannelPlay(test, FALSE)

Print "音声再生中; 何かキーを押すと終了します..."
Sleep

BASS_ChannelStop(test)
BASS_MusicFree(test)
BASS_Stop()
BASS_Free()

examples/sound/BASS/small.bas

' Source: http://www.freebasic-portal.de/porticula/8-1-sound-musikausgabe-1384.html

#Include "bass.bi"

' BASS を初期化
BASS_Init(-1, 44100, 0, 0, 0)

' 効果音とサンプル曲を読み込む(パスは、実行ファイルからの相対表現)
Dim As String musicname = ExePath() & "/../data/example1.ogg"
Dim As HSTREAM music = BASS_StreamCreateFile(0, StrPtr(musicname), 0, 0, 0)
Dim As String soundname = ExePath() & "/../data/example2.ogg"
Dim As HSAMPLE sound = BASS_SampleLoad(0, StrPtr(soundname), 0, 0, 16, 0)
Dim soundchannel As HCHANNEL = BASS_SampleGetChannel(sound, 0)

BASS_ChannelPlay(music, 0)                             ' 音楽再生

Do
	If GetKey = 27 Then
		Exit Do                                ' ESC キー
	End If

	BASS_ChannelPlay(soundchannel, 0)              ' 効果音を再生
Loop

BASS_Free()                                            ' メモリ割り当てを解放

外部ライブラリー目次に戻る

ページ歴史:2019-10-06 09:42:06
日本語翻訳：WATANABE Makoto、原文著作者：SirMud