VB.NETでmp3またはwmaで録音するには？ (ID:117324)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

すみません、一つ謝らなければいけないことが・・・
自分の動いたソースを見直してみた所、
Declare Function 〜
に Auto も Ansi もつけていませんでした。
（自分で修正をお願いしておきながら・・・）
で、Auto をつけてみた所、通りませんでした・・・(- -;;
何も指定しないか、Ansi を指定した場合に上手く行くようです。

先のレスの④の修正を全て元に戻すか、
Ansi で修正を加えてください。

申し訳ありませんでした。m(_ _)m
以下にテストしたソースを載せておきます。
参考までに。

Imports System.Runtime.InteropServices

Public Class Class1
    Public Shared Sub Main()
        Dim aaa As New clsMP3
        aaa.EncodeTest()
    End Sub
End Class

Public Class clsMP3
    'VisualBasic用 MP3操作DLL 関数宣言ファイル
    '** 基本操作系 **
    Declare Ansi Function vbmp3_init Lib "VBMP3.dll" () As Boolean
    Declare Ansi Function vbmp3_free Lib "VBMP3.dll" () As Boolean

'** エンコード系 **
    Declare Ansi Function vbmp3_encodeOpen Lib "VBMP3.dll" (ByVal pszWaveName As String, ByRef pWaveForm As WAVE_FORM) As Boolean
    Declare Ansi Function vbmp3_encodeStart Lib "VBMP3.dll" (ByVal pszMp3Name As String) As Boolean
    Declare Function vbmp3_encodeStop Lib "VBMP3.dll" () As Boolean
    Declare Function vbmp3_getEncodeState Lib "VBMP3.dll" (ByRef readSize As Integer, ByRef encodeSize As Integer) As Integer

'<StructLayout(LayoutKind.Sequential)> _
    Public Structure WAVE_FORM
        Public channels As Integer              'チャンネル数
        Public bitsPerSample As Integer         'ビット数/1サンプル
        Public samplingRate As Integer          'サンプリングレート
        Public dataSize As Integer              'ファイルサイズ
    End Structure

Public Function EncodeTest() As Boolean
        Dim pWaveForm As New WAVE_FORM
        Dim outFile As String

outFile = "C:\test.mp3"

Call vbmp3_init()

If vbmp3_encodeOpen(Trim("C:\test.wav"), pWaveForm) Then
            Call vbmp3_encodeStart(outFile)
        End If

Call vbmp3_free()
    End Function
End Class

←解決時は質問者本人がここをチェックしてください。

戻る