Announcement

**Guest** · 10 Oct 2007, 11:42 PM

BassVis demo code

.
BASS DEMO by James Klutho modified to show BassVisCtl.

Drop a supported audio file.

GdS

Code:

'
'
'BASS DEMO by James Klutho modified to show BassVisCtl
'
'
#PBFORMS CREATED V1.51
'------------------------------------------------------------------------------
' The first line in this file is a PB/Forms metastatement.
' It should ALWAYS be the first line of the file. Other
' PB/Forms metastatements are placed at the beginning and
' end of "Named Blocks" of code that should be edited
' with PBForms only. Do not manually edit or delete these
' metastatements or PB/Forms will not be able to reread
' the file correctly.  See the PB/Forms documentation for
' more information.
' Named blocks begin like this:    #PBFORMS BEGIN ...
' Named blocks end like this:      #PBFORMS END ...
' Other PB/Forms metastatements such as:
'     #PBFORMS DECLARATIONS
' are used by PB/Forms to insert additional code.
' Feel free to make changes anywhere else in the file.
'------------------------------------------------------------------------------

#COMPILE EXE
#DIM ALL

'------------------------------------------------------------------------------
'   ** Includes **
'------------------------------------------------------------------------------
#PBFORMS BEGIN INCLUDES
#IF NOT %DEF(%WINAPI)
    #INCLUDE "WIN32API.INC"
#ENDIF
#PBFORMS END INCLUDES
'------------------------------------------------------------------------------

#INCLUDE "bass23PB.inc"
#INCLUDE "bassvisctl.inc"   'the above INC file
#INCLUDE "COMDLG32.INC"

GLOBAL g_stream AS HSTREAM
GLOBAL g_hWndMain AS LONG
GLOBAL g_bassvis AS LONG

'------------------------------------------------------------------------------
'   ** Constants **
'------------------------------------------------------------------------------
#PBFORMS BEGIN CONSTANTS
%IDC_GETFILE  = 1004
%IDC_PAUSE    = 1002
%IDC_PLAY     = 1001
%IDC_STOP     = 1003
%IDD_BASSDEMO =  101
#PBFORMS END CONSTANTS
'------------------------------------------------------------------------------
%IDC_BASSVISCTL1 = 5005

'------------------------------------------------------------------------------
'   ** Declarations **
'------------------------------------------------------------------------------
DECLARE CALLBACK FUNCTION ShowBASSDEMOProc()
DECLARE FUNCTION ShowBASSDEMO(BYVAL hParent AS DWORD) AS LONG
#PBFORMS DECLARATIONS
'------------------------------------------------------------------------------

'------------------------------------------------------------------------------
'   ** Main Application Entry Point **
'------------------------------------------------------------------------------
SUB Play(Filename AS STRING)
    LOCAL fn AS ASCIIZ * 255
    fn=Filename
    g_stream = BASS_StreamCreateFile(0,fn, 0, 0, %BASS_STREAM_PRESCAN)
    IF g_stream <> 0 THEN
      BASS_ChannelPlay(g_stream,1)
    END IF
END SUB

SUB OpenAudioFile()
    LOCAL  Filename AS STRING
    LOCAL f AS STRING
    LOCAL Path AS STRING
    LOCAL myStyle AS LONG
    LOCAL FileSpec AS STRING
    Path  = CURDIR$
    f = ""
    MySTYLE = %OFN_FILEMUSTEXIST OR %OFN_HIDEREADONLY OR %OFN_LONGNAMES
    IF OpenFileDialog(g_hWndMain, "Choose an Audio File", f, Path, "Audio Formats: (mp1,mp2,mp3,ogg,wave,aif)|*.mp1;*.mp2;*.mp3;*.ogg;*.wav;*.aif| |", "wav", MySTYLE) THEN
        filename=f
        IF filename <> "" THEN
          'if g_stream not stopped
          IF BASS_ChannelIsActive(g_stream) <> %BASS_ACTIVE_STOPPED THEN
            BASS_ChannelStop(g_stream)
            BASS_StreamFree(g_stream)
          END IF
          FileSpec = PARSE$(FileName,"\",-1)
          DIALOG SET TEXT g_hWndMain, FileSpec
          Play(filename)
        END IF
    END IF
END SUB

FUNCTION PBMAIN()
    ShowBASSDEMO %HWND_DESKTOP
END FUNCTION
'------------------------------------------------------------------------------

'------------------------------------------------------------------------------
'   ** CallBacks **
'------------------------------------------------------------------------------
CALLBACK FUNCTION ShowBASSDEMOProc()

    SELECT CASE AS LONG CBMSG
        CASE %WM_INITDIALOG
            ' Initialization handler
              BASS_Init( -1, 44100, 0, 0, 0)
              initbassvisctrl
              CONTROL ADD "BASSVISCTL", CBHNDL, %IDC_BASSVISCTL1, "", 10, 10, 150, 90, _
                    %WS_CHILD OR %WS_VISIBLE OR %SS_LEFT OR %SS_NOTIFY, %WS_EX_LEFT OR _
                    %WS_EX_LTRREADING OR %WS_EX_ACCEPTFILES
              CONTROL HANDLE CBHNDL, %IDC_BASSVISCTL1 TO g_bassvis

        CASE %WM_NCACTIVATE
            STATIC hWndSaveFocus AS DWORD
            IF ISFALSE CBWPARAM THEN
                ' Save control focus
                hWndSaveFocus = GetFocus()
            ELSEIF hWndSaveFocus THEN
                ' Restore control focus
                SetFocus(hWndSaveFocus)
                hWndSaveFocus = 0
            END IF

        CASE %WM_COMMAND
            ' Process control notifications
            SELECT CASE AS LONG CBCTL
                 CASE %IDC_BASSVISCTL1
                      SELECT CASE CBCTLMSG
                             CASE %WM_BASSVIS_PLAY
                                  IF BASS_ChannelIsActive(bassvis_getstream(g_bassvis)) = %BASS_ACTIVE_PAUSED THEN
                                     BASS_ChannelPlay(bassvis_getstream(g_bassvis), 0)  'pick up where paused
                                  ELSE
                                     BASS_ChannelPlay(bassvis_getstream(g_bassvis) ,1)  'restart at beginning
                                  END IF
                             CASE %WM_BASSVIS_PAUSE
                                  IF BASS_ChannelIsActive(bassvis_getstream(g_bassvis)) = %BASS_ACTIVE_PAUSED THEN
                                     BASS_ChannelPlay(bassvis_getstream(g_bassvis), 0)  'pick up where paused
                                  ELSE
                                     BASS_ChannelPause(bassvis_getstream(g_bassvis))
                                  END IF
                             CASE %WM_BASSVIS_STOP
                                  BASS_ChannelStop(bassvis_getstream(g_bassvis))
                             CASE %WM_BASSVIS_PREV
                             CASE %WM_BASSVIS_NEXT
                      END SELECT
                CASE %IDC_PLAY
                    IF CBCTLMSG = %BN_CLICKED OR CBCTLMSG = 1 THEN
                        IF g_stream <> 0 THEN
                           IF BASS_ChannelIsActive(g_stream) = %BASS_ACTIVE_PAUSED THEN
                                BASS_ChannelPlay(g_stream,0)  'pick up where paused
                           ELSE
                                BASS_ChannelPlay(g_stream,1)  'restart at beginning
                           END IF
                          ELSE
                            OpenAudioFile
                        END IF
                        CONTROL DISABLE CBHNDL, %IDC_PLAY
                        CONTROL ENABLE CBHNDL, %IDC_PAUSE
                        CONTROL ENABLE CBHNDL, %IDC_STOP
                    END IF

                CASE %IDC_PAUSE
                    IF CBCTLMSG = %BN_CLICKED OR CBCTLMSG = 1 THEN
                        IF g_stream <> 0 THEN
                            BASS_ChannelPause(g_stream)
                            CONTROL ENABLE CBHNDL, %IDC_PLAY
                            CONTROL DISABLE CBHNDL, %IDC_PAUSE
                            CONTROL ENABLE CBHNDL, %IDC_STOP
                        END IF
                    END IF

                CASE %IDC_STOP
                    IF CBCTLMSG = %BN_CLICKED OR CBCTLMSG = 1 THEN
                        IF g_stream <> 0 THEN
                            BASS_ChannelStop(g_stream)
                            CONTROL ENABLE CBHNDL, %IDC_PLAY
                            CONTROL DISABLE CBHNDL, %IDC_PAUSE
                            CONTROL DISABLE CBHNDL, %IDC_STOP
                        END IF
                    END IF

                CASE %IDC_GETFILE
                    IF CBCTLMSG = %BN_CLICKED OR CBCTLMSG = 1 THEN
                       OpenAudioFile
                       IF BASS_ChannelIsActive(g_stream) = %BASS_ACTIVE_PLAYING THEN
                           bassvis_setstream g_bassvis, g_stream
                           CONTROL DISABLE CBHNDL, %IDC_PLAY
                           CONTROL ENABLE CBHNDL, %IDC_PAUSE
                           CONTROL ENABLE CBHNDL, %IDC_STOP
                       END IF
                    END IF
            END SELECT
    END SELECT
END FUNCTION
'------------------------------------------------------------------------------

'------------------------------------------------------------------------------
'   ** Dialogs **
'------------------------------------------------------------------------------
FUNCTION ShowBASSDEMO(BYVAL hParent AS DWORD) AS LONG
    LOCAL lRslt AS LONG
    LOCAL Count AS LONG

#PBFORMS BEGIN DIALOG %IDD_BASSDEMO->->
    LOCAL hDlg  AS DWORD

    DIALOG NEW hParent, "BassVisCtl DLL Demo", 233, 47, 176, 120, %WS_POPUP OR _
        %WS_BORDER OR %WS_DLGFRAME OR %WS_SYSMENU OR %WS_CLIPSIBLINGS OR _
        %WS_VISIBLE OR %DS_MODALFRAME OR %DS_3DLOOK OR %DS_NOFAILCREATE OR _
        %DS_SETFONT, %WS_EX_CONTROLPARENT OR %WS_EX_LEFT OR _
        %WS_EX_LTRREADING OR %WS_EX_RIGHTSCROLLBAR, TO hDlg
    CONTROL ADD BUTTON, hDlg, %IDC_PLAY, "Play", 6, 172, 50, 15
    CONTROL ADD BUTTON, hDlg, %IDC_PAUSE, "Pause", 60, 172, 50, 15
    CONTROL ADD BUTTON, hDlg, %IDC_STOP, "Stop", 114, 172, 50, 15
    CONTROL ADD BUTTON, hDlg, %IDC_GETFILE, "...", 166, 172, 20, 15
#PBFORMS END DIALOG
    CONTROL DISABLE hDlg, %IDC_PAUSE
    CONTROL DISABLE hDlg, %IDC_STOP
    DIALOG SHOW MODAL hDlg, CALL ShowBASSDEMOProc TO lRslt

    BASS_Free()
#PBFORMS BEGIN CLEANUP %IDD_BASSDEMO
#PBFORMS END CLEANUP

    FUNCTION = lRslt
END FUNCTION

**Patrice Terrier** · 11 Oct 2007, 12:58 AM

Visual plugins

Gus,

Have you seen this:
ZAP Visual plugins

Also if you want to contribute to my open source BassBox project (on Jose Roca's forum), then you are welcomed.

...

**Guest** · 11 Oct 2007, 07:03 AM

Hi Patrice,

Wow, congrats. That looks really nice.
That is not clear to me, is the player also free?
I'll subscribe there, since we are in source code forum.

Thanks.

**Patrice Terrier** · 11 Oct 2007, 08:10 AM

Gus,

ZAP Media Lite is freeware.

And the version with CD-burner and audio file conversion ZAP Media Tools is shareware, however very cheap, only $19 (it has also a movie player and much more) however there is compatibilty problems with VISTA, because they have changed so many things, especialy in the low level audio mixer API.

And on jose Roca's forum I have started an open source project named BassBox that is specificaly designed to work with VISTA, but it should also work fine with XP.

...

Announcement

Forum Guidelines

BassVis Control 0.2 w/drag & drop

BassVis Control 0.2 w/drag & drop

Comment

Comment

Comment

Comment