TechnicalLibrary
No1.MODファイルを再生してみよう with NPMOD32.DLL
MOD ファイルというのは知っているでしょうか?私はよく知りません。
でもかっこいいです。音楽フォーマットの一つでMIDIに近く音源に依存しません。
これを再生してみましょう。ただこれを自力でデコードするスキルは無いのでNPMOD32.dll
というのを利用されていただきます。
NPMOD32.DLL
ダウンロード(200kb)
サポートページ
まず、\\WINDOWS\SYSTEMにNPMOD32.DLLをコピーしておいてください。
APIの宣言からです。
Declare Function ModPlug_Load Lib "npmod32.dll"
(ByVal pPlugin As Long, ByVal lpszFileName
As String) As Integer
Declare Function ModPlug_Play Lib "npmod32.dll"
(ByVal pPlugin As Long) As Integer
Declare Function ModPlug_Stop Lib "npmod32.dll"
(ByVal pPlugin As Long) As Integer
これだけあればOKでしょう。
準備
準備です(^^;
Form1.Form_Load
Dim RetVal As Long
End Sub
MODファイルをロードする。
MODっていろいろファイルの形式がありますが、ほとんど再生出来るはずです。
いろいろ試してみてください。
RetVal = mod_Open(パス)
おお、簡単だ。パスを指定するだけです。
MODファイルを再生
いよいよ再生
Call modPlay
うーんぐっど。
再生を止めてみよう
これも簡単だなぁ。
Call modStop
できましたかぁ。すると問題もありました。こんな↓風な物が出てきます。困った。
これを別のWINDOW(PictureBox等)に表示するようにするには、
はい、宣言
Declare Function ModPlug_CreateEx Lib
"npmod32.dll" (ByVal lpszArgs As
String) As Long
Declare Function ModPlug_SetWindow Lib
"npmod32.dll" (ByVal pPlugin As
Long, ByVal hwnd As Integer) As Integer
Dim x
こんな感じ
RetVal = ModPlug_CreateEx("loop|true")
x = ModPlug_SetWindow(RetVal, Picture1.hwnd)
よろしいでしょうか?ここら辺で終わります。
私もあまり理解していないのであまり質問しないでね。
なぜ突然MODかと言うと、拙作のfirstmpをMOD対応にしようと思ったからです(^^;
いろいろMOD再生のDLLを漁ってきましたので、次回もMOD再生編です(予定では)
でも未だにfirstmpはMOD対応になってませんねぇ。
MP3やAAC,TwinVQ,AVIなんかも説明できたらいいなぁ。
AACはTwinVQは絶対無理な気がしますが。VBMP3の解説をしようか・・・。
ライバルを増やす事になる気がしますが(^^;;)。
このサイトどういう方向にもっていこうかちょっと考え中。
長くなりましたが、ここらへんで。