home *** CD-ROM | disk | FTP | other *** search
/ Chip 2003 January / soundCD_1.03.iso / editors / songs / SoundEngine / vbmp31615.lzh / func.txt < prev    next >
Text File  |  2000-05-31  |  65KB  |  2,202 lines
  1. VBMP3è╓Éöâèâtâ@âîâôâX
  2.  
  3. üíÅëè·É▌ÆΦÆl
  4.   VBMP3 é╠Åëè·É▌ÆΦé≡ê╚ë║é╔Īé╖üB
  5.   Å┌ì╫é╔é┬éóé─é═üAèeè╓ÉöÉαû╛é≡ÄQÅ╞
  6.  
  7.   üEVBMP3É▌ÆΦ(vbmp3_setVbmp3Option)
  8.     inputBlock  = 30[âtâîü[âÇ]
  9.     outputBlock = 20[âtâîü[âÇ]
  10.     inputSleep  = 5[ms]
  11.     outputSleep = 0[ms]
  12.  
  13.   üEâfâRü[âhâGâôâWâôÉ▌ÆΦ(vbmp3_setDecodeOption)
  14.     reduction = 0(âîü[âgò╧ìXû│é╡)
  15.     convert   = 0(Åoù═â`âââôâlâïÉöò╧ìXû│é╡)
  16.     freqLimit = 24000[Hz]
  17.  
  18.   üEâOâëâtâBâbâNâCâRâëâCâUÉ▌ÆΦ(vbmp3_setEqualizer)
  19.     èeɼò¬é╖é╫é─ 0
  20.  
  21.   üEâsâbâ`É▌ÆΦ(vbmp3_setPitch)
  22.     100[%]
  23.  
  24.   üEâtâFü[âhâCâôÉ▌ÆΦ(vbmp3_setFadeIn)
  25.     0(Æ╩ÅφèJÄn)
  26.  
  27.   üEâtâFü[âhâAâEâgÉ▌ÆΦ(vbmp3_setFadeOut)
  28.     0(Æ╩ÅφèJÄn)
  29.  
  30.   üEì─É╢æ¼ôxÉ▌ÆΦ(vbmp3_setStepPitch)
  31.     1[ö{æ¼]
  32.  
  33.   üEëëætÄ₧è╘é╠ĵô╛É▌ÆΦ(vbmp3_setOverTime)
  34.     0(æìëëætÄ₧è╘ê╚Åπé═âJâEâôâgé╡é╚éó)
  35.  
  36.   üEâ\âtâgâ{âèâàü|âÇÉ▌ÆΦ(vbmp3_setSoftVolume)
  37.     ì╢ëEé╞éαé╔ 100[%]
  38.  
  39.   üELYRICS3 â^âOæ}ôⁿê╩ÆuÉ▌ÆΦ(vbmp3_setLyrics3InsField)
  40.     0(ILYC é╔æ}ôⁿ)
  41.  
  42.   üELYRICS3 â^âOÄ⌐ô«ô╟ì₧É▌ÆΦ(vbmp3_setLyrics3Use)
  43.     0(Ä⌐ô«ô╟ì₧é╡é╚éó)
  44.  
  45.   üEâXâyâNâgâëâÇâAâiâëâCâUùpæïè╓ÉöÉ▌ÆΦ(vbmp3_setFftWindow)
  46.     1(hanning)
  47.  
  48.   üEâJâëâIâPâ^âOÄgùpÉ▌ÆΦ(vbmp3_setKaraokeUse)
  49.     0(ûóÄgùp)
  50.  
  51.   üEë╠Äîò\ĪÄ₧è╘É▌ÆΦ(vbmp3_setLyricsTime)
  52.     0(WinampÄ₧è╘Ägùp)
  53.  
  54.   üEWAVEÅoù═âfâoâCâXÉ▌ÆΦ(vbmp3_setWaveOutDeviceId)
  55.     WAVE_MAPPER
  56.  
  57.   üEâ^âCâÇâ^âOû│é╡ìsô╟ì₧É▌ÆΦ(vbmp3_setNotTagLyricsLine)
  58.     1(â^âCâÇâ^âOû│é╡ìsé╠ô╟ì₧ùLéΦ)
  59.  
  60.   üESIâtâBü[âïâhÅoù═É▌ÆΦ(vbmp3_setNotDataSiWrite)
  61.     1(é╖é╫é─é╠SIâtâBü[âïâhé≡Åoù═)
  62.  
  63.   üEì─É╢Ä₧âtâîü[âÇĵô╛ò√û@É▌ÆΦ(vbmp3_setFrameReadFlag)
  64.     0(Æ╩Åφ)
  65.  
  66.   üEâ^âCâÇâ^âOòΓÉ│É▌ÆΦ(vbmp3_setLyricsAdjustTime)
  67.     0[ms]
  68.  
  69.   üEâVü[âNÉ▌ÆΦ(vbmp3_setSeekPlay)
  70.     0(Ä⌐ô«ì─É╢é╡é╚éó)
  71.  
  72.   üEë╠Äîìsɵìsô╟ì₧É▌ÆΦ(vbmp3_setLyricsNextAdjustTime)
  73.     0[ms]
  74.  
  75.   üEìéæ¼âVü[âNÉ▌ÆΦ(vbmp3_quickSeek)
  76.     1(Ägùp)
  77.  
  78.   üEüùâ^âOô╟ì₧É▌ÆΦ(vbmp3_useAtMarkTag)
  79.     0(Åêù¥û│é╡)
  80.  
  81. üíè╓ÉöÄdùl
  82.  
  83.   è╓Éöû╝ : vbmp3_init()
  84.   ï@ö\   : VBMP3.DLL é╠Åëè·ë╗
  85.   ê°Éö   : é╚é╡
  86.   û▀éΦÆl : True  = É¼î≈
  87.            False = Ä╕ös
  88.   Éαû╛   : âfâRü[âhâGâôâWâôé╚é╟é╠Åëè·ë╗é≡ìséóé▄é╖üB
  89.            âvâìâOâëâÇèJÄnÄ₧é╔òKé╕Ä└ìsé╡é─ë║é│éóüB
  90.  
  91.  üyÄgùpùßüz
  92.  
  93.     Call vbmp3_init
  94.  
  95.   ------------------------------------------------------
  96.  
  97.   è╓Éöû╝ : vbmp3_free()
  98.   ï@ö\   : VBMP3.DLL Ägùpâüâéâèé╠èJò·
  99.   ê°Éö   : é╚é╡
  100.   û▀éΦÆl : True  = É¼î≈
  101.            False = Ä╕ös
  102.   Éαû╛   : VBMP3.DLL é┼Ägùpé╡é─éóéΘâüâéâèé╠èJò·é≡ìséóé▄é╖üB
  103.            âvâìâOâëâÇé≡ÅIù╣é╖éΘæOé╔òKé╕Ä└ìsé╡é─ë║é│éóüB
  104.  
  105.  üyÄgùpùßüz
  106.  
  107.     Call vbmp3_free
  108.  
  109.   ------------------------------------------------------
  110.  
  111.   è╓Éöû╝ : vbmp3_open()
  112.   ï@ö\   : âtâ@âCâïé╠ô╟ì₧
  113.   ê°Éö   : pszName = âtâ@âCâïû╝(âpâXé¬ê┘é╚éΘÅΩìçé═âpâXéαÄwÆΦé╡é─é¡é╛é│éó)
  114.            pInfo   = inputInfo ì\æóæ╠ò╧Éö
  115.   û▀éΦÆl : True  = É¼î≈
  116.            False = Ä╕ös
  117.   Éαû╛   : âtâ@âCâïé╠ô╟ì₧é≡ìséóé▄é╖üB
  118.  
  119.   inputInfo ì\æóæ╠
  120.   Éαû╛   : MPEG Audioâtâ@âCâïé≡ô╟é▌ì₧é▌üAâ^âOÅεò±ôÖé≡ĵô╛é╡é▄é╖üB
  121.            üªWAVEâtâ@âCâïé┼é═üAbitrate é╔ bit/sample é╠ÆlüA
  122.              szTrackName, szTrackName é╔üuWAVE_FORMAT_PCMüvé¬
  123.              ôⁿù═é│éΩé▄é╖üB
  124.  
  125.  üyÆΦï`üz
  126.     Public Type InputInfo
  127.         szTrackName As String * 128     'ï╚û╝
  128.         szArtistName As String * 128    '▒░├¿╜─û╝
  129.         channels As Long                '┴¼▌╚┘Éö
  130.         bitRate As Long                 '╦▐»─┌░─(kbit/s)
  131.         samplingRate As Long            '╗▌╠▀┘┌░─(Hz)
  132.         totalSec As Long                'ëëætÄ₧è╘(s)
  133.     End Type
  134.  
  135.  üyÄgùpùßüz
  136.  
  137.     Dim data As InputInfo
  138.  
  139.     'âtâ@âCâïé╠ô╟ì₧
  140.     If vbmp3_open("C:\hoge.mp3", data) = False Then
  141.         MsgBox "Open Error"
  142.         Exit Sub
  143.     End If
  144.  
  145.   ------------------------------------------------------
  146.  
  147.   è╓Éöû╝ : vbmp3_close()
  148.   ï@ö\   : âtâ@âCâïé≡ò┬é╢éΘ
  149.   ê°Éö   : é╚é╡
  150.   û▀éΦÆl : True  = É¼î≈
  151.            False = Ä╕ös
  152.   Éαû╛   : ô╟ì₧é±é╛âtâ@âCâïé≡ò┬é╢é▄é╖üB
  153.            ÿAæ▒ì─É╢é≡é╖éΘé╞é½é╚é╟üAvbmp3_open é╠æOé╔Ä└ìsé╡é─é¡é╛é│éóüB
  154.  
  155.  üyÄgùpùßüz
  156.  
  157.     Call vbmp3_close
  158.  
  159.   ------------------------------------------------------
  160.  
  161.   è╓Éöû╝ : vbmp3_getState()
  162.   ï@ö\   : ì─É╢Å≤æ╘é╞ì─É╢Ä₧è╘é╠ĵô╛
  163.   ê°Éö   : sec = ì─É╢Ä₧è╘ĵô╛ùp
  164.   û▀éΦÆl : 0   = ÆΓÄ~Æå
  165.            1   = ì─É╢Æå
  166.            2   = êΩÄ₧ÆΓÄ~Æå
  167.   Éαû╛   : ì─É╢Å≤æ╘é╞ì─É╢îoë▀Ä₧è╘é≡ĵô╛é╡é▄é╖üB
  168.  
  169.  üyÄgùpùßüz
  170.  
  171.     Dim state As Long
  172.     Dim sec As Long
  173.  
  174.     state = vbmp3_getState(sec)
  175.  
  176.   ------------------------------------------------------
  177.  
  178.   è╓Éöû╝ : vbmp3_play()
  179.   ï@ö\   : ô╟é▌ì₧é±é╛âtâ@âCâïé╠ì─É╢
  180.   ê°Éö   : é╚é╡
  181.   û▀éΦÆl : True  = É¼î≈
  182.            False = Ä╕ös
  183.   Éαû╛   : ô╟ì₧é±é╛âtâ@âCâïé≡ì─É╢é╡é▄é╖üB
  184.  
  185.  üyÄgùpùßüz
  186.  
  187.     Call vbmp3_play
  188.  
  189.   ------------------------------------------------------
  190.  
  191.   è╓Éöû╝ : vbmp3_stop()
  192.   ï@ö\   : ì─É╢é╠ÆΓÄ~
  193.   ê°Éö   : é╚é╡
  194.   û▀éΦÆl : True  = É¼î≈
  195.            False = Ä╕ös
  196.   Éαû╛   : ì─É╢Æåé╠ï╚é≡ÆΓÄ~é╡é▄é╖üB
  197.  
  198.  üyÄgùpùßüz
  199.  
  200.     Call vbmp3_stop
  201.  
  202.   ------------------------------------------------------
  203.  
  204.   è╓Éöû╝ : vbmp3_pause()
  205.   ï@ö\   : ì─É╢é╠êΩÄ₧ÆΓÄ~
  206.   ê°Éö   : é╚é╡
  207.   û▀éΦÆl : True  = É¼î≈
  208.            False = Ä╕ös
  209.   Éαû╛   : ì─É╢Æåé╠ï╚é≡êΩÄ₧ÆΓÄ~é╡é▄é╖üB
  210.  
  211.  üyÄgùpùßüz
  212.  
  213.     Call vbmp3_pause
  214.  
  215.   ------------------------------------------------------
  216.  
  217.   è╓Éöû╝ : vbmp3_restart()
  218.   ï@ö\   : êΩÄ₧ÆΓÄ~Å≤æ╘é╠ë≡Å£
  219.   ê°Éö   : é╚é╡
  220.   û▀éΦÆl : True  = É¼î≈
  221.            False = Ä╕ös
  222.   Éαû╛   : êΩÄ₧ÆΓÄ~Æåé╠ï╚é≡ì─É╢ì─èJé╡é▄é╖üB
  223.  
  224.  üyÄgùpùßüz
  225.  
  226.     Call vbmp3_restart
  227.  
  228.   ------------------------------------------------------
  229.  
  230.   è╓Éöû╝ : vbmp3_seek()
  231.   ï@ö\   : ëëætê╩Æué╠ê┌ô«
  232.   ê°Éö   : sec   = ì─É╢ê╩Æu(òb)
  233.   û▀éΦÆl : True  = É¼î≈
  234.            False = Ä╕ös
  235.   Éαû╛   : ì─É╢ê╩Æué≡ê┌ô«é╡é▄é╖üB
  236.  
  237.  üyÄgùpùßüz
  238.  
  239.     Call vbmp3_seek(10)
  240.  
  241.   ------------------------------------------------------
  242.  
  243.   è╓Éöû╝ : vbmp3_setVolume()
  244.   ï@ö\   : â{âèâàü[âÇé╠ò╧ìX
  245.   ê°Éö   : lVol  = ì╢æñé╠â{âèâàü[âÇ
  246.            rVol  = ëEæñé╠â{âèâàü[âÇ
  247.   û▀éΦÆl : True  = É¼î≈
  248.            False = Ä╕ös
  249.   Éαû╛   : ì╢ü^ëEé╠â{âèâàü[âÇé≡Æ▓É▀é╡é▄é╖üB
  250.            ë╣î╣é╔éµé┴é─é═ò╨ò√é╡é⌐î°é⌐é╚éóÅΩìçé¬éáéΦé▄é╖üB
  251.  
  252.  üyÄgùpùßüz
  253.  
  254.     Call vbmp3_setVolume(70, 70)
  255.  
  256.   ------------------------------------------------------
  257.  
  258.   è╓Éöû╝ : vbmp3_getVersion()
  259.   ï@ö\   : VBMP3 é╠âoü[âWâçâôĵô╛
  260.   ê°Éö   : é╚é╡
  261.   û▀éΦÆl : âoü[âWâçâôö╘ìå * 100 (1.00 é╚éτ 100)
  262.   Éαû╛   : VBMP3é╠âoü[âWâçâôé≡ĵô╛é╡é▄é╖üB
  263.  
  264.  üyÄgùpùßüz
  265.  
  266.     Dim VerNo As Long
  267.  
  268.     VerNo = vbmp3_getVersion()
  269.  
  270.   ------------------------------------------------------
  271.  
  272.   è╓Éöû╝ : vbmp3_getTagInfo()
  273.   ï@ö\   : MPEG Audio âtâ@âCâïé╠â^âOÅεò±Äµô╛
  274.   ê°Éö   : pTagInfo   = TAG_INFO ì\æóæ╠ò╧Éö
  275.   û▀éΦÆl : True  = É¼î≈
  276.            False = Ä╕ös
  277.   Éαû╛   : MPEG Audio âtâ@âCâïé╠â^âOÅεò±é≡ĵô╛é╡é▄é╖üB
  278.  
  279.   TAG_INFO ì\æóæ╠
  280.   Éαû╛   : MPEG Audio âtâ@âCâïé╠â^âOÅεò±é≡èiö[é╡é▄é╖üB
  281.  
  282.  üyÆΦï`üz
  283.     Public Type TAG_INFO
  284.         szTrackName As String * 128     'ï╚û╝
  285.         szArtistName As String * 128    '▒░├¿╜─û╝
  286.         szAlbumName As String * 128     '▒┘╩▐╤û╝
  287.         szYear As String * 5            '╪╪░╜öNìå
  288.         szComment As String * 128       '║╥▌─
  289.         genre As Long                   '╝▐¼▌┘
  290.         szGenreName As String * 128     '╝▐¼▌┘û╝
  291.     End Type
  292.  
  293.  üyÄgùpùßüz
  294.  
  295.     Dim TagData As TAG_INFO
  296.  
  297.     'â^âOÅεò±Äµô╛
  298.     If vbmp3_getTagInfo(TagData) = False Then Exit Sub
  299.  
  300.   ------------------------------------------------------
  301.  
  302.   è╓Éöû╝ : vbmp3_getMpegInfo()
  303.   ï@ö\   : MPEG Audio âtâ@âCâïé╠MPEGâwâbâ_Åεò±Äµô╛
  304.   ê°Éö   : pMpegTagInfo   = MPEG_INFO ì\æóæ╠ò╧Éö
  305.   û▀éΦÆl : True  = É¼î≈
  306.            False = Ä╕ös
  307.   Éαû╛   : MPEG Audio âtâ@âCâïé╠âwâbâ_Åεò±é≡ĵô╛é╡é▄é╖üB
  308.              üªMPEG2.5 é╠âoü[âWâçâôé═üu3üvé╞ĵô╛é│éΩé▄é╖
  309.  
  310.   MPEG_INFO ì\æóæ╠
  311.   Éαû╛   : MPEG Audio âtâ@âCâïé╠MPEGâwâbâ_Åεò±é≡èiö[é╡é▄é╖üB
  312.  
  313.  üyÆΦï`üz
  314.     Public Type MPEG_INFO
  315.         version As Long                 '╩▐░╝▐«▌
  316.         layer As Long                   '┌▓╘
  317.         crcDisable As Long              '┤╫░ò█î∞
  318.         extension As Long               '┤╕╜├▌╝«▌
  319.         mode As Long                    '┴¼▌╚┘╙░─▐
  320.         copyright As Long               'Æÿì∞îá
  321.         original As Long                '╡╪╝▐┼┘
  322.         emphasis As Long                '┤▌╠½╝╜
  323.         
  324.         channels As Long                '┴¼▌╚┘Éö
  325.         bitrate As Long                 '╦▐»─┌░─(kbit/s)
  326.         samplingRate As Long            '╗▌╠▀┘┌░─(Hz)
  327.         fileSize As Long                '╠º▓┘╗▓╜▐(Byte)
  328.         frames As Long                  '╠┌░╤Éö
  329.         totalSec As Long                'ëëætÄ₧è╘(s)
  330.     End Type
  331.  
  332.  üyÄgùpùßüz
  333.  
  334.     Dim MpegData As MPEG_INFO
  335.  
  336.     'mpeg âtâ@âCâïÅεò±Äµô╛
  337.     If vbmp3_getMpegInfo(MpegData) = False Then Exit Sub
  338.  
  339.   ------------------------------------------------------
  340.  
  341.   è╓Éöû╝ : vbmp3_setVbmp3Option()
  342.   ï@ö\   : VBMP3 é╠èeÉ▌ÆΦÆlÉ▌ÆΦ
  343.   ê°Éö   : pVbmp3Option   = VBMP3_OPTION ì\æóæ╠ò╧Éö
  344.   û▀éΦÆl : True  = É¼î≈
  345.            False = Ä╕ös
  346.   Éαû╛   : ô╟é▌ì₧é▌âtâîü[âÇÉöé╚é╟é╠Ælé≡É▌ÆΦé╡é▄é╖üB
  347.  
  348.            üªé▒é╠è╓Éöé═ÆΓÄ~Å≤æ╘é╠Ä₧é╠é▌Ä└ìsé┼é½é▄é╖üB
  349.  
  350.   VBMP3_OPTION ì\æóæ╠
  351.   Éαû╛   : ô╟é▌ì₧é▌âtâîü[âÇÉöé╚é╟é╠Ælé≡èiö[é╡é▄é╖üB
  352.  
  353.            inputBlock    : ôⁿù═âtâîü[âÇÉö
  354.                            òüÆ╩é═ò╧ìXé╡é╚é¡é─éαæσÅΣòvé┼é╖üB
  355.  
  356.            outputBlock   : Åoù═âtâîü[âÇÉö
  357.                            é▒é╠Ælé≡ò╧ìXé╖éΘé▒é╞é┼òëë╫é¬ìééóé╞é½é╠
  358.                            ë╣ö≥é╤é≡îyî╕é┼é½é▄é╖üB
  359.                            É▌ÆΦÆlé═ôⁿù═âtâîü[âÇÉöê╚ë║é╔é╡é─ë║é│éóüB
  360.  
  361.            inputSleep    : ôⁿù═Æ╝îπé╠âXâèü[âvÄ₧è╘(â~âèòb)
  362.                            Æ╖éóò√鬠CPU òëë╫é≡îyî╕é┼é½é▄é╖é¬üAÆ╖é╖é¼éΘé╞
  363.                            ë╣ö≥é╤é╠î┤ê÷é╞é╚éΦé▄é╖üB
  364.                            1ü`50 â~âèòbê╩é¬ì┼ôKé╛é╞Ävéóé▄é╖üB
  365.  
  366.            outputSleep   : Åoù═Ä₧é╠âXâèü[âvÄ₧è╘(â~âèòb)
  367.  
  368.            üªé╗éΩé╝éΩé╠É▌ÆΦÆlé╔éµé┴é─é═ë╣ö≥é╤é╚é╟é┼é▄é╞éαé╔
  369.              ì─É╢Åoùêé╚é¡é╚éΘé▒é╞é¬éáéΦé▄é╖üB
  370.              É▌ÆΦé╔é═Æìê╙é╡é─é¡é╛é│éóüB
  371.  
  372.  üyÆΦï`üz
  373.     Public Type VBMP3_OPTION
  374.         inputBlock As Long      'ôⁿù═âtâîü[âÇÉö[Default = 30]
  375.         outputBlock As Long     'Åoù═âtâîü[âÇÉö[Default = 20]
  376.         inputSleep As Long      'ôⁿù═Æ╝îπé╠╜╪░╠▀Ä₧è╘(╨╪òb)[Default = 5]
  377.         outputSleep As Long     'Åoù═Æ╝îπé╠╜╪░╠▀Ä₧è╘(╨╪òb)[Default = 0]
  378.     End Type
  379.  
  380.  üyÄgùpùßüz
  381.  
  382.     Dim opt As VBMP3_OPTION
  383.  
  384.     opt.inputBlock = 128
  385.     opt.inputSleep = 30
  386.     opt.outputSleep = 0
  387.  
  388.     If vbmp3_setVbmp3Option(opt) = False Then
  389.         MsgBox "error"
  390.     End If
  391.  
  392.   ------------------------------------------------------
  393.  
  394.   è╓Éöû╝ : vbmp3_getVbmp3Option()
  395.   ï@ö\   : VBMP3 é╠èeÉ▌ÆΦÆlĵô╛
  396.   ê°Éö   : pVbmp3Option   = VBMP3_OPTION ì\æóæ╠ò╧Éö
  397.   û▀éΦÆl : é╚é╡
  398.   Éαû╛   : ô╟é▌ì₧é▌âtâîü[âÇÉöé╚é╟é╠Ælé≡ĵô╛é╡é▄é╖üB
  399.  
  400.  üyÄgùpùßüz
  401.  
  402.     Dim opt As VBMP3_OPTION
  403.  
  404.     Call vbmp3_getVbmp3Option(opt)
  405.  
  406.   ------------------------------------------------------
  407.  
  408.   è╓Éöû╝ : vbmp3_setDecodeOption()
  409.   ï@ö\   : âfâRü[âhâGâôâWâôé╠èeÉ▌ÆΦÆlÉ▌ÆΦ
  410.   ê°Éö   : pDecOption   = DEC_OPTION ì\æóæ╠ò╧Éö
  411.   û▀éΦÆl : True  = É¼î≈
  412.            False = Ä╕ös
  413.   Éαû╛   : ì─É╢âTâôâvâèâôâOâîü[âgé╚é╟é╠Ælé≡É▌ÆΦé╡é▄é╖üB
  414.  
  415.            üªé▒é╠è╓Éöé═ÆΓÄ~Å≤æ╘é╠Ä₧é╠é▌Ä└ìsé┼é½é▄é╖üB
  416.  
  417.              é▄é╜üAè╓ÉöÄ└ìsîπé═ vbmp3_open é≡ì─Ä└ìsé╡é─é¡é╛é│éóüB
  418.              ûóÄ└ìsé┼ì─É╢é≡ìsé┴é╜ÅΩìçé═üAÉ│Åφé╔ì─É╢é│éΩé▄é╣é±üB
  419.              üireduction = 1 é╔é╡é─üAé╗é╠é▄é▄ì─É╢Ä₧é═éQö{æ¼ëëætüj
  420.  
  421.              é╡é⌐é╡üAö{æ¼ëëæté╚é╟é╔ùÿùpé╡é╜éóÅΩìçé═üAé╗é╠é▄é▄ì─É╢é╡é─éα
  422.              ûΓæΦé═éáéΦé▄é╣é±üB
  423.  
  424.   DEC_OPTION ì\æóæ╠
  425.   Éαû╛   : ì─É╢âTâôâvâèâôâOâîü[âgé╚é╟é╠Ælé≡èiö[é╡é▄é╖üB
  426.  
  427.            reduction     : â_âEâôâTâôâvâèâôâO(0:1/1 1:1/2 2:1/4 [Default = 0])
  428.                            âfü[â^é╠âTâôâvâèâôâOâîü[âgé≡ë║é░é─ô╟é▌ì₧é▌é▄é╖üB
  429.  
  430.            convert       : Åoù═â`âââôâlâï(0:âXâeâîâI 1:âéâmâëâï[Default = 0])
  431.                            ô╟é▌ì₧é▐â`âââôâlâïÉöé≡É▌ÆΦé╡é▄é╖üB
  432.                            âéâmâëâïé╠ÅΩìçô╟é▌ì₧é▐âfü[â^ù╩é¬éPü^éQé╞é╚éΦé▄é╖üB
  433.  
  434.            freqLimit     : Åoù═âTâôâvâèâôâOâîü[âg[Default = 24000]
  435.                            Åoù═Ä₧é╠âTâôâvâèâôâOâîü[âgé≡É▌ÆΦé╡é▄é╖üB
  436.  
  437.  üyÆΦï`üz
  438.  
  439.     Public Type DEC_OPTION
  440.         reduction As Long     'â_âEâôâTâôâvâèâôâO 0:1/1 1:1/2 2:1/4 [Default = 0]
  441.         convert As Long       'Åoù═â`âââôâlâï 0:âXâeâîâI 1:âéâmâëâï[Default = 0]
  442.         freqLimit As Long     'Åoù═âîü[âg[Default = 24000]
  443.     End Type
  444.  
  445.  üyÄgùpùßüz
  446.  
  447.     Dim opt As DEC_OPTION
  448.  
  449.     opt.reduction = 0
  450.     opt.convert = 0
  451.     opt.freqLimit = 24000
  452.  
  453.     If vbmp3_setDecodeOption(opt) = False Then
  454.         MsgBox "error"
  455.     End If
  456.  
  457.   ------------------------------------------------------
  458.  
  459.   è╓Éöû╝ : vbmp3_getDecodeOption()
  460.   ï@ö\   :  âfâRü[âhâGâôâWâôé╠èeÉ▌ÆΦÆlĵô╛
  461.   ê°Éö   : pDecOption   = DEC_OPTION ì\æóæ╠ò╧Éö
  462.   û▀éΦÆl : é╚é╡
  463.   Éαû╛   : ì─É╢âTâôâvâèâôâOâîü[âgé╚é╟é╠Ælé≡ĵô╛é╡é▄é╖üB
  464.  
  465.  üyÄgùpùßüz
  466.  
  467.     Dim opt As DEC_OPTION
  468.  
  469.     Call vbmp3_getDecodeOption(opt)
  470.  
  471.   ------------------------------------------------------
  472.  
  473.   è╓Éöû╝ : vbmp3_getGenre()
  474.   ï@ö\   : âWâââôâïö╘ìåéµéΦâWâââôâïû╝ĵô╛
  475.   ê°Éö   : pTagInfo   = TAG_INFO ì\æóæ╠ò╧Éö
  476.   û▀éΦÆl : True  = É¼î≈
  477.            False = Ä╕ös
  478.   Éαû╛   : âWâââôâïö╘ìåéµéΦâWâââôâïû╝é≡ĵô╛é╡é▄é╖üB
  479.  
  480.  üyÄgùpùßüz
  481.  
  482.     Dim TagData As TAG_INFO
  483.  
  484.     TagData.genre = 10
  485.     Call vbmp3_getGenre(TagData)
  486.  
  487.   ------------------------------------------------------
  488.  
  489.   è╓Éöû╝ : vbmp3_setTagInfo()
  490.   ï@ö\   : MPEG Audio âtâ@âCâïé╠â^âOÅεò±Åæé½ì₧é▌
  491.   ê°Éö   : pszName  = âtâ@âCâïû╝(âpâXé¬ê┘é╚éΘÅΩìçé═âpâXéαÄwÆΦé╡é─é¡é╛é│éó)
  492.            pTagInfo = TAG_INFO ì\æóæ╠ò╧Éö
  493.            tagSet   = 1 : DLL ôαòöé╠ TAG Åεò±Åæé½è╖éª(ì─É╢Æåâtâ@âCâïÄ₧ÄwÆΦ)
  494.                       0 :     üV             ò╧ìXû│é╡
  495.                          Å╚ù¬ë┬ö\,âfâtâHâïâg 0
  496.            tagAdd   = 1 : ID3Tag v1 é¬æ╢ì▌é╡é╚éóé╞é½Æ╟ë┴é╖éΘ
  497.                       0 :              üV           Æ╟ë┴é╡é╚éó
  498.                          Å╚ù¬ë┬ö\,âfâtâHâïâg 0
  499.   û▀éΦÆl : True  = É¼î≈
  500.            False = Ä╕ös
  501.   Éαû╛   : MPEG Audio âtâ@âCâïé╔â^âOÅεò±é≡Åæé½ì₧é▌é▄é╖üB
  502.  
  503.  üyÄgùpùßüz
  504.  
  505.     Dim TagData As TAG_INFO
  506.  
  507.     TagData.szTrackName = "TrackName"   '30ò╢ÄÜû┌ê╚ì~É╪éΦÄ╠é─
  508.     TagData.szArtistName = "ArtistName" '30ò╢ÄÜû┌ê╚ì~É╪éΦÄ╠é─
  509.     TagData.szAlbumName = "AlbumName"   '30ò╢ÄÜû┌ê╚ì~É╪éΦÄ╠é─
  510.     TagData.szYear = "199909"           '4ò╢ÄÜû┌ê╚ì~É╪éΦÄ╠é─
  511.     TagData.szComment = "Comment"       '30ò╢ÄÜû┌ê╚ì~É╪éΦÄ╠é─
  512.     TagData.genre = 50                  '0ü`255
  513.  
  514.     'ì─É╢Æåâtâ@âCâïé╠ò╧ìX
  515.     Call vbmp3_setTagInfo("C:\hoge.mp3", TagData, 1, 1)
  516.  
  517.   ------------------------------------------------------
  518.  
  519.   è╓Éöû╝ : vbmp3_getFileInfo()
  520.   ï@ö\   : MPEG Audio âtâ@âCâïé╠âtâ@âCâïÅεò±Äµô╛
  521.   ê°Éö   : pszName  = âtâ@âCâïû╝(âpâXé¬ê┘é╚éΘÅΩìçé═âpâXéαÄwÆΦé╡é─é¡é╛é│éó)
  522.            pTagInfo = TAG_INFO ì\æóæ╠ò╧Éö
  523.            pMpegInfo = MPEG_INFO ì\æóæ╠ò╧Éö
  524.   û▀éΦÆl : True  = É¼î≈
  525.            False = Ä╕ös
  526.   Éαû╛   : MPEG Audio âtâ@âCâïé╠âtâ@âCâïÅεò±Äµô╛ĵô╛é╡é▄é╖üB
  527.              üªMPEG2.5 é╠âoü[âWâçâôé═üu3üvé╞ĵô╛é│éΩé▄é╖
  528.  
  529.  üyÄgùpùßüz
  530.  
  531.     Dim TagData As TAG_INFO
  532.     Dim MpegData As MPEG_INFO
  533.  
  534.     'âtâ@âCâïÅεò±Äµô╛
  535.     Call vbmp3_getFileInfo("C:\hoge.mp3", TagData, MpegData)
  536.  
  537.   ------------------------------------------------------
  538.  
  539.   è╓Éöû╝ : vbmp3_getFileTagInfo()
  540.   ï@ö\   : MPEG Audio âtâ@âCâïé╠â^âOÅεò±Äµô╛
  541.   ê°Éö   : pszName  = âtâ@âCâïû╝(âpâXé¬ê┘é╚éΘÅΩìçé═âpâXéαÄwÆΦé╡é─é¡é╛é│éó)
  542.            pTagInfo = TAG_INFO ì\æóæ╠ò╧Éö
  543.   û▀éΦÆl : True  = É¼î≈
  544.            False = Ä╕ös
  545.   Éαû╛   : MPEG Audio âtâ@âCâïé╠â^âOÅεò±Äµô╛ĵô╛é╡é▄é╖üB
  546.  
  547.  üyÄgùpùßüz
  548.  
  549.     Dim TagData As TAG_INFO
  550.  
  551.     'â^âOÅεò±Äµô╛
  552.     Call vbmp3_getFileTagInfo("C:\hoge.mp3", TagData)
  553.  
  554.   ------------------------------------------------------
  555.  
  556.   è╓Éöû╝ : vbmp3_getListInfo()
  557.   ï@ö\   : RIFF î`Ä« MPEG Audio âtâ@âCâïé╠LISTâ`âââôâNÅεò±Äµô╛
  558.   ê°Éö   : pListInfo = LIST_INFO ì\æóæ╠ò╧Éö
  559.   û▀éΦÆl : True  = É¼î≈
  560.            False = Ä╕ös
  561.   Éαû╛   : RIFF î`Ä« MPEG Audio âtâ@âCâïé╠LISTâ`âââôâNÅεò±Äµô╛
  562.  
  563.   LIST_INFO ì\æóæ╠
  564.   Éαû╛   : RIFF î`Ä« MPEG Audio âtâ@âCâïé╠LISTâ`âââôâNÅεò±é≡èiö[é╡é▄é╖üB
  565.  
  566.  üyÆΦï`üz
  567.     Public Type LIST_INFO
  568.         INAM As String * 128            'ï╚û╝
  569.         IART As String * 128            'âAü[âeâBâXâgû╝
  570.         IPRD As String * 128            'É╗òiû╝
  571.         ICMT As String * 128            'âRâüâôâgò╢ÄÜù±
  572.         ICRD As String * 128            'âèâèü[âXöNìå
  573.         IGNR As String * 128            'âWâââôâïû╝
  574.         ICOP As String * 128            'Æÿì∞îá
  575.         IENG As String * 128            'âGâôâWâjâA
  576.         ISRC As String * 128            'â\ü[âX
  577.         ISFT As String * 128            'â\âtâgâEâFâA
  578.         IKEY As String * 128            'âLü[âÅü[âh
  579.         ITCH As String * 128            'ïZÅpÄ╥
  580.         ILYC As String * 128            'ë╠Äî
  581.         ICMS As String * 128            'âRâ~âbâVâçâô
  582.     End Type
  583.  
  584.  üyÄgùpùßüz
  585.  
  586.     Dim listData As LIST_INFO
  587.  
  588.     Call vbmp3_getListInfo(listData)
  589.  
  590.   ------------------------------------------------------
  591.  
  592.   è╓Éöû╝ : vbmp3_getFileInfo2()
  593.   ï@ö\   : MPEG Audio âtâ@âCâïÅεò±Äµô╛
  594.   ê°Éö   : pszName  = âtâ@âCâïû╝(âpâXé¬ê┘é╚éΘÅΩìçé═âpâXéαÄwÆΦé╡é─é¡é╛é│éó)
  595.            pTagInfo = TAG_INFO ì\æóæ╠ò╧Éö
  596.            pMpegInfo = MPEG_INFO ì\æóæ╠ò╧Éö
  597.            pListInfo = LIST_INFO ì\æóæ╠ò╧Éö
  598.   û▀éΦÆl : True  = É¼î≈
  599.            False = Ä╕ös
  600.   Éαû╛   : MPEG Audio âtâ@âCâïÅεò±é≡ĵô╛é╡é▄é╖üB
  601.              üªMPEG2.5 é╠âoü[âWâçâôé═üu3üvé╞ĵô╛é│éΩé▄é╖
  602.  
  603.  üyÄgùpùßüz
  604.  
  605.     Dim TagData As TAG_INFO
  606.     Dim MpegData As MPEG_INFO
  607.     Dim listData As LIST_INFO
  608.  
  609.     'â^âOÅεò±Äµô╛
  610.     Call vbmp3_getFileInfo2("C:\hoge.mp3", TagData, MpegData, listData)
  611.  
  612.   ------------------------------------------------------
  613.  
  614.   è╓Éöû╝ : vbmp3_changeRmp()
  615.   ï@ö\   : òWÅÇMP3âtâ@âCâïé≡ RIFF MP3î`Ä«âtâ@âCâïé╔ò╧è╖
  616.   ê°Éö   : pszName  = âtâ@âCâïû╝(âpâXé¬ê┘é╚éΘÅΩìçé═âpâXéαÄwÆΦé╡é─é¡é╛é│éó)
  617.   û▀éΦÆl : True  = É¼î≈
  618.            False = Ä╕ös
  619.   Éαû╛   : òWÅÇMP3âtâ@âCâïé≡ RIFF MP3î`Ä«âtâ@âCâïé╔ò╧è╖é╡é▄é╖üB
  620.            é▒é╠Ä₧üASIâtâBü[âïâhé¬Ä⌐ô«òtë┴é│éΩé▄é╖üB
  621.  
  622.  üyÄgùpùßüz
  623.  
  624.     'MP3 -> RMP
  625.     Call vbmp3_changeRmp("C:\hoge.mp3")
  626.  
  627.   ------------------------------------------------------
  628.  
  629.   è╓Éöû╝ : vbmp3_changeWav()
  630.   ï@ö\   : òWÅÇMP3âtâ@âCâïé≡ RIFF WAVEî`Ä«âtâ@âCâïé╔ò╧è╖
  631.   ê°Éö   : pszName  = âtâ@âCâïû╝(âpâXé¬ê┘é╚éΘÅΩìçé═âpâXéαÄwÆΦé╡é─é¡é╛é│éó)
  632.   û▀éΦÆl : True  = É¼î≈
  633.            False = Ä╕ös
  634.   Éαû╛   : òWÅÇMP3âtâ@âCâïé≡ RIFF WAVEî`Ä«âtâ@âCâïé╔ò╧è╖é╡é▄é╖üB
  635.            é▒é╠Ä₧üASIâtâBü[âïâhé¬Ä⌐ô«òtë┴é│éΩé▄é╖üB
  636.  
  637.  üyÄgùpùßüz
  638.  
  639.     'MP3 -> WAV
  640.     Call vbmp3_changeWav("C:\hoge.mp3")
  641.  
  642.   ------------------------------------------------------
  643.  
  644.   è╓Éöû╝ : vbmp3_changeMp3()
  645.   ï@ö\   : RIFFî`Ä«âtâ@âCâïé≡òWÅÇMP3âtâ@âCâïé╔ò╧è╖
  646.   ê°Éö   : pszName  = âtâ@âCâïû╝(âpâXé¬ê┘é╚éΘÅΩìçé═âpâXéαÄwÆΦé╡é─é¡é╛é│éó)
  647.   û▀éΦÆl : True  = É¼î≈
  648.            False = Ä╕ös
  649.   Éαû╛   : RIFFî`Ä«âtâ@âCâïé≡òWÅÇMP3âtâ@âCâïé╔ò╧è╖é╡é▄é╖üB
  650.            é▒é╠Ä₧üASIâtâBü[âïâhôαùeé═ìφÅ£é│éΩé▄é╖üB
  651.  
  652.  üyÄgùpùßüz
  653.  
  654.     'RIFFâtâ@âCâï -> MP3
  655.     Call vbmp3_changeMp3("C:\hoge.rmp")
  656.  
  657.   ------------------------------------------------------
  658.  
  659.   è╓Éöû╝ : vbmp3_cutMacBinary()
  660.   ï@ö\   : âtâ@âCâïôαé╠â}âbâNâwâbâ_Å£ïÄ
  661.   ê°Éö   : pszName  = âtâ@âCâïû╝(âpâXé¬ê┘é╚éΘÅΩìçé═âpâXéαÄwÆΦé╡é─é¡é╛é│éó)
  662.   û▀éΦÆl : True  = É¼î≈
  663.            False = Ä╕ös
  664.   Éαû╛   : âtâ@âCâïôαé╠â}âbâNâwâbâ_é≡Å£ïÄé╡é▄é╖üB
  665.  
  666.  üyÄgùpùßüz
  667.  
  668.     'â}âbâNâwâbâ_Å£ïÄ
  669.     Call vbmp3_cutMacBinary("C:\hoge.mp3")
  670.  
  671.   ------------------------------------------------------
  672.  
  673.   è╓Éöû╝ : vbmp3_setListInfo()
  674.   ï@ö\   : SIâtâBü[âïâhôoÿ^üEìXÉV
  675.   ê°Éö   : pszName  = âtâ@âCâïû╝(âpâXé¬ê┘é╚éΘÅΩìçé═âpâXéαÄwÆΦé╡é─é¡é╛é│éó)
  676.   û▀éΦÆl : True  = É¼î≈
  677.            False = Ä╕ös
  678.   Éαû╛   : SIâtâBü[âïâhé╠ôoÿ^üEìXÉVé≡é╡é▄é╖üB
  679.  
  680.  üyÄgùpùßüz
  681.  
  682.     Dim ListData As LIST_INFO
  683.  
  684.     ListData.INAM = "â^âCâgâï"
  685.     ListData.IART = "âAü[âeâBâXâg"
  686.  
  687.     'SIâtâBü[âïâhò╧ìX
  688.     Call vbmp3_setListInfo("C:\hoge.mp3", ListData)
  689.  
  690.   ------------------------------------------------------
  691.  
  692.   è╓Éöû╝ : vbmp3_getFileType()
  693.   ï@ö\   : âtâ@âCâïé╠Äφù▐ĵô╛
  694.   ê°Éö   : pszName  = âtâ@âCâïû╝(âpâXé¬ê┘é╚éΘÅΩìçé═âpâXéαÄwÆΦé╡é─é¡é╛é│éó)
  695.   û▀éΦÆl : ê╚ë║é╠ôαùeé╠ìçîvÆl
  696.              0  òWÅÇMP3âtâ@âCâï
  697.              1  Riff WAVEî`Ä«
  698.              2  Riff MP3î`Ä«
  699.              4  ID3 v2 Tag ùLéΦ
  700.              8  Macâwâbâ_ùLéΦ
  701.              16 ID3 v1 Tag ùLéΦ
  702.              32 LYRICS3 v2.00 ùLéΦ
  703.              64 òWÅÇWAVEâtâ@âCâï(âèâAâïéoébél)
  704.   Éαû╛   : RMP é╚é╟é╠âtâ@âCâïî`Ä«éΓâ^âOé╠ùLû│é╚é╟é≡ĵô╛é╡é▄é╖üB
  705.  
  706.  üyÄgùpùßüz
  707.  
  708.     Dim fType As Long
  709.  
  710.     'âtâ@âCâïâ^âCâvĵô╛
  711.     fType = vbmp3_getFileType("C:\hoge.mp3")
  712.  
  713.   ------------------------------------------------------
  714.  
  715.   è╓Éöû╝ : vbmp3_callback()
  716.   ï@ö\   : âRü[âïâoâbâNè╓ÉöÉ▌ÆΦ
  717.   ê°Éö   : âRü[âïâoâbâNè╓Éöé╠âAâhâîâX(AddressOf ÄwÆΦ)
  718.   û▀éΦÆl : True  = É¼î≈
  719.            False = Ä╕ös
  720.   Éαû╛   : âRü[âïâoâbâNè╓Éöé≡É▌ÆΦé╡é▄é╖üB
  721.            AddressOf è╓Éöé≡Ägùpé╖éΘé╜é▀ VB5 ê╚ì~é╠é▌Ägùpë┬ö\é┼é╖üB
  722.  
  723.            üªé▒é╠è╓Éöé═ÆΓÄ~Å≤æ╘é╠Ä₧é╠é▌Ä└ìsé┼é½é▄é╖üB
  724.  
  725.  üyâRü[âïâoâbâNè╓Éöüz
  726.  
  727.   è╓Éöû╝ : û╝Å╠öCê╙é╠SubâvâìâVü[âWââ
  728.   ï@ö\   : VBMP3.DLL éµéΦì─É╢Ä₧è╘üAâXâeü[â^âXé╚é╟é≡Ä≤ÉMé╖éΘ
  729.   ê°Éö   : id    MSG_EROOR      = âGâëü[(0)
  730.                  MSG_STOPING    = ÆΓÄ~(1)
  731.                  MSG_PLAYING    = ì─É╢Æå(2)
  732.                  MSG_PAUSING    = êΩÄ₧ÆΓÄ~(3)
  733.                  MSG_PLAYDONE   = ì─É╢ÅIù╣(4)
  734.            param ëëætÄ₧è╘(id = MSG_PLAYING)
  735.   û▀éΦÆl : û│é╡
  736.   Éαû╛   : Ä≤ÉMùpé╠âRü[âïâoâbâNè╓Éöé┼é╖üB
  737.            é⌐é╚éτé╕üAòWÅÇâéâWâàü[âïôαé╔ì∞ɼé╡é─é¡é╛é│éóüB
  738.            é▄é╜üAâRü[âïâoâbâNè╓Éöôαé┼é═ MagBox é╚é╟é╠Åêù¥é≡
  739.            Ä~é▀éΘè╓Éöé≡Ägùpé┼é½é▄é╣é±üB
  740.  
  741.  
  742.  üyÄgùpùßüz
  743.  
  744.     'âRü[âïâoâbâNè╓ÉöÄwÆΦ
  745.     Call vbmp3_callback(AddressOf vbmp3_Proc)
  746.  
  747.  
  748.  üyâRü[âïâoâbâNè╓Éöùßüz
  749.     Public Sub vbmp3_Proc(ByVal id As Long, ByVal param As Long)
  750.         Select Case id
  751.         Case MSG_ERROR
  752.             'âGâëü[Ä₧é╠Åêù¥
  753.         Case MSG_PLAYING
  754.             'ëëætÄ₧è╘ò╧ìXÄ₧é╠Åêù¥
  755.         Case MSG_PAUSING
  756.             'êΩÄ₧ÆΓÄ~Ä₧é╠Åêù¥
  757.         Case MSG_STOPING
  758.             'ÆΓÄ~Ä₧é╠Åêù¥
  759.         Case MSG_PLAYDONE
  760.             'ì─É╢ÅIù╣Ä₧é╠Åêù¥
  761.         End Select
  762.     End Sub
  763.  
  764.   ------------------------------------------------------
  765.  
  766.   è╓Éöû╝ : vbmp3_decodeWave()
  767.   ï@ö\   : MPEG Audio âtâ@âCâïé≡WAVEâtâ@âCâïé╔âfâRü[âh
  768.   ê°Éö   : pszWaveName  = Åoù═WAVEâtâ@âCâïû╝
  769.                           (âpâXé¬ê┘é╚éΘÅΩìçé═âpâXéαÄwÆΦé╡é─é¡é╛é│éó)
  770.   û▀éΦÆl : True  = É¼î≈
  771.            False = Ä╕ös
  772.   Éαû╛   : âIü[âvâôé╡é─éóéΘ MPEG Audio âtâ@âCâïé≡WAVEâtâ@âCâïé╔
  773.            âfâRü[âhé╡é▄é╖üB
  774.  
  775.            üªé▒é╠è╓Éöé═ÆΓÄ~Å≤æ╘é╠Ä₧é╠é▌Ä└ìsé┼é½é▄é╖üB
  776.  
  777.  üyÄgùpùßüz
  778.  
  779.     'WAVEâtâ@âCâïÅoù═
  780.     Call vbmp3_decodeWave("C:\hoge.wav")
  781.  
  782.   ------------------------------------------------------
  783.  
  784.   è╓Éöû╝ : vbmp3_setLyricsFile()
  785.   ï@ö\   : ô╟é▌ì₧é▄é╣éΘë╠Äîâtâ@âCâïé╠âZâbâg
  786.   ê°Éö   : pszLyricsName  = ë╠Äîâtâ@âCâïû╝
  787.            âZâbâgë≡Å£é╡é╜éóÅΩìçé═ "" é≡ôⁿù═é╡é─ë║é│éóüB
  788.   û▀éΦÆl : True  = É¼î≈
  789.            False = Ä╕ös
  790.   Éαû╛   : ì─É╢Ä₧é╔ô╟é▌ì₧é▄é╣éΘë╠Äîâtâ@âCâïé≡âZâbâgé╡é▄é╖
  791.  
  792.  üyÄgùpùßüz
  793.  
  794.     'ë╠Äîâtâ@âCâïâZâbâg
  795.     Call vbmp3_setLyricsFile("C:\hoge.txt")
  796.  
  797.   ------------------------------------------------------
  798.  
  799.   è╓Éöû╝ : vbmp3_getLyrics()
  800.   ï@ö\   : ë╠Äîâtâ@âCâïé⌐éτë╠Äîé≡ĵô╛
  801.   ê°Éö   : pLyricsInfo = LYRICS_INFO ì\æóæ╠ò╧Éö
  802.   û▀éΦÆl : True  = É¼î≈
  803.            False = Ä╕ös
  804.   Éαû╛   : ì─É╢Æåé╠âtâ@âCâïé╔æ╬ë₧é╡é╜ë╠Äîé≡ĵô╛é╡é▄é╖
  805.  
  806.   LYRICS_INFO ì\æóæ╠
  807.   Éαû╛   : ë╠Äîâtâ@âCâïé╠Åεò±é≡èiö[é╡é▄é╖üB
  808.  
  809.  üyÆΦï`üz
  810.     Public Type LYRICS_INFO
  811.         sec As Long                      'ë╠Äîâtâ@âCâïé╠òbÉö
  812.         LyricsNext2 As String * 128      'éQé┬ɵé╠ë╠Äî
  813.         LyricsNext1 As String * 128      'éPé┬ɵé╠ë╠Äî
  814.         LyricsCurrent As String * 128    'ì─É╢Æåé╠ë╠Äî
  815.         LyricsPrev1 As String * 128      'éPé┬æOé╠ë╠Äî
  816.         LyricsPrev2 As String * 128      'éQé┬æOé╠ë╠Äî
  817.     End Type
  818.  
  819.  
  820.  üyÄgùpùßüz
  821.  
  822.     Dim lyricsInfo As LYRICS_INFO
  823.  
  824.     'ë╠Äîĵô╛
  825.     Call vbmp3_getLyrics(lyricsInfo)
  826.  
  827.   ------------------------------------------------------
  828.  
  829.   è╓Éöû╝ : vbmp3_getVolume()
  830.   ï@ö\   : î╗ì▌é╠ë╣ù╩ĵô╛
  831.   ê°Éö   : lVol = ì╢ë╣ù╩
  832.            rVol = ëEë╣ù╩
  833.   û▀éΦÆl : True  = É¼î≈
  834.            False = Ä╕ös
  835.   Éαû╛   : î╗ì▌é╠ë╣ù╩ĵô╛é╡é▄é╖üB
  836.            ÆΓÄ~Ä₧é╠é▌ĵô╛é┼é½é▄é╖üB
  837.  
  838.  üyÄgùpùßüz
  839.  
  840.     Dim lVol As Long
  841.     Dim rVol As Long
  842.  
  843.     'ë╣ù╩ĵô╛
  844.     Call vbmp3_getVolume(lVol, rVol)
  845.  
  846.   ------------------------------------------------------
  847.  
  848.   è╓Éöû╝ : vbmp3_getSpectrum()
  849.   ï@ö\   : âAâiâëâCâYîïë╩ĵô╛
  850.   ê°Éö   : pSpecL(255) = ì╢â`âââôâlâïé╠dBòΓÉ│Æl(0ü`120)
  851.            pSpecR(255) = ëEâ`âââôâlâïé╠dBòΓÉ│Æl(0ü`120)
  852.   û▀éΦÆl : True  = É¼î≈
  853.            False = Ä╕ös
  854.   Éαû╛   : âAâiâëâCâYîïë╩é≡ĵô╛é╡é▄é╖üB
  855.  
  856.  üyÄgùpùßüz
  857.  
  858.     Dim pSpecL(255) As Long
  859.     Dim pSpecR(255) As Long
  860.  
  861.     'âAâiâëâCâYîïë╩ĵô╛
  862.     Call vbmp3_getSpectrum(pSpecL(0), pSpecR(0))
  863.  
  864.   ------------------------------------------------------
  865.  
  866.   è╓Éöû╝ : vbmp3_getPlayFrames()
  867.   ï@ö\   : ì─É╢âtâîü[âÇé╠ĵô╛
  868.   ê°Éö   : û│é╡
  869.   û▀éΦÆl : âtâîü[âÇÉö
  870.   Éαû╛   : ì─É╢Æåé╠âtâîü[âÇé≡ĵô╛é╡é▄é╖üB
  871.  
  872.  üyÄgùpùßüz
  873.     Dim frames As Long
  874.  
  875.     'âtâîü[âÇÉöĵô╛
  876.     frames = vbmp3_getPlayFrames()
  877.  
  878.   ------------------------------------------------------
  879.  
  880.   è╓Éöû╝ : vbmp3_setPlayFrames()
  881.   ï@ö\   : ÄwÆΦâtâîü[âÇé╓ì─É╢ê╩Æuê┌ô«
  882.   ê°Éö   : frames = âtâîü[âÇÉö
  883.   û▀éΦÆl : True  = É¼î≈
  884.            False = Ä╕ös
  885.   Éαû╛   : ÄwÆΦé╡é╜âtâîü[âÇé╔ì─É╢ê╩Æué≡ò╧ìXé╡é▄é╖üB
  886.  
  887.  üyÄgùpùßüz
  888.  
  889.     'âtâîü[âÇê┌ô«
  890.     Call vbmp3_setPlayFrames(5000)
  891.  
  892.   ------------------------------------------------------
  893.  
  894.   è╓Éöû╝ : vbmp3_getPlaySamples()
  895.   ï@ö\   : ì─É╢âTâôâvâïÉöé╠ĵô╛
  896.   ê°Éö   : û│é╡
  897.   û▀éΦÆl : âTâôâvâïÉö
  898.   Éαû╛   : ì─É╢Æåé╠ì─É╢âTâôâvâïÉöé≡ĵô╛é╡é▄é╖üB
  899.  
  900.  üyÄgùpùßüz
  901.     Dim frames As Long
  902.  
  903.     'âTâôâvâïÉöĵô╛
  904.     frames = vbmp3_getPlaySamples()
  905.  
  906.   ------------------------------------------------------
  907.  
  908.   è╓Éöû╝ : vbmp3_getTotalSamples()
  909.   ï@ö\   : æSâTâôâvâïÉöé╠ĵô╛
  910.   ê°Éö   : û│é╡
  911.   û▀éΦÆl : âTâôâvâïÉö
  912.   Éαû╛   : âIü[âvâôÆåâtâ@âCâïé╠æSâTâôâvâïÉöé≡ĵô╛é╡é▄é╖üB
  913.  
  914.  üyÄgùpùßüz
  915.     Dim frames As Long
  916.  
  917.     'æSâTâôâvâïÉöĵô╛
  918.     frames = vbmp3_getTotalSamples()
  919.  
  920.   ------------------------------------------------------
  921.  
  922.   è╓Éöû╝ : vbmp3_setPlaySamples()
  923.   ï@ö\   : ÄwÆΦì─É╢âTâôâvâïé╓ì─É╢ê╩Æuê┌ô«
  924.   ê°Éö   : samples = âTâôâvâïÉö
  925.   û▀éΦÆl : True  = É¼î≈
  926.            False = Ä╕ös
  927.   Éαû╛   : ÄwÆΦé╡é╜âTâôâvâïé╔ì─É╢ê╩Æué≡ò╧ìXé╡é▄é╖üB
  928.  
  929.  üyÄgùpùßüz
  930.  
  931.     'âTâôâvâïê┌ô«
  932.     Call vbmp3_setPlaySamples(5000)
  933.  
  934.   ------------------------------------------------------
  935.  
  936.   è╓Éöû╝ : vbmp3_getWave()
  937.   ï@ö\   : WAVEɼò¬Äµô╛
  938.   ê°Éö   : pWaveL(255) = ì╢â`âââôâlâïé╠WAVEɼò¬(-100ü`100)
  939.            pWaveR(255) = ëEâ`âââôâlâïé╠WAVEɼò¬(-100ü`100)
  940.   û▀éΦÆl : True  = É¼î≈
  941.            False = Ä╕ös
  942.   Éαû╛   : ì─É╢Æåé╠ï╚é╠WAVEɼò¬é≡ĵô╛é╡é▄é╖üB
  943.  
  944.  üyÄgùpùßüz
  945.  
  946.     Dim pWaveL(255) As Long
  947.     Dim pWaveR(255) As Long
  948.  
  949.     'WAVEɼò¬Äµô╛
  950.     Call vbmp3_getWave(pWaveL(0), pWaveR(0))
  951.  
  952.   ------------------------------------------------------
  953.  
  954.   è╓Éöû╝ : vbmp3_setEqualizer()
  955.   ï@ö\   : âOâëâtâBâbâNâCâRâëâCâUÅêù¥
  956.   ê°Éö   : pTavle(9) = èeÄⁿögÉöæ╤é╠âfâVâxâïÄwÆΦ(-120[-12dB]ü`120[12dB])
  957.                        ByVal 0& é≡ÄwÆΦé╖éΘé╞âOâëâCâRï@ö\é¬û│î°é╔é╚éΦé▄é╖
  958.   û▀éΦÆl : True  = É¼î≈
  959.            False = Ä╕ös
  960.   Éαû╛   : ë╣é╠ɼò¬é≡ò╧ìXé╡é▄é╖üB
  961.            ù╫é╠ÄⁿögÉöé╞ï╔Æ[é╔ì╖é¬éáéΘé╞ë╣Ä┐é¬ê½é¡é╚éΦé▄é╖üB
  962.  
  963.            üªâfâRü[âhâIâvâVâçâôé≡ò╧ìXé╡é─éóéΘé╞é½é═û│î°é┼é╖üB
  964.              òëë╫é¬ìééóÅΩìçé═ê°Éöé╔ ByVal 0& é≡ÄwÆΦé╖éΘé▒é╞é┼û│î°ë╗é┼é½é▄é╖üB
  965.  
  966.  üyÄgùpùßüz
  967.  
  968.     Dim pTable(9) As Long
  969.  
  970.     pTable(0) = -60    '60Hz
  971.     pTable(1) = -40    '170Hz
  972.     pTable(2) = -20    '310Hz
  973.     pTable(3) = -10    '600Hz
  974.     pTable(4) = -5     '1KHz
  975.     pTable(5) = 5      '3KHz
  976.     pTable(6) = 10     '6KHz
  977.     pTable(7) = 20     '12KHz
  978.     pTable(8) = 40     '14KHz
  979.     pTable(9) = 60     '16KHz
  980.  
  981.     'âOâëâtâBâbâNâCâRâëâCâUÅêù¥
  982.     Call vbmp3_setEqualizer(pTable(0))
  983.  
  984.   ------------------------------------------------------
  985.  
  986.   è╓Éöû╝ : vbmp3_getWinampPlayMs()
  987.   ï@ö\   : Winampì─É╢Ä₧è╘ĵô╛
  988.   ê°Éö   : û│é╡
  989.   û▀éΦÆl : â~âèòb
  990.   Éαû╛   : Winampé┼é╠ì─É╢Ä₧è╘é≡ĵô╛é╡é▄é╖üB
  991.            üªÄµô╛Ä₧è╘é═éáé¡é▄é┼ÉäÆΦÆlé┼é╖üB
  992.  
  993.  üyÄgùpùßüz
  994.  
  995.     Dim waPlayMs As Long
  996.  
  997.     'Winampì─É╢Ä₧è╘ĵô╛
  998.     waPlayMs = vbmp3_getWinampPlayMs()
  999.  
  1000.   ------------------------------------------------------
  1001.  
  1002.   è╓Éöû╝ : vbmp3_getWinampTotalSec()
  1003.   ï@ö\   : WinampæìëëætÄ₧è╘ĵô╛
  1004.   ê°Éö   : û│é╡
  1005.   û▀éΦÆl : òb
  1006.   Éαû╛   : Winampé┼é╠æìëëætÄ₧è╘é≡ĵô╛é╡é▄é╖üB
  1007.            üªÄµô╛Ä₧è╘é═éáé¡é▄é┼ÉäÆΦÆlé┼é╖üB
  1008.  
  1009.  üyÄgùpùßüz
  1010.  
  1011.     Dim waTotalSec As Long
  1012.  
  1013.     'WinampæìëëætÄ₧è╘ĵô╛
  1014.     waTotalSec = vbmp3_getWinampTotalSec()
  1015.  
  1016.   ------------------------------------------------------
  1017.  
  1018.   è╓Éöû╝ : vbmp3_getPlayBitRate()
  1019.   ï@ö\   : ì─É╢Ä₧é╠ârâbâgâîü[âgĵô╛
  1020.   ê°Éö   : û│é╡
  1021.   û▀éΦÆl : ârâbâgâîü[âg(kbit/s)
  1022.   Éαû╛   : ì─É╢Æåâfü[â^é╠ârâbâgâîü[âgé≡ĵô╛é╡é▄é╖üB
  1023.  
  1024.  üyÄgùpùßüz
  1025.  
  1026.     Dim bitRate As Long
  1027.  
  1028.     'ì─É╢Ä₧é╠ârâbâgâîü[âgĵô╛
  1029.     bitRate = vbmp3_getPlayBitRate()
  1030.  
  1031.   ------------------------------------------------------
  1032.  
  1033.   è╓Éöû╝ : vbmp3_encodeOpen()
  1034.   ï@ö\   : âGâôâRü[âhæ╬Å█âtâ@âCâïé≡èJé¡
  1035.   ê°Éö   : pszWaveName = âGâôâRü[âhæ╬Å█âtâ@âCâïû╝
  1036.                          (âpâXé¬ê┘é╚éΘÅΩìçé═âpâXéαÄwÆΦé╡é─é¡é╛é│éó)
  1037.            pWaveForm = WAVE_FORMì\æóæ╠
  1038.   û▀éΦÆl : True  = É¼î≈
  1039.            False = Ä╕ös
  1040.   Éαû╛   : âGâôâRü[âhæ╬Å█é╞é╚éΘWAVEâtâ@âCâïé≡èJé½Åεò±é≡ĵô╛é╡é▄é╖üB
  1041.  
  1042.   WAVE_FORM ì\æóæ╠
  1043.   Éαû╛   : WAVEâtâ@âCâïé╠Åεò±é≡èiö[é╡é▄é╖üB
  1044.  
  1045.  üyÆΦï`üz
  1046.     Public Type WAVE_FORM
  1047.         channels As Long          'â`âââôâlâïÉö
  1048.         bitsPerSample As Long     'éPâTâôâvâïéáé╜éΦé╠ârâbâgÉö(8 or 16)
  1049.         samplingRate As Long      'âTâôâvâèâôâOâîü[âg(44100 ôÖ)
  1050.         dataSize As Long          'âfü[â^âTâCâY
  1051.     End Type
  1052.  
  1053.  üyÄgùpùßüz
  1054.  
  1055.     Dim pWaveForm As WAVE_FORM
  1056.  
  1057.     'WAVEâtâ@âCâïâIü[âvâô
  1058.     Call vbmp3_encodeOpen("hoge.wav", pWaveForm)
  1059.  
  1060.   ------------------------------------------------------
  1061.  
  1062.   è╓Éöû╝ : vbmp3_encodeStart()
  1063.   ï@ö\   : âGâôâRü[âhèJÄn
  1064.   ê°Éö   : pszMp3Name = Åoù═âtâ@âCâïû╝
  1065.   û▀éΦÆl : True  = É¼î≈
  1066.            False = Ä╕ös
  1067.   Éαû╛   : Åoù═âtâ@âCâïû╝é≡ÄwÆΦé╡é─âGâôâRü[âhé≡èJÄné╡é▄é╖üB
  1068.            éáéτé⌐é╢é▀üAvbmp3_encodeOpen é┼âtâ@âCâïé≡âIü[âvâôé╡é─é¿é¡
  1069.            òKùvé¬éáéΦé▄é╖üB
  1070.            üªâGâôâRü[âhé╔é═ăé╠ CODEC é¬òKùvé┼é╖üB
  1071.             üuFraunhofer IIS MPEG Layer-3 Codec (professional)üv
  1072.  
  1073.  üyÄgùpùßüz
  1074.  
  1075.     'âGâôâRü[âhèJÄn
  1076.     Call vbmp3_encodeStart("hoge.mp3")
  1077.  
  1078.   ------------------------------------------------------
  1079.  
  1080.   è╓Éöû╝ : vbmp3_encodeStop()
  1081.   ï@ö\   : âGâôâRü[âhÆåÄ~
  1082.   ê°Éö   : é╚é╡
  1083.   û▀éΦÆl : True  = É¼î≈
  1084.            False = Ä╕ös
  1085.   Éαû╛   : âGâôâRü[âhé≡ÆåÆfé╡é▄é╖üB
  1086.  
  1087.  üyÄgùpùßüz
  1088.  
  1089.     'âGâôâRü[âhÆåÄ~
  1090.     Call vbmp3_encodeStop()
  1091.  
  1092.   ------------------------------------------------------
  1093.  
  1094.   è╓Éöû╝ : vbmp3_getEncodeState()
  1095.   ï@ö\   : âGâôâRü[âhÅ≤æ╘ĵô╛
  1096.   ê°Éö   : readSize = WAVEâtâ@âCâïé╠ô╟ì₧âTâCâY
  1097.            encodeSize = MP3âtâ@âCâïé╠Åoù═âTâCâY
  1098.   û▀éΦÆl : 0 = ÆΓÄ~(âGâôâRü[âhÅIù╣)
  1099.            1 = âGâôâRü[âhÆå
  1100.   Éαû╛   : âGâôâRü[âhÄ₧é╠âXâeü[â^âXĵô╛
  1101.  
  1102.  üyÄgùpùßüz
  1103.  
  1104.     Dim encState As Long
  1105.     Dim readSize As Long
  1106.     Dim encodeSize As Long
  1107.  
  1108.     'âGâôâRü[âhÅ≤æ╘ĵô╛
  1109.     encState = vbmp3_getEncodeState(readSize, encodeSize)
  1110.  
  1111.   ------------------------------------------------------
  1112.  
  1113.   è╓Éöû╝ : vbmp3_setPitch()
  1114.   ï@ö\   : âsâbâ`ò╧ìX
  1115.   ê°Éö   : pitch = âsâbâ`(%) (20ê╚Åπ)
  1116.   û▀éΦÆl : True  = É¼î≈
  1117.            False = Ä╕ös
  1118.   Éαû╛   : ì─É╢âsâbâ`é≡ò╧ìXé╡é▄é╖üBì─É╢Æåéαò╧ìXë┬ö\é┼é╖üB
  1119.            üªâsâbâ`é≡Åπé░é╖é¼éΘé╞É│Åφé╔ì─É╢é┼é½é╚é¡é╚éΦé▄é╖é╠é┼
  1120.              Æìê╙é╡é─ë║é│éóüB
  1121.  
  1122.  üyÄgùpùßüz
  1123.  
  1124.     'âsâbâ`ò╧ìX
  1125.     Call vbmp3_setPitch(200)
  1126.  
  1127.   ------------------------------------------------------
  1128.  
  1129.   è╓Éöû╝ : vbmp3_getPitch()
  1130.   ï@ö\   : âsâbâ`é╠É▌ÆΦÆlĵô╛
  1131.   ê°Éö   : é╚é╡
  1132.   û▀éΦÆl : âsâbâ`(%)
  1133.   Éαû╛   : É▌ÆΦé│éΩé─éóéΘâsâbâ`(%)é≡ĵô╛é╡é▄é╖
  1134.  
  1135.  üyÄgùpùßüz
  1136.  
  1137.     Dim pitch As Long
  1138.  
  1139.     'âsâbâ`é╠É▌ÆΦÆlĵô╛
  1140.     pitch = vbmp3_getPitch()
  1141.  
  1142.   ------------------------------------------------------
  1143.  
  1144.   è╓Éöû╝ : vbmp3_reload()
  1145.   ï@ö\   : ì─É╢âfü[â^ì─ô╟ì₧è╓Éö
  1146.   ê°Éö   : é╚é╡
  1147.   û▀éΦÆl : True  = É¼î≈
  1148.            False = Ä╕ös
  1149.   Éαû╛   : ì─É╢Å≤æ╘é≡ò█Ä¥é╡é╜Å≤æ╘é┼âfü[â^é≡ì─ô╟ì₧é╡é▄é╖üB
  1150.            âOâëâtâBâbâNüEâCâRâëâCâUôÖé╠É▌ÆΦé≡
  1151.            æªì└é╔ö╜ëfé│é╣é╜éóÅΩìçé╔é▓ùÿùpë║é│éóüB
  1152.            üªè╓ÉöÄ└ìsÄ₧é╔êΩÅuë╣é¬ôrÉ╪éΩé▄é╖
  1153.  
  1154.  üyÄgùpùßüz
  1155.  
  1156.     'ì─É╢âfü[â^ì─ô╟ì₧
  1157.     Call vbmp3_reload()
  1158.  
  1159.   ------------------------------------------------------
  1160.  
  1161.   è╓Éöû╝ : vbmp3_fadeOut()
  1162.   ï@ö\   : âtâFü[âhâAâEâg
  1163.   ê°Éö   : é╚é╡
  1164.   û▀éΦÆl : é╚é╡
  1165.   Éαû╛   : ì─É╢Æåé╠ï╚é≡âtâFü[âhâAâEâgé╡é▄é╖üB
  1166.  
  1167.  üyÄgùpùßüz
  1168.  
  1169.     'âtâFü[âhâAâEâg
  1170.     Call vbmp3_fadeOut()
  1171.  
  1172.   ------------------------------------------------------
  1173.  
  1174.   è╓Éöû╝ : vbmp3_setFadeIn()
  1175.   ï@ö\   : âtâFü[âhâCâôé┼ëëætèJÄn
  1176.   ê°Éö   : fin = 0  Æ╩ÅφèJÄn
  1177.                  1  âtâFü[âhâCâôé┼èJÄn
  1178.   û▀éΦÆl : é╚é╡
  1179.   Éαû╛   : âtâFü[âhâCâôé┼ëëæté≡èJÄné╡é▄é╖üB
  1180.  
  1181.  üyÄgùpùßüz
  1182.  
  1183.     'âtâFü[âhâCâôé┼ëëætèJÄn
  1184.     Call vbmp3_setFadeIn(1)
  1185.  
  1186.   ------------------------------------------------------
  1187.  
  1188.   è╓Éöû╝ : vbmp3_setFadeOut()
  1189.   ï@ö\   : âtâFü[âhâAâEâgé┼ëëætÅIù╣
  1190.   ê°Éö   : fout = 0  Æ╩ÅφÅIù╣
  1191.                   1  âtâFü[âhâAâEâgé┼ÅIù╣
  1192.   û▀éΦÆl : é╚é╡
  1193.   Éαû╛   : âtâFü[âhâAâEâgé┼ëëæté≡ÅIù╣é╡é▄é╖üB
  1194.  
  1195.  üyÄgùpùßüz
  1196.  
  1197.     'âtâFü[âhâAâEâgé┼ëëætÅIù╣
  1198.     Call vbmp3_setFadeOut(1)
  1199.  
  1200.   ------------------------------------------------------
  1201.  
  1202.   è╓Éöû╝ : vbmp3_getLastErrorNo()
  1203.   ï@ö\   : ì┼îπé╔ö¡É╢é╡é╜âGâëü[ö╘ìåĵô╛
  1204.   ê°Éö   : é╚é╡
  1205.   û▀éΦÆl : âGâëü[ö╘ìå
  1206.   Éαû╛   : ì┼îπé╔ö¡É╢é╡é╜âGâëü[ö╘ìåé≡ĵô╛é╡é▄é╖üB
  1207.  
  1208.  üyÄgùpùßüz
  1209.  
  1210.     Dim ErrNo As Long
  1211.  
  1212.     'ì┼îπé╔ö¡É╢é╡é╜âGâëü[ö╘ìåĵô╛
  1213.     ErrNo = vbmp3_getLastErrorNo
  1214.  
  1215.   ------------------------------------------------------
  1216.  
  1217.   è╓Éöû╝ : vbmp3_setStepPitch()
  1218.   ï@ö\   : ì─É╢æ¼ôxò╧ìX
  1219.   ê°Éö   : pitch = ì─É╢æ¼ôx(ö{ùª) (1ê╚Åπ)
  1220.            frames = Åoù═Ä₧é╠âtâîü[âÇÉö[Å╚ù¬ë┬](êΩÄ₧ôIé╔ò╧ìX)
  1221.   û▀éΦÆl : True  = É¼î≈
  1222.            False = Ä╕ös
  1223.   Éαû╛   : ë╣Æ÷é≡ò╧éªé╕ì─É╢æ¼ôxé≡ò╧ìXé╡é▄é╖üBì─É╢Æåéαò╧ìXë┬ö\é┼é╖üB
  1224.            üªæ¼ôxé≡Åπé░é╖é¼éΘé╞É│Åφé╔ì─É╢é┼é½é╚é¡é╚éΦé▄é╖é╠é┼
  1225.              Æìê╙é╡é─ë║é│éóüB
  1226.            üªâtâîü[âÇÉöé═ vbmp3_setVbmp3Option é╠ outputBlock é╞
  1227.              ô»é╢ò¿é┼é╖üBö{ùª 1 é≡ÄwÆΦé╖éΘé╞î│é╠Ælé╔û▀éΦé▄é╖üB
  1228.            üªWindowsNT é┼é═Ägùpé┼é½é▄é╣é±üB
  1229.  
  1230.  üyÄgùpùßüz
  1231.  
  1232.     'ì─É╢æ¼ôxò╧ìX
  1233.     Call vbmp3_setStepPitch(2, 5)
  1234.  
  1235.   ------------------------------------------------------
  1236.  
  1237.   è╓Éöû╝ : vbmp3_getStepPitch()
  1238.   ï@ö\   : ì─É╢æ¼ôxé╠É▌ÆΦÆlĵô╛
  1239.   ê°Éö   : é╚é╡
  1240.   û▀éΦÆl : ì─É╢æ¼ôx
  1241.   Éαû╛   : É▌ÆΦé│éΩé─éóéΘì─É╢æ¼ôxé≡ĵô╛é╡é▄é╖
  1242.  
  1243.  üyÄgùpùßüz
  1244.  
  1245.     Dim pitch As Long
  1246.  
  1247.     'ì─É╢æ¼ôxé╠É▌ÆΦÆlĵô╛
  1248.     pitch = vbmp3_getStepPitch()
  1249.  
  1250.   ------------------------------------------------------
  1251.  
  1252.   è╓Éöû╝ : vbmp3_setOverTime()
  1253.   ï@ö\   : ëëætÄ₧è╘é╠òΓÉ│É▌ÆΦ
  1254.   ê°Éö   : tmOver : 0      æìëëætÄ₧è╘ê╚Åπé═âJâEâôâgé╡é╚éó
  1255.                     0ê╚èO  ëëætÄ₧è╘é╠òΓÉ│û│é╡
  1256.   û▀éΦÆl : û│é╡
  1257.   Éαû╛   : ëëætÄ₧è╘é¬âIü[âvâôÄ₧é╔ĵô╛é╡é╜æìëëætÄ₧è╘é≡ëzé╡é─éα
  1258.            é╗é╠é▄é▄âJâEâôâgé╡æ▒é»éΘéµéñé╔é╡é▄é╖üB
  1259.            éµéΦÉ│èmé╚Ä₧è╘é≡ĵô╛é╖éΘé▒é╞é¬Åoùêé▄é╖é¬æìëëætÄ₧è╘é╞
  1260.            îδì╖é¬É╢é╢éΘé╜é▀ùÿùpé╠ì█é╔é═Æìê╙é╡é─ë║é│éóüB
  1261.  
  1262.  üyÄgùpùßüz
  1263.  
  1264.     'ëëætÄ₧è╘òΓÉ│û│é╡
  1265.     Call vbmp3_setOverTime(0)
  1266.  
  1267.   ------------------------------------------------------
  1268.  
  1269.   è╓Éöû╝ : vbmp3_setSoftVolume()
  1270.   ï@ö\   : â\âtâgâ{âèâàü[âÇé╠ò╧ìX
  1271.   ê°Éö   : lVol  = ì╢æñé╠â\âtâgâ{âèâàü[âÇ(0 ü` 100)
  1272.            rVol  = ëEæñé╠â\âtâgâ{âèâàü[âÇ(0 ü` 100)
  1273.   û▀éΦÆl : û│é╡
  1274.   Éαû╛   : ì╢ü^ëEé╠â\âtâgâ{âèâàü[âÇé≡Æ▓É▀é╡é▄é╖üB
  1275.            Åoù═âoâbâtâ@âTâCâYé¬æσé½éóé╞ö╜ëfé│éΩéΘé▄é┼é╔
  1276.            Ä₧è╘é¬è|é⌐éΦé▄é╖üB
  1277.  
  1278.  üyÄgùpùßüz
  1279.  
  1280.     'â\âtâgâ{âèâàü[âÇò╧ìX
  1281.     Call vbmp3_setSoftVolume(70, 70)
  1282.  
  1283.   ------------------------------------------------------
  1284.  
  1285.   è╓Éöû╝ : vbmp3_getSoftVolume()
  1286.   ï@ö\   : î╗ì▌é╠â\âtâgâ{âèâàü[âÇĵô╛
  1287.   ê°Éö   : lVol = ì╢æñé╠â\âtâgâ{âèâàü[âÇ
  1288.            rVol = ëEæñé╠â\âtâgâ{âèâàü[âÇ
  1289.   û▀éΦÆl : û│é╡
  1290.   Éαû╛   : î╗ì▌é╠â\âtâgâ{âèâàü[âÇé≡ĵô╛é╡é▄é╖üB
  1291.  
  1292.  üyÄgùpùßüz
  1293.  
  1294.     Dim lVol As Long
  1295.     Dim rVol As Long
  1296.  
  1297.     'â\âtâgâ{âèâàü[âÇĵô╛
  1298.     Call vbmp3_getSoftVolume(lVol, rVol)
  1299.  
  1300.   ------------------------------------------------------
  1301.  
  1302.   è╓Éöû╝ : vbmp3_getWaveOutSupport()
  1303.   ï@ö\   : WAVEÅoù═âfâoâCâXé¬â{âèâàü[âÇò╧ìXë┬ö\é⌐â`âFâbâN
  1304.   ê°Éö   : û│é╡
  1305.   û▀éΦÆl : 0 = ûóâTâ|ü[âg
  1306.            1 = ì╢â`âââôâlâïé╠é▌âTâ|ü[âg
  1307.            2 = ì╢ëEù╝â`âââôâlâïâTâ|ü[âg
  1308.   Éαû╛   : WAVEÅoù═âfâoâCâXé¬â{âèâàü[âÇò╧ìXë┬ö\é⌐â`âFâbâNé╡é▄é╖üB
  1309.  
  1310.  üyÄgùpùßüz
  1311.     Dim Result As Long
  1312.  
  1313.     'âfâoâCâXâ`âFâbâN
  1314.     Result = vbmp3_getWaveOutSupport
  1315.  
  1316.   ------------------------------------------------------
  1317.  
  1318.   è╓Éöû╝ : vbmp3_getSilentFrames()
  1319.   ï@ö\   : û│ë╣âtâîü[âÇÉöĵô╛
  1320.   ê°Éö   : pszName = â`âFâbâNé╖éΘâtâ@âCâïû╝
  1321.   û▀éΦÆl : âtâîü[âÇÉö
  1322.   Éαû╛   : ï╚é╠ô¬é╔éáéΘû│ë╣âtâîü[âÇÉöé≡ĵô╛é╡é▄é╖üB
  1323.  
  1324.  üyÄgùpùßüz
  1325.  
  1326.     Dim frames As Long
  1327.  
  1328.     'û│ë╣âtâîü[âÇÉöĵô╛
  1329.     frames =  vbmp3_getSilentFrames("c:\hoge.mp3")
  1330.  
  1331.   ------------------------------------------------------
  1332.  
  1333.   è╓Éöû╝ : vbmp3_playDecodeWave()
  1334.   ï@ö\   : ì─É╢é╡é╚é¬éτ WAVE âtâ@âCâïâfâRü[âh
  1335.   ê°Éö   : pszWaveName = Åoù═é╖éΘWAVEâtâ@âCâïû╝
  1336.   û▀éΦÆl : True  = É¼î≈
  1337.            False = Ä╕ös
  1338.   Éαû╛   : ì─É╢é╡é╚é¬éτ WAVE âtâ@âCâïé╓é╠âfâRü[âhé≡ìséóé▄é╖üB
  1339.  
  1340.            üªé▒é╠è╓Éöé═ÆΓÄ~Å≤æ╘é╠Ä₧é╠é▌Ä└ìsé┼é½é▄é╖üB
  1341.  
  1342.  üyÄgùpùßüz
  1343.  
  1344.     'ì─É╢âfâRü[âh
  1345.     Call vbmp3_playDecodeWave("c:\hoge.wav")
  1346.  
  1347.   ------------------------------------------------------
  1348.  
  1349.   è╓Éöû╝ : vbmp3_setLyrics3InsField()
  1350.   ï@ö\   : LYRICS3 é╠æ}ôⁿâtâBü[âïâhé≡É▌ÆΦ
  1351.   ê°Éö   : field = 0 : ILYC é╔æ}ôⁿ[default]
  1352.                    1 : IID3 é╔æ}ôⁿ
  1353.                    2 : æ}ôⁿé╡é╚éó
  1354.   û▀éΦÆl : û│é╡
  1355.   Éαû╛   : âtâ@âCâïî`Ä«ò╧è╖Ä₧éΓ SIâtâBü[âïâhìXÉVÄ₧é╔ LYRICS3 é≡æ}ôⁿé╖éΘ
  1356.            âtâBü[âïâhé≡É▌ÆΦé╡é▄é╖üB
  1357.  
  1358.         üª LYRICS3 é≡æ}ôⁿé╖éΘâtâBü[âïâhé╠ìXÉVé═ìséªé▄é╣é±üB
  1359.            é╖é╫é─é╠âtâBü[âïâhé≡ìXÉVé╡é╜éóÅΩìçé═üALYRICS3 é≡æ}ôⁿé╡é╚éó
  1360.            É▌ÆΦé╔é╡é─ë║é│éóüB
  1361.  
  1362.  üyÄgùpùßüz
  1363.  
  1364.     'LYRICS3 æ}ôⁿâtâBü[âïâhÉ▌ÆΦ
  1365.     Call vbmp3_setLyrics3InsField(1)
  1366.  
  1367.   ------------------------------------------------------
  1368.  
  1369.   è╓Éöû╝ : vbmp3_getFileLyrics3Info()
  1370.   ï@ö\   : LYRICS3 é╠Åεò±Äµô╛
  1371.   ê°Éö   : pszName = Äµô╛éαé╞é╠MP3âtâ@âCâïû╝
  1372.            pLyrics3Info = LYRICS3_INFO ì\æóæ╠
  1373.   û▀éΦÆl : True  = É¼î≈
  1374.            False = Ä╕ös
  1375.   Éαû╛   : âtâ@âCâïé╔âZâbâgé│éΩé╜ LYRICS3 Åεò±é≡ĵô╛é╡é▄é╖üB
  1376.            üªüªüªüªüª VBÄgùpòsë┬ üªüªüªüªüª
  1377.  
  1378.   LYRICS3_INFO ì\æóæ╠
  1379.   Éαû╛   : LYRICS3 é╠Åεò±é≡èiö[é╡é▄é╖üB
  1380.  
  1381.  üyÆΦï`üz(Cî╛îΩé┼é╠ÆΦï`)
  1382.     struct LYRICS3_INFO
  1383.     {
  1384.         char  IND_LYR;        //LYRâtâBü[âïâhé╠ùLû│ '0':û│é╡ '1':ùLéΦ
  1385.         char  IND_TIMETAG;    //â^âCâÇâ^âOé╠ùLû│ '0':û│é╡ '1':ùLéΦ
  1386.         char  LYR[60000];     //ë╠ÄîâtâBü[âïâh
  1387.         char  INF[60000];     //Åεò±âtâBü[âïâh
  1388.         char  AUT[250];       //ì∞Äîü^ì∞ï╚Ä╥û╝
  1389.         char  EAL[250];       //ègÆúâAâïâoâÇû╝
  1390.         char  EAR[250];       //ègÆúâAü[âeâBâXâgû╝
  1391.         char  ETT[250];       //ègÆúâgâëâbâNâ^âCâgâï
  1392.         char  IMG[60000];     //âCâüü[âWâtâ@âCâïé╓é╠âèâôâN
  1393.     };
  1394.  
  1395.   ------------------------------------------------------
  1396.  
  1397.   è╓Éöû╝ : vbmp3_getFileLyrics3InfoVB()
  1398.   ï@ö\   : LYRICS3 é╠Åεò±Äµô╛
  1399.   ê°Éö   : pszName = Äµô╛éαé╞é╠MP3âtâ@âCâïû╝
  1400.            pLyrics3Info = LYRICS3_INFO_VB ì\æóæ╠
  1401.            lyrData = ë╠ÄîâtâBü[âïâh
  1402.            InfData = Åεò±âtâBü[âïâh
  1403.            ImgData = âCâüü[âWâtâ@âCâïé╓é╠âèâôâN
  1404.   û▀éΦÆl : True  = É¼î≈
  1405.            False = Ä╕ös
  1406.   Éαû╛   : âtâ@âCâïé╔âZâbâgé│éΩé╜ LYRICS3 Åεò±é≡ĵô╛é╡é▄é╖üB
  1407.  
  1408.  
  1409.   LYRICS3_INFO_VB ì\æóæ╠
  1410.   Éαû╛   : LYRICS3 é╠Åεò±é≡èiö[é╡é▄é╖üB
  1411.  
  1412.  üyÆΦï`üz
  1413.     Public Type LYRICS3_INFO_VB
  1414.         IND_LYR As String * 1           'LYRâtâBü[âïâhé╠ùLû│ '0':û│é╡ '1':ùLéΦ
  1415.         IND_TIMETAG As String * 1       'â^âCâÇâ^âOé╠ùLû│ '0':û│é╡ '1':ùLéΦ
  1416.         AUT As String * 250             'ì∞Äîü^ì∞ï╚Ä╥û╝
  1417.         EAL As String * 250             'ègÆúâAâïâoâÇû╝
  1418.         EAR As String * 250             'ègÆúâAü[âeâBâXâgû╝
  1419.         ETT As String * 250             'ègÆúâgâëâbâNâ^âCâgâï
  1420.     End Type
  1421.  
  1422.  üyÄgùpùßüz
  1423.  
  1424.     Dim lyrData As String * 60000    'ë╠ÄîâtâBü[âïâh
  1425.     Dim InfData As String * 60000    'Åεò±âtâBü[âïâh
  1426.     Dim ImgData As String * 60000    'âCâüü[âWâtâ@âCâïé╓é╠âèâôâN
  1427.     Dim Lyrics3Info As LYRICS3_INFO_VB
  1428.  
  1429.     ' LYRICS3 Åεò±é≡ĵô╛
  1430.     Call vbmp3_getFileLyrics3InfoVB("hoge.mp3", Lyrics3Info, _
  1431.                                     lyrData, InfData, ImgData)
  1432.  
  1433.   ------------------------------------------------------
  1434.  
  1435.   è╓Éöû╝ : vbmp3_setLyrics3Use()
  1436.   ï@ö\   : LYRICS3 é╠Ä⌐ô«ô╟ì₧É▌ÆΦ
  1437.   ê°Éö   : useLyrics3 = 0 : Ä⌐ô«ô╟ì₧é╡é╚éó[default]
  1438.                         1 : Ä⌐ô«ô╟ì₧é╖éΘ
  1439.   û▀éΦÆl : û│é╡
  1440.   Éαû╛   : âtâ@âCâïâIü[âvâôÄ₧é╔ LYRICS3 é≡Ä⌐ô«ô╟é▌ì₧é▌é╖éΘé⌐é≡É▌ÆΦé╖éΘüB
  1441.            ô╟é▌ì₧é±é╛ë╠Äîé═ vbmp3_getLyrics é┼ĵô╛é┼é½é▄é╖üB
  1442.  
  1443.  üyÄgùpùßüz
  1444.  
  1445.     'LYRICS3 é╠Ä⌐ô«ô╟ì₧É▌ÆΦ
  1446.     Call vbmp3_setLyrics3Use(1)
  1447.  
  1448.   ------------------------------------------------------
  1449.  
  1450.   è╓Éöû╝ : vbmp3_readLyrics3Data()
  1451.   ï@ö\   : LYRICS3 é╠ÄΦô«ô«ô╟ì₧
  1452.   ê°Éö   : û│é╡
  1453.   û▀éΦÆl : True  = É¼î≈
  1454.            False = Ä╕ös
  1455.   Éαû╛   : LYRICS3 é≡ë╠Äîé╞é╡é─ô╟é▌ì₧é▄é╣é▄é╖üB
  1456.            ô╟é▌ì₧é±é╛ë╠Äîé═ vbmp3_getLyrics é┼ĵô╛é┼é½é▄é╖üB
  1457.  
  1458.  üyÄgùpùßüz
  1459.  
  1460.     'LYRICS3 é╠ÄΦô«ô«ô╟ì₧
  1461.     Call vbmp3_readLyrics3Data()
  1462.  
  1463.   ------------------------------------------------------
  1464.  
  1465.   è╓Éöû╝ : vbmp3_clearLyrics()
  1466.   ï@ö\   : ô╟ì₧ì╧é▌é╠ë╠Äîé╠âNâèâA
  1467.   ê°Éö   : û│é╡
  1468.   û▀éΦÆl : True  = É¼î≈
  1469.            False = Ä╕ös
  1470.   Éαû╛   : ô╟é▌ì₧é▄éΩé─éóéΘë╠Äîé≡âNâèâAé╡é▄é╖üB
  1471.  
  1472.  üyÄgùpùßüz
  1473.  
  1474.     'ô╟ì₧ì╧é▌é╠ë╠Äîé╠âNâèâA
  1475.     Call vbmp3_clearLyrics()
  1476.  
  1477.   ------------------------------------------------------
  1478.  
  1479.   è╓Éöû╝ : vbmp3_setFftWindow()
  1480.   ï@ö\   : fftùpæïè╓ÉöÄwÆΦ
  1481.   ê°Éö   : window = 0 : rectangle
  1482.                     1 : hanning
  1483.                     2 : hamming
  1484.                     3 : blackman
  1485.   û▀éΦÆl : û│é╡
  1486.   Éαû╛   : âXâyâAâié┼Ägùpé╖éΘ fftè╓Éöé≡ÄwÆΦé╡é▄é╖üB
  1487.            æïè╓Éöé╔éµéΦögî`é¬ò╧ë╗é╡é▄é╖üB
  1488.            üªæïè╓ÉöÆΦÉöé═ code.txt é≡ÄQÅ╞é╡é─ë║é│éóüB
  1489.  
  1490.  üyÄgùpùßüz
  1491.  
  1492.     'fftùpæïè╓ÉöÄwÆΦ
  1493.     Call vbmp3_setFftWindow(1)
  1494.  
  1495.   ------------------------------------------------------
  1496.  
  1497.   è╓Éöû╝ : vbmp3_setFileLyrics3Info()
  1498.   ï@ö\   : LYRICS3 é╠Åεò±é≡É▌ÆΦ
  1499.   ê°Éö   : pszName = É▌ÆΦé╖éΘMP3âtâ@âCâïû╝
  1500.            pLyrics3Info = LYRICS3_INFO ì\æóæ╠
  1501.   û▀éΦÆl : True  = É¼î≈
  1502.            False = Ä╕ös
  1503.   Éαû╛   : LYRICS3 Åεò±é≡É▌ÆΦé╡é▄é╖üB
  1504.            üªüªüªüªüª VBÄgùpòsë┬ üªüªüªüªüª
  1505.  
  1506.   ------------------------------------------------------
  1507.  
  1508.   è╓Éöû╝ : vbmp3_setFileLyrics3InfoVB()
  1509.   ï@ö\   : LYRICS3 é╠Åεò±é≡É▌ÆΦ
  1510.   ê°Éö   : pszName = É▌ÆΦé╖éΘMP3âtâ@âCâïû╝
  1511.            pLyrics3Info = LYRICS3_INFO_VB ì\æóæ╠
  1512.            lyrData = ë╠ÄîâtâBü[âïâh
  1513.            InfData = Åεò±âtâBü[âïâh
  1514.            ImgData = âCâüü[âWâtâ@âCâïé╓é╠âèâôâN
  1515.   û▀éΦÆl : True  = É¼î≈
  1516.            False = Ä╕ös
  1517.   Éαû╛   : LYRICS3 Åεò±é≡É▌ÆΦé╡é▄é╖üB
  1518.  
  1519.  
  1520.  üyÄgùpùßüz
  1521.  
  1522.     Dim lyrData As String * 60000    'ë╠ÄîâtâBü[âïâh
  1523.     Dim InfData As String * 60000    'Åεò±âtâBü[âïâh
  1524.     Dim ImgData As String * 60000    'âCâüü[âWâtâ@âCâïé╓é╠âèâôâN
  1525.     Dim Lyrics3Info As LYRICS3_INFO_VB
  1526.  
  1527.     ' LYRICS3 é╠Åεò±É▌ÆΦ
  1528.     Call vbmp3_setFileLyrics3InfoVB("hoge.mp3", Lyrics3Info, _
  1529.                                     lyrData, InfData, ImgData)
  1530.  
  1531.   ------------------------------------------------------
  1532.  
  1533.   è╓Éöû╝ : vbmp3_getListInfoEX()
  1534.   ï@ö\   : SIâtâBü[âïâhé╠æSâtâBü[âïâhÅεò±Äµô╛
  1535.   ê°Éö   : pszName = Äµô╛éαé╞é╠MP3âtâ@âCâïû╝
  1536.            pListInfo = LIST_INFO_EX ì\æóæ╠
  1537.   û▀éΦÆl : True  = É¼î≈
  1538.            False = Ä╕ös
  1539.   Éαû╛   : SIâtâBü[âïâhé╠IID3é≡Å£é¡æSâtâBü[âïâhÅεò±é≡ĵô╛é╡é▄é╖üB
  1540.            üªüªüªüªüª VBÄgùpòsë┬ üªüªüªüªüª
  1541.  
  1542.   LIST_INFO_EX ì\æóæ╠
  1543.   Éαû╛   : SIâtâBü[âïâhé╠Åεò±é≡èiö[é╡é▄é╖üB
  1544.  
  1545.  üyÆΦï`üz(Cî╛îΩé┼é╠ÆΦï`)
  1546.     #define LIST_SIZE  2048
  1547.  
  1548.     struct LIST_INFO_EX
  1549.     {
  1550.         char  INAM[LIST_SIZE];  //ï╚û╝
  1551.         char  IART[LIST_SIZE];  //âAü[âeâBâXâgû╝
  1552.         char  IPRD[LIST_SIZE];  //É╗òiû╝
  1553.         char  ICMT[LIST_SIZE];  //âRâüâôâgò╢ÄÜù±
  1554.         char  ICRD[LIST_SIZE];  //âèâèü[âXöNìå
  1555.         char  IGNR[LIST_SIZE];  //âWâââôâïû╝
  1556.         char  ICOP[LIST_SIZE];  //Æÿì∞îá
  1557.         char  IENG[LIST_SIZE];  //âGâôâWâjâA
  1558.         char  ISRC[LIST_SIZE];  //â\ü[âX
  1559.         char  ISFT[LIST_SIZE];  //â\âtâgâEâFâA
  1560.         char  IKEY[LIST_SIZE];  //âLü[âÅü[âh
  1561.         char  ITCH[LIST_SIZE];  //ïZÅpÄ╥
  1562.         char  ICMS[LIST_SIZE];  //âRâ~âbâVâçâô
  1563.         char  IMED[LIST_SIZE];  //Æåè╘ 
  1564.         char  ISBJ[LIST_SIZE];  //â^âCâgâï
  1565.         char  IMP3[LIST_SIZE];  //MP3Åεò±
  1566.         char  ILYC[LIST_SIZE];  //ë╠Äî
  1567.     };
  1568.  
  1569.   ------------------------------------------------------
  1570.  
  1571.   è╓Éöû╝ : vbmp3_getListInfoExVB()
  1572.   ï@ö\   : SIâtâBü[âïâhé╠æSâtâBü[âïâhÅεò±Äµô╛
  1573.   ê°Éö   : pszName = Äµô╛éαé╞é╠MP3âtâ@âCâïû╝
  1574.            pListInfo = LIST_INFO_EX_VB ì\æóæ╠
  1575.   û▀éΦÆl : True  = É¼î≈
  1576.            False = Ä╕ös
  1577.   Éαû╛   : SIâtâBü[âïâhé╠IID3é≡Å£é¡æSâtâBü[âïâhÅεò±é≡ĵô╛é╡é▄é╖üB
  1578.  
  1579.   LIST_INFO_EX_VB ì\æóæ╠
  1580.   Éαû╛   : SIâtâBü[âïâhé╠Åεò±é≡èiö[é╡é▄é╖üB
  1581.  
  1582.  üyÆΦï`üz
  1583.     Public Type LIST_INFO_EX_VB
  1584.         INAM As String * 512           'ï╚û╝
  1585.         IART As String * 512           'âAü[âeâBâXâgû╝
  1586.         IPRD As String * 512           'É╗òiû╝
  1587.         ICMT As String * 512           'âRâüâôâgò╢ÄÜù±
  1588.         ICRD As String * 512           'âèâèü[âXöNìå
  1589.         IGNR As String * 512           'âWâââôâïû╝
  1590.         ICOP As String * 512           'Æÿì∞îá
  1591.         IENG As String * 512           'âGâôâWâjâA
  1592.         ISRC As String * 512           'â\ü[âX
  1593.         ISFT As String * 512           'â\âtâgâEâFâA
  1594.         IKEY As String * 512           'âLü[âÅü[âh
  1595.         ITCH As String * 512           'ïZÅpÄ╥
  1596.         ICMS As String * 512           'âRâ~âbâVâçâô
  1597.         IMED As String * 512           'Æåè╘
  1598.         ISBJ As String * 512           'â^âCâgâï
  1599.         IMP3 As String * 512           'MP3Åεò±
  1600.         ILYC As String * 512           'ë╠Äî
  1601.     End Type
  1602.  
  1603.  
  1604.  üyÄgùpùßüz
  1605.  
  1606.     Dim ListData As LIST_INFO_EX_VB
  1607.  
  1608.     ' SIâtâBü[âïâhé╠æSâtâBü[âïâhÅεò±Äµô╛
  1609.     Call vbmp3_getListInfoExVB("hoge.rmp", ListData)
  1610.  
  1611.   ------------------------------------------------------
  1612.  
  1613.   è╓Éöû╝ : vbmp3_setListInfoEX()
  1614.   ï@ö\   : SIâtâBü[âïâhé╠æSâtâBü[âïâhÅεò±É▌ÆΦ
  1615.   ê°Éö   : pszName = É▌ÆΦé╖éΘMP3âtâ@âCâïû╝
  1616.            pListInfo = LIST_INFO_EX ì\æóæ╠
  1617.   û▀éΦÆl : True  = É¼î≈
  1618.            False = Ä╕ös
  1619.   Éαû╛   : SIâtâBü[âïâhé╠IID3é≡Å£é¡æSâtâBü[âïâhé≡É▌ÆΦé╡é▄é╖üB
  1620.            üªüªüªüªüª VBÄgùpòsë┬ üªüªüªüªüª
  1621.  
  1622.   ------------------------------------------------------
  1623.  
  1624.   è╓Éöû╝ : vbmp3_setListInfoExVB()
  1625.   ï@ö\   : SIâtâBü[âïâhé╠æSâtâBü[âïâhÅεò±É▌ÆΦ
  1626.   ê°Éö   : pszName = É▌ÆΦé╖éΘMP3âtâ@âCâïû╝
  1627.            pListInfo = LIST_INFO_EX_VB ì\æóæ╠
  1628.   û▀éΦÆl : True  = É¼î≈
  1629.            False = Ä╕ös
  1630.   Éαû╛   : SIâtâBü[âïâhé╠IID3é≡Å£é¡æSâtâBü[âïâhé≡É▌ÆΦé╡é▄é╖üB
  1631.  
  1632.  
  1633.  üyÄgùpùßüz
  1634.  
  1635.     Dim ListData As LIST_INFO_EX_VB
  1636.  
  1637.     ' SIâtâBü[âïâhé╠æSâtâBü[âïâhÅεò±É▌ÆΦ
  1638.     Call vbmp3_setListInfoExVB("hoge.rmp", ListData)
  1639.  
  1640.   ------------------------------------------------------
  1641.  
  1642.   è╓Éöû╝ : vbmp3_getFileTagInfoEX()
  1643.   ï@ö\   : ID3Tag v1.0 é¿éµé╤ v1.1 Åεò±Äµô╛
  1644.   ê°Éö   : pszName = Äµô╛é╖éΘMP3âtâ@âCâïû╝
  1645.            pTagInfo = TAG_INFO_11 ì\æóæ╠
  1646.   û▀éΦÆl : True  = É¼î≈
  1647.            False = Ä╕ös
  1648.   Éαû╛   : ID3Tag v1.0 é¿éµé╤ v1.1 é╠Åεò±é≡ĵô╛é╡é▄é╖üB
  1649.  
  1650.  
  1651.   TAG_INFO_11 ì\æóæ╠
  1652.   Éαû╛   : ID3Tag v1.0 é¿éµé╤ v1.1 é╠Åεò±é≡èiö[é╡é▄é╖üB
  1653.  
  1654.  üyÆΦï`üz
  1655.     Public Type TAG_INFO_11
  1656.         szTrackName As String * 128     'ï╚û╝
  1657.         szArtistName As String * 128    '▒░├¿╜─û╝
  1658.         szAlbumName As String * 128     '▒┘╩▐╤û╝
  1659.         szYear As String * 5            '╪╪░╜öNìå
  1660.         szComment As String * 128       '║╥▌─
  1661.         genre As Long                   '╝▐¼▌┘
  1662.         szGenreName As String * 128     '╝▐¼▌┘û╝
  1663.         trackNo As Long                 'âgâëâbâNö╘ìå (-1 = v1.0)
  1664.     End Type
  1665.  
  1666.  
  1667.  üyÄgùpùßüz
  1668.  
  1669.     Dim TagData As TAG_INFO_11
  1670.  
  1671.     ' ID3Tag v1.0 é¿éµé╤ v1.1 Åεò±Äµô╛
  1672.     Call vbmp3_getFileTagInfoEX("hoge.rmp", TagData)
  1673.  
  1674.   ------------------------------------------------------
  1675.  
  1676.   è╓Éöû╝ : vbmp3_setTagInfoEX()
  1677.   ï@ö\   : ID3Tag v1.0 é¿éµé╤ v1.1 Åεò±É▌ÆΦ
  1678.   ê°Éö   : pszName = Äµô╛é╖éΘMP3âtâ@âCâïû╝
  1679.            pTagInfo = TAG_INFO_11 ì\æóæ╠
  1680.            tagSet   = 1 : DLL ôαòöé╠ TAG Åεò±Åæé½è╖éª(ì─É╢Æåâtâ@âCâïÄ₧ÄwÆΦ)
  1681.                       0 :     üV             ò╧ìXû│é╡
  1682.                          Å╚ù¬ë┬ö\,âfâtâHâïâg 0
  1683.            tagAdd   = 1 : ID3Tag v1 é¬æ╢ì▌é╡é╚éóé╞é½Æ╟ë┴é╖éΘ
  1684.                       0 :              üV           Æ╟ë┴é╡é╚éó
  1685.   û▀éΦÆl : True  = É¼î≈
  1686.            False = Ä╕ös
  1687.   Éαû╛   : ID3Tag v1.0 é¿éµé╤ v1.1 é╠Åεò±é≡É▌ÆΦé╡é▄é╖üB
  1688.            v1.0 é╞é╡é─ôoÿ^é╖éΘÅΩìçé═ TAG_INFO_11 é╠
  1689.            trackNo é╔ -1 é≡âZâbâgé╡é─ë║é│éóüB
  1690.  
  1691.  
  1692.  üyÄgùpùßüz
  1693.  
  1694.     Dim TagData As TAG_INFO_11
  1695.  
  1696.     ' ID3Tag v1.0 é¿éµé╤ v1.1 Åεò±É▌ÆΦ
  1697.     Call vbmp3_setTagInfoEX("hoge.rmp", TagData, 1, 1)
  1698.  
  1699.   ------------------------------------------------------
  1700.  
  1701.   è╓Éöû╝ : vbmp3_setKaraokeUse()
  1702.   ï@ö\   : âJâëâIâPâ^âOÄgùpÉ▌ÆΦ
  1703.   ê°Éö   : useKaraoke = 0 : ûóÄgùp[default]
  1704.                         1 : Ägùp
  1705.   û▀éΦÆl : û│é╡
  1706.   Éαû╛   : âJâëâIâPâ^âOé≡Ägùpé╖éΘé⌐é≡ÄwÆΦé╡é▄é╖üB
  1707.  
  1708.  üyÄgùpùßüz
  1709.  
  1710.     'âJâëâIâPâ^âOÄgùpÉ▌ÆΦ
  1711.     Call vbmp3_setKaraokeUse(1)
  1712.  
  1713.   ------------------------------------------------------
  1714.  
  1715.   è╓Éöû╝ : vbmp3_getLyrics2()
  1716.   ï@ö\   : âJâëâIâPâ^âOæ╬ë₧ë╠Äîĵô╛
  1717.   ê°Éö   : pLyricsInfo = LYRICS_INFO2 ì\æóæ╠
  1718.   û▀éΦÆl : True  = É¼î≈
  1719.            False = Ä╕ös
  1720.   Éαû╛   : âJâëâIâPâ^âOé╠ì─É╢ê╩Æué╔æ╬ë₧é╡é╜ë╠Äîé≡ĵô╛é╡é▄é╖
  1721.  
  1722.   LYRICS_INFO2 ì\æóæ╠
  1723.   Éαû╛   : âJâëâIâPâ^âOæ╬ë₧ë╠ÄîÅεò±é≡èiö[é╡é▄é╖üB
  1724.  
  1725.  üyÆΦï`üz
  1726.     Public Type LYRICS_INFO2
  1727.         sec As Long                             'â~âèòb
  1728.         lineno As Long                          'ìsÉö
  1729.         point As Long                           'âJâîâôâgìsé┼é╠â^âOé╠ê╩Æu
  1730.         length As Long                          'âJâîâôâgâ^âOé╠Æ╖é│üiâ~âèòbüj
  1731.         LyricsNext2 As String * 128             'ăüXìsé╠ë╠Äî
  1732.         LyricsNext1 As String * 128             'ăìsé╠ë╠Äî
  1733.         LyricsCurrent As String * 128           'âJâîâôâgâ^âOé╠ë╠Äî
  1734.         LyricsCurrentBegin As String * 128      'âJâîâôâgâ^âOéµéΦæOé╠ë╠Äî
  1735.         LyricsCurrentLyrics As String * 128     'âJâîâôâgâ^âOé▄é┼é╠ë╠Äî
  1736.         LyricsCurrentAll As String * 128        'âJâîâôâgìsé╠ë╠Äî
  1737.         LyricsPrev1 As String * 128             'æOìsé╠ë╠Äî
  1738.         LyricsPrev2 As String * 128             'æOüXìsé╠ë╠Äî
  1739.     End Type
  1740.  
  1741.  üyÄgùpùßüz
  1742.  
  1743.     Dim lyricsInfo As LYRICS_INFO2
  1744.  
  1745.     'âJâëâIâPâ^âOæ╬ë₧ë╠Äîĵô╛
  1746.     Call vbmp3_getLyrics2(lyricsInfo)
  1747.  
  1748.   ------------------------------------------------------
  1749.  
  1750.   è╓Éöû╝ : vbmp3_setLyricsTime()
  1751.   ï@ö\   : ë╠Äîò\ĪÄ₧è╘É╪æ╓
  1752.   ê°Éö   : flag = 0 : WinampÄ₧è╘
  1753.                   1 : òWÅÇÄ₧è╘
  1754.                   2 : É▌ÆΦÄ₧è╘öΣ
  1755.   û▀éΦÆl : û│é╡
  1756.   Éαû╛   : ë╠Äîĵô╛Ä₧é╔ôKùpé╖éΘÄ₧è╘é≡ÄwÆΦé╡é▄é╖üB
  1757.  
  1758.  üyÄgùpùßüz
  1759.  
  1760.     'ë╠Äîò\ĪÄ₧è╘É╪æ╓
  1761.     Call vbmp3_setLyricsTime(1)
  1762.  
  1763.   ------------------------------------------------------
  1764.  
  1765.   è╓Éöû╝ : vbmp3_setWaveOutDeviceId()
  1766.   ï@ö\   : waveÅoù═âfâoâCâXIDÉ▌ÆΦ
  1767.   ê°Éö   : id = waveOutDeviceID
  1768.   û▀éΦÆl : û│é╡
  1769.   Éαû╛   : waveÅoù═é╔Ägùpé╖éΘâfâoâCâXIDé≡ÄwÆΦé╡é▄é╖üB
  1770.  
  1771.  üyÄgùpùßüz
  1772.  
  1773.     'waveÅoù═âfâoâCâXIDÉ▌ÆΦ
  1774.     Call vbmp3_setWaveOutDeviceId(1)
  1775.  
  1776.   ------------------------------------------------------
  1777.  
  1778.   è╓Éöû╝ : vbmp3_delFileLyrics3Info()
  1779.   ï@ö\   : Lyrics3ìφÅ£
  1780.   ê°Éö   : pszName = MP3âtâ@âCâïû╝
  1781.   û▀éΦÆl : û│é╡
  1782.   Éαû╛   : âtâ@âCâïé╔Åæé½ì₧é▄éΩé╜Lyrics3âfü[â^é≡ìφÅ£é╡é▄é╖üB
  1783.  
  1784.  üyÄgùpùßüz
  1785.  
  1786.     'Lyrics3ìφÅ£
  1787.     Call vbmp3_delFileLyrics3Info("hoge.mp3")
  1788.  
  1789.   ------------------------------------------------------
  1790.  
  1791.   è╓Éöû╝ : vbmp3_setListInfoEX2()
  1792.   ï@ö\   : SIâtâBü[âïâhé╠æSâtâBü[âïâhÅεò±Äµô╛
  1793.   ê°Éö   : pszName = Äµô╛éαé╞é╠MP3âtâ@âCâïû╝
  1794.            pListInfo = LIST_INFO_EX2 ì\æóæ╠
  1795.   û▀éΦÆl : True  = É¼î≈
  1796.            False = Ä╕ös
  1797.   Éαû╛   : SIâtâBü[âïâhé╠IID3é≡Å£é¡æSâtâBü[âïâhÅεò±é≡ĵô╛é╡é▄é╖üB
  1798.  
  1799.   LIST_INFO_EX2 ì\æóæ╠
  1800.   Éαû╛   : SIâtâBü[âïâhé╠Åεò±é≡èiö[é╡é▄é╖üB
  1801.  
  1802.  üyÆΦï`üz
  1803.     Public Type LIST_INFO_EX2
  1804.         INAM As String           'ï╚û╝
  1805.         IART As String           'âAü[âeâBâXâgû╝
  1806.         IPRD As String           'É╗òiû╝
  1807.         ICMT As String           'âRâüâôâgò╢ÄÜù±
  1808.         ICRD As String           'âèâèü[âXöNìå
  1809.         IGNR As String           'âWâââôâïû╝
  1810.         ICOP As String           'Æÿì∞îá
  1811.         IENG As String           'âGâôâWâjâA
  1812.         ISRC As String           'â\ü[âX
  1813.         ISFT As String           'â\âtâgâEâFâA
  1814.         IKEY As String           'âLü[âÅü[âh
  1815.         ITCH As String           'ïZÅpÄ╥
  1816.         ICMS As String           'âRâ~âbâVâçâô
  1817.         IMED As String           'Æåè╘
  1818.         ISBJ As String           'â^âCâgâï
  1819.         IMP3 As String           'MP3Åεò±
  1820.         ILYC As String           'ë╠Äî
  1821.     End Type
  1822.  
  1823.  üyÄgùpùßüz
  1824.  
  1825.     Dim ListData As LIST_INFO_EX2
  1826.  
  1827.     ' SIâtâBü[âïâhé╠æSâtâBü[âïâhÅεò±Äµô╛
  1828.     Call vbmp3_setListInfoEX2("hoge.rmp", ListData)
  1829.  
  1830.   ------------------------------------------------------
  1831.  
  1832.   è╓Éöû╝ : vbmp3_setNotTagLyricsLine()
  1833.   ï@ö\   : ë╠Äîâtâ@âCâïé╠â^âCâÇâ^âOû│é╡ìsô╟ì₧É▌ÆΦ
  1834.   ê°Éö   : readFlag = 0 : â^âCâÇâ^âOû│é╡ìsé╠ô╟ì₧û│é╡
  1835.                       1 : â^âCâÇâ^âOû│é╡ìsé╠ô╟ì₧ùLéΦ[default]
  1836.   û▀éΦÆl : û│é╡
  1837.   Éαû╛   : ë╠Äîâtâ@âCâïôαé╠â^âCâÇâ^âOé¬û│éóìsé≡ô╟ì₧é⌐é≡É▌ÆΦé╡é▄é╖üB
  1838.  
  1839.  üyÄgùpùßüz
  1840.  
  1841.     ' ë╠Äîâtâ@âCâïé╠â^âOû│é╡ìsô╟ì₧É▌ÆΦ
  1842.     Call vbmp3_setNotTagLyricsLine(0)
  1843.  
  1844.   ------------------------------------------------------
  1845.  
  1846.   è╓Éöû╝ : vbmp3_setNotDataSiWrite()
  1847.   ï@ö\   : âfü[â^û│é╡SIâtâBü[âïâhÅoù═É▌ÆΦ
  1848.   ê°Éö   : writeFlag = 0 : âfü[â^é╠ùLéΘ SIâtâBü[âïâhé╠é▌Åoù═
  1849.                        1 : é╖é╫é─é╠SIâtâBü[âïâhé≡Åoù═[default]
  1850.   û▀éΦÆl : û│é╡
  1851.   Éαû╛   : âfü[â^é╠É▌ÆΦé│éΩé─éóé╚éó SI âtâBü[âïâhé≡ì∞ɼé╖éΘé⌐É▌ÆΦé╡é▄é╖üB
  1852.  
  1853.  üyÄgùpùßüz
  1854.  
  1855.     ' âfü[â^û│é╡SIâtâBü[âïâhÅoù═É▌ÆΦ
  1856.     Call vbmp3_setNotDataSiWrite(0)
  1857.  
  1858.   ------------------------------------------------------
  1859.  
  1860.   è╓Éöû╝ : vbmp3_setReadLyrics3Info()
  1861.   ï@ö\   : ô╟ì₧ì╧é▌ë╠Äîâfü[â^LYRICS3ôoÿ^
  1862.   ê°Éö   : pszName = LYRICS3é≡Åæé½ì₧é▐MP3âtâ@âCâï
  1863.   û▀éΦÆl : True  = É¼î≈
  1864.            False = Ä╕ös
  1865.   Éαû╛   : vbmp3_setLyricsFile é╚é╟é┼ô╟é▌ì₧é▄éΩé╜ë╠ÄîÅεò±é≡
  1866.            LYRICS3î`Ä«é┼âtâ@âCâïé╔Åæé½ì₧é▌é▄é╖üB
  1867.  
  1868.  üyÄgùpùßüz
  1869.  
  1870.     ' ô╟ì₧ì╧é▌ë╠Äîâfü[â^LYRICS3ôoÿ^
  1871.     Call vbmp3_setReadLyrics3Info("hoge.mp3")
  1872.  
  1873.   ------------------------------------------------------
  1874.  
  1875.   è╓Éöû╝ : vbmp3_checkKaraokeTag()
  1876.   ï@ö\   : âJâëâIâPâ^âOùLû│â`âFâbâN
  1877.   ê°Éö   : û│é╡
  1878.   û▀éΦÆl : True  = âJâëâIâPâ^âOùLéΦ
  1879.            False = âJâëâIâPâ^âOû│é╡
  1880.   Éαû╛   : vbmp3_setLyricsFile é╚é╟é┼ô╟é▌ì₧é▄éΩé╜ë╠ÄîÅεò±ôαé╔
  1881.            âJâëâIâPâ^âOé¬éáéΘé⌐é≡â`âFâbâNé╡é▄é╖üB
  1882.  
  1883.  üyÄgùpùßüz
  1884.  
  1885.     ' ô╟ì₧ì╧é▌ë╠Äîâfü[â^LYRICS3ôoÿ^
  1886.     If vbmp3_checkKaraokeTag() Then
  1887.         MsgBox "âJâëâIâPâ^âOé¬ùLéΦé▄é╖"
  1888.     End If
  1889.  
  1890.   ------------------------------------------------------
  1891.  
  1892.   è╓Éöû╝ : vbmp3_setFrameReadFlag()
  1893.   ï@ö\   : âtâîü[âÇÉöĵô╛ò√û@É▌ÆΦ
  1894.   ê°Éö   : readFlag = 0 : Æ╩Åφ[default]
  1895.                       1 : è«æS(âtâ@âCâïæSæûì╕)
  1896.   û▀éΦÆl : û│é╡
  1897.   Éαû╛   : âtâîü[âÇÉöé╠ĵô╛ò√û@é≡ò╧ìXé╡é▄é╖üB
  1898.            1 é╠ÅΩìçüAÉ│èmé╚Ælé≡ĵô╛é┼é½é▄é╖é¬Ä₧è╘é¬è|é⌐éΦé▄é╖üB
  1899.  
  1900.  üyÄgùpùßüz
  1901.  
  1902.     ' âtâîü[âÇÉöĵô╛ò√û@É▌ÆΦ
  1903.     Call vbmp3_setFrameReadFlag(1)
  1904.  
  1905.   ------------------------------------------------------
  1906.  
  1907.   è╓Éöû╝ : vbmp3_setLyricsAdjustTime()
  1908.   ï@ö\   : ë╠Äîò\Īê╩Æué╠Æ▓É«
  1909.   ê°Éö   : ms = ë╠Äîé╠ò\Īé≡é╕éτé╖òbÉö[â~âèòb]
  1910.   û▀éΦÆl : û│é╡
  1911.   Éαû╛   : ì─É╢Ä₧è╘é╔âZâbâgé│é─é╜Ä₧è╘é≡ë┴éªé─ë╠Äîé≡ĵô╛é╡é▄é╖üB
  1912.            É│Ælé╚éτæüé¡üAòëÆlé╚éτÆxéΩé─ô╟é▌ì₧é▄éΩé▄é╖üB
  1913.  
  1914.  üyÄgùpùßüz
  1915.  
  1916.     ' ë╠Äîò\Īê╩Æué╠Æ▓É«
  1917.     Call vbmp3_setLyricsAdjustTime(1000)
  1918.  
  1919.   ------------------------------------------------------
  1920.  
  1921.   è╓Éöû╝ : vbmp3_setSeekPlay()
  1922.   ï@ö\   : ÆΓÄ~Ä₧âVü[âNé╠ì─É╢ùLû│É▌ÆΦ
  1923.   ê°Éö   : seekPlay = 0 : Ä⌐ô«ì─É╢é╡é╚éó[default]
  1924.                       1 : Ä⌐ô«ì─É╢é╖éΘ
  1925.   û▀éΦÆl : û│é╡
  1926.   Éαû╛   : ÆΓÄ~Å≤æ╘é┼âVü[âNé╡é╜é╞é½ì─É╢é≡Ä⌐ô«ôIé╔èJÄné╖éΘé⌐É▌ÆΦé╡é▄é╖üB
  1927.  
  1928.  üyÄgùpùßüz
  1929.  
  1930.     ' ÆΓÄ~Ä₧âVü[âNé╠ì─É╢ùLû│É▌ÆΦ
  1931.     Call vbmp3_setSeekPlay(1)
  1932.  
  1933.   ------------------------------------------------------
  1934.  
  1935.   è╓Éöû╝ : vbmp3_setLyricsNextAdjustTime()
  1936.   ï@ö\   : ë╠Äîìsé╠ò\Īâ^âCâ~âôâOÆ▓É«
  1937.   ê°Éö   : ms = ë╠Äîìsé╠ò\Īé≡é╕éτé╖òbÉö[â~âèòb]
  1938.   û▀éΦÆl : û│é╡
  1939.   Éαû╛   : Äƒé╠ìsé≡ɵìs(Æxëä)ò\Īé╡é▄é╖
  1940.            É│Ælé╚éτæüé¡üAòëÆlé╚éτÆxéΩé─ô╟é▌ì₧é▄éΩé▄é╖üB
  1941.  
  1942.  üyÄgùpùßüz
  1943.  
  1944.     ' ë╠Äîìsé╠ò\Īâ^âCâ~âôâOÆ▓É«
  1945.     Call vbmp3_setLyricsNextAdjustTime(1000)
  1946.  
  1947.   ------------------------------------------------------
  1948.  
  1949.   è╓Éöû╝ : vbmp3_quickSeek()
  1950.   ï@ö\   : ìéæ¼âVü[âNÄgùpÉ▌ÆΦ
  1951.   ê°Éö   : quickSeekFlag = 0 : ûóÄgùp
  1952.                            1 : Ägùp[default]
  1953.   û▀éΦÆl : û│é╡
  1954.   Éαû╛   : éPâtâîü[âÇû┌é╠Åεò±é≡î│é╔üAâVü[âNê╩Æué≡ù\æ¬é╡âVü[âNé╡é▄é╖üB
  1955.            üªÅ]ùêé╠âVü[âNò√û@é╞é═êßéóüAÉöÅ\â~âèòbÆ÷îδì╖é¬ö¡É╢é╡é▄é╖üB
  1956.  
  1957.  üyÄgùpùßüz
  1958.  
  1959.     ' ìéæ¼âVü[âNÄgùpÉ▌ÆΦ
  1960.     Call vbmp3_quickSeek(1)
  1961.  
  1962.   ------------------------------------------------------
  1963.  
  1964.   è╓Éöû╝ : vbmp3_cutID3v2()
  1965.   ï@ö\   : ID3Tag v2 Å£ïÄ
  1966.   ê°Éö   : pszName = MP3âtâ@âCâïû╝
  1967.   û▀éΦÆl : True  = É¼î≈
  1968.            False = Ä╕ös
  1969.   Éαû╛   : âtâ@âCâïé╔Åæé½ì₧é▄éΩID3 Tag v2âfü[â^é≡ìφÅ£é╡é▄é╖üB
  1970.  
  1971.  üyÄgùpùßüz
  1972.  
  1973.     'ID3Tag v2 Å£ïÄ
  1974.     Call vbmp3_cutID3v2("hoge.mp3")
  1975.  
  1976.   ------------------------------------------------------
  1977.  
  1978.   è╓Éöû╝ : vbmp3_convTimeW2N()
  1979.   ï@ö\   : ë╠ÄîÄ₧è╘(Winamp->òWÅÇÄ₧è╘)ò╧è╖
  1980.   ê°Éö   : û│é╡
  1981.   û▀éΦÆl : True  = É¼î≈
  1982.            False = Ä╕ös
  1983.   Éαû╛   : ô╟ì₧ì╧é▌é╠ë╠ÄîÅεò±é╠WinampÄ₧è╘é≡òWÅÇÄ₧è╘é╔ò╧è╖é╡é▄é╖üB
  1984.            üªé▒é╠è╓Éöé≡òíÉöë±Ä└ìsé╖éΘé╞üAë±Éöò¬òΓÉ│é¬è|é⌐éΦ
  1985.              îδì╖é≡ìLé░éΘé▒é╞é╔é╚éΦé▄é╖üB
  1986.              èεû{ôIé╔éPë±é╛é»Ägùpé╖éΘéµéñé╔é╡é─é¡é╛é│éóüB
  1987.  
  1988.  üyÄgùpùßüz
  1989.  
  1990.     'ë╠ÄîÄ₧è╘(Winamp->òWÅÇÄ₧è╘)ò╧è╖
  1991.     Call vbmp3_convTimeN2W
  1992.  
  1993.   ------------------------------------------------------
  1994.  
  1995.   è╓Éöû╝ : vbmp3_convTimeN2W()
  1996.   ï@ö\   : ë╠ÄîÄ₧è╘(òWÅÇÄ₧è╘->Winamp)ò╧è╖
  1997.   ê°Éö   : û│é╡
  1998.   û▀éΦÆl : True  = É¼î≈
  1999.            False = Ä╕ös
  2000.   Éαû╛   : ô╟ì₧ì╧é▌é╠ë╠ÄîÅεò±é╠òWÅÇÄ₧è╘é≡WinampÄ₧è╘é╔ò╧è╖é╡é▄é╖üB
  2001.            üªé▒é╠è╓Éöé≡òíÉöë±Ä└ìsé╖éΘé╞üAë±Éöò¬òΓÉ│é¬è|é⌐éΦ
  2002.              îδì╖é≡ìLé░éΘé▒é╞é╔é╚éΦé▄é╖üB
  2003.              èεû{ôIé╔éPë±é╛é»Ägùpé╖éΘéµéñé╔é╡é─é¡é╛é│éóüB
  2004.  
  2005.  üyÄgùpùßüz
  2006.  
  2007.     'ë╠ÄîÄ₧è╘(òWÅÇÄ₧è╘->Winamp)ò╧è╖
  2008.     Call vbmp3_convTimeN2W
  2009.  
  2010.   ------------------------------------------------------
  2011.  
  2012.   è╓Éöû╝ : vbmp3_outLyricsFile()
  2013.   ï@ö\   : ë╠Äîâtâ@âCâïÅoù═
  2014.   ê°Éö   : pszLyricsName = Åoù═ë╠Äîâtâ@âCâïû╝
  2015.   û▀éΦÆl : True  = É¼î≈
  2016.            False = Ä╕ös
  2017.   Éαû╛   : ô╟ì₧ì╧é▌é╠ë╠ÄîÅεò±é≡âtâ@âCâïé╔Åoù═é╡é▄é╖üB
  2018.  
  2019.  üyÄgùpùßüz
  2020.  
  2021.     'ë╠Äîâtâ@âCâïÅoù═
  2022.     Call vbmp3_outLyricsFile("hoge.txt")
  2023.  
  2024.   ------------------------------------------------------
  2025.  
  2026.   è╓Éöû╝ : vbmp3_useAtMarkTag()
  2027.   ï@ö\   : üùâ^âOô╟ì₧É▌ÆΦ
  2028.   ê°Éö   : useFlag = 0:Åêù¥û│é╡ü@ü@üiüùâ^âOìsò\Īüj[default]
  2029.                      1:üùâ^âOÄgùpü@üiüùâ^âOìsö±ò\Īüj
  2030.                      2:üùèJÄnìsû│Äïüiüùâ^âOìsö±ò\Īüj
  2031.   û▀éΦÆl : û│é╡
  2032.   Éαû╛   : üùâ^âOé╠ÄgùpùLû│é≡É▌ÆΦé╡é▄é╖üB
  2033.            üªüùâ^âOé¬æ╢ì▌é╡é╚éóÅΩìçé═üAî╗ì▌é╠É▌ÆΦé≡Ägùpé╡é▄é╖üB
  2034.            üªÉ▌ÆΦé╔è╓éφéτé╕ë╠Äîô╟ì₧Ä₧é╔é═üùâ^âOé╠ôαùeé≡ò█æ╢é│éΩé▄é╖é¬
  2035.              üùâ^âOìsé╠ò\Īö±ò\Īé═üAë╠Äîô╟ì₧Ä₧é╠É▌ÆΦé╔ê╦æ╢é╡é▄é╖üB
  2036.  
  2037.  üyüùâ^âOé╔éµéΘö╜ëfôαùeüz
  2038.     @TimeRatio : òWÅÇÄ₧è╘é╔ÄwÆΦé≡Ælé≡è|é»é╜Ä₧è╘é≡î│é╔ë╠Äîé≡ò\Ī
  2039.                  <ûóÄwÆΦÄ₧é╠É▌ÆΦ> 1
  2040.                  (vbmp3_setTimeRatioé╞ô»ùl)
  2041.  
  2042.     @Offset    : ë╠Äîé╠É╪æ╓é≡ÄwÆΦÄ₧è╘[ms]ò¬é╕éτé╖
  2043.                  <ûóÄwÆΦÄ₧é╠É▌ÆΦ> 0
  2044.                  (vbmp3_setLyricsAdjustTimeé╞ô»ùl)
  2045.  
  2046.     @TimeType  : @TimeRatio é¬ûóÉ▌ÆΦÄ₧é╠ë╠ÄîùpÄ₧è╘é≡É▌ÆΦ
  2047.                  WinAmp = WinampÄ₧è╘
  2048.                  Normal = òWÅÇÄ₧è╘
  2049.                  <ûóÄwÆΦÄ₧é╠É▌ÆΦ> òWÅÇÄ₧è╘
  2050.                  (vbmp3_setLyricsTimeé╞ô»ùl)
  2051.  
  2052.     üªæ╝é╠â^âOé╔é┬éóé─é═üAîπÅqé╠ vbmp3_getAtTagData è╓Éöé≡ÄQÅ╞é╡é─ë║é│éóüB
  2053.  
  2054.  üyÄgùpùßüz
  2055.  
  2056.     'üùâ^âOô╟ì₧É▌ÆΦ
  2057.     Call vbmp3_useAtMarkTag(1)
  2058.  
  2059.   ------------------------------------------------------
  2060.  
  2061.   è╓Éöû╝ : vbmp3_setTimeRatio()
  2062.   ï@ö\   : ë╠ÄîòWÅÇÄ₧è╘öΣÉ▌ÆΦ
  2063.   ê°Éö   : timeRatio = òWÅÇÄ₧é╔æ╬é╖éΘÄ₧è╘öΣé≡ÄwÆΦ
  2064.   û▀éΦÆl : û│é╡
  2065.   Éαû╛   : ë╠Äîò\Īé╠é╕éΩé≡ÄΦô«é┼Æ▓É«é╖éΘé╜é▀é╠è╓Éöé┼é╖üB
  2066.  
  2067.  üyÄgùpùßüz
  2068.  
  2069.     'ë╠ÄîòWÅÇÄ₧è╘öΣÉ▌ÆΦ
  2070.     Call vbmp3_setTimeRatio(0.9953125)
  2071.  
  2072.   ------------------------------------------------------
  2073.  
  2074.   è╓Éöû╝ : vbmp3_checkTimeTag()
  2075.   ï@ö\   : â^âCâÇâ^âOùLû│â`âFâbâN
  2076.   ê°Éö   : û│é╡
  2077.   û▀éΦÆl : 0 = â^âOû│é╡
  2078.            1 = â^âOùLéΦ
  2079.            2 = â^âOùLéΦüiâJâëâIâPüj
  2080.   Éαû╛   : vbmp3_setLyricsFile é╚é╟é┼ô╟é▌ì₧é▄éΩé╜ë╠ÄîÅεò±ôαé╔
  2081.            â^âCâÇâ^âOé¬éáéΘé⌐é≡â`âFâbâNé╡é▄é╖üB
  2082.  
  2083.  üyÄgùpùßüz
  2084.  
  2085.     ' â^âCâÇâ^âOùLû│â`âFâbâN
  2086.     If vbmp3_checkTimeTag <> 0 Then
  2087.         MsgBox "â^âCâÇâ^âOé¬ùLéΦé▄é╖"
  2088.     End If
  2089.  
  2090.   ------------------------------------------------------
  2091.  
  2092.   è╓Éöû╝ : vbmp3_getAtTagData()
  2093.   ï@ö\   : üùâ^âOÅεò±Äµô╛
  2094.   ê°Éö   : pAtTagData = AT_TAG_DATA ì\æóæ╠
  2095.   û▀éΦÆl : True  = É¼î≈
  2096.            False = Ä╕ös
  2097.   Éαû╛   : vbmp3_setLyricsFile, vbmp3_readLyrics3Data é┼ô╟é▌ì₧é±é╛
  2098.            ë╠ÄîÅεò±é╔ïLÅqé│éΩé╜üùâ^âOÅεò±é≡ĵô╛é╡é▄é╖üB
  2099.  
  2100.   AT_TAG_DATA ì\æóæ╠
  2101.   Éαû╛   : üùâ^âOé╠Åεò±é≡èiö[é╡é▄é╖üB
  2102.  
  2103.  üyÆΦï`üz
  2104.     Public Type AT_TAG_DATA
  2105.         Artist As String * 1024         'âAü[âeâBâXâgû╝
  2106.         Title As String * 1024          'â^âCâgâï
  2107.         Album As String * 1024          'âAâïâoâÇû╝
  2108.         Bgfile As String * 1024         'öwîiâtâ@âCâïû╝
  2109.         Bgfolder As String * 1024       'öwîiâtâHâïâ_û╝
  2110.         TimeRatio As Double             'Ä₧è╘öΣ
  2111.         Offset As Long                  'òΓÉ│Ä₧è╘[ms]
  2112.         SilencemSec As Long             'û│ë╣òöÄ₧è╘[ms]
  2113.         TaggingBy As String * 1024      'â^âOì∞ɼÄ╥
  2114.         EditedBy As String * 1024       'â^âOÅCÉ│Ä╥
  2115.         Silence As Long                 'û│ë╣âtâîü[âÇÉö
  2116.         Flames As Long                  'æìâtâîü[âÇÉö
  2117.         TotalSec As Long                'ëëætæìÄ₧è╘[s]
  2118.         TimeType As String * 1024       'ì─É╢Ä₧è╘Äφò╩(WinAmp or Normal)
  2119.     End Type
  2120.  
  2121.  üyÄgùpùßüz
  2122.  
  2123.     Dim atTagData As AT_TAG_DATA
  2124.  
  2125.     'üùâ^âOÅεò±Äµô╛
  2126.     Call vbmp3_getAtTagData(atTagData)
  2127.  
  2128.   ------------------------------------------------------
  2129.  
  2130.   è╓Éöû╝ : vbmp3_getCallbackLyricsData()
  2131.   ï@ö\   : ë╠ÄîÅεò±Äµô╛âRü[âïâoâbâNè╓ÉöÉ▌ÆΦ
  2132.   ê°Éö   : âRü[âïâoâbâNè╓Éöé╠âAâhâîâX(AddressOf ÄwÆΦ)
  2133.   û▀éΦÆl : True  = É¼î≈
  2134.            False = Ä╕ös
  2135.   Éαû╛   : âRü[âïâoâbâNè╓Éöé≡É▌ÆΦé╡é▄é╖üB
  2136.            AddressOf è╓Éöé≡Ägùpé╖éΘé╜é▀ VB5 ê╚ì~é╠é▌Ägùpë┬ö\é┼é╖üB
  2137.  
  2138.            üªé▒é╠è╓Éöé═ÆΓÄ~Å≤æ╘é╠Ä₧é╠é▌Ä└ìsé┼é½é▄é╖üB
  2139.  
  2140.   LYRICS_DATA ì\æóæ╠
  2141.   Éαû╛   : ë╠ÄîÅεò±é≡èiö[é╡é▄é╖üB
  2142.  
  2143.  üyÆΦï`üz
  2144.     Public Type LYRICS_DATA
  2145.         no As Long                  'özù±ö╘ìå
  2146.         sec As Long                 'â~âèòb
  2147.         lineno As Long              'ìsö╘ìå 0ü`
  2148.         point As Long               'ìsê╩Æu 0ü`(0é═ë╠Äîɵô╟ùp)
  2149.         tagFlag As Boolean          'â^âOùLû│
  2150.         textSize As Long            'âeâLâXâgâTâCâY[byte]
  2151.         lyrics As String * 128      'ë╠Äî
  2152.     End Type
  2153.  
  2154.  üyâRü[âïâoâbâNè╓Éöüz
  2155.  
  2156.   è╓Éöû╝ : û╝Å╠öCê╙é╠SubâvâìâVü[âWââ
  2157.   ï@ö\   : VBMP3.DLL éµéΦôαòöé╔ò█Ä¥é╡é─éóéΘë╠ÄîÅεò±é≡ĵô╛é╡é▄é╖üB
  2158.   ê°Éö   : lyData = LYRICS_DATA ì\æóæ╠
  2159.   û▀éΦÆl : û│é╡
  2160.   Éαû╛   : ë╠ÄîÅεò±Äµô╛ùpé╠âRü[âïâoâbâNè╓Éöé┼é╖üB
  2161.            é⌐é╚éτé╕üAòWÅÇâéâWâàü[âïôαé╔ì∞ɼé╡é─é¡é╛é│éóüB
  2162.            
  2163.            üªò╢ÄÜù±é═ S-JIS âRü[âhé┼ĵô╛é│éΩéΘé╜é▀Unicode é╔ò╧è╖é╖éΘòKùvé¬éáéΦé▄é╖üB
  2164.              VB, VC é╠ò╧Éöé╠êßéóé╔éµéΦò╢ô¬é╔âSâ~é¬é┬éóé─ò╧è╖é│éΩéΘé╜é▀
  2165.              VBMP3.bas ôαé╠ NTRIM2 è╓Éöé≡Ägùpé╡é─âSâ~é≡Å£ïÄé╡é─ë║é│éóüB
  2166.              é▄é╜üAë╠Äîò╢ÄÜù±é¬ 0 âoâCâgé╠ÅΩìçé═üANTRIM2 é┼éαâSâ~é≡Å£ïÄé┼é½é╚éóé╜é▀
  2167.              LYRICS_DATA ì\æóæ╠ é╠ textSize é┼ö╗ÆΦé╡üAÆ╝É┌ "" é╚é╟é≡æπôⁿé╖éΘéµéñé╔é╡é─ë║é│éóüB
  2168.  
  2169.  
  2170.  üyÄgùpùßüz
  2171.  
  2172.     'âRü[âïâoâbâNè╓ÉöÄwÆΦ
  2173.     Call vbmp3_getCallbackLyricsData(AddressOf vbmp3_getLyricsDataProc)
  2174.  
  2175.  
  2176.  üyâRü[âïâoâbâNè╓Éöùßüz
  2177.     Public Sub vbmp3_getLyricsDataProc(lyData As LYRICS_DATA)
  2178.         'ëⁿìsòtù^
  2179.         If lyData.point = 1 And lyricsData <> "" Then
  2180.             lyricsData = lyricsData & vbCrLf
  2181.         End If
  2182.  
  2183.         If lyData.textSize <> 0 Then
  2184.             lyricsData = lyricsData & NTrim2(StrConv(lyData.lyrics, vbUnicode))
  2185.         End If
  2186.     End Sub
  2187.  
  2188.   ------------------------------------------------------
  2189.  
  2190.   è╓Éöû╝ : vbmp3_getLyricsPoint()
  2191.   ï@ö\   : âJâîâôâgâ^âOê╩Æuĵô╛è╓Éö
  2192.   ê°Éö   : û│é╡
  2193.   û▀éΦÆl : â^âOê╩Æu(özù±ö╘ìå)
  2194.            -1 = ë╠Äîûóô╟ì₧
  2195.   Éαû╛   : ì─É╢Æåé╠ë╠Äîê╩Æué≡ĵô╛é╖éΘüB
  2196.  
  2197.  üyÄgùpùßüz
  2198.     Dim lyPoint As Long
  2199.  
  2200.     'âJâîâôâgâ^âOê╩Æuĵô╛
  2201.     lyPoint = vbmp3_getLyricsPoint()
  2202.