home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Chip 2003 January
/
soundCD_1.03.iso
/
editors
/
songs
/
SoundEngine
/
vbmp31615.lzh
/
func.txt
< prev
next >
Wrap
Text File
|
2000-05-31
|
65KB
|
2,202 lines
VBMP3è╓Éöâèâtâ@âîâôâX
üíÅëè·É▌ÆΦÆl
VBMP3 é╠Åëè·É▌ÆΦé≡ê╚ë║é╔Īé╖üB
Å┌ì╫é╔é┬éóé─é═üAèeè╓ÉöÉαû╛é≡ÄQÅ╞
üEVBMP3É▌ÆΦ(vbmp3_setVbmp3Option)
inputBlock = 30[âtâîü[âÇ]
outputBlock = 20[âtâîü[âÇ]
inputSleep = 5[ms]
outputSleep = 0[ms]
üEâfâRü[âhâGâôâWâôÉ▌ÆΦ(vbmp3_setDecodeOption)
reduction = 0(âîü[âgò╧ìXû│é╡)
convert = 0(Åoù═â`âââôâlâïÉöò╧ìXû│é╡)
freqLimit = 24000[Hz]
üEâOâëâtâBâbâNâCâRâëâCâUÉ▌ÆΦ(vbmp3_setEqualizer)
èeɼò¬é╖é╫é─ 0
üEâsâbâ`É▌ÆΦ(vbmp3_setPitch)
100[%]
üEâtâFü[âhâCâôÉ▌ÆΦ(vbmp3_setFadeIn)
0(Æ╩ÅφèJÄn)
üEâtâFü[âhâAâEâgÉ▌ÆΦ(vbmp3_setFadeOut)
0(Æ╩ÅφèJÄn)
üEì─É╢æ¼ôxÉ▌ÆΦ(vbmp3_setStepPitch)
1[ö{æ¼]
üEëëætÄ₧è╘é╠ĵô╛É▌ÆΦ(vbmp3_setOverTime)
0(æìëëætÄ₧è╘ê╚Åπé═âJâEâôâgé╡é╚éó)
üEâ\âtâgâ{âèâàü|âÇÉ▌ÆΦ(vbmp3_setSoftVolume)
ì╢ëEé╞éαé╔ 100[%]
üELYRICS3 â^âOæ}ôⁿê╩ÆuÉ▌ÆΦ(vbmp3_setLyrics3InsField)
0(ILYC é╔æ}ôⁿ)
üELYRICS3 â^âOÄ⌐ô«ô╟ì₧É▌ÆΦ(vbmp3_setLyrics3Use)
0(Ä⌐ô«ô╟ì₧é╡é╚éó)
üEâXâyâNâgâëâÇâAâiâëâCâUùpæïè╓ÉöÉ▌ÆΦ(vbmp3_setFftWindow)
1(hanning)
üEâJâëâIâPâ^âOÄgùpÉ▌ÆΦ(vbmp3_setKaraokeUse)
0(ûóÄgùp)
üEë╠Äîò\ĪÄ₧è╘É▌ÆΦ(vbmp3_setLyricsTime)
0(WinampÄ₧è╘Ägùp)
üEWAVEÅoù═âfâoâCâXÉ▌ÆΦ(vbmp3_setWaveOutDeviceId)
WAVE_MAPPER
üEâ^âCâÇâ^âOû│é╡ìsô╟ì₧É▌ÆΦ(vbmp3_setNotTagLyricsLine)
1(â^âCâÇâ^âOû│é╡ìsé╠ô╟ì₧ùLéΦ)
üESIâtâBü[âïâhÅoù═É▌ÆΦ(vbmp3_setNotDataSiWrite)
1(é╖é╫é─é╠SIâtâBü[âïâhé≡Åoù═)
üEì─É╢Ä₧âtâîü[âÇĵô╛ò√û@É▌ÆΦ(vbmp3_setFrameReadFlag)
0(Æ╩Åφ)
üEâ^âCâÇâ^âOòΓÉ│É▌ÆΦ(vbmp3_setLyricsAdjustTime)
0[ms]
üEâVü[âNÉ▌ÆΦ(vbmp3_setSeekPlay)
0(Ä⌐ô«ì─É╢é╡é╚éó)
üEë╠Äîìsɵìsô╟ì₧É▌ÆΦ(vbmp3_setLyricsNextAdjustTime)
0[ms]
üEìéæ¼âVü[âNÉ▌ÆΦ(vbmp3_quickSeek)
1(Ägùp)
üEüùâ^âOô╟ì₧É▌ÆΦ(vbmp3_useAtMarkTag)
0(Åêù¥û│é╡)
üíè╓ÉöÄdùl
è╓Éöû╝ : vbmp3_init()
ï@ö\ : VBMP3.DLL é╠Åëè·ë╗
ê°Éö : é╚é╡
û▀éΦÆl : True = ɼî≈
False = Ä╕ös
Éαû╛ : âfâRü[âhâGâôâWâôé╚é╟é╠Åëè·ë╗é≡ìséóé▄é╖üB
âvâìâOâëâÇèJÄnÄ₧é╔òKé╕Ä└ìsé╡é─ë║é│éóüB
üyÄgùpùßüz
Call vbmp3_init
------------------------------------------------------
è╓Éöû╝ : vbmp3_free()
ï@ö\ : VBMP3.DLL Ägùpâüâéâèé╠èJò·
ê°Éö : é╚é╡
û▀éΦÆl : True = ɼî≈
False = Ä╕ös
Éαû╛ : VBMP3.DLL é┼Ägùpé╡é─éóéΘâüâéâèé╠èJò·é≡ìséóé▄é╖üB
âvâìâOâëâÇé≡ÅIù╣é╖éΘæOé╔òKé╕Ä└ìsé╡é─ë║é│éóüB
üyÄgùpùßüz
Call vbmp3_free
------------------------------------------------------
è╓Éöû╝ : vbmp3_open()
ï@ö\ : âtâ@âCâïé╠ô╟ì₧
ê°Éö : pszName = âtâ@âCâïû╝(âpâXé¬ê┘é╚éΘÅΩìçé═âpâXéαÄwÆΦé╡é─é¡é╛é│éó)
pInfo = inputInfo ì\æóæ╠ò╧Éö
û▀éΦÆl : True = ɼî≈
False = Ä╕ös
Éαû╛ : âtâ@âCâïé╠ô╟ì₧é≡ìséóé▄é╖üB
inputInfo ì\æóæ╠
Éαû╛ : MPEG Audioâtâ@âCâïé≡ô╟é▌ì₧é▌üAâ^âOÅεò±ôÖé≡ĵô╛é╡é▄é╖üB
üªWAVEâtâ@âCâïé┼é═üAbitrate é╔ bit/sample é╠ÆlüA
szTrackName, szTrackName é╔üuWAVE_FORMAT_PCMüvé¬
ôⁿù═é│éΩé▄é╖üB
üyÆΦï`üz
Public Type InputInfo
szTrackName As String * 128 'ï╚û╝
szArtistName As String * 128 '▒░├¿╜─û╝
channels As Long '┴¼▌╚┘Éö
bitRate As Long '╦▐»─┌░─(kbit/s)
samplingRate As Long '╗▌╠▀┘┌░─(Hz)
totalSec As Long 'ëëætÄ₧è╘(s)
End Type
üyÄgùpùßüz
Dim data As InputInfo
'âtâ@âCâïé╠ô╟ì₧
If vbmp3_open("C:\hoge.mp3", data) = False Then
MsgBox "Open Error"
Exit Sub
End If
------------------------------------------------------
è╓Éöû╝ : vbmp3_close()
ï@ö\ : âtâ@âCâïé≡ò┬é╢éΘ
ê°Éö : é╚é╡
û▀éΦÆl : True = ɼî≈
False = Ä╕ös
Éαû╛ : ô╟ì₧é±é╛âtâ@âCâïé≡ò┬é╢é▄é╖üB
ÿAæ▒ì─É╢é≡é╖éΘé╞é½é╚é╟üAvbmp3_open é╠æOé╔Ä└ìsé╡é─é¡é╛é│éóüB
üyÄgùpùßüz
Call vbmp3_close
------------------------------------------------------
è╓Éöû╝ : vbmp3_getState()
ï@ö\ : ì─É╢Å≤æ╘é╞ì─É╢Ä₧è╘é╠ĵô╛
ê°Éö : sec = ì─É╢Ä₧è╘ĵô╛ùp
û▀éΦÆl : 0 = ÆΓÄ~Æå
1 = ì─É╢Æå
2 = êΩÄ₧ÆΓÄ~Æå
Éαû╛ : ì─É╢Å≤æ╘é╞ì─É╢îoë▀Ä₧è╘é≡ĵô╛é╡é▄é╖üB
üyÄgùpùßüz
Dim state As Long
Dim sec As Long
state = vbmp3_getState(sec)
------------------------------------------------------
è╓Éöû╝ : vbmp3_play()
ï@ö\ : ô╟é▌ì₧é±é╛âtâ@âCâïé╠ì─É╢
ê°Éö : é╚é╡
û▀éΦÆl : True = ɼî≈
False = Ä╕ös
Éαû╛ : ô╟ì₧é±é╛âtâ@âCâïé≡ì─É╢é╡é▄é╖üB
üyÄgùpùßüz
Call vbmp3_play
------------------------------------------------------
è╓Éöû╝ : vbmp3_stop()
ï@ö\ : ì─É╢é╠ÆΓÄ~
ê°Éö : é╚é╡
û▀éΦÆl : True = ɼî≈
False = Ä╕ös
Éαû╛ : ì─É╢Æåé╠ï╚é≡ÆΓÄ~é╡é▄é╖üB
üyÄgùpùßüz
Call vbmp3_stop
------------------------------------------------------
è╓Éöû╝ : vbmp3_pause()
ï@ö\ : ì─É╢é╠êΩÄ₧ÆΓÄ~
ê°Éö : é╚é╡
û▀éΦÆl : True = ɼî≈
False = Ä╕ös
Éαû╛ : ì─É╢Æåé╠ï╚é≡êΩÄ₧ÆΓÄ~é╡é▄é╖üB
üyÄgùpùßüz
Call vbmp3_pause
------------------------------------------------------
è╓Éöû╝ : vbmp3_restart()
ï@ö\ : êΩÄ₧ÆΓÄ~Å≤æ╘é╠ë≡Å£
ê°Éö : é╚é╡
û▀éΦÆl : True = ɼî≈
False = Ä╕ös
Éαû╛ : êΩÄ₧ÆΓÄ~Æåé╠ï╚é≡ì─É╢ì─èJé╡é▄é╖üB
üyÄgùpùßüz
Call vbmp3_restart
------------------------------------------------------
è╓Éöû╝ : vbmp3_seek()
ï@ö\ : ëëætê╩Æué╠ê┌ô«
ê°Éö : sec = ì─É╢ê╩Æu(òb)
û▀éΦÆl : True = ɼî≈
False = Ä╕ös
Éαû╛ : ì─É╢ê╩Æué≡ê┌ô«é╡é▄é╖üB
üyÄgùpùßüz
Call vbmp3_seek(10)
------------------------------------------------------
è╓Éöû╝ : vbmp3_setVolume()
ï@ö\ : â{âèâàü[âÇé╠ò╧ìX
ê°Éö : lVol = ì╢æñé╠â{âèâàü[âÇ
rVol = ëEæñé╠â{âèâàü[âÇ
û▀éΦÆl : True = ɼî≈
False = Ä╕ös
Éαû╛ : ì╢ü^ëEé╠â{âèâàü[âÇé≡Æ▓É▀é╡é▄é╖üB
ë╣î╣é╔éµé┴é─é═ò╨ò√é╡é⌐î°é⌐é╚éóÅΩìçé¬éáéΦé▄é╖üB
üyÄgùpùßüz
Call vbmp3_setVolume(70, 70)
------------------------------------------------------
è╓Éöû╝ : vbmp3_getVersion()
ï@ö\ : VBMP3 é╠âoü[âWâçâôĵô╛
ê°Éö : é╚é╡
û▀éΦÆl : âoü[âWâçâôö╘ìå * 100 (1.00 é╚éτ 100)
Éαû╛ : VBMP3é╠âoü[âWâçâôé≡ĵô╛é╡é▄é╖üB
üyÄgùpùßüz
Dim VerNo As Long
VerNo = vbmp3_getVersion()
------------------------------------------------------
è╓Éöû╝ : vbmp3_getTagInfo()
ï@ö\ : MPEG Audio âtâ@âCâïé╠â^âOÅεò±Äµô╛
ê°Éö : pTagInfo = TAG_INFO ì\æóæ╠ò╧Éö
û▀éΦÆl : True = ɼî≈
False = Ä╕ös
Éαû╛ : MPEG Audio âtâ@âCâïé╠â^âOÅεò±é≡ĵô╛é╡é▄é╖üB
TAG_INFO ì\æóæ╠
Éαû╛ : MPEG Audio âtâ@âCâïé╠â^âOÅεò±é≡èiö[é╡é▄é╖üB
üyÆΦï`üz
Public Type TAG_INFO
szTrackName As String * 128 'ï╚û╝
szArtistName As String * 128 '▒░├¿╜─û╝
szAlbumName As String * 128 '▒┘╩▐╤û╝
szYear As String * 5 '╪╪░╜öNìå
szComment As String * 128 '║╥▌─
genre As Long '╝▐¼▌┘
szGenreName As String * 128 '╝▐¼▌┘û╝
End Type
üyÄgùpùßüz
Dim TagData As TAG_INFO
'â^âOÅεò±Äµô╛
If vbmp3_getTagInfo(TagData) = False Then Exit Sub
------------------------------------------------------
è╓Éöû╝ : vbmp3_getMpegInfo()
ï@ö\ : MPEG Audio âtâ@âCâïé╠MPEGâwâbâ_Åεò±Äµô╛
ê°Éö : pMpegTagInfo = MPEG_INFO ì\æóæ╠ò╧Éö
û▀éΦÆl : True = ɼî≈
False = Ä╕ös
Éαû╛ : MPEG Audio âtâ@âCâïé╠âwâbâ_Åεò±é≡ĵô╛é╡é▄é╖üB
üªMPEG2.5 é╠âoü[âWâçâôé═üu3üvé╞ĵô╛é│éΩé▄é╖
MPEG_INFO ì\æóæ╠
Éαû╛ : MPEG Audio âtâ@âCâïé╠MPEGâwâbâ_Åεò±é≡èiö[é╡é▄é╖üB
üyÆΦï`üz
Public Type MPEG_INFO
version As Long '╩▐░╝▐«▌
layer As Long '┌▓╘
crcDisable As Long '┤╫░ò█î∞
extension As Long '┤╕╜├▌╝«▌
mode As Long '┴¼▌╚┘╙░─▐
copyright As Long 'Æÿì∞îá
original As Long '╡╪╝▐┼┘
emphasis As Long '┤▌╠½╝╜
channels As Long '┴¼▌╚┘Éö
bitrate As Long '╦▐»─┌░─(kbit/s)
samplingRate As Long '╗▌╠▀┘┌░─(Hz)
fileSize As Long '╠º▓┘╗▓╜▐(Byte)
frames As Long '╠┌░╤Éö
totalSec As Long 'ëëætÄ₧è╘(s)
End Type
üyÄgùpùßüz
Dim MpegData As MPEG_INFO
'mpeg âtâ@âCâïÅεò±Äµô╛
If vbmp3_getMpegInfo(MpegData) = False Then Exit Sub
------------------------------------------------------
è╓Éöû╝ : vbmp3_setVbmp3Option()
ï@ö\ : VBMP3 é╠èeÉ▌ÆΦÆlÉ▌ÆΦ
ê°Éö : pVbmp3Option = VBMP3_OPTION ì\æóæ╠ò╧Éö
û▀éΦÆl : True = ɼî≈
False = Ä╕ös
Éαû╛ : ô╟é▌ì₧é▌âtâîü[âÇÉöé╚é╟é╠Ælé≡É▌ÆΦé╡é▄é╖üB
üªé▒é╠è╓Éöé═ÆΓÄ~Å≤æ╘é╠Ä₧é╠é▌Ä└ìsé┼é½é▄é╖üB
VBMP3_OPTION ì\æóæ╠
Éαû╛ : ô╟é▌ì₧é▌âtâîü[âÇÉöé╚é╟é╠Ælé≡èiö[é╡é▄é╖üB
inputBlock : ôⁿù═âtâîü[âÇÉö
òüÆ╩é═ò╧ìXé╡é╚é¡é─éαæσÅΣòvé┼é╖üB
outputBlock : Åoù═âtâîü[âÇÉö
é▒é╠Ælé≡ò╧ìXé╖éΘé▒é╞é┼òëë╫é¬ìééóé╞é½é╠
ë╣ö≥é╤é≡îyî╕é┼é½é▄é╖üB
É▌ÆΦÆlé═ôⁿù═âtâîü[âÇÉöê╚ë║é╔é╡é─ë║é│éóüB
inputSleep : ôⁿù═Æ╝îπé╠âXâèü[âvÄ₧è╘(â~âèòb)
Æ╖éóò√é¬ CPU òëë╫é≡îyî╕é┼é½é▄é╖é¬üAÆ╖é╖é¼éΘé╞
ë╣ö≥é╤é╠î┤ê÷é╞é╚éΦé▄é╖üB
1ü`50 â~âèòbê╩é¬ì┼ôKé╛é╞Ävéóé▄é╖üB
outputSleep : Åoù═Ä₧é╠âXâèü[âvÄ₧è╘(â~âèòb)
üªé╗éΩé╝éΩé╠É▌ÆΦÆlé╔éµé┴é─é═ë╣ö≥é╤é╚é╟é┼é▄é╞éαé╔
ì─É╢Åoùêé╚é¡é╚éΘé▒é╞é¬éáéΦé▄é╖üB
É▌ÆΦé╔é═Æìê╙é╡é─é¡é╛é│éóüB
üyÆΦï`üz
Public Type VBMP3_OPTION
inputBlock As Long 'ôⁿù═âtâîü[âÇÉö[Default = 30]
outputBlock As Long 'Åoù═âtâîü[âÇÉö[Default = 20]
inputSleep As Long 'ôⁿù═Æ╝îπé╠╜╪░╠▀Ä₧è╘(╨╪òb)[Default = 5]
outputSleep As Long 'Åoù═Æ╝îπé╠╜╪░╠▀Ä₧è╘(╨╪òb)[Default = 0]
End Type
üyÄgùpùßüz
Dim opt As VBMP3_OPTION
opt.inputBlock = 128
opt.inputSleep = 30
opt.outputSleep = 0
If vbmp3_setVbmp3Option(opt) = False Then
MsgBox "error"
End If
------------------------------------------------------
è╓Éöû╝ : vbmp3_getVbmp3Option()
ï@ö\ : VBMP3 é╠èeÉ▌ÆΦÆlĵô╛
ê°Éö : pVbmp3Option = VBMP3_OPTION ì\æóæ╠ò╧Éö
û▀éΦÆl : é╚é╡
Éαû╛ : ô╟é▌ì₧é▌âtâîü[âÇÉöé╚é╟é╠Ælé≡ĵô╛é╡é▄é╖üB
üyÄgùpùßüz
Dim opt As VBMP3_OPTION
Call vbmp3_getVbmp3Option(opt)
------------------------------------------------------
è╓Éöû╝ : vbmp3_setDecodeOption()
ï@ö\ : âfâRü[âhâGâôâWâôé╠èeÉ▌ÆΦÆlÉ▌ÆΦ
ê°Éö : pDecOption = DEC_OPTION ì\æóæ╠ò╧Éö
û▀éΦÆl : True = ɼî≈
False = Ä╕ös
Éαû╛ : ì─É╢âTâôâvâèâôâOâîü[âgé╚é╟é╠Ælé≡É▌ÆΦé╡é▄é╖üB
üªé▒é╠è╓Éöé═ÆΓÄ~Å≤æ╘é╠Ä₧é╠é▌Ä└ìsé┼é½é▄é╖üB
é▄é╜üAè╓ÉöÄ└ìsîπé═ vbmp3_open é≡ì─Ä└ìsé╡é─é¡é╛é│éóüB
ûóÄ└ìsé┼ì─É╢é≡ìsé┴é╜ÅΩìçé═üAÉ│Åφé╔ì─É╢é│éΩé▄é╣é±üB
üireduction = 1 é╔é╡é─üAé╗é╠é▄é▄ì─É╢Ä₧é═éQö{æ¼ëëætüj
é╡é⌐é╡üAö{æ¼ëëæté╚é╟é╔ùÿùpé╡é╜éóÅΩìçé═üAé╗é╠é▄é▄ì─É╢é╡é─éα
ûΓæΦé═éáéΦé▄é╣é±üB
DEC_OPTION ì\æóæ╠
Éαû╛ : ì─É╢âTâôâvâèâôâOâîü[âgé╚é╟é╠Ælé≡èiö[é╡é▄é╖üB
reduction : â_âEâôâTâôâvâèâôâO(0:1/1 1:1/2 2:1/4 [Default = 0])
âfü[â^é╠âTâôâvâèâôâOâîü[âgé≡ë║é░é─ô╟é▌ì₧é▌é▄é╖üB
convert : Åoù═â`âââôâlâï(0:âXâeâîâI 1:âéâmâëâï[Default = 0])
ô╟é▌ì₧é▐â`âââôâlâïÉöé≡É▌ÆΦé╡é▄é╖üB
âéâmâëâïé╠ÅΩìçô╟é▌ì₧é▐âfü[â^ù╩é¬éPü^éQé╞é╚éΦé▄é╖üB
freqLimit : Åoù═âTâôâvâèâôâOâîü[âg[Default = 24000]
Åoù═Ä₧é╠âTâôâvâèâôâOâîü[âgé≡É▌ÆΦé╡é▄é╖üB
üyÆΦï`üz
Public Type DEC_OPTION
reduction As Long 'â_âEâôâTâôâvâèâôâO 0:1/1 1:1/2 2:1/4 [Default = 0]
convert As Long 'Åoù═â`âââôâlâï 0:âXâeâîâI 1:âéâmâëâï[Default = 0]
freqLimit As Long 'Åoù═âîü[âg[Default = 24000]
End Type
üyÄgùpùßüz
Dim opt As DEC_OPTION
opt.reduction = 0
opt.convert = 0
opt.freqLimit = 24000
If vbmp3_setDecodeOption(opt) = False Then
MsgBox "error"
End If
------------------------------------------------------
è╓Éöû╝ : vbmp3_getDecodeOption()
ï@ö\ : âfâRü[âhâGâôâWâôé╠èeÉ▌ÆΦÆlĵô╛
ê°Éö : pDecOption = DEC_OPTION ì\æóæ╠ò╧Éö
û▀éΦÆl : é╚é╡
Éαû╛ : ì─É╢âTâôâvâèâôâOâîü[âgé╚é╟é╠Ælé≡ĵô╛é╡é▄é╖üB
üyÄgùpùßüz
Dim opt As DEC_OPTION
Call vbmp3_getDecodeOption(opt)
------------------------------------------------------
è╓Éöû╝ : vbmp3_getGenre()
ï@ö\ : âWâââôâïö╘ìåéµéΦâWâââôâïû╝ĵô╛
ê°Éö : pTagInfo = TAG_INFO ì\æóæ╠ò╧Éö
û▀éΦÆl : True = ɼî≈
False = Ä╕ös
Éαû╛ : âWâââôâïö╘ìåéµéΦâWâââôâïû╝é≡ĵô╛é╡é▄é╖üB
üyÄgùpùßüz
Dim TagData As TAG_INFO
TagData.genre = 10
Call vbmp3_getGenre(TagData)
------------------------------------------------------
è╓Éöû╝ : vbmp3_setTagInfo()
ï@ö\ : MPEG Audio âtâ@âCâïé╠â^âOÅεò±Åæé½ì₧é▌
ê°Éö : pszName = âtâ@âCâïû╝(âpâXé¬ê┘é╚éΘÅΩìçé═âpâXéαÄwÆΦé╡é─é¡é╛é│éó)
pTagInfo = TAG_INFO ì\æóæ╠ò╧Éö
tagSet = 1 : DLL ôαòöé╠ TAG Åεò±Åæé½è╖éª(ì─É╢Æåâtâ@âCâïÄ₧ÄwÆΦ)
0 : üV ò╧ìXû│é╡
Å╚ù¬ë┬ö\,âfâtâHâïâg 0
tagAdd = 1 : ID3Tag v1 é¬æ╢ì▌é╡é╚éóé╞é½Æ╟ë┴é╖éΘ
0 : üV Æ╟ë┴é╡é╚éó
Å╚ù¬ë┬ö\,âfâtâHâïâg 0
û▀éΦÆl : True = ɼî≈
False = Ä╕ös
Éαû╛ : MPEG Audio âtâ@âCâïé╔â^âOÅεò±é≡Åæé½ì₧é▌é▄é╖üB
üyÄgùpùßüz
Dim TagData As TAG_INFO
TagData.szTrackName = "TrackName" '30ò╢ÄÜû┌ê╚ì~É╪éΦÄ╠é─
TagData.szArtistName = "ArtistName" '30ò╢ÄÜû┌ê╚ì~É╪éΦÄ╠é─
TagData.szAlbumName = "AlbumName" '30ò╢ÄÜû┌ê╚ì~É╪éΦÄ╠é─
TagData.szYear = "199909" '4ò╢ÄÜû┌ê╚ì~É╪éΦÄ╠é─
TagData.szComment = "Comment" '30ò╢ÄÜû┌ê╚ì~É╪éΦÄ╠é─
TagData.genre = 50 '0ü`255
'ì─É╢Æåâtâ@âCâïé╠ò╧ìX
Call vbmp3_setTagInfo("C:\hoge.mp3", TagData, 1, 1)
------------------------------------------------------
è╓Éöû╝ : vbmp3_getFileInfo()
ï@ö\ : MPEG Audio âtâ@âCâïé╠âtâ@âCâïÅεò±Äµô╛
ê°Éö : pszName = âtâ@âCâïû╝(âpâXé¬ê┘é╚éΘÅΩìçé═âpâXéαÄwÆΦé╡é─é¡é╛é│éó)
pTagInfo = TAG_INFO ì\æóæ╠ò╧Éö
pMpegInfo = MPEG_INFO ì\æóæ╠ò╧Éö
û▀éΦÆl : True = ɼî≈
False = Ä╕ös
Éαû╛ : MPEG Audio âtâ@âCâïé╠âtâ@âCâïÅεò±Äµô╛ĵô╛é╡é▄é╖üB
üªMPEG2.5 é╠âoü[âWâçâôé═üu3üvé╞ĵô╛é│éΩé▄é╖
üyÄgùpùßüz
Dim TagData As TAG_INFO
Dim MpegData As MPEG_INFO
'âtâ@âCâïÅεò±Äµô╛
Call vbmp3_getFileInfo("C:\hoge.mp3", TagData, MpegData)
------------------------------------------------------
è╓Éöû╝ : vbmp3_getFileTagInfo()
ï@ö\ : MPEG Audio âtâ@âCâïé╠â^âOÅεò±Äµô╛
ê°Éö : pszName = âtâ@âCâïû╝(âpâXé¬ê┘é╚éΘÅΩìçé═âpâXéαÄwÆΦé╡é─é¡é╛é│éó)
pTagInfo = TAG_INFO ì\æóæ╠ò╧Éö
û▀éΦÆl : True = ɼî≈
False = Ä╕ös
Éαû╛ : MPEG Audio âtâ@âCâïé╠â^âOÅεò±Äµô╛ĵô╛é╡é▄é╖üB
üyÄgùpùßüz
Dim TagData As TAG_INFO
'â^âOÅεò±Äµô╛
Call vbmp3_getFileTagInfo("C:\hoge.mp3", TagData)
------------------------------------------------------
è╓Éöû╝ : vbmp3_getListInfo()
ï@ö\ : RIFF î`Ä« MPEG Audio âtâ@âCâïé╠LISTâ`âââôâNÅεò±Äµô╛
ê°Éö : pListInfo = LIST_INFO ì\æóæ╠ò╧Éö
û▀éΦÆl : True = ɼî≈
False = Ä╕ös
Éαû╛ : RIFF î`Ä« MPEG Audio âtâ@âCâïé╠LISTâ`âââôâNÅεò±Äµô╛
LIST_INFO ì\æóæ╠
Éαû╛ : RIFF î`Ä« MPEG Audio âtâ@âCâïé╠LISTâ`âââôâNÅεò±é≡èiö[é╡é▄é╖üB
üyÆΦï`üz
Public Type LIST_INFO
INAM As String * 128 'ï╚û╝
IART As String * 128 'âAü[âeâBâXâgû╝
IPRD As String * 128 'É╗òiû╝
ICMT As String * 128 'âRâüâôâgò╢ÄÜù±
ICRD As String * 128 'âèâèü[âXöNìå
IGNR As String * 128 'âWâââôâïû╝
ICOP As String * 128 'Æÿì∞îá
IENG As String * 128 'âGâôâWâjâA
ISRC As String * 128 'â\ü[âX
ISFT As String * 128 'â\âtâgâEâFâA
IKEY As String * 128 'âLü[âÅü[âh
ITCH As String * 128 'ïZÅpÄ╥
ILYC As String * 128 'ë╠Äî
ICMS As String * 128 'âRâ~âbâVâçâô
End Type
üyÄgùpùßüz
Dim listData As LIST_INFO
Call vbmp3_getListInfo(listData)
------------------------------------------------------
è╓Éöû╝ : vbmp3_getFileInfo2()
ï@ö\ : MPEG Audio âtâ@âCâïÅεò±Äµô╛
ê°Éö : pszName = âtâ@âCâïû╝(âpâXé¬ê┘é╚éΘÅΩìçé═âpâXéαÄwÆΦé╡é─é¡é╛é│éó)
pTagInfo = TAG_INFO ì\æóæ╠ò╧Éö
pMpegInfo = MPEG_INFO ì\æóæ╠ò╧Éö
pListInfo = LIST_INFO ì\æóæ╠ò╧Éö
û▀éΦÆl : True = ɼî≈
False = Ä╕ös
Éαû╛ : MPEG Audio âtâ@âCâïÅεò±é≡ĵô╛é╡é▄é╖üB
üªMPEG2.5 é╠âoü[âWâçâôé═üu3üvé╞ĵô╛é│éΩé▄é╖
üyÄgùpùßüz
Dim TagData As TAG_INFO
Dim MpegData As MPEG_INFO
Dim listData As LIST_INFO
'â^âOÅεò±Äµô╛
Call vbmp3_getFileInfo2("C:\hoge.mp3", TagData, MpegData, listData)
------------------------------------------------------
è╓Éöû╝ : vbmp3_changeRmp()
ï@ö\ : òWÅÇMP3âtâ@âCâïé≡ RIFF MP3î`Ä«âtâ@âCâïé╔ò╧è╖
ê°Éö : pszName = âtâ@âCâïû╝(âpâXé¬ê┘é╚éΘÅΩìçé═âpâXéαÄwÆΦé╡é─é¡é╛é│éó)
û▀éΦÆl : True = ɼî≈
False = Ä╕ös
Éαû╛ : òWÅÇMP3âtâ@âCâïé≡ RIFF MP3î`Ä«âtâ@âCâïé╔ò╧è╖é╡é▄é╖üB
é▒é╠Ä₧üASIâtâBü[âïâhé¬Ä⌐ô«òtë┴é│éΩé▄é╖üB
üyÄgùpùßüz
'MP3 -> RMP
Call vbmp3_changeRmp("C:\hoge.mp3")
------------------------------------------------------
è╓Éöû╝ : vbmp3_changeWav()
ï@ö\ : òWÅÇMP3âtâ@âCâïé≡ RIFF WAVEî`Ä«âtâ@âCâïé╔ò╧è╖
ê°Éö : pszName = âtâ@âCâïû╝(âpâXé¬ê┘é╚éΘÅΩìçé═âpâXéαÄwÆΦé╡é─é¡é╛é│éó)
û▀éΦÆl : True = ɼî≈
False = Ä╕ös
Éαû╛ : òWÅÇMP3âtâ@âCâïé≡ RIFF WAVEî`Ä«âtâ@âCâïé╔ò╧è╖é╡é▄é╖üB
é▒é╠Ä₧üASIâtâBü[âïâhé¬Ä⌐ô«òtë┴é│éΩé▄é╖üB
üyÄgùpùßüz
'MP3 -> WAV
Call vbmp3_changeWav("C:\hoge.mp3")
------------------------------------------------------
è╓Éöû╝ : vbmp3_changeMp3()
ï@ö\ : RIFFî`Ä«âtâ@âCâïé≡òWÅÇMP3âtâ@âCâïé╔ò╧è╖
ê°Éö : pszName = âtâ@âCâïû╝(âpâXé¬ê┘é╚éΘÅΩìçé═âpâXéαÄwÆΦé╡é─é¡é╛é│éó)
û▀éΦÆl : True = ɼî≈
False = Ä╕ös
Éαû╛ : RIFFî`Ä«âtâ@âCâïé≡òWÅÇMP3âtâ@âCâïé╔ò╧è╖é╡é▄é╖üB
é▒é╠Ä₧üASIâtâBü[âïâhôαùeé═ìφÅ£é│éΩé▄é╖üB
üyÄgùpùßüz
'RIFFâtâ@âCâï -> MP3
Call vbmp3_changeMp3("C:\hoge.rmp")
------------------------------------------------------
è╓Éöû╝ : vbmp3_cutMacBinary()
ï@ö\ : âtâ@âCâïôαé╠â}âbâNâwâbâ_Å£ïÄ
ê°Éö : pszName = âtâ@âCâïû╝(âpâXé¬ê┘é╚éΘÅΩìçé═âpâXéαÄwÆΦé╡é─é¡é╛é│éó)
û▀éΦÆl : True = ɼî≈
False = Ä╕ös
Éαû╛ : âtâ@âCâïôαé╠â}âbâNâwâbâ_é≡Å£ïÄé╡é▄é╖üB
üyÄgùpùßüz
'â}âbâNâwâbâ_Å£ïÄ
Call vbmp3_cutMacBinary("C:\hoge.mp3")
------------------------------------------------------
è╓Éöû╝ : vbmp3_setListInfo()
ï@ö\ : SIâtâBü[âïâhôoÿ^üEìXÉV
ê°Éö : pszName = âtâ@âCâïû╝(âpâXé¬ê┘é╚éΘÅΩìçé═âpâXéαÄwÆΦé╡é─é¡é╛é│éó)
û▀éΦÆl : True = ɼî≈
False = Ä╕ös
Éαû╛ : SIâtâBü[âïâhé╠ôoÿ^üEìXÉVé≡é╡é▄é╖üB
üyÄgùpùßüz
Dim ListData As LIST_INFO
ListData.INAM = "â^âCâgâï"
ListData.IART = "âAü[âeâBâXâg"
'SIâtâBü[âïâhò╧ìX
Call vbmp3_setListInfo("C:\hoge.mp3", ListData)
------------------------------------------------------
è╓Éöû╝ : vbmp3_getFileType()
ï@ö\ : âtâ@âCâïé╠Äφù▐ĵô╛
ê°Éö : pszName = âtâ@âCâïû╝(âpâXé¬ê┘é╚éΘÅΩìçé═âpâXéαÄwÆΦé╡é─é¡é╛é│éó)
û▀éΦÆl : ê╚ë║é╠ôαùeé╠ìçîvÆl
0 òWÅÇMP3âtâ@âCâï
1 Riff WAVEî`Ä«
2 Riff MP3î`Ä«
4 ID3 v2 Tag ùLéΦ
8 Macâwâbâ_ùLéΦ
16 ID3 v1 Tag ùLéΦ
32 LYRICS3 v2.00 ùLéΦ
64 òWÅÇWAVEâtâ@âCâï(âèâAâïéoébél)
Éαû╛ : RMP é╚é╟é╠âtâ@âCâïî`Ä«éΓâ^âOé╠ùLû│é╚é╟é≡ĵô╛é╡é▄é╖üB
üyÄgùpùßüz
Dim fType As Long
'âtâ@âCâïâ^âCâvĵô╛
fType = vbmp3_getFileType("C:\hoge.mp3")
------------------------------------------------------
è╓Éöû╝ : vbmp3_callback()
ï@ö\ : âRü[âïâoâbâNè╓ÉöÉ▌ÆΦ
ê°Éö : âRü[âïâoâbâNè╓Éöé╠âAâhâîâX(AddressOf ÄwÆΦ)
û▀éΦÆl : True = ɼî≈
False = Ä╕ös
Éαû╛ : âRü[âïâoâbâNè╓Éöé≡É▌ÆΦé╡é▄é╖üB
AddressOf è╓Éöé≡Ägùpé╖éΘé╜é▀ VB5 ê╚ì~é╠é▌Ägùpë┬ö\é┼é╖üB
üªé▒é╠è╓Éöé═ÆΓÄ~Å≤æ╘é╠Ä₧é╠é▌Ä└ìsé┼é½é▄é╖üB
üyâRü[âïâoâbâNè╓Éöüz
è╓Éöû╝ : û╝Å╠öCê╙é╠SubâvâìâVü[âWââ
ï@ö\ : VBMP3.DLL éµéΦì─É╢Ä₧è╘üAâXâeü[â^âXé╚é╟é≡Ä≤ÉMé╖éΘ
ê°Éö : id MSG_EROOR = âGâëü[(0)
MSG_STOPING = ÆΓÄ~(1)
MSG_PLAYING = ì─É╢Æå(2)
MSG_PAUSING = êΩÄ₧ÆΓÄ~(3)
MSG_PLAYDONE = ì─É╢ÅIù╣(4)
param ëëætÄ₧è╘(id = MSG_PLAYING)
û▀éΦÆl : û│é╡
Éαû╛ : Ä≤ÉMùpé╠âRü[âïâoâbâNè╓Éöé┼é╖üB
é⌐é╚éτé╕üAòWÅÇâéâWâàü[âïôαé╔ì∞ɼé╡é─é¡é╛é│éóüB
é▄é╜üAâRü[âïâoâbâNè╓Éöôαé┼é═ MagBox é╚é╟é╠Åêù¥é≡
Ä~é▀éΘè╓Éöé≡Ägùpé┼é½é▄é╣é±üB
üyÄgùpùßüz
'âRü[âïâoâbâNè╓ÉöÄwÆΦ
Call vbmp3_callback(AddressOf vbmp3_Proc)
üyâRü[âïâoâbâNè╓Éöùßüz
Public Sub vbmp3_Proc(ByVal id As Long, ByVal param As Long)
Select Case id
Case MSG_ERROR
'âGâëü[Ä₧é╠Åêù¥
Case MSG_PLAYING
'ëëætÄ₧è╘ò╧ìXÄ₧é╠Åêù¥
Case MSG_PAUSING
'êΩÄ₧ÆΓÄ~Ä₧é╠Åêù¥
Case MSG_STOPING
'ÆΓÄ~Ä₧é╠Åêù¥
Case MSG_PLAYDONE
'ì─É╢ÅIù╣Ä₧é╠Åêù¥
End Select
End Sub
------------------------------------------------------
è╓Éöû╝ : vbmp3_decodeWave()
ï@ö\ : MPEG Audio âtâ@âCâïé≡WAVEâtâ@âCâïé╔âfâRü[âh
ê°Éö : pszWaveName = Åoù═WAVEâtâ@âCâïû╝
(âpâXé¬ê┘é╚éΘÅΩìçé═âpâXéαÄwÆΦé╡é─é¡é╛é│éó)
û▀éΦÆl : True = ɼî≈
False = Ä╕ös
Éαû╛ : âIü[âvâôé╡é─éóéΘ MPEG Audio âtâ@âCâïé≡WAVEâtâ@âCâïé╔
âfâRü[âhé╡é▄é╖üB
üªé▒é╠è╓Éöé═ÆΓÄ~Å≤æ╘é╠Ä₧é╠é▌Ä└ìsé┼é½é▄é╖üB
üyÄgùpùßüz
'WAVEâtâ@âCâïÅoù═
Call vbmp3_decodeWave("C:\hoge.wav")
------------------------------------------------------
è╓Éöû╝ : vbmp3_setLyricsFile()
ï@ö\ : ô╟é▌ì₧é▄é╣éΘë╠Äîâtâ@âCâïé╠âZâbâg
ê°Éö : pszLyricsName = ë╠Äîâtâ@âCâïû╝
âZâbâgë≡Å£é╡é╜éóÅΩìçé═ "" é≡ôⁿù═é╡é─ë║é│éóüB
û▀éΦÆl : True = ɼî≈
False = Ä╕ös
Éαû╛ : ì─É╢Ä₧é╔ô╟é▌ì₧é▄é╣éΘë╠Äîâtâ@âCâïé≡âZâbâgé╡é▄é╖
üyÄgùpùßüz
'ë╠Äîâtâ@âCâïâZâbâg
Call vbmp3_setLyricsFile("C:\hoge.txt")
------------------------------------------------------
è╓Éöû╝ : vbmp3_getLyrics()
ï@ö\ : ë╠Äîâtâ@âCâïé⌐éτë╠Äîé≡ĵô╛
ê°Éö : pLyricsInfo = LYRICS_INFO ì\æóæ╠ò╧Éö
û▀éΦÆl : True = ɼî≈
False = Ä╕ös
Éαû╛ : ì─É╢Æåé╠âtâ@âCâïé╔æ╬ë₧é╡é╜ë╠Äîé≡ĵô╛é╡é▄é╖
LYRICS_INFO ì\æóæ╠
Éαû╛ : ë╠Äîâtâ@âCâïé╠Åεò±é≡èiö[é╡é▄é╖üB
üyÆΦï`üz
Public Type LYRICS_INFO
sec As Long 'ë╠Äîâtâ@âCâïé╠òbÉö
LyricsNext2 As String * 128 'éQé┬ɵé╠ë╠Äî
LyricsNext1 As String * 128 'éPé┬ɵé╠ë╠Äî
LyricsCurrent As String * 128 'ì─É╢Æåé╠ë╠Äî
LyricsPrev1 As String * 128 'éPé┬æOé╠ë╠Äî
LyricsPrev2 As String * 128 'éQé┬æOé╠ë╠Äî
End Type
üyÄgùpùßüz
Dim lyricsInfo As LYRICS_INFO
'ë╠Äîĵô╛
Call vbmp3_getLyrics(lyricsInfo)
------------------------------------------------------
è╓Éöû╝ : vbmp3_getVolume()
ï@ö\ : î╗ì▌é╠ë╣ù╩ĵô╛
ê°Éö : lVol = ì╢ë╣ù╩
rVol = ëEë╣ù╩
û▀éΦÆl : True = ɼî≈
False = Ä╕ös
Éαû╛ : î╗ì▌é╠ë╣ù╩ĵô╛é╡é▄é╖üB
ÆΓÄ~Ä₧é╠é▌ĵô╛é┼é½é▄é╖üB
üyÄgùpùßüz
Dim lVol As Long
Dim rVol As Long
'ë╣ù╩ĵô╛
Call vbmp3_getVolume(lVol, rVol)
------------------------------------------------------
è╓Éöû╝ : vbmp3_getSpectrum()
ï@ö\ : âAâiâëâCâYîïë╩ĵô╛
ê°Éö : pSpecL(255) = ì╢â`âââôâlâïé╠dBòΓÉ│Æl(0ü`120)
pSpecR(255) = ëEâ`âââôâlâïé╠dBòΓÉ│Æl(0ü`120)
û▀éΦÆl : True = ɼî≈
False = Ä╕ös
Éαû╛ : âAâiâëâCâYîïë╩é≡ĵô╛é╡é▄é╖üB
üyÄgùpùßüz
Dim pSpecL(255) As Long
Dim pSpecR(255) As Long
'âAâiâëâCâYîïë╩ĵô╛
Call vbmp3_getSpectrum(pSpecL(0), pSpecR(0))
------------------------------------------------------
è╓Éöû╝ : vbmp3_getPlayFrames()
ï@ö\ : ì─É╢âtâîü[âÇé╠ĵô╛
ê°Éö : û│é╡
û▀éΦÆl : âtâîü[âÇÉö
Éαû╛ : ì─É╢Æåé╠âtâîü[âÇé≡ĵô╛é╡é▄é╖üB
üyÄgùpùßüz
Dim frames As Long
'âtâîü[âÇÉöĵô╛
frames = vbmp3_getPlayFrames()
------------------------------------------------------
è╓Éöû╝ : vbmp3_setPlayFrames()
ï@ö\ : ÄwÆΦâtâîü[âÇé╓ì─É╢ê╩Æuê┌ô«
ê°Éö : frames = âtâîü[âÇÉö
û▀éΦÆl : True = ɼî≈
False = Ä╕ös
Éαû╛ : ÄwÆΦé╡é╜âtâîü[âÇé╔ì─É╢ê╩Æué≡ò╧ìXé╡é▄é╖üB
üyÄgùpùßüz
'âtâîü[âÇê┌ô«
Call vbmp3_setPlayFrames(5000)
------------------------------------------------------
è╓Éöû╝ : vbmp3_getPlaySamples()
ï@ö\ : ì─É╢âTâôâvâïÉöé╠ĵô╛
ê°Éö : û│é╡
û▀éΦÆl : âTâôâvâïÉö
Éαû╛ : ì─É╢Æåé╠ì─É╢âTâôâvâïÉöé≡ĵô╛é╡é▄é╖üB
üyÄgùpùßüz
Dim frames As Long
'âTâôâvâïÉöĵô╛
frames = vbmp3_getPlaySamples()
------------------------------------------------------
è╓Éöû╝ : vbmp3_getTotalSamples()
ï@ö\ : æSâTâôâvâïÉöé╠ĵô╛
ê°Éö : û│é╡
û▀éΦÆl : âTâôâvâïÉö
Éαû╛ : âIü[âvâôÆåâtâ@âCâïé╠æSâTâôâvâïÉöé≡ĵô╛é╡é▄é╖üB
üyÄgùpùßüz
Dim frames As Long
'æSâTâôâvâïÉöĵô╛
frames = vbmp3_getTotalSamples()
------------------------------------------------------
è╓Éöû╝ : vbmp3_setPlaySamples()
ï@ö\ : ÄwÆΦì─É╢âTâôâvâïé╓ì─É╢ê╩Æuê┌ô«
ê°Éö : samples = âTâôâvâïÉö
û▀éΦÆl : True = ɼî≈
False = Ä╕ös
Éαû╛ : ÄwÆΦé╡é╜âTâôâvâïé╔ì─É╢ê╩Æué≡ò╧ìXé╡é▄é╖üB
üyÄgùpùßüz
'âTâôâvâïê┌ô«
Call vbmp3_setPlaySamples(5000)
------------------------------------------------------
è╓Éöû╝ : vbmp3_getWave()
ï@ö\ : WAVEɼò¬Äµô╛
ê°Éö : pWaveL(255) = ì╢â`âââôâlâïé╠WAVEɼò¬(-100ü`100)
pWaveR(255) = ëEâ`âââôâlâïé╠WAVEɼò¬(-100ü`100)
û▀éΦÆl : True = ɼî≈
False = Ä╕ös
Éαû╛ : ì─É╢Æåé╠ï╚é╠WAVEɼò¬é≡ĵô╛é╡é▄é╖üB
üyÄgùpùßüz
Dim pWaveL(255) As Long
Dim pWaveR(255) As Long
'WAVEɼò¬Äµô╛
Call vbmp3_getWave(pWaveL(0), pWaveR(0))
------------------------------------------------------
è╓Éöû╝ : vbmp3_setEqualizer()
ï@ö\ : âOâëâtâBâbâNâCâRâëâCâUÅêù¥
ê°Éö : pTavle(9) = èeÄⁿögÉöæ╤é╠âfâVâxâïÄwÆΦ(-120[-12dB]ü`120[12dB])
ByVal 0& é≡ÄwÆΦé╖éΘé╞âOâëâCâRï@ö\é¬û│î°é╔é╚éΦé▄é╖
û▀éΦÆl : True = ɼî≈
False = Ä╕ös
Éαû╛ : ë╣é╠ɼò¬é≡ò╧ìXé╡é▄é╖üB
ù╫é╠ÄⁿögÉöé╞ï╔Æ[é╔ì╖é¬éáéΘé╞ë╣Ä┐é¬ê½é¡é╚éΦé▄é╖üB
üªâfâRü[âhâIâvâVâçâôé≡ò╧ìXé╡é─éóéΘé╞é½é═û│î°é┼é╖üB
òëë╫é¬ìééóÅΩìçé═ê°Éöé╔ ByVal 0& é≡ÄwÆΦé╖éΘé▒é╞é┼û│î°ë╗é┼é½é▄é╖üB
üyÄgùpùßüz
Dim pTable(9) As Long
pTable(0) = -60 '60Hz
pTable(1) = -40 '170Hz
pTable(2) = -20 '310Hz
pTable(3) = -10 '600Hz
pTable(4) = -5 '1KHz
pTable(5) = 5 '3KHz
pTable(6) = 10 '6KHz
pTable(7) = 20 '12KHz
pTable(8) = 40 '14KHz
pTable(9) = 60 '16KHz
'âOâëâtâBâbâNâCâRâëâCâUÅêù¥
Call vbmp3_setEqualizer(pTable(0))
------------------------------------------------------
è╓Éöû╝ : vbmp3_getWinampPlayMs()
ï@ö\ : Winampì─É╢Ä₧è╘ĵô╛
ê°Éö : û│é╡
û▀éΦÆl : â~âèòb
Éαû╛ : Winampé┼é╠ì─É╢Ä₧è╘é≡ĵô╛é╡é▄é╖üB
üªÄµô╛Ä₧è╘é═éáé¡é▄é┼ÉäÆΦÆlé┼é╖üB
üyÄgùpùßüz
Dim waPlayMs As Long
'Winampì─É╢Ä₧è╘ĵô╛
waPlayMs = vbmp3_getWinampPlayMs()
------------------------------------------------------
è╓Éöû╝ : vbmp3_getWinampTotalSec()
ï@ö\ : WinampæìëëætÄ₧è╘ĵô╛
ê°Éö : û│é╡
û▀éΦÆl : òb
Éαû╛ : Winampé┼é╠æìëëætÄ₧è╘é≡ĵô╛é╡é▄é╖üB
üªÄµô╛Ä₧è╘é═éáé¡é▄é┼ÉäÆΦÆlé┼é╖üB
üyÄgùpùßüz
Dim waTotalSec As Long
'WinampæìëëætÄ₧è╘ĵô╛
waTotalSec = vbmp3_getWinampTotalSec()
------------------------------------------------------
è╓Éöû╝ : vbmp3_getPlayBitRate()
ï@ö\ : ì─É╢Ä₧é╠ârâbâgâîü[âgĵô╛
ê°Éö : û│é╡
û▀éΦÆl : ârâbâgâîü[âg(kbit/s)
Éαû╛ : ì─É╢Æåâfü[â^é╠ârâbâgâîü[âgé≡ĵô╛é╡é▄é╖üB
üyÄgùpùßüz
Dim bitRate As Long
'ì─É╢Ä₧é╠ârâbâgâîü[âgĵô╛
bitRate = vbmp3_getPlayBitRate()
------------------------------------------------------
è╓Éöû╝ : vbmp3_encodeOpen()
ï@ö\ : âGâôâRü[âhæ╬Å█âtâ@âCâïé≡èJé¡
ê°Éö : pszWaveName = âGâôâRü[âhæ╬Å█âtâ@âCâïû╝
(âpâXé¬ê┘é╚éΘÅΩìçé═âpâXéαÄwÆΦé╡é─é¡é╛é│éó)
pWaveForm = WAVE_FORMì\æóæ╠
û▀éΦÆl : True = ɼî≈
False = Ä╕ös
Éαû╛ : âGâôâRü[âhæ╬Å█é╞é╚éΘWAVEâtâ@âCâïé≡èJé½Åεò±é≡ĵô╛é╡é▄é╖üB
WAVE_FORM ì\æóæ╠
Éαû╛ : WAVEâtâ@âCâïé╠Åεò±é≡èiö[é╡é▄é╖üB
üyÆΦï`üz
Public Type WAVE_FORM
channels As Long 'â`âââôâlâïÉö
bitsPerSample As Long 'éPâTâôâvâïéáé╜éΦé╠ârâbâgÉö(8 or 16)
samplingRate As Long 'âTâôâvâèâôâOâîü[âg(44100 ôÖ)
dataSize As Long 'âfü[â^âTâCâY
End Type
üyÄgùpùßüz
Dim pWaveForm As WAVE_FORM
'WAVEâtâ@âCâïâIü[âvâô
Call vbmp3_encodeOpen("hoge.wav", pWaveForm)
------------------------------------------------------
è╓Éöû╝ : vbmp3_encodeStart()
ï@ö\ : âGâôâRü[âhèJÄn
ê°Éö : pszMp3Name = Åoù═âtâ@âCâïû╝
û▀éΦÆl : True = ɼî≈
False = Ä╕ös
Éαû╛ : Åoù═âtâ@âCâïû╝é≡ÄwÆΦé╡é─âGâôâRü[âhé≡èJÄné╡é▄é╖üB
éáéτé⌐é╢é▀üAvbmp3_encodeOpen é┼âtâ@âCâïé≡âIü[âvâôé╡é─é¿é¡
òKùvé¬éáéΦé▄é╖üB
üªâGâôâRü[âhé╔é═ăé╠ CODEC é¬òKùvé┼é╖üB
üuFraunhofer IIS MPEG Layer-3 Codec (professional)üv
üyÄgùpùßüz
'âGâôâRü[âhèJÄn
Call vbmp3_encodeStart("hoge.mp3")
------------------------------------------------------
è╓Éöû╝ : vbmp3_encodeStop()
ï@ö\ : âGâôâRü[âhÆåÄ~
ê°Éö : é╚é╡
û▀éΦÆl : True = ɼî≈
False = Ä╕ös
Éαû╛ : âGâôâRü[âhé≡ÆåÆfé╡é▄é╖üB
üyÄgùpùßüz
'âGâôâRü[âhÆåÄ~
Call vbmp3_encodeStop()
------------------------------------------------------
è╓Éöû╝ : vbmp3_getEncodeState()
ï@ö\ : âGâôâRü[âhÅ≤æ╘ĵô╛
ê°Éö : readSize = WAVEâtâ@âCâïé╠ô╟ì₧âTâCâY
encodeSize = MP3âtâ@âCâïé╠Åoù═âTâCâY
û▀éΦÆl : 0 = ÆΓÄ~(âGâôâRü[âhÅIù╣)
1 = âGâôâRü[âhÆå
Éαû╛ : âGâôâRü[âhÄ₧é╠âXâeü[â^âXĵô╛
üyÄgùpùßüz
Dim encState As Long
Dim readSize As Long
Dim encodeSize As Long
'âGâôâRü[âhÅ≤æ╘ĵô╛
encState = vbmp3_getEncodeState(readSize, encodeSize)
------------------------------------------------------
è╓Éöû╝ : vbmp3_setPitch()
ï@ö\ : âsâbâ`ò╧ìX
ê°Éö : pitch = âsâbâ`(%) (20ê╚Åπ)
û▀éΦÆl : True = ɼî≈
False = Ä╕ös
Éαû╛ : ì─É╢âsâbâ`é≡ò╧ìXé╡é▄é╖üBì─É╢Æåéαò╧ìXë┬ö\é┼é╖üB
üªâsâbâ`é≡Åπé░é╖é¼éΘé╞É│Åφé╔ì─É╢é┼é½é╚é¡é╚éΦé▄é╖é╠é┼
Æìê╙é╡é─ë║é│éóüB
üyÄgùpùßüz
'âsâbâ`ò╧ìX
Call vbmp3_setPitch(200)
------------------------------------------------------
è╓Éöû╝ : vbmp3_getPitch()
ï@ö\ : âsâbâ`é╠É▌ÆΦÆlĵô╛
ê°Éö : é╚é╡
û▀éΦÆl : âsâbâ`(%)
Éαû╛ : É▌ÆΦé│éΩé─éóéΘâsâbâ`(%)é≡ĵô╛é╡é▄é╖
üyÄgùpùßüz
Dim pitch As Long
'âsâbâ`é╠É▌ÆΦÆlĵô╛
pitch = vbmp3_getPitch()
------------------------------------------------------
è╓Éöû╝ : vbmp3_reload()
ï@ö\ : ì─É╢âfü[â^ì─ô╟ì₧è╓Éö
ê°Éö : é╚é╡
û▀éΦÆl : True = ɼî≈
False = Ä╕ös
Éαû╛ : ì─É╢Å≤æ╘é≡ò█Ä¥é╡é╜Å≤æ╘é┼âfü[â^é≡ì─ô╟ì₧é╡é▄é╖üB
âOâëâtâBâbâNüEâCâRâëâCâUôÖé╠É▌ÆΦé≡
æªì└é╔ö╜ëfé│é╣é╜éóÅΩìçé╔é▓ùÿùpë║é│éóüB
üªè╓ÉöÄ└ìsÄ₧é╔êΩÅuë╣é¬ôrÉ╪éΩé▄é╖
üyÄgùpùßüz
'ì─É╢âfü[â^ì─ô╟ì₧
Call vbmp3_reload()
------------------------------------------------------
è╓Éöû╝ : vbmp3_fadeOut()
ï@ö\ : âtâFü[âhâAâEâg
ê°Éö : é╚é╡
û▀éΦÆl : é╚é╡
Éαû╛ : ì─É╢Æåé╠ï╚é≡âtâFü[âhâAâEâgé╡é▄é╖üB
üyÄgùpùßüz
'âtâFü[âhâAâEâg
Call vbmp3_fadeOut()
------------------------------------------------------
è╓Éöû╝ : vbmp3_setFadeIn()
ï@ö\ : âtâFü[âhâCâôé┼ëëætèJÄn
ê°Éö : fin = 0 Æ╩ÅφèJÄn
1 âtâFü[âhâCâôé┼èJÄn
û▀éΦÆl : é╚é╡
Éαû╛ : âtâFü[âhâCâôé┼ëëæté≡èJÄné╡é▄é╖üB
üyÄgùpùßüz
'âtâFü[âhâCâôé┼ëëætèJÄn
Call vbmp3_setFadeIn(1)
------------------------------------------------------
è╓Éöû╝ : vbmp3_setFadeOut()
ï@ö\ : âtâFü[âhâAâEâgé┼ëëætÅIù╣
ê°Éö : fout = 0 Æ╩ÅφÅIù╣
1 âtâFü[âhâAâEâgé┼ÅIù╣
û▀éΦÆl : é╚é╡
Éαû╛ : âtâFü[âhâAâEâgé┼ëëæté≡ÅIù╣é╡é▄é╖üB
üyÄgùpùßüz
'âtâFü[âhâAâEâgé┼ëëætÅIù╣
Call vbmp3_setFadeOut(1)
------------------------------------------------------
è╓Éöû╝ : vbmp3_getLastErrorNo()
ï@ö\ : ì┼îπé╔ö¡É╢é╡é╜âGâëü[ö╘ìåĵô╛
ê°Éö : é╚é╡
û▀éΦÆl : âGâëü[ö╘ìå
Éαû╛ : ì┼îπé╔ö¡É╢é╡é╜âGâëü[ö╘ìåé≡ĵô╛é╡é▄é╖üB
üyÄgùpùßüz
Dim ErrNo As Long
'ì┼îπé╔ö¡É╢é╡é╜âGâëü[ö╘ìåĵô╛
ErrNo = vbmp3_getLastErrorNo
------------------------------------------------------
è╓Éöû╝ : vbmp3_setStepPitch()
ï@ö\ : ì─É╢æ¼ôxò╧ìX
ê°Éö : pitch = ì─É╢æ¼ôx(ö{ùª) (1ê╚Åπ)
frames = Åoù═Ä₧é╠âtâîü[âÇÉö[Å╚ù¬ë┬](êΩÄ₧ôIé╔ò╧ìX)
û▀éΦÆl : True = ɼî≈
False = Ä╕ös
Éαû╛ : ë╣Æ÷é≡ò╧éªé╕ì─É╢æ¼ôxé≡ò╧ìXé╡é▄é╖üBì─É╢Æåéαò╧ìXë┬ö\é┼é╖üB
üªæ¼ôxé≡Åπé░é╖é¼éΘé╞É│Åφé╔ì─É╢é┼é½é╚é¡é╚éΦé▄é╖é╠é┼
Æìê╙é╡é─ë║é│éóüB
üªâtâîü[âÇÉöé═ vbmp3_setVbmp3Option é╠ outputBlock é╞
ô»é╢ò¿é┼é╖üBö{ùª 1 é≡ÄwÆΦé╖éΘé╞î│é╠Ælé╔û▀éΦé▄é╖üB
üªWindowsNT é┼é═Ägùpé┼é½é▄é╣é±üB
üyÄgùpùßüz
'ì─É╢æ¼ôxò╧ìX
Call vbmp3_setStepPitch(2, 5)
------------------------------------------------------
è╓Éöû╝ : vbmp3_getStepPitch()
ï@ö\ : ì─É╢æ¼ôxé╠É▌ÆΦÆlĵô╛
ê°Éö : é╚é╡
û▀éΦÆl : ì─É╢æ¼ôx
Éαû╛ : É▌ÆΦé│éΩé─éóéΘì─É╢æ¼ôxé≡ĵô╛é╡é▄é╖
üyÄgùpùßüz
Dim pitch As Long
'ì─É╢æ¼ôxé╠É▌ÆΦÆlĵô╛
pitch = vbmp3_getStepPitch()
------------------------------------------------------
è╓Éöû╝ : vbmp3_setOverTime()
ï@ö\ : ëëætÄ₧è╘é╠òΓÉ│É▌ÆΦ
ê°Éö : tmOver : 0 æìëëætÄ₧è╘ê╚Åπé═âJâEâôâgé╡é╚éó
0ê╚èO ëëætÄ₧è╘é╠òΓÉ│û│é╡
û▀éΦÆl : û│é╡
Éαû╛ : ëëætÄ₧è╘é¬âIü[âvâôÄ₧é╔ĵô╛é╡é╜æìëëætÄ₧è╘é≡ëzé╡é─éα
é╗é╠é▄é▄âJâEâôâgé╡æ▒é»éΘéµéñé╔é╡é▄é╖üB
éµéΦÉ│èmé╚Ä₧è╘é≡ĵô╛é╖éΘé▒é╞é¬Åoùêé▄é╖é¬æìëëætÄ₧è╘é╞
îδì╖é¬É╢é╢éΘé╜é▀ùÿùpé╠ì█é╔é═Æìê╙é╡é─ë║é│éóüB
üyÄgùpùßüz
'ëëætÄ₧è╘òΓÉ│û│é╡
Call vbmp3_setOverTime(0)
------------------------------------------------------
è╓Éöû╝ : vbmp3_setSoftVolume()
ï@ö\ : â\âtâgâ{âèâàü[âÇé╠ò╧ìX
ê°Éö : lVol = ì╢æñé╠â\âtâgâ{âèâàü[âÇ(0 ü` 100)
rVol = ëEæñé╠â\âtâgâ{âèâàü[âÇ(0 ü` 100)
û▀éΦÆl : û│é╡
Éαû╛ : ì╢ü^ëEé╠â\âtâgâ{âèâàü[âÇé≡Æ▓É▀é╡é▄é╖üB
Åoù═âoâbâtâ@âTâCâYé¬æσé½éóé╞ö╜ëfé│éΩéΘé▄é┼é╔
Ä₧è╘é¬è|é⌐éΦé▄é╖üB
üyÄgùpùßüz
'â\âtâgâ{âèâàü[âÇò╧ìX
Call vbmp3_setSoftVolume(70, 70)
------------------------------------------------------
è╓Éöû╝ : vbmp3_getSoftVolume()
ï@ö\ : î╗ì▌é╠â\âtâgâ{âèâàü[âÇĵô╛
ê°Éö : lVol = ì╢æñé╠â\âtâgâ{âèâàü[âÇ
rVol = ëEæñé╠â\âtâgâ{âèâàü[âÇ
û▀éΦÆl : û│é╡
Éαû╛ : î╗ì▌é╠â\âtâgâ{âèâàü[âÇé≡ĵô╛é╡é▄é╖üB
üyÄgùpùßüz
Dim lVol As Long
Dim rVol As Long
'â\âtâgâ{âèâàü[âÇĵô╛
Call vbmp3_getSoftVolume(lVol, rVol)
------------------------------------------------------
è╓Éöû╝ : vbmp3_getWaveOutSupport()
ï@ö\ : WAVEÅoù═âfâoâCâXé¬â{âèâàü[âÇò╧ìXë┬ö\é⌐â`âFâbâN
ê°Éö : û│é╡
û▀éΦÆl : 0 = ûóâTâ|ü[âg
1 = ì╢â`âââôâlâïé╠é▌âTâ|ü[âg
2 = ì╢ëEù╝â`âââôâlâïâTâ|ü[âg
Éαû╛ : WAVEÅoù═âfâoâCâXé¬â{âèâàü[âÇò╧ìXë┬ö\é⌐â`âFâbâNé╡é▄é╖üB
üyÄgùpùßüz
Dim Result As Long
'âfâoâCâXâ`âFâbâN
Result = vbmp3_getWaveOutSupport
------------------------------------------------------
è╓Éöû╝ : vbmp3_getSilentFrames()
ï@ö\ : û│ë╣âtâîü[âÇÉöĵô╛
ê°Éö : pszName = â`âFâbâNé╖éΘâtâ@âCâïû╝
û▀éΦÆl : âtâîü[âÇÉö
Éαû╛ : ï╚é╠ô¬é╔éáéΘû│ë╣âtâîü[âÇÉöé≡ĵô╛é╡é▄é╖üB
üyÄgùpùßüz
Dim frames As Long
'û│ë╣âtâîü[âÇÉöĵô╛
frames = vbmp3_getSilentFrames("c:\hoge.mp3")
------------------------------------------------------
è╓Éöû╝ : vbmp3_playDecodeWave()
ï@ö\ : ì─É╢é╡é╚é¬éτ WAVE âtâ@âCâïâfâRü[âh
ê°Éö : pszWaveName = Åoù═é╖éΘWAVEâtâ@âCâïû╝
û▀éΦÆl : True = ɼî≈
False = Ä╕ös
Éαû╛ : ì─É╢é╡é╚é¬éτ WAVE âtâ@âCâïé╓é╠âfâRü[âhé≡ìséóé▄é╖üB
üªé▒é╠è╓Éöé═ÆΓÄ~Å≤æ╘é╠Ä₧é╠é▌Ä└ìsé┼é½é▄é╖üB
üyÄgùpùßüz
'ì─É╢âfâRü[âh
Call vbmp3_playDecodeWave("c:\hoge.wav")
------------------------------------------------------
è╓Éöû╝ : vbmp3_setLyrics3InsField()
ï@ö\ : LYRICS3 é╠æ}ôⁿâtâBü[âïâhé≡É▌ÆΦ
ê°Éö : field = 0 : ILYC é╔æ}ôⁿ[default]
1 : IID3 é╔æ}ôⁿ
2 : æ}ôⁿé╡é╚éó
û▀éΦÆl : û│é╡
Éαû╛ : âtâ@âCâïî`Ä«ò╧è╖Ä₧éΓ SIâtâBü[âïâhìXÉVÄ₧é╔ LYRICS3 é≡æ}ôⁿé╖éΘ
âtâBü[âïâhé≡É▌ÆΦé╡é▄é╖üB
üª LYRICS3 é≡æ}ôⁿé╖éΘâtâBü[âïâhé╠ìXÉVé═ìséªé▄é╣é±üB
é╖é╫é─é╠âtâBü[âïâhé≡ìXÉVé╡é╜éóÅΩìçé═üALYRICS3 é≡æ}ôⁿé╡é╚éó
É▌ÆΦé╔é╡é─ë║é│éóüB
üyÄgùpùßüz
'LYRICS3 æ}ôⁿâtâBü[âïâhÉ▌ÆΦ
Call vbmp3_setLyrics3InsField(1)
------------------------------------------------------
è╓Éöû╝ : vbmp3_getFileLyrics3Info()
ï@ö\ : LYRICS3 é╠Åεò±Äµô╛
ê°Éö : pszName = ĵô╛éαé╞é╠MP3âtâ@âCâïû╝
pLyrics3Info = LYRICS3_INFO ì\æóæ╠
û▀éΦÆl : True = ɼî≈
False = Ä╕ös
Éαû╛ : âtâ@âCâïé╔âZâbâgé│éΩé╜ LYRICS3 Åεò±é≡ĵô╛é╡é▄é╖üB
üªüªüªüªüª VBÄgùpòsë┬ üªüªüªüªüª
LYRICS3_INFO ì\æóæ╠
Éαû╛ : LYRICS3 é╠Åεò±é≡èiö[é╡é▄é╖üB
üyÆΦï`üz(Cî╛îΩé┼é╠ÆΦï`)
struct LYRICS3_INFO
{
char IND_LYR; //LYRâtâBü[âïâhé╠ùLû│ '0':û│é╡ '1':ùLéΦ
char IND_TIMETAG; //â^âCâÇâ^âOé╠ùLû│ '0':û│é╡ '1':ùLéΦ
char LYR[60000]; //ë╠ÄîâtâBü[âïâh
char INF[60000]; //Åεò±âtâBü[âïâh
char AUT[250]; //ì∞Äîü^ì∞ï╚Ä╥û╝
char EAL[250]; //ègÆúâAâïâoâÇû╝
char EAR[250]; //ègÆúâAü[âeâBâXâgû╝
char ETT[250]; //ègÆúâgâëâbâNâ^âCâgâï
char IMG[60000]; //âCâüü[âWâtâ@âCâïé╓é╠âèâôâN
};
------------------------------------------------------
è╓Éöû╝ : vbmp3_getFileLyrics3InfoVB()
ï@ö\ : LYRICS3 é╠Åεò±Äµô╛
ê°Éö : pszName = ĵô╛éαé╞é╠MP3âtâ@âCâïû╝
pLyrics3Info = LYRICS3_INFO_VB ì\æóæ╠
lyrData = ë╠ÄîâtâBü[âïâh
InfData = Åεò±âtâBü[âïâh
ImgData = âCâüü[âWâtâ@âCâïé╓é╠âèâôâN
û▀éΦÆl : True = ɼî≈
False = Ä╕ös
Éαû╛ : âtâ@âCâïé╔âZâbâgé│éΩé╜ LYRICS3 Åεò±é≡ĵô╛é╡é▄é╖üB
LYRICS3_INFO_VB ì\æóæ╠
Éαû╛ : LYRICS3 é╠Åεò±é≡èiö[é╡é▄é╖üB
üyÆΦï`üz
Public Type LYRICS3_INFO_VB
IND_LYR As String * 1 'LYRâtâBü[âïâhé╠ùLû│ '0':û│é╡ '1':ùLéΦ
IND_TIMETAG As String * 1 'â^âCâÇâ^âOé╠ùLû│ '0':û│é╡ '1':ùLéΦ
AUT As String * 250 'ì∞Äîü^ì∞ï╚Ä╥û╝
EAL As String * 250 'ègÆúâAâïâoâÇû╝
EAR As String * 250 'ègÆúâAü[âeâBâXâgû╝
ETT As String * 250 'ègÆúâgâëâbâNâ^âCâgâï
End Type
üyÄgùpùßüz
Dim lyrData As String * 60000 'ë╠ÄîâtâBü[âïâh
Dim InfData As String * 60000 'Åεò±âtâBü[âïâh
Dim ImgData As String * 60000 'âCâüü[âWâtâ@âCâïé╓é╠âèâôâN
Dim Lyrics3Info As LYRICS3_INFO_VB
' LYRICS3 Åεò±é≡ĵô╛
Call vbmp3_getFileLyrics3InfoVB("hoge.mp3", Lyrics3Info, _
lyrData, InfData, ImgData)
------------------------------------------------------
è╓Éöû╝ : vbmp3_setLyrics3Use()
ï@ö\ : LYRICS3 é╠Ä⌐ô«ô╟ì₧É▌ÆΦ
ê°Éö : useLyrics3 = 0 : Ä⌐ô«ô╟ì₧é╡é╚éó[default]
1 : Ä⌐ô«ô╟ì₧é╖éΘ
û▀éΦÆl : û│é╡
Éαû╛ : âtâ@âCâïâIü[âvâôÄ₧é╔ LYRICS3 é≡Ä⌐ô«ô╟é▌ì₧é▌é╖éΘé⌐é≡É▌ÆΦé╖éΘüB
ô╟é▌ì₧é±é╛ë╠Äîé═ vbmp3_getLyrics é┼ĵô╛é┼é½é▄é╖üB
üyÄgùpùßüz
'LYRICS3 é╠Ä⌐ô«ô╟ì₧É▌ÆΦ
Call vbmp3_setLyrics3Use(1)
------------------------------------------------------
è╓Éöû╝ : vbmp3_readLyrics3Data()
ï@ö\ : LYRICS3 é╠ÄΦô«ô«ô╟ì₧
ê°Éö : û│é╡
û▀éΦÆl : True = ɼî≈
False = Ä╕ös
Éαû╛ : LYRICS3 é≡ë╠Äîé╞é╡é─ô╟é▌ì₧é▄é╣é▄é╖üB
ô╟é▌ì₧é±é╛ë╠Äîé═ vbmp3_getLyrics é┼ĵô╛é┼é½é▄é╖üB
üyÄgùpùßüz
'LYRICS3 é╠ÄΦô«ô«ô╟ì₧
Call vbmp3_readLyrics3Data()
------------------------------------------------------
è╓Éöû╝ : vbmp3_clearLyrics()
ï@ö\ : ô╟ì₧ì╧é▌é╠ë╠Äîé╠âNâèâA
ê°Éö : û│é╡
û▀éΦÆl : True = ɼî≈
False = Ä╕ös
Éαû╛ : ô╟é▌ì₧é▄éΩé─éóéΘë╠Äîé≡âNâèâAé╡é▄é╖üB
üyÄgùpùßüz
'ô╟ì₧ì╧é▌é╠ë╠Äîé╠âNâèâA
Call vbmp3_clearLyrics()
------------------------------------------------------
è╓Éöû╝ : vbmp3_setFftWindow()
ï@ö\ : fftùpæïè╓ÉöÄwÆΦ
ê°Éö : window = 0 : rectangle
1 : hanning
2 : hamming
3 : blackman
û▀éΦÆl : û│é╡
Éαû╛ : âXâyâAâié┼Ägùpé╖éΘ fftè╓Éöé≡ÄwÆΦé╡é▄é╖üB
æïè╓Éöé╔éµéΦögî`é¬ò╧ë╗é╡é▄é╖üB
üªæïè╓ÉöÆΦÉöé═ code.txt é≡ÄQÅ╞é╡é─ë║é│éóüB
üyÄgùpùßüz
'fftùpæïè╓ÉöÄwÆΦ
Call vbmp3_setFftWindow(1)
------------------------------------------------------
è╓Éöû╝ : vbmp3_setFileLyrics3Info()
ï@ö\ : LYRICS3 é╠Åεò±é≡É▌ÆΦ
ê°Éö : pszName = É▌ÆΦé╖éΘMP3âtâ@âCâïû╝
pLyrics3Info = LYRICS3_INFO ì\æóæ╠
û▀éΦÆl : True = ɼî≈
False = Ä╕ös
Éαû╛ : LYRICS3 Åεò±é≡É▌ÆΦé╡é▄é╖üB
üªüªüªüªüª VBÄgùpòsë┬ üªüªüªüªüª
------------------------------------------------------
è╓Éöû╝ : vbmp3_setFileLyrics3InfoVB()
ï@ö\ : LYRICS3 é╠Åεò±é≡É▌ÆΦ
ê°Éö : pszName = É▌ÆΦé╖éΘMP3âtâ@âCâïû╝
pLyrics3Info = LYRICS3_INFO_VB ì\æóæ╠
lyrData = ë╠ÄîâtâBü[âïâh
InfData = Åεò±âtâBü[âïâh
ImgData = âCâüü[âWâtâ@âCâïé╓é╠âèâôâN
û▀éΦÆl : True = ɼî≈
False = Ä╕ös
Éαû╛ : LYRICS3 Åεò±é≡É▌ÆΦé╡é▄é╖üB
üyÄgùpùßüz
Dim lyrData As String * 60000 'ë╠ÄîâtâBü[âïâh
Dim InfData As String * 60000 'Åεò±âtâBü[âïâh
Dim ImgData As String * 60000 'âCâüü[âWâtâ@âCâïé╓é╠âèâôâN
Dim Lyrics3Info As LYRICS3_INFO_VB
' LYRICS3 é╠Åεò±É▌ÆΦ
Call vbmp3_setFileLyrics3InfoVB("hoge.mp3", Lyrics3Info, _
lyrData, InfData, ImgData)
------------------------------------------------------
è╓Éöû╝ : vbmp3_getListInfoEX()
ï@ö\ : SIâtâBü[âïâhé╠æSâtâBü[âïâhÅεò±Äµô╛
ê°Éö : pszName = ĵô╛éαé╞é╠MP3âtâ@âCâïû╝
pListInfo = LIST_INFO_EX ì\æóæ╠
û▀éΦÆl : True = ɼî≈
False = Ä╕ös
Éαû╛ : SIâtâBü[âïâhé╠IID3é≡Å£é¡æSâtâBü[âïâhÅεò±é≡ĵô╛é╡é▄é╖üB
üªüªüªüªüª VBÄgùpòsë┬ üªüªüªüªüª
LIST_INFO_EX ì\æóæ╠
Éαû╛ : SIâtâBü[âïâhé╠Åεò±é≡èiö[é╡é▄é╖üB
üyÆΦï`üz(Cî╛îΩé┼é╠ÆΦï`)
#define LIST_SIZE 2048
struct LIST_INFO_EX
{
char INAM[LIST_SIZE]; //ï╚û╝
char IART[LIST_SIZE]; //âAü[âeâBâXâgû╝
char IPRD[LIST_SIZE]; //É╗òiû╝
char ICMT[LIST_SIZE]; //âRâüâôâgò╢ÄÜù±
char ICRD[LIST_SIZE]; //âèâèü[âXöNìå
char IGNR[LIST_SIZE]; //âWâââôâïû╝
char ICOP[LIST_SIZE]; //Æÿì∞îá
char IENG[LIST_SIZE]; //âGâôâWâjâA
char ISRC[LIST_SIZE]; //â\ü[âX
char ISFT[LIST_SIZE]; //â\âtâgâEâFâA
char IKEY[LIST_SIZE]; //âLü[âÅü[âh
char ITCH[LIST_SIZE]; //ïZÅpÄ╥
char ICMS[LIST_SIZE]; //âRâ~âbâVâçâô
char IMED[LIST_SIZE]; //Æåè╘
char ISBJ[LIST_SIZE]; //â^âCâgâï
char IMP3[LIST_SIZE]; //MP3Åεò±
char ILYC[LIST_SIZE]; //ë╠Äî
};
------------------------------------------------------
è╓Éöû╝ : vbmp3_getListInfoExVB()
ï@ö\ : SIâtâBü[âïâhé╠æSâtâBü[âïâhÅεò±Äµô╛
ê°Éö : pszName = ĵô╛éαé╞é╠MP3âtâ@âCâïû╝
pListInfo = LIST_INFO_EX_VB ì\æóæ╠
û▀éΦÆl : True = ɼî≈
False = Ä╕ös
Éαû╛ : SIâtâBü[âïâhé╠IID3é≡Å£é¡æSâtâBü[âïâhÅεò±é≡ĵô╛é╡é▄é╖üB
LIST_INFO_EX_VB ì\æóæ╠
Éαû╛ : SIâtâBü[âïâhé╠Åεò±é≡èiö[é╡é▄é╖üB
üyÆΦï`üz
Public Type LIST_INFO_EX_VB
INAM As String * 512 'ï╚û╝
IART As String * 512 'âAü[âeâBâXâgû╝
IPRD As String * 512 'É╗òiû╝
ICMT As String * 512 'âRâüâôâgò╢ÄÜù±
ICRD As String * 512 'âèâèü[âXöNìå
IGNR As String * 512 'âWâââôâïû╝
ICOP As String * 512 'Æÿì∞îá
IENG As String * 512 'âGâôâWâjâA
ISRC As String * 512 'â\ü[âX
ISFT As String * 512 'â\âtâgâEâFâA
IKEY As String * 512 'âLü[âÅü[âh
ITCH As String * 512 'ïZÅpÄ╥
ICMS As String * 512 'âRâ~âbâVâçâô
IMED As String * 512 'Æåè╘
ISBJ As String * 512 'â^âCâgâï
IMP3 As String * 512 'MP3Åεò±
ILYC As String * 512 'ë╠Äî
End Type
üyÄgùpùßüz
Dim ListData As LIST_INFO_EX_VB
' SIâtâBü[âïâhé╠æSâtâBü[âïâhÅεò±Äµô╛
Call vbmp3_getListInfoExVB("hoge.rmp", ListData)
------------------------------------------------------
è╓Éöû╝ : vbmp3_setListInfoEX()
ï@ö\ : SIâtâBü[âïâhé╠æSâtâBü[âïâhÅεò±É▌ÆΦ
ê°Éö : pszName = É▌ÆΦé╖éΘMP3âtâ@âCâïû╝
pListInfo = LIST_INFO_EX ì\æóæ╠
û▀éΦÆl : True = ɼî≈
False = Ä╕ös
Éαû╛ : SIâtâBü[âïâhé╠IID3é≡Å£é¡æSâtâBü[âïâhé≡É▌ÆΦé╡é▄é╖üB
üªüªüªüªüª VBÄgùpòsë┬ üªüªüªüªüª
------------------------------------------------------
è╓Éöû╝ : vbmp3_setListInfoExVB()
ï@ö\ : SIâtâBü[âïâhé╠æSâtâBü[âïâhÅεò±É▌ÆΦ
ê°Éö : pszName = É▌ÆΦé╖éΘMP3âtâ@âCâïû╝
pListInfo = LIST_INFO_EX_VB ì\æóæ╠
û▀éΦÆl : True = ɼî≈
False = Ä╕ös
Éαû╛ : SIâtâBü[âïâhé╠IID3é≡Å£é¡æSâtâBü[âïâhé≡É▌ÆΦé╡é▄é╖üB
üyÄgùpùßüz
Dim ListData As LIST_INFO_EX_VB
' SIâtâBü[âïâhé╠æSâtâBü[âïâhÅεò±É▌ÆΦ
Call vbmp3_setListInfoExVB("hoge.rmp", ListData)
------------------------------------------------------
è╓Éöû╝ : vbmp3_getFileTagInfoEX()
ï@ö\ : ID3Tag v1.0 é¿éµé╤ v1.1 Åεò±Äµô╛
ê°Éö : pszName = ĵô╛é╖éΘMP3âtâ@âCâïû╝
pTagInfo = TAG_INFO_11 ì\æóæ╠
û▀éΦÆl : True = ɼî≈
False = Ä╕ös
Éαû╛ : ID3Tag v1.0 é¿éµé╤ v1.1 é╠Åεò±é≡ĵô╛é╡é▄é╖üB
TAG_INFO_11 ì\æóæ╠
Éαû╛ : ID3Tag v1.0 é¿éµé╤ v1.1 é╠Åεò±é≡èiö[é╡é▄é╖üB
üyÆΦï`üz
Public Type TAG_INFO_11
szTrackName As String * 128 'ï╚û╝
szArtistName As String * 128 '▒░├¿╜─û╝
szAlbumName As String * 128 '▒┘╩▐╤û╝
szYear As String * 5 '╪╪░╜öNìå
szComment As String * 128 '║╥▌─
genre As Long '╝▐¼▌┘
szGenreName As String * 128 '╝▐¼▌┘û╝
trackNo As Long 'âgâëâbâNö╘ìå (-1 = v1.0)
End Type
üyÄgùpùßüz
Dim TagData As TAG_INFO_11
' ID3Tag v1.0 é¿éµé╤ v1.1 Åεò±Äµô╛
Call vbmp3_getFileTagInfoEX("hoge.rmp", TagData)
------------------------------------------------------
è╓Éöû╝ : vbmp3_setTagInfoEX()
ï@ö\ : ID3Tag v1.0 é¿éµé╤ v1.1 Åεò±É▌ÆΦ
ê°Éö : pszName = ĵô╛é╖éΘMP3âtâ@âCâïû╝
pTagInfo = TAG_INFO_11 ì\æóæ╠
tagSet = 1 : DLL ôαòöé╠ TAG Åεò±Åæé½è╖éª(ì─É╢Æåâtâ@âCâïÄ₧ÄwÆΦ)
0 : üV ò╧ìXû│é╡
Å╚ù¬ë┬ö\,âfâtâHâïâg 0
tagAdd = 1 : ID3Tag v1 é¬æ╢ì▌é╡é╚éóé╞é½Æ╟ë┴é╖éΘ
0 : üV Æ╟ë┴é╡é╚éó
û▀éΦÆl : True = ɼî≈
False = Ä╕ös
Éαû╛ : ID3Tag v1.0 é¿éµé╤ v1.1 é╠Åεò±é≡É▌ÆΦé╡é▄é╖üB
v1.0 é╞é╡é─ôoÿ^é╖éΘÅΩìçé═ TAG_INFO_11 é╠
trackNo é╔ -1 é≡âZâbâgé╡é─ë║é│éóüB
üyÄgùpùßüz
Dim TagData As TAG_INFO_11
' ID3Tag v1.0 é¿éµé╤ v1.1 Åεò±É▌ÆΦ
Call vbmp3_setTagInfoEX("hoge.rmp", TagData, 1, 1)
------------------------------------------------------
è╓Éöû╝ : vbmp3_setKaraokeUse()
ï@ö\ : âJâëâIâPâ^âOÄgùpÉ▌ÆΦ
ê°Éö : useKaraoke = 0 : ûóÄgùp[default]
1 : Ägùp
û▀éΦÆl : û│é╡
Éαû╛ : âJâëâIâPâ^âOé≡Ägùpé╖éΘé⌐é≡ÄwÆΦé╡é▄é╖üB
üyÄgùpùßüz
'âJâëâIâPâ^âOÄgùpÉ▌ÆΦ
Call vbmp3_setKaraokeUse(1)
------------------------------------------------------
è╓Éöû╝ : vbmp3_getLyrics2()
ï@ö\ : âJâëâIâPâ^âOæ╬ë₧ë╠Äîĵô╛
ê°Éö : pLyricsInfo = LYRICS_INFO2 ì\æóæ╠
û▀éΦÆl : True = ɼî≈
False = Ä╕ös
Éαû╛ : âJâëâIâPâ^âOé╠ì─É╢ê╩Æué╔æ╬ë₧é╡é╜ë╠Äîé≡ĵô╛é╡é▄é╖
LYRICS_INFO2 ì\æóæ╠
Éαû╛ : âJâëâIâPâ^âOæ╬ë₧ë╠ÄîÅεò±é≡èiö[é╡é▄é╖üB
üyÆΦï`üz
Public Type LYRICS_INFO2
sec As Long 'â~âèòb
lineno As Long 'ìsÉö
point As Long 'âJâîâôâgìsé┼é╠â^âOé╠ê╩Æu
length As Long 'âJâîâôâgâ^âOé╠Æ╖é│üiâ~âèòbüj
LyricsNext2 As String * 128 'ăüXìsé╠ë╠Äî
LyricsNext1 As String * 128 'ăìsé╠ë╠Äî
LyricsCurrent As String * 128 'âJâîâôâgâ^âOé╠ë╠Äî
LyricsCurrentBegin As String * 128 'âJâîâôâgâ^âOéµéΦæOé╠ë╠Äî
LyricsCurrentLyrics As String * 128 'âJâîâôâgâ^âOé▄é┼é╠ë╠Äî
LyricsCurrentAll As String * 128 'âJâîâôâgìsé╠ë╠Äî
LyricsPrev1 As String * 128 'æOìsé╠ë╠Äî
LyricsPrev2 As String * 128 'æOüXìsé╠ë╠Äî
End Type
üyÄgùpùßüz
Dim lyricsInfo As LYRICS_INFO2
'âJâëâIâPâ^âOæ╬ë₧ë╠Äîĵô╛
Call vbmp3_getLyrics2(lyricsInfo)
------------------------------------------------------
è╓Éöû╝ : vbmp3_setLyricsTime()
ï@ö\ : ë╠Äîò\ĪÄ₧è╘É╪æ╓
ê°Éö : flag = 0 : WinampÄ₧è╘
1 : òWÅÇÄ₧è╘
2 : É▌ÆΦÄ₧è╘öΣ
û▀éΦÆl : û│é╡
Éαû╛ : ë╠Äîĵô╛Ä₧é╔ôKùpé╖éΘÄ₧è╘é≡ÄwÆΦé╡é▄é╖üB
üyÄgùpùßüz
'ë╠Äîò\ĪÄ₧è╘É╪æ╓
Call vbmp3_setLyricsTime(1)
------------------------------------------------------
è╓Éöû╝ : vbmp3_setWaveOutDeviceId()
ï@ö\ : waveÅoù═âfâoâCâXIDÉ▌ÆΦ
ê°Éö : id = waveOutDeviceID
û▀éΦÆl : û│é╡
Éαû╛ : waveÅoù═é╔Ägùpé╖éΘâfâoâCâXIDé≡ÄwÆΦé╡é▄é╖üB
üyÄgùpùßüz
'waveÅoù═âfâoâCâXIDÉ▌ÆΦ
Call vbmp3_setWaveOutDeviceId(1)
------------------------------------------------------
è╓Éöû╝ : vbmp3_delFileLyrics3Info()
ï@ö\ : Lyrics3ìφÅ£
ê°Éö : pszName = MP3âtâ@âCâïû╝
û▀éΦÆl : û│é╡
Éαû╛ : âtâ@âCâïé╔Åæé½ì₧é▄éΩé╜Lyrics3âfü[â^é≡ìφÅ£é╡é▄é╖üB
üyÄgùpùßüz
'Lyrics3ìφÅ£
Call vbmp3_delFileLyrics3Info("hoge.mp3")
------------------------------------------------------
è╓Éöû╝ : vbmp3_setListInfoEX2()
ï@ö\ : SIâtâBü[âïâhé╠æSâtâBü[âïâhÅεò±Äµô╛
ê°Éö : pszName = ĵô╛éαé╞é╠MP3âtâ@âCâïû╝
pListInfo = LIST_INFO_EX2 ì\æóæ╠
û▀éΦÆl : True = ɼî≈
False = Ä╕ös
Éαû╛ : SIâtâBü[âïâhé╠IID3é≡Å£é¡æSâtâBü[âïâhÅεò±é≡ĵô╛é╡é▄é╖üB
LIST_INFO_EX2 ì\æóæ╠
Éαû╛ : SIâtâBü[âïâhé╠Åεò±é≡èiö[é╡é▄é╖üB
üyÆΦï`üz
Public Type LIST_INFO_EX2
INAM As String 'ï╚û╝
IART As String 'âAü[âeâBâXâgû╝
IPRD As String 'É╗òiû╝
ICMT As String 'âRâüâôâgò╢ÄÜù±
ICRD As String 'âèâèü[âXöNìå
IGNR As String 'âWâââôâïû╝
ICOP As String 'Æÿì∞îá
IENG As String 'âGâôâWâjâA
ISRC As String 'â\ü[âX
ISFT As String 'â\âtâgâEâFâA
IKEY As String 'âLü[âÅü[âh
ITCH As String 'ïZÅpÄ╥
ICMS As String 'âRâ~âbâVâçâô
IMED As String 'Æåè╘
ISBJ As String 'â^âCâgâï
IMP3 As String 'MP3Åεò±
ILYC As String 'ë╠Äî
End Type
üyÄgùpùßüz
Dim ListData As LIST_INFO_EX2
' SIâtâBü[âïâhé╠æSâtâBü[âïâhÅεò±Äµô╛
Call vbmp3_setListInfoEX2("hoge.rmp", ListData)
------------------------------------------------------
è╓Éöû╝ : vbmp3_setNotTagLyricsLine()
ï@ö\ : ë╠Äîâtâ@âCâïé╠â^âCâÇâ^âOû│é╡ìsô╟ì₧É▌ÆΦ
ê°Éö : readFlag = 0 : â^âCâÇâ^âOû│é╡ìsé╠ô╟ì₧û│é╡
1 : â^âCâÇâ^âOû│é╡ìsé╠ô╟ì₧ùLéΦ[default]
û▀éΦÆl : û│é╡
Éαû╛ : ë╠Äîâtâ@âCâïôαé╠â^âCâÇâ^âOé¬û│éóìsé≡ô╟ì₧é⌐é≡É▌ÆΦé╡é▄é╖üB
üyÄgùpùßüz
' ë╠Äîâtâ@âCâïé╠â^âOû│é╡ìsô╟ì₧É▌ÆΦ
Call vbmp3_setNotTagLyricsLine(0)
------------------------------------------------------
è╓Éöû╝ : vbmp3_setNotDataSiWrite()
ï@ö\ : âfü[â^û│é╡SIâtâBü[âïâhÅoù═É▌ÆΦ
ê°Éö : writeFlag = 0 : âfü[â^é╠ùLéΘ SIâtâBü[âïâhé╠é▌Åoù═
1 : é╖é╫é─é╠SIâtâBü[âïâhé≡Åoù═[default]
û▀éΦÆl : û│é╡
Éαû╛ : âfü[â^é╠É▌ÆΦé│éΩé─éóé╚éó SI âtâBü[âïâhé≡ì∞ɼé╖éΘé⌐É▌ÆΦé╡é▄é╖üB
üyÄgùpùßüz
' âfü[â^û│é╡SIâtâBü[âïâhÅoù═É▌ÆΦ
Call vbmp3_setNotDataSiWrite(0)
------------------------------------------------------
è╓Éöû╝ : vbmp3_setReadLyrics3Info()
ï@ö\ : ô╟ì₧ì╧é▌ë╠Äîâfü[â^LYRICS3ôoÿ^
ê°Éö : pszName = LYRICS3é≡Åæé½ì₧é▐MP3âtâ@âCâï
û▀éΦÆl : True = ɼî≈
False = Ä╕ös
Éαû╛ : vbmp3_setLyricsFile é╚é╟é┼ô╟é▌ì₧é▄éΩé╜ë╠ÄîÅεò±é≡
LYRICS3î`Ä«é┼âtâ@âCâïé╔Åæé½ì₧é▌é▄é╖üB
üyÄgùpùßüz
' ô╟ì₧ì╧é▌ë╠Äîâfü[â^LYRICS3ôoÿ^
Call vbmp3_setReadLyrics3Info("hoge.mp3")
------------------------------------------------------
è╓Éöû╝ : vbmp3_checkKaraokeTag()
ï@ö\ : âJâëâIâPâ^âOùLû│â`âFâbâN
ê°Éö : û│é╡
û▀éΦÆl : True = âJâëâIâPâ^âOùLéΦ
False = âJâëâIâPâ^âOû│é╡
Éαû╛ : vbmp3_setLyricsFile é╚é╟é┼ô╟é▌ì₧é▄éΩé╜ë╠ÄîÅεò±ôαé╔
âJâëâIâPâ^âOé¬éáéΘé⌐é≡â`âFâbâNé╡é▄é╖üB
üyÄgùpùßüz
' ô╟ì₧ì╧é▌ë╠Äîâfü[â^LYRICS3ôoÿ^
If vbmp3_checkKaraokeTag() Then
MsgBox "âJâëâIâPâ^âOé¬ùLéΦé▄é╖"
End If
------------------------------------------------------
è╓Éöû╝ : vbmp3_setFrameReadFlag()
ï@ö\ : âtâîü[âÇÉöĵô╛ò√û@É▌ÆΦ
ê°Éö : readFlag = 0 : Æ╩Åφ[default]
1 : è«æS(âtâ@âCâïæSæûì╕)
û▀éΦÆl : û│é╡
Éαû╛ : âtâîü[âÇÉöé╠ĵô╛ò√û@é≡ò╧ìXé╡é▄é╖üB
1 é╠ÅΩìçüAÉ│èmé╚Ælé≡ĵô╛é┼é½é▄é╖é¬Ä₧è╘é¬è|é⌐éΦé▄é╖üB
üyÄgùpùßüz
' âtâîü[âÇÉöĵô╛ò√û@É▌ÆΦ
Call vbmp3_setFrameReadFlag(1)
------------------------------------------------------
è╓Éöû╝ : vbmp3_setLyricsAdjustTime()
ï@ö\ : ë╠Äîò\Īê╩Æué╠Æ▓É«
ê°Éö : ms = ë╠Äîé╠ò\Īé≡é╕éτé╖òbÉö[â~âèòb]
û▀éΦÆl : û│é╡
Éαû╛ : ì─É╢Ä₧è╘é╔âZâbâgé│é─é╜Ä₧è╘é≡ë┴éªé─ë╠Äîé≡ĵô╛é╡é▄é╖üB
É│Ælé╚éτæüé¡üAòëÆlé╚éτÆxéΩé─ô╟é▌ì₧é▄éΩé▄é╖üB
üyÄgùpùßüz
' ë╠Äîò\Īê╩Æué╠Æ▓É«
Call vbmp3_setLyricsAdjustTime(1000)
------------------------------------------------------
è╓Éöû╝ : vbmp3_setSeekPlay()
ï@ö\ : ÆΓÄ~Ä₧âVü[âNé╠ì─É╢ùLû│É▌ÆΦ
ê°Éö : seekPlay = 0 : Ä⌐ô«ì─É╢é╡é╚éó[default]
1 : Ä⌐ô«ì─É╢é╖éΘ
û▀éΦÆl : û│é╡
Éαû╛ : ÆΓÄ~Å≤æ╘é┼âVü[âNé╡é╜é╞é½ì─É╢é≡Ä⌐ô«ôIé╔èJÄné╖éΘé⌐É▌ÆΦé╡é▄é╖üB
üyÄgùpùßüz
' ÆΓÄ~Ä₧âVü[âNé╠ì─É╢ùLû│É▌ÆΦ
Call vbmp3_setSeekPlay(1)
------------------------------------------------------
è╓Éöû╝ : vbmp3_setLyricsNextAdjustTime()
ï@ö\ : ë╠Äîìsé╠ò\Īâ^âCâ~âôâOÆ▓É«
ê°Éö : ms = ë╠Äîìsé╠ò\Īé≡é╕éτé╖òbÉö[â~âèòb]
û▀éΦÆl : û│é╡
Éαû╛ : ăé╠ìsé≡ɵìs(Æxëä)ò\Īé╡é▄é╖
É│Ælé╚éτæüé¡üAòëÆlé╚éτÆxéΩé─ô╟é▌ì₧é▄éΩé▄é╖üB
üyÄgùpùßüz
' ë╠Äîìsé╠ò\Īâ^âCâ~âôâOÆ▓É«
Call vbmp3_setLyricsNextAdjustTime(1000)
------------------------------------------------------
è╓Éöû╝ : vbmp3_quickSeek()
ï@ö\ : ìéæ¼âVü[âNÄgùpÉ▌ÆΦ
ê°Éö : quickSeekFlag = 0 : ûóÄgùp
1 : Ägùp[default]
û▀éΦÆl : û│é╡
Éαû╛ : éPâtâîü[âÇû┌é╠Åεò±é≡î│é╔üAâVü[âNê╩Æué≡ù\æ¬é╡âVü[âNé╡é▄é╖üB
üªÅ]ùêé╠âVü[âNò√û@é╞é═êßéóüAÉöÅ\â~âèòbÆ÷îδì╖é¬ö¡É╢é╡é▄é╖üB
üyÄgùpùßüz
' ìéæ¼âVü[âNÄgùpÉ▌ÆΦ
Call vbmp3_quickSeek(1)
------------------------------------------------------
è╓Éöû╝ : vbmp3_cutID3v2()
ï@ö\ : ID3Tag v2 Å£ïÄ
ê°Éö : pszName = MP3âtâ@âCâïû╝
û▀éΦÆl : True = ɼî≈
False = Ä╕ös
Éαû╛ : âtâ@âCâïé╔Åæé½ì₧é▄éΩID3 Tag v2âfü[â^é≡ìφÅ£é╡é▄é╖üB
üyÄgùpùßüz
'ID3Tag v2 Å£ïÄ
Call vbmp3_cutID3v2("hoge.mp3")
------------------------------------------------------
è╓Éöû╝ : vbmp3_convTimeW2N()
ï@ö\ : ë╠ÄîÄ₧è╘(Winamp->òWÅÇÄ₧è╘)ò╧è╖
ê°Éö : û│é╡
û▀éΦÆl : True = ɼî≈
False = Ä╕ös
Éαû╛ : ô╟ì₧ì╧é▌é╠ë╠ÄîÅεò±é╠WinampÄ₧è╘é≡òWÅÇÄ₧è╘é╔ò╧è╖é╡é▄é╖üB
üªé▒é╠è╓Éöé≡òíÉöë±Ä└ìsé╖éΘé╞üAë±Éöò¬òΓÉ│é¬è|é⌐éΦ
îδì╖é≡ìLé░éΘé▒é╞é╔é╚éΦé▄é╖üB
èεû{ôIé╔éPë±é╛é»Ägùpé╖éΘéµéñé╔é╡é─é¡é╛é│éóüB
üyÄgùpùßüz
'ë╠ÄîÄ₧è╘(Winamp->òWÅÇÄ₧è╘)ò╧è╖
Call vbmp3_convTimeN2W
------------------------------------------------------
è╓Éöû╝ : vbmp3_convTimeN2W()
ï@ö\ : ë╠ÄîÄ₧è╘(òWÅÇÄ₧è╘->Winamp)ò╧è╖
ê°Éö : û│é╡
û▀éΦÆl : True = ɼî≈
False = Ä╕ös
Éαû╛ : ô╟ì₧ì╧é▌é╠ë╠ÄîÅεò±é╠òWÅÇÄ₧è╘é≡WinampÄ₧è╘é╔ò╧è╖é╡é▄é╖üB
üªé▒é╠è╓Éöé≡òíÉöë±Ä└ìsé╖éΘé╞üAë±Éöò¬òΓÉ│é¬è|é⌐éΦ
îδì╖é≡ìLé░éΘé▒é╞é╔é╚éΦé▄é╖üB
èεû{ôIé╔éPë±é╛é»Ägùpé╖éΘéµéñé╔é╡é─é¡é╛é│éóüB
üyÄgùpùßüz
'ë╠ÄîÄ₧è╘(òWÅÇÄ₧è╘->Winamp)ò╧è╖
Call vbmp3_convTimeN2W
------------------------------------------------------
è╓Éöû╝ : vbmp3_outLyricsFile()
ï@ö\ : ë╠Äîâtâ@âCâïÅoù═
ê°Éö : pszLyricsName = Åoù═ë╠Äîâtâ@âCâïû╝
û▀éΦÆl : True = ɼî≈
False = Ä╕ös
Éαû╛ : ô╟ì₧ì╧é▌é╠ë╠ÄîÅεò±é≡âtâ@âCâïé╔Åoù═é╡é▄é╖üB
üyÄgùpùßüz
'ë╠Äîâtâ@âCâïÅoù═
Call vbmp3_outLyricsFile("hoge.txt")
------------------------------------------------------
è╓Éöû╝ : vbmp3_useAtMarkTag()
ï@ö\ : üùâ^âOô╟ì₧É▌ÆΦ
ê°Éö : useFlag = 0:Åêù¥û│é╡ü@ü@üiüùâ^âOìsò\Īüj[default]
1:üùâ^âOÄgùpü@üiüùâ^âOìsö±ò\Īüj
2:üùèJÄnìsû│Äïüiüùâ^âOìsö±ò\Īüj
û▀éΦÆl : û│é╡
Éαû╛ : üùâ^âOé╠ÄgùpùLû│é≡É▌ÆΦé╡é▄é╖üB
üªüùâ^âOé¬æ╢ì▌é╡é╚éóÅΩìçé═üAî╗ì▌é╠É▌ÆΦé≡Ägùpé╡é▄é╖üB
üªÉ▌ÆΦé╔è╓éφéτé╕ë╠Äîô╟ì₧Ä₧é╔é═üùâ^âOé╠ôαùeé≡ò█æ╢é│éΩé▄é╖é¬
üùâ^âOìsé╠ò\Īö±ò\Īé═üAë╠Äîô╟ì₧Ä₧é╠É▌ÆΦé╔ê╦æ╢é╡é▄é╖üB
üyüùâ^âOé╔éµéΘö╜ëfôαùeüz
@TimeRatio : òWÅÇÄ₧è╘é╔ÄwÆΦé≡Ælé≡è|é»é╜Ä₧è╘é≡î│é╔ë╠Äîé≡ò\Ī
<ûóÄwÆΦÄ₧é╠É▌ÆΦ> 1
(vbmp3_setTimeRatioé╞ô»ùl)
@Offset : ë╠Äîé╠É╪æ╓é≡ÄwÆΦÄ₧è╘[ms]ò¬é╕éτé╖
<ûóÄwÆΦÄ₧é╠É▌ÆΦ> 0
(vbmp3_setLyricsAdjustTimeé╞ô»ùl)
@TimeType : @TimeRatio é¬ûóÉ▌ÆΦÄ₧é╠ë╠ÄîùpÄ₧è╘é≡É▌ÆΦ
WinAmp = WinampÄ₧è╘
Normal = òWÅÇÄ₧è╘
<ûóÄwÆΦÄ₧é╠É▌ÆΦ> òWÅÇÄ₧è╘
(vbmp3_setLyricsTimeé╞ô»ùl)
üªæ╝é╠â^âOé╔é┬éóé─é═üAîπÅqé╠ vbmp3_getAtTagData è╓Éöé≡ÄQÅ╞é╡é─ë║é│éóüB
üyÄgùpùßüz
'üùâ^âOô╟ì₧É▌ÆΦ
Call vbmp3_useAtMarkTag(1)
------------------------------------------------------
è╓Éöû╝ : vbmp3_setTimeRatio()
ï@ö\ : ë╠ÄîòWÅÇÄ₧è╘öΣÉ▌ÆΦ
ê°Éö : timeRatio = òWÅÇÄ₧é╔æ╬é╖éΘÄ₧è╘öΣé≡ÄwÆΦ
û▀éΦÆl : û│é╡
Éαû╛ : ë╠Äîò\Īé╠é╕éΩé≡ÄΦô«é┼Æ▓É«é╖éΘé╜é▀é╠è╓Éöé┼é╖üB
üyÄgùpùßüz
'ë╠ÄîòWÅÇÄ₧è╘öΣÉ▌ÆΦ
Call vbmp3_setTimeRatio(0.9953125)
------------------------------------------------------
è╓Éöû╝ : vbmp3_checkTimeTag()
ï@ö\ : â^âCâÇâ^âOùLû│â`âFâbâN
ê°Éö : û│é╡
û▀éΦÆl : 0 = â^âOû│é╡
1 = â^âOùLéΦ
2 = â^âOùLéΦüiâJâëâIâPüj
Éαû╛ : vbmp3_setLyricsFile é╚é╟é┼ô╟é▌ì₧é▄éΩé╜ë╠ÄîÅεò±ôαé╔
â^âCâÇâ^âOé¬éáéΘé⌐é≡â`âFâbâNé╡é▄é╖üB
üyÄgùpùßüz
' â^âCâÇâ^âOùLû│â`âFâbâN
If vbmp3_checkTimeTag <> 0 Then
MsgBox "â^âCâÇâ^âOé¬ùLéΦé▄é╖"
End If
------------------------------------------------------
è╓Éöû╝ : vbmp3_getAtTagData()
ï@ö\ : üùâ^âOÅεò±Äµô╛
ê°Éö : pAtTagData = AT_TAG_DATA ì\æóæ╠
û▀éΦÆl : True = ɼî≈
False = Ä╕ös
Éαû╛ : vbmp3_setLyricsFile, vbmp3_readLyrics3Data é┼ô╟é▌ì₧é±é╛
ë╠ÄîÅεò±é╔ïLÅqé│éΩé╜üùâ^âOÅεò±é≡ĵô╛é╡é▄é╖üB
AT_TAG_DATA ì\æóæ╠
Éαû╛ : üùâ^âOé╠Åεò±é≡èiö[é╡é▄é╖üB
üyÆΦï`üz
Public Type AT_TAG_DATA
Artist As String * 1024 'âAü[âeâBâXâgû╝
Title As String * 1024 'â^âCâgâï
Album As String * 1024 'âAâïâoâÇû╝
Bgfile As String * 1024 'öwîiâtâ@âCâïû╝
Bgfolder As String * 1024 'öwîiâtâHâïâ_û╝
TimeRatio As Double 'Ä₧è╘öΣ
Offset As Long 'òΓÉ│Ä₧è╘[ms]
SilencemSec As Long 'û│ë╣òöÄ₧è╘[ms]
TaggingBy As String * 1024 'â^âOì∞ɼÄ╥
EditedBy As String * 1024 'â^âOÅCÉ│Ä╥
Silence As Long 'û│ë╣âtâîü[âÇÉö
Flames As Long 'æìâtâîü[âÇÉö
TotalSec As Long 'ëëætæìÄ₧è╘[s]
TimeType As String * 1024 'ì─É╢Ä₧è╘Äφò╩(WinAmp or Normal)
End Type
üyÄgùpùßüz
Dim atTagData As AT_TAG_DATA
'üùâ^âOÅεò±Äµô╛
Call vbmp3_getAtTagData(atTagData)
------------------------------------------------------
è╓Éöû╝ : vbmp3_getCallbackLyricsData()
ï@ö\ : ë╠ÄîÅεò±Äµô╛âRü[âïâoâbâNè╓ÉöÉ▌ÆΦ
ê°Éö : âRü[âïâoâbâNè╓Éöé╠âAâhâîâX(AddressOf ÄwÆΦ)
û▀éΦÆl : True = ɼî≈
False = Ä╕ös
Éαû╛ : âRü[âïâoâbâNè╓Éöé≡É▌ÆΦé╡é▄é╖üB
AddressOf è╓Éöé≡Ägùpé╖éΘé╜é▀ VB5 ê╚ì~é╠é▌Ägùpë┬ö\é┼é╖üB
üªé▒é╠è╓Éöé═ÆΓÄ~Å≤æ╘é╠Ä₧é╠é▌Ä└ìsé┼é½é▄é╖üB
LYRICS_DATA ì\æóæ╠
Éαû╛ : ë╠ÄîÅεò±é≡èiö[é╡é▄é╖üB
üyÆΦï`üz
Public Type LYRICS_DATA
no As Long 'özù±ö╘ìå
sec As Long 'â~âèòb
lineno As Long 'ìsö╘ìå 0ü`
point As Long 'ìsê╩Æu 0ü`(0é═ë╠Äîɵô╟ùp)
tagFlag As Boolean 'â^âOùLû│
textSize As Long 'âeâLâXâgâTâCâY[byte]
lyrics As String * 128 'ë╠Äî
End Type
üyâRü[âïâoâbâNè╓Éöüz
è╓Éöû╝ : û╝Å╠öCê╙é╠SubâvâìâVü[âWââ
ï@ö\ : VBMP3.DLL éµéΦôαòöé╔ò█Ä¥é╡é─éóéΘë╠ÄîÅεò±é≡ĵô╛é╡é▄é╖üB
ê°Éö : lyData = LYRICS_DATA ì\æóæ╠
û▀éΦÆl : û│é╡
Éαû╛ : ë╠ÄîÅεò±Äµô╛ùpé╠âRü[âïâoâbâNè╓Éöé┼é╖üB
é⌐é╚éτé╕üAòWÅÇâéâWâàü[âïôαé╔ì∞ɼé╡é─é¡é╛é│éóüB
üªò╢ÄÜù±é═ S-JIS âRü[âhé┼ĵô╛é│éΩéΘé╜é▀Unicode é╔ò╧è╖é╖éΘòKùvé¬éáéΦé▄é╖üB
VB, VC é╠ò╧Éöé╠êßéóé╔éµéΦò╢ô¬é╔âSâ~é¬é┬éóé─ò╧è╖é│éΩéΘé╜é▀
VBMP3.bas ôαé╠ NTRIM2 è╓Éöé≡Ägùpé╡é─âSâ~é≡Å£ïÄé╡é─ë║é│éóüB
é▄é╜üAë╠Äîò╢ÄÜù±é¬ 0 âoâCâgé╠ÅΩìçé═üANTRIM2 é┼éαâSâ~é≡Å£ïÄé┼é½é╚éóé╜é▀
LYRICS_DATA ì\æóæ╠ é╠ textSize é┼ö╗ÆΦé╡üAÆ╝É┌ "" é╚é╟é≡æπôⁿé╖éΘéµéñé╔é╡é─ë║é│éóüB
üyÄgùpùßüz
'âRü[âïâoâbâNè╓ÉöÄwÆΦ
Call vbmp3_getCallbackLyricsData(AddressOf vbmp3_getLyricsDataProc)
üyâRü[âïâoâbâNè╓Éöùßüz
Public Sub vbmp3_getLyricsDataProc(lyData As LYRICS_DATA)
'ëⁿìsòtù^
If lyData.point = 1 And lyricsData <> "" Then
lyricsData = lyricsData & vbCrLf
End If
If lyData.textSize <> 0 Then
lyricsData = lyricsData & NTrim2(StrConv(lyData.lyrics, vbUnicode))
End If
End Sub
------------------------------------------------------
è╓Éöû╝ : vbmp3_getLyricsPoint()
ï@ö\ : âJâîâôâgâ^âOê╩Æuĵô╛è╓Éö
ê°Éö : û│é╡
û▀éΦÆl : â^âOê╩Æu(özù±ö╘ìå)
-1 = ë╠Äîûóô╟ì₧
Éαû╛ : ì─É╢Æåé╠ë╠Äîê╩Æué≡ĵô╛é╖éΘüB
üyÄgùpùßüz
Dim lyPoint As Long
'âJâîâôâgâ^âOê╩Æuĵô╛
lyPoint = vbmp3_getLyricsPoint()