Howdy, Stranger!

It looks like you're new here. If you want to get involved, click one of these buttons!

Categories

mic. input from driver

Using Builder3 help, i can't find anything on microphone input in waveOutOpen, waveInOpen, WaveInGetDevCaps,WAVEINCAPS, WAVEFORMATEX, etc. Any help?


Comments

  • Hi


    I know that these are not in Builder 3, (they are in VB), but here are some API decalarations that you may find useful:-


    Public Declare Function waveInAddBuffer Lib "winmm.dll" Alias "waveInAddBuffer" (ByVal hWaveIn As Long, lpWaveInHdr As WAVEHDR, ByVal uSize As Long) As Long

    Public Declare Function waveInClose Lib "winmm.dll" Alias "waveInClose" (ByVal hWaveIn As Long) As Long

    Public Declare Function waveInGetDevCaps Lib "winmm.dll" Alias "waveInGetDevCapsA" (ByVal uDeviceID As Long, lpCaps As WAVEINCAPS, ByVal uSize As Long) As Long

    Public Declare Function waveInGetErrorText Lib "winmm.dll" Alias "waveInGetErrorTextA" (ByVal err As Long, ByVal lpText As String, ByVal uSize As Long) As Long

    Public Declare Function waveInGetID Lib "winmm.dll" Alias "waveInGetID" (ByVal hWaveIn As Long, lpuDeviceID As Long) As Long

    Public Declare Function waveInGetNumDevs Lib "winmm.dll" Alias "waveInGetNumDevs" () As Long

    Public Declare Function waveInGetPosition Lib "winmm.dll" Alias "waveInGetPosition" (ByVal hWaveIn As Long, lpInfo As MMTIME, ByVal uSize As Long) As Long

    Public Declare Function waveInMessage Lib "winmm.dll" Alias "waveInMessage" (ByVal hWaveIn As Long, ByVal msg As Long, ByVal dw1 As Long, ByVal dw2 As Long) As Long

    Public Declare Function waveInOpen Lib "winmm.dll" Alias "waveInOpen" (lphWaveIn As Long, ByVal uDeviceID As Long, lpFormat As WAVEFORMAT, ByVal dwCallback As Long, ByVal dwInstance As Long, ByVal dwFlags As Long) As Long

    Public Declare Function waveInPrepareHeader Lib "winmm.dll" Alias "waveInPrepareHeader" (ByVal hWaveIn As Long, lpWaveInHdr As WAVEHDR, ByVal uSize As Long) As Long

    Public Declare Function waveInReset Lib "winmm.dll" Alias "waveInReset" (ByVal hWaveIn As Long) As Long

    Public Declare Function waveInStart Lib "winmm.dll" Alias "waveInStart" (ByVal hWaveIn As Long) As Long

    Public Declare Function waveInUnprepareHeader Lib "winmm.dll" Alias "waveInUnprepareHeader" (ByVal hWaveIn As Long, lpWaveInHdr As WAVEHDR, ByVal uSize As Long) As Long

    Public Declare Function waveInStop Lib "winmm.dll" Alias "waveInStop" (ByVal hWaveIn As Long) As Long


    And here are some types....


    Public Type WAVEFORMAT

    wFormatTag As Integer

    nChannels As Integer

    nSamplesPerSec As Long

    nAvgBytesPerSec As Long

    nBlockAlign As Integer

    End Type

    Public Type WAVEHDR

    lpData As String

    dwBufferLength As Long

    dwBytesRecorded As Long

    dwUser As Long

    dwFlags As Long

    dwLoops As Long

    lpNext As Long

    Reserved As Long

    End Type

    Public Type WAVEINCAPS

    wMid As Integer

    wPid As Integer

    vDriverVersion As Long

    szPname As String * MAXPNAMELEN

    dwFormats As Long

    wChannels As Integer

    End Type

    Public Type WAVEOUTCAPS

    wMid As Integer

    wPid As Integer

    vDriverVersion As Long

    szPname As String * MAXPNAMELEN

    dwFormats As Long

    wChannels As Integer

    dwSupport As Long

    End Type


    Hope you find these useful in some way! The MSDN has plenty of info on how to use them (msdn.microsoft.com).


    URL:http://jwcs.cjb.net

  • Chris BrownChris Brown USAMember Posts: 4,624 ✭✭

    ___ | http://forcoder.org | free video tutorials and ebooks about ( Go C# C++ PL/SQL Swift MATLAB PHP Delphi Scratch C Perl Objective-C JavaScript R Ruby Assembly Python Visual Basic Visual Basic .NET Java Fortran FoxPro VBScript LabVIEW COBOL Lisp Prolog Lua D Apex Erlang Ada Clojure F# Hack Scala Rust Awk Scheme Bash Logo Julia ML Kotlin Dart ABAP Transact-SQL Crystal SAS Alice ) __________

Sign In or Register to comment.