bass.dll - stereo zu mono

[Marco Steinebach]

Hallo,
kann mir mal jemand verraten, wie ich mit der BASS.dll eine Datei in Mono wiedergeben kann? Ich hab echt keine Idee, wo ich noch suchen soll...
Viele Grüße
Marco

[omata]

Schau doch mal in die bass.chm.

Dort sind die Parameter von BASS_StreamCreate erklärt...

Code:

chans The number of channels... 1 = mono, 2 = stereo, 4 = quadraphonic, 6 = 5.1, 8 = 7.1.

[Marco Steinebach]

Zitat:

Zitat von omata

Schau doch mal in die bass.chm.

Dort sind die Parameter von BASS_StreamCreate erklärt...

;-) ich viel Anfänger ...
und wie kriege ich mit BASS_StreamCreate eine Datei zum abspielen? Hab bislang nur BASS_StreamCreateFile benutzt, und da gibt's keine channels.
Ich bräuchte bitte noch'n tipp!
Viele Grüße
Marco

[hugo1990]

Hast du mal in die Bass.chm geschaut, da stehen auch die Parameter für BASS_StreamCreateFile und dort kannst du bei flags folgendes angeben BASS_SAMPLE_MONO. Und das sollte genau das sein, was du willst.

[Marco Steinebach]

Hallo,
und vielen Dank für die rasche Antwort.
Oh man, manchmal übersieht man echt die blödesten Sachen. ;-) ;-)
Ich hatte nach etwas gesucht, um von Stereo auf Mono sozusagen on-the-fly, also während ein Channel läuft, umzuschalten.
Gibt's sowas, oder muß ich den Stream zurücksetzen und dann neu positionieren?
Viele Grüße
Marco

[hugo1990]

Guck dir mal BASS_SampleSetInfo und BASS_SAMPLE an.

[Marco Steinebach]

Hallo,
BASS_Sample_SetInfo hab ich mir angeschaut, aber auf Mono krieg ich's damit auch nicht weil ...
The length, max, origres and chans members of the
BASS_SAMPLE
structure can't be modified; any changes are ignored. The BASS_SAMPLE_8BITS, BASS_SAMPLE_MONO, BASS_SAMPLE_3D, BASS_SAMPLE_MUTEMAX, BASS_SAMPLE_SOFTWARE
and BASS_SAMPLE_VAM flags also can't be changed.
Gibt's noch 'ne Lösung??
Viele Grüße
Marco

[hugo1990]

Ja gut, ich hatte nur kurz in der Bass.dll Doku geschaut, was da passen könnte.
Wozu musst du eigentlich on-the-fly von Stereo auf Mono wechseln?
Eine Lösung wäre vielleicht noch, dass du versuchst deinen Stream zu klonen (ist ne Demo dazu bei der Bass.dll dabei) und beim klonen sagst, dass du nur Mono haben möchtest und dann je nach dem den einen Stream mutest und den anderen unmutest.

[Wishmaster]

Hi

du kannst es mal mit DSP versuchen. BASS_ChannelSetDSP, BASS_ChannelRemoveDSP.

Zitat:

A panning DSP function for a stereo 16-bit channel (useful when using speaker assignment).
float pan; // panning position, set as you would the BASS_ATTRIB_PAN attribute

C++

Code:

void CALLBACK PanDSP(HDSP handle, DWORD channel, void *buffer, DWORD length, void *user)
{
    short *s=buffer;
    if (!pan) return; // no processing neeeded for centre panning
    for (; length; length-=4, s+=2) {
        if (pan<0) s[1]=s[1]*(1+pan); // pan left = reduce right
        else s[0]=s[0]*(1-pan); // vice versa
    }
}

Pan goes from -100..100 Delphi :wink:
16 Bit

Delphi-Quellcode:

type
* TPanRec16 = array[0..1] of SmallInt;
* PPanRec16 = ^TPanRec16;
procedure PanDSPProc16(handle: HDSP; channel: DWORD; buffer: Pointer; length: DWORD; user: DWORD);
* stdcall;
var
* P: PPanRec16;
begin
* P := buffer;
* while ((length div 4) > 0) do
* begin
* * if (Pan < 0) then
* * begin
* * * P[1] := round(P[1] * (100 + pan) / 100); // pan left = reduce right
* * end
* * else if (Pan > 0) then
* * begin
* * * P[0] := round(P[0] * (100 - pan) / 100); // vice versa
* * end;
* * inc(P);
* * length := length - 4;
* end;
end;

32 Bit

Delphi-Quellcode:

type
* TPanRec32 = array[0..1] of Single;
* PPanRec32 = ^TPanRec32;
procedure PanDSPProc32(handle: HDSP; channel: DWORD; buffer: Pointer; length: DWORD; user: DWORD);
* stdcall;
var
* P: PPanRec32;
* a:DWORD;
begin
* P := buffer;
* a := 0;
* while (a < (length div 4)) do
* begin
* * if (Pan < 0) then
* * begin
* * * P[1] := P[1] * (1.0 + (pan/100)) / 1.0; // pan left = reduce right
* * end
* * else if (Pan > 0) then
* * begin
* * * P[0] := P[0] * (1.0 - (pan/100)) / 1.0; // vice versa
* * end;
* * Inc(P);
* * a := a + 2;
* end;
end;

hint

Delphi-Quellcode:

procedure ConvertMonoToStereo16(InOutBuf : PbyteArray; InSize : Integer; Mode : integer);
* var
* * i : Integer;
* begin
* * case Mode of
* * * 1://msmMonoToBoth :
* * * for i := (Insize shr 1) - 1 downto 0 do
* * * begin
* * * * InOutBuf[i shl 1] := InOutBuf[i];
* * * * InOutBuf[(i shl 1)+1] := InOutBuf[i];
* * * end;
* * * 2://msmMonoToLeft :
* * * for i := (Insize shr 1) - 1 downto 0 do
* * * begin
* * * * InOutBuf[i shl 1] := 0;
* * * * InOutBuf[(i shl 1)+1] := InOutBuf[i];
* * * end;
* * * 3://msmMonoToRight :
* * * for i := (Insize shr 1) - 1 downto 0 do
* * * begin
* * * * InOutBuf[i shl 1] := InOutBuf[i];
* * * * InOutBuf[(i shl 1)+1] := 0;
* * * end;
* * end;
* end;

//BASS_ChannelGetData(chan, @buf, BytesRead);
ConvertMonoToStereo16(@buf, bytesread*2, 1);
//RecStream.Write(buf, BytesRead*2);

[Marco Steinebach]

Hallo Wishmaster und alle anderen,
Dein Code sieht genau nach dem aus, was ich brauche. Ich dachte, ich könnte schlau sein, und BASS_Sample_Mono bei StreamCreate setzen, geht auch, aber nur für MP3/MP2/MP1). Toll, das hilft mir aber bei Wave nicht wirklich was. ;-)
Eine Frage zu deinem Codebeispiel:
es wird auf Pan abgefragt. Wo kriege ich das her, und wie wird's gesetzt? Mir ist nicht mal klar was mit

Code:

float pan; // panning position, set as you would the BASS_ATTRIB_PAN attribute

gemeint ist. Wenn ich recht habe, und das auf 0 stehen muß, dann tut die funktion ja nix....
Hiiilfe!
Ich will doch einfach nur eine Stereo-Datei in Mono abspielen!
Viele Grüße
Marco

[Wishmaster]

Hi

Pan kannst du einfach als Integer deklarieren

Delphi-Quellcode:

var Pan : Integer;

Procedure Set_Balance(Value : integer);
begin
 Pan:= Value;
end;

PanDSPProc16 bzw. PanDSPProc32 soll dir nur demonstrieren wie du BASS_ChannelSetDSP
benutzen kannst.

Mit BASS_ATTRIB_PAN kannst du die Balance eins channels einstellen.
leider funst diese Methode nicht mit einen Rec. Channel (BASS_RecordStart) und an der stelle
benutzt du dann PanDSPProc16 um die Balance einzustellen

Delphi-Quellcode:

Function Set_Balance(Value : integer) : Boolean;
var Pan : Float;
begin
   Pan:=  Value / 100.0;
   Result := BASS_ChannelSetAttribute(Channel,  BASS_ATTRIB_PAN, Pan) ;
 if not Result then
  // error
end;

PS. du kannst das das auch einfacher habe und zwar mit der bassmix.dll, das Problem ist das jede Eingabe (e.g. BASS_ATTRIB_PAN, BASS_ATTRIB_VOL,... ) verzögert sich um ~1..2 Sec.

Zitat:

If the mixer output is being played (it is not a decoding channel), then there will be some delay in the effect of adding/removing source channels or changing their attributes being heard. This latency can be reduced by making use of the BASS_CONFIG_BUFFER and BASS_CONFIG_UPDATEPERIOD config options. The playback buffer can be flushed by calling BASS_ChannelPlay (restart = TRUE) or BASS_ChannelSetPosition (pos = 0). That can also be done to restart a mixer that has ended.

ich hoffe das hat dir weiter geholfen.

[Marco Steinebach]

Hallo Wishmaster,
Joa, es hat mir weitergeholfen. Vielen Dank für die Spur, auf die du mich da gesetzt hast.
Und hier ist die Lösung:

Delphi-Quellcode:

procedure StereoToMono (handle: HDSP; channel: DWORD; buffer: Pointer; length: DWORD; user: DWORD); stdcall;
var
  P: pSingle; // zeiger auf ein Element des puffers.
  a: DWORD;
  mono, left, right: single;
begin
  P := buffer;
  a := 0;
  while (a < (length div 4)) do // 4 bytes pro eintrag (sizeOf single = 4)
  begin
    // erst kommt der linke Kanal
    left := p^;
    inc (p); // jetzt zeigt p auf den rechten
    right := p^;
    dec (p); // und wieder zurück zum linken, um ihn zu modifizieren
    mono := (left + right) / 2;
    p^ := mono;
    inc (p); // wir sind wieder beim rechten...
    p^ := mono;
    inc (p); // und beim nächsten zu bearbeitenden Sample
    a := a + 2; // weil zwei Samples verändert wurden.
  end;
end;

// und der Aufruf...
procedure TPlayer.MonoAbspielen (m: boolean);
begin
  if m then // mono abspielen
    MonoDSP := BASS_ChannelSetDSP (sh, @StereoToMono, nil, 1)
  else
    BASS_ChannelRemoveDSP (sh, MonoDSP);
end;
// wobei sh ein bei mir globaler Channel ist
// sh: HSTREAM;

Einen herzlichen Gruß
Marco

[Marco Steinebach]

... und da obige procedure eine Schutzverletzung verursachen konnte, und außerdem bei manchen Dateien geknackt hat, hier ddie richtige Lösung:

Delphi-Quellcode:

procedure StereoToMono (handle: HDSP; channel: DWORD; buffer: Pointer; length: DWORD; user: DWORD); stdcall;
var
  pl, pr: pSingle; // pl, pointer auf den linken Kanal, pr den rechten.
  a: DWORD; // Samplezaehler
  mono: single;
begin
  a := 1;
  length := length div SizeOf (single); // Length sind jetzt die Anzahl der Samples.
  pl := pSingle(buffer);
  pr := pSingle (Cardinal(buffer) + SizeOf(single));
  while a < length do
  begin
    mono := (pl^ + pr^) / 2;
    pl^ := mono;
    pr^ := mono;
    inc (pl, 2);
    inc (pr,2);
    a := a + 2; // weil zwei Samples verändert wurden.
  end;
end;