AudioCaptureWrapper Tester

**UEZ**

Moin,

könnt ihr bitte testen, ob die Audio Aufnahme (Loopback + Mic) auf eurem PC funktioniert? Während der Aufnahme bitte irgendeine Audio Datei abspielen und ins Micro sprechen, falls vorhanden!

Output sollte so aussehen:

Code

Audio_Init OK. Aufnahme startet fuer 5000 ms in 0.5 Sekunden...
AAC-Frames geschrieben: 251
Gesamtbytes           : 87726
ASC (2 Bytes): [11 90]
Fettisch: test_output.aac mit einem AAC faehigen Player oeffnen!

Min OS: Win7 SP1

Das Test Script (nur x64 ausführen!):

Im Prinzip steht die MP4 Video Aufnahmen, jetzt noch mit AAC Audio...

DANKE!

gmmg

UEZ,

bei mir kommt das:

Audio_Init OK. Aufnahme startet fuer 5000 ms in 0.5 Sekunden...
AAC-Frames geschrieben: 0
Gesamtbytes : 0
ASC (2 Bytes): [11 90]

gruß gmmg

**UEZ**

Danke für's Testen - welches OS? Win7 SP1 ist minimum. Wurde während der Aufnahme Musik abgespielt?

gmmg

Hallo UEZ,

das funktioniert. Mein Fehler war, dass ich die Musik in einer Teamviewer Sitzung geöffnet hatte

Wenn mal mal schnell was testen will

Audio_Init OK. Aufnahme startet fuer 5000 ms in 0.5 Sekunden...
AAC-Frames geschrieben: 252
Gesamtbytes : 88114
ASC (2 Bytes): [11 90]
Fettisch: test_output.aac mit einem AAC faehigen Player oeffnen!

Gruß gmmg

**UEZ**

gmmg vielen Dank für's Testen. Aktuell gibt es noch Probleme, wenn die Quelle beim Aufnehmen neu initialisiert wird, dann gibt's Driftings.

gmmg

Hallo UEZ,

kann man über die DLL auch ein bestimmtest Programm ansprechen zum aufzeichnen. Wir haben die Idee, damit z.b. einen Call über ein Softphone aufzuzeichnen, was diese Funktion nicht inkludiert hat.

Ich habe mir mal eine GUI mit KI Hilfe dazu gebaut.

AutoIt

#AutoIt3Wrapper_UseX64=y

#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <ButtonConstants.au3>
#include <StaticConstants.au3>
#include <EditConstants.au3>

#include <WinAPISys.au3>
#include <WinAPIHObj.au3>


;~ Local $Sikom_pid = ProcessExists("SikomPhone.exe")

;~ If $Sikom_pid = 0 Then
;~     MsgBox(16, "Fehler", "SikomPhone.exe läuft nicht.")
;~ EndIf

; ===================================================================
; DLL
; ===================================================================

Global $sDLL = @ScriptDir & "\AudioCaptureWrapper_x64.dll"

If Not FileExists($sDLL) Then _AudioCaptureWrapper(True)

Global $hDLL = DllOpen($sDLL)
If $hDLL = -1 Then
    MsgBox(16, "Fehler", "DLL konnte nicht geladen werden!")
    Exit
EndIf


; ===================================================================
; Speicherpfad
; ===================================================================

;Global $g_sOutputPath = @ScriptDir & "\Recordings"
Global $g_sOutputPath = @DesktopDir & "\Recordings"

If Not FileExists($g_sOutputPath) Then
    DirCreate($g_sOutputPath)
EndIf

; ===================================================================
; Audio Einstellungen
; ===================================================================

Const $adtsSampleRateIdx = 3 ; 48000 Hz
Const $adtsChannels      = 2

Global $sampleRate     = 48000
Global $channels       = $adtsChannels
Global $bitrate        = 128000

Global $enableLoopback = 1
Global $enableMic      = 1

; ===================================================================
; Status
; ===================================================================

Global $recording     = False
Global $hFile         = 0

Global $framesWritten = 0
Global $totalBytes    = 0

Global $bufSize       = 8192

; ===================================================================
; Buffer
; ===================================================================

Global $adts  = DllStructCreate("ubyte m[7]")
Global $buf   = DllStructCreate("ubyte m[" & $bufSize & "]")
Global $pts   = DllStructCreate("int64 pts")
Global $flags = DllStructCreate("long flags")

; ===================================================================
; GUI
; ===================================================================

Global $hGUI = GUICreate("AAC Audio Recorder", 520, 280)

GUICtrlCreateLabel("ID Nummer:", 30, 25, 100, 20)

Global $inputID = GUICtrlCreateInput("", 130, 20, 150, 28, $ES_NUMBER)

Global $btnStart = GUICtrlCreateButton("Start Recording", 30, 80, 200, 50)
Global $btnStop  = GUICtrlCreateButton("Stop Recording", 260, 80, 200, 50)

Global $lblStatus = GUICtrlCreateLabel("Status: Bereit", 30, 170, 440, 25)

GUICtrlSetFont($lblStatus, 10, 600)

GUICtrlSetState($btnStop, $GUI_DISABLE)

GUISetState(@SW_SHOW)

; ===================================================================
; Main Loop
; ===================================================================

While 1

    Switch GUIGetMsg()

        Case $GUI_EVENT_CLOSE

            StopRecording()
            ExitLoop

        Case $btnStart

            StartRecording()

        Case $btnStop

            StopRecording()

    EndSwitch

    ; Aufnahme läuft
    If $recording Then
        CaptureAudioFrame()
    EndIf

    Sleep(1)

WEnd

DllClose($hDLL)

; ===================================================================
; Aufnahme starten
; ===================================================================

Func StartRecording()

    If $recording Then Return

    ; ID prüfen
    Local $sID = GUICtrlRead($inputID)

    If StringStripWS($sID, 8) = "" Then
        MsgBox(48, "Hinweis", "Bitte eine ID Nummer eingeben.")
        Return
    EndIf

     ; Audio initialisieren

	 ;Local $a = DllCall($hDLL, "none", "Audio_InitProcessCapture")
	;MsgBox(0, "", @error)
	
    Local $aResult = DllCall($hDLL, "long", "Audio_Init", _
            "long", $sampleRate, _
            "long", $channels, _
            "long", $bitrate, _
            "long", $enableLoopback, _
            "long", $enableMic)

;~ 		Local $aResult = DllCall($hDLL, "long", "Audio_InitProcessCapture", _
;~ 			"long", $Sikom_pid, _
;~ 			"long", $sampleRate, _
;~ 			"long", $channels, _
;~ 			"long", $bitrate)

    If @error Then
        MsgBox(16, "Fehler", "DllCall Error: " & @error)
        Return
    EndIf

    If $aResult[0] <> 0 Then

        Local $errBuf = DllStructCreate("char m[256]")

        DllCall($hDLL, "long", "Audio_GetLastError", _
                "struct*", $errBuf, _
                "long", 256)

        MsgBox(16, "Audio_Init Fehler", _
                DllStructGetData($errBuf, "m"))

        Return

    EndIf

    ; ===================================================================
    ; Prüfen ob Sound läuft
    ; ===================================================================

    GUICtrlSetData($lblStatus, "Prüfe Audioaktivität...")

    If Not WaitForAudio(3000) Then

        MsgBox(48, "Kein Audio erkannt", _
                "Es läuft aktuell kein Sound oder Call.")

        DllCall($hDLL, "none", "Audio_Stop")
        DllCall($hDLL, "none", "Audio_Cleanup")

        GUICtrlSetData($lblStatus, "Status: Kein Audio erkannt")

        Return

    EndIf

    ; ===================================================================
    ; Dateiname
    ; ===================================================================

    Local $sFile = $g_sOutputPath & "\record_ID-" & $sID & "_" & _
            @YEAR & "-" & _
            StringFormat("%02d", @MON) & "-" & _
            StringFormat("%02d", @MDAY) & "_" & _
            StringFormat("%02d", @HOUR) & "-" & _
            StringFormat("%02d", @MIN) & "-" & _
            StringFormat("%02d", @SEC) & ".aac"

    ; Datei erstellen
    $hFile = _WinAPI_CreateFile($sFile, 1)

    If $hFile = 0 Then

        MsgBox(16, "Fehler", _
                "Output-Datei konnte nicht erstellt werden!")

        DllCall($hDLL, "none", "Audio_Stop")
        DllCall($hDLL, "none", "Audio_Cleanup")

        Return

    EndIf

    ; Reset
    $framesWritten = 0
    $totalBytes    = 0

    $recording = True

    ; GUI
    GUICtrlSetData($lblStatus, _
            "Status: Aufnahme läuft | ID: " & $sID)

    GUICtrlSetState($btnStart, $GUI_DISABLE)
    GUICtrlSetState($btnStop, $GUI_ENABLE)
    GUICtrlSetState($inputID, $GUI_DISABLE)

EndFunc

; ===================================================================
; Wartet auf Audio
; ===================================================================

Func WaitForAudio($timeoutMs = 3000)

    Local $start = TimerInit()

    Local $testBuf   = DllStructCreate("ubyte m[8192]")
    Local $testPts   = DllStructCreate("int64 pts")
    Local $testFlags = DllStructCreate("long flags")

    While TimerDiff($start) < $timeoutMs

        Local $aFrame = DllCall($hDLL, "long", "Audio_GetAacFrame", _
                "struct*", $testBuf, _
                "long", 8192, _
                "struct*", $testPts, _
                "struct*", $testFlags)

        If Not @error Then

            ; mehrere Frames prüfen
            If $aFrame[0] > 50 Then
                Return True
            EndIf

        EndIf

        Sleep(50)

    WEnd

    Return False

EndFunc

; ===================================================================
; Audio aufnehmen
; ===================================================================

Func CaptureAudioFrame()

    Local $aFrame = DllCall($hDLL, "long", "Audio_GetAacFrame", _
            "struct*", $buf, _
            "long", $bufSize, _
            "struct*", $pts, _
            "struct*", $flags)

    Local $n = $aFrame[0]

    If $n > 0 Then

        ; ADTS Header
        WriteAdtsHeader($adts, _
                $n, _
                $adtsSampleRateIdx, _
                $adtsChannels)

        Local $nBytes

        ; Header schreiben
        _WinAPI_WriteFile( _
                $hFile, _
                DllStructGetPtr($adts), _
                7, _
                $nBytes)

        ; AAC schreiben
        _WinAPI_WriteFile( _
                $hFile, _
                DllStructGetPtr($buf), _
                $n, _
                $nBytes)

        $framesWritten += 1
        $totalBytes += ($n + 7)

        ; Status
        GUICtrlSetData( _
                $lblStatus, _
                "Aufnahme läuft | Frames: " & _
                $framesWritten & _
                " | Bytes: " & _
                $totalBytes)

    Else

        Sleep(5)

    EndIf

EndFunc

; ===================================================================
; Aufnahme stoppen
; ===================================================================

Func StopRecording()

    If Not $recording Then Return

    $recording = False

    ; Datei schließen
    If $hFile <> 0 Then
        _WinAPI_CloseHandle($hFile)
        $hFile = 0
    EndIf

    ; Audio stoppen
    DllCall($hDLL, "none", "Audio_Stop")
    DllCall($hDLL, "none", "Audio_Cleanup")

    ; GUI
    GUICtrlSetData($lblStatus, "Status: Aufnahme beendet")

    GUICtrlSetState($btnStart, $GUI_ENABLE)
    GUICtrlSetState($btnStop, $GUI_DISABLE)
    GUICtrlSetState($inputID, $GUI_ENABLE)

    MsgBox(64, "Aufnahme beendet", _
            "Frames: " & $framesWritten & @CRLF & _
            "Bytes: " & $totalBytes)

EndFunc

; ===================================================================
; ADTS Header
; ===================================================================

Func WriteAdtsHeader($hdr, $frameLen, $sampleRateIdx, $channels)

    Local $totalLen = $frameLen + 7

    $hdr.m((1)) = 0xFF
    $hdr.m((2)) = 0xF1

    $hdr.m((3)) = BitOR( _
            64, _
            BitShift($sampleRateIdx, -2), _
            BitShift($channels, 2))

    $hdr.m((4)) = BitOR( _
            BitShift(BitAND($channels, 3), -6), _
            BitAND(BitShift($totalLen, 11), 3))

    $hdr.m((5)) = BitAND( _
            BitShift($totalLen, 3), _
            0xFF)

    $hdr.m((6)) = BitOR( _
            BitShift(BitAND($totalLen, 7), -5), _
            0x1F)

    $hdr.m((7)) = 0xFC

EndFunc

;Code below was generated by: 'File to Base64 String' Code Generator v1.20 Build 2020-06-05
---- Hier noch die Funktionen einfügen---

Alles anzeigen

dem Script fehlen wegen Zeilenlänge noch die Funktionen aus deiner Datei.

Gruß gmmg

**UEZ**

Ich kann das Micro / Systemsound aufnehmen, aber nicht die Gegenseite beim Telefonieren.

Vielleicht funktioniert es damit. VBCABLE_Driver_Pack45.zip -> habe es nicht probiert.

gmmg

Danke, schaue ich mir mal an

Hab es eben nochmal mit Teams getestet, da werden beide Seiten aufgezeichnet.