Page 1 of 1

BASS.dll - Klangeffekte

Posted: 09 Aug 2020, 13:44
by gero
Hallo zusammen
Habe mir einen Web-Radio-Player mit der Bass.dll zusammengebastelt ... funktioniert auch ganz prima.
Nun würde ich gern noch einen Klangeffekt (vorzugsweise "Compressor") da irgendwie einbauen ... nur fehlt mir dafür einfach ALLES.
http://www.un4seen.com/doc/#bass/BASS_ChannelSetFX.html
Vielleicht hat ja einer diesen CodeSchnippsel parat.

Hier ein lauffähiges Extrakt meines Codes ... das Label "Effekte" ist mein Problem.
Die Bass.dll sollte im Script-Verzeichnis liegen.

gruss
gero

Code: Select all

#SingleInstance force
SetWorkingDir %A_ScriptDir%
SenderAdresse:="http://br-br3-live.cast.addradio.de/br/br3/live/mp3/128/stream.mp3"  ; Bayern 3
Gui,Add,Button,x10 y10 w80 gPlay,play
Gui,Add,Button,x+10 yp wp gEFFEKT,Effekt
Gui,Add,Button,x+10 wp gSTOP,stop
Gui,Add,Button,x+10 wp gEXIT,exit
Gui,show,,Web-Radio
return

EFFEKT:
;????????????????
DllCall("bass.dll\BASS_ChannelSetFX", hStream,BASS_FX_DX8_COMPRESSOR,0 )
return

PLAY:
BASS_DLLCALL := DllCall("LoadLibrary", "Str", A_ScriptDir . "\bass.dll")
IF (DllCall("bass.dll\BASS_Init", "Int", -1, "UInt", 44100, "UInt", 0, "Ptr", A_ScriptHwnd, "Ptr", 0))
    {
    hStream := DllCall("bass.dll\BASS_StreamCreateURL", "Str", SenderAdresse, "UInt", 0, "UInt", A_IsUnicode ? BASS_UNICODE := 0x80000000 : 0, "Ptr", 0, "Ptr", 0, "UInt")
    DllCall("bass.dll\BASS_ChannelPlay", "UInt", hStream, "Int", 1)
    }
return

STOP:
DllCall("bass.dll\BASS_Stop")
DllCall("bass.dll\BASS_Free")
return

EXIT:
GuiClose:
DllCall("bass.dll\BASS_Free")
exitapp

Re: BASS.dll - Klangeffekte

Posted: 10 Aug 2020, 04:23
by just me
Moin gero,

schau mal da: Creating sound effects using bass.dll. So ähnlich sollte das für alle Effekte funktionieren. Benutzt Du AHK32 oder AHK64?

Re: BASS.dll - Klangeffekte

Posted: 10 Aug 2020, 04:32
by just me
@toralf, warst Du da nicht auch mal dran?

Re: BASS.dll - Klangeffekte

Posted: 10 Aug 2020, 04:49
by gero
Ich nutze Win7 mit 32bit also auch die passende Bass.dll
Danke für den Link ... vielleicht bekomme ich's ja damit selber hin ...

gruss
gero

Re: BASS.dll - Klangeffekte

Posted: 10 Aug 2020, 05:37
by just me
Gut, wenn noch Fragen aufkommen, stelle sie.

Willst Du einen eigenen Compressor mit eigenen Einstellungen erzeugen?

Re: BASS.dll - Klangeffekte

Posted: 10 Aug 2020, 06:58
by gero
@just me ... alles Böhmische Dörfer da ... Standard solle mir fürs erste reichen ...
Dachte bei "Standard" brauche ich keine "typedef struct" ... Syntax absolut verwirrend ... :(
Ich gebs ja zu - ich habe null Ahnung wie ich das einbauen soll ... ;)

gruss
gero

Re: BASS.dll - Klangeffekte

Posted: 10 Aug 2020, 08:47
by just me
Probier das mal:

Code: Select all

EFFEKT:
FX := DllCall("bass.dll\BASS_ChannelSetFX", "Ptr", hStream, "UInt", 1, "Int", 0, "UPtr") ; BASS_FX_DX8_COMPRESSOR = 1
MsgBox, %FX%
Return
Im Fehlerfall wird Dir eine 0 angezeigt. Ich weiß aber nicht, ob sich das überhaupt bemerkbar macht. Möglicherweise musst Du die Wiedergabe vorher stoppen.

Re: BASS.dll - Klangeffekte

Posted: 10 Aug 2020, 10:07
by gero
Habe deinen Code eingebaut ... bekomme auch einen Rückgabewert für FX > also passiert da auch was ... aber einen hörbaren Unterschied kann ich nicht feststellen ... hatte mir da mehr versprochen ... liegt ja vielleicht auch an den Standardwerten für den Compressor ...

Aber trotzdem DICKES DANKE für deine prompte Hilfe

gruss
gero

Re: BASS.dll - Klangeffekte

Posted: 15 Aug 2020, 08:18
by toralf
just me wrote:
10 Aug 2020, 04:32
@toralf, warst Du da nicht auch mal dran?
Hallo @just me , du hast ein gutes Gedächtnis. Das ist aber schon 13 Jahre her. Und soweit bin ich nie gekommen. Daher kann ich hier nicht weiterhelfen. Sorry.

Re: BASS.dll - Klangeffekte

Posted: 16 Aug 2020, 06:03
by gero
... und sie geht dahin ... meine letzte Hoffnung auf Hilfe ... ;)

gruss
gero