Wasapi Loopback Audio Capturing

[EWeiss]

Projekt entfernt..

[p80286]

Beim Aufarbeiten älterer CTs bin ich auf diesen Artikel gestoßen, aber der Nachbau in Delphi hat sich ja erledigt.

Gruß
K-H

[greenmile]

Leider wurde der Anhang entfernt.
Hat den noch jemand?

[p80286]

Ich hab das noch irgendwo herum liegen, bin mir aber nicht sicher ob das noch original ist, da ich etwas an der Oberfläche gebastelt hatte.

Da Emil den Anhang gelöscht hat, bin ich mir aber nicht sicher ob ich das wieder in Verkehr bringen darf?

Gruß
K-H

Auf die Schnelle hab ich https://blogs.msdn.microsoft.com/mat...what-you-hear/ gefunden.

[greenmile]

Damit war es möglich, auch ohne aktiviertem "Stereo Mix" bzw. Klinkenstecker die aktuelle Ausgabe aufzuzeichen, oder?

[Ghostwalker]

ähm...naja...die Quelle must du schon angeben. Also "Stereomixer","Microfon"...


Was möchtest du den genau machen ?

[EWeiss]

Zitat:

Leider wurde der Anhang entfernt.

Hatte auch seinen grund.

Habe es wieder angehängt.
Wenn jedoch weiterhin die Copyright Header in den Units gelöscht werden lade ich hier nichts mehr hoch.

gruss

[greenmile]

Für alle, die suchen. So Funktioniert es mit der BASS.DLL. Also das Aufzeichnen, obwohl Stereo Mix deaktiviert ist.

Code:

  var
    Count, Count2, rDevice, rFreq, rChannels: Integer;
    di, di2: BASS_DEVICEINFO;
    bi: BASS_INFO;

...
      BASS_SetConfig(BASS_CONFIG_REC_LOOPBACK,1);
      Count   := 1;
      rDevice := -1;
      while BASS_GetDeviceInfo(Count, di) do begin
        If (di.flags and BASS_DEVICE_DEFAULT)=BASS_DEVICE_DEFAULT then begin
          BASS_SetConfig(BASS_CONFIG_REC_LOOPBACK,1);
          Count2 := 0;
          while BASS_RecordGetDeviceInfo(Count2, di2) do begin
            If ((di2.flags and BASS_DEVICE_LOOPBACK)=BASS_DEVICE_LOOPBACK) and (di.driver<>di2.driver) then begin
              rDevice := Count2;
              Break;
            End;
            Inc(Count2);
            If rDevice>=0 then Break;
          End;
        End;
        If rDevice>=0 then Break;
        Inc(Count);
      End;

    BASS_SetDevice(rDevice);
    BASS_GetInfo(bi);
    rFreq := bi.freq;
    rChannels := bi.speakers;

    chAudioRecord := BASS_RecordStart(rFreq, rChannels, BASS_RECORD_PAUSE, @RecordingCallback, 0);

[EWeiss]

Und?

Was hat das nun mit Wasapi zu tun?

Zu dem wenn du das mit Bass erreichen willst benötigst du 2 DLL'S
1. Bass.dll
2. Basswasapi.dll

gruss

[greenmile]

Nein, BASS alleine reicht aus.

Ich wollte einfach alles aufzeichnen was gerade aus den Lautsprechern kommt. Egal, von welcher Quelle. Das geht eigentlich nicht ohne weiteres, außer man hat LoopBack (AKA StereoMix) aktiviert. Mit dem Source und der BASS.DLL geht's selbst mit inaktivem LoopBack.