next »

[3delite]

You don't. You just have to supply a windows handle for BASSVis to draw onto (I use a TPanel for this usually).

Waiting for the update too!

[BassFan]

Hello XMinioNX

Any new information for update of BassVis?

[Irrational86]

I have been kind of busy, but I implemented everything that I saw was required to run a Winamp (5.0+) visualization plugin. When it comes down to testing, I receive errors such as Buffer Underrun from the Microsoft Visual Studio Debugger. Anyways, the source is here.

If anyone finds the reason I will be happy to update it and release a compiled and source version 

[BassFan]

I have been kind of busy, but I implemented everything that I saw was required to run a Winamp (5.0+) visualization plugin. When it comes down to testing, I receive errors such as Buffer Underrun from the Microsoft Visual Studio Debugger. Anyways, the source is here.

If anyone finds the reason I will be happy to update it and release a compiled and source version 

Thanks for the answer
I will show what i can make for it 

greets

[BassFan]

@XMinioNX

Please i missing the modBassVis.

This will crash VB

Declare Function BASS_WINAMPVIS_CreateVis Lib "bass_vis.dll" _
                       (ByVal f As Any, ByVal module As Long, _
                        ByVal flags As Long) As Long

This Work

Declare Function BASS_WINAMPVIS_CreateVis Lib "bass_vis.dll" _
                       (ByVal f As Any, ByVal module As Long, ByVal flags As Long, _
                        ByVal VisParent As Long) As Long

what is VisParent?  ....... VisParent = Hwnd ? ........
can you send a finish modBassVis.bas ?

greets BassFan

[BassFan]

Allways crash with FindPlugin .. 

[BassFan]

i can not found the Problem 

The Addon show this with no vis_Mux

and with vis_mux: Only vis_Mux work 

[BassFan]

Hi Fans


I have working on Bass_Vis and it work now !
I have change any bugs with Plugins .. AVS and so on.
Show the screenshot it work now no more use vis_MUX 

i have ADD a new function named GetVisHwnd this is verry usefull
you can check is Plugin terminate from your Application with the Winhandle

Declare Function BASS_WINAMPVIS_GetVisHwnd Lib "bass_vis.dll" (ByVal handle As Long) As Long

You can ADD it to your Bass.bas or what ever your Prg-Language use.
This LIB work only on 2.2 not Bass 2.3

I will update it when Bass_FX 2.3 fixed and i can run my APP with Bass 2.3
It work with many Plugins more vis_3DGoGo.dll, vis_avs.dll,vis_hd.dll and so on. 

You can select a Folder from anywhere no longer problems with Path!

[BassFan]

Update To 2.2.0.2

ChangeLog.

ADD: Winamp Messages

'Command Messagen
Public Const WM_COMMAND = &H111

Public Const WINAMP_BUTTON1                   As Long = 40044    '// Previous Track
Public Const WINAMP_BUTTON2                   As Long = 40045    '// Play
Public Const WINAMP_BUTTON3                   As Long = 40046    '// Pause/Unpause button
Public Const WINAMP_BUTTON4                   As Long = 40047    '// Stop button
Public Const WINAMP_BUTTON5                   As Long = 40048    '// Next Track

'IPC Messagen
Public Const IPC_GETLISTPOS      As Long = 125
Public Const IPC_ISPLAYING       As Long = 104
Public Const IPC_SETPLAYLISTPOS  As Long = 121
Public Const IPC_GETPLAYLISTFILE As Long = 211

Public Const WM_WA_IPC      As Long = WM_USER

ADD: BASS_WINAMPVIS_GetVisHwnd   // Result PluginHandle
ADD: BASS_WINAMPVIS_GetAmpHwnd // Result Winamp Dummy Handle

Change

Declare Function BASS_WINAMPVIS_CreateVis Lib "bass_vis.dll" (ByVal f As Any, ByVal module As Long, ByVal flags As Long, ByVal APPHandle As Long) As Long
Declare Function BASS_WINAMPVIS_SetChanInfo Lib "bass_vis.dll" (ByVal handle As Long, ByVal title As Any, _
                                    ByVal Filename As Any, ByVal pos As Long, _
                                    ByVal Length As Long, ByVal PLaylistPos As Integer, _
                                    ByVal PLaylistLength As Integer) As Long

Remove many Bugs from previous Version.
All work fine for me .. Please show the screenshot

[radio42]

Hi Folks,

I really got lost with the BASSvis and BASSwinamp Add-Ons!

a) There is still a download link on the main-page.
This version contains samples and all the needed API header files.
But seems to be the 'old' and 'buggy' version...

b) Now in this thread I see many updates and upgrades to BASS_VIS.
But still using BASS 2.2 (which is outdated)!
And all updates just include the .dll - but no documentation, no samples, no api headers !

So what is the official status?
I would assume, that if nobody is willing to take real care of these add-ons...everyone will get lost with the versions and finaly these add-ons will end-up in a kind of death ;-)

?? Any ideas
Will someone take over responsibility (which would mean

[BassFan]

Hi Folks,

I really got lost with the BASSvis and BASSwinamp Add-Ons!

a) There is still a download link on the main-page.
This version contains samples and all the needed API header files.
But seems to be the 'old' and 'buggy' version...

b) Now in this thread I see many updates and upgrades to BASS_VIS.
But still using BASS 2.2 (which is outdated)!
And all updates just include the .dll - but no documentation, no samples, no api headers !

So what is the official status?
I would assume, that if nobody is willing to take real care of these add-ons...everyone will get lost with the versions and finaly these add-ons will end-up in a kind of death ;-)

?? Any ideas
Will someone take over responsibility (which would mean

Habe noch keinen gesehen  der an BassVis  arbeitet ..
Leider kann ich den Text nicht gut genug lesen zu wenig english kenntnisse.

Würde den Quelltext ja wieder veröffentlichen aber hier scheint wenig interesse
an dem ADDOn vorzuliegen..
Na was soll's bei mir läuft alles rund.

EDIT: Wenn du diese DLL getestet hättest würdest du festgestellt haben das sie sehr wohl mit
Bass 2.3 kompatibel ist, auch wenn sie nur die VersionsNr. 2.2.0.3 hat.
Ich bin VB Developer und habe mich an einen Delphi Projekt herangewagt mit 0 Kenntnis an dem der
ursprüngliche Author keine Interesse mehr gezeigt hat.
Wie aber schon gesagt hier scheint keine große Nachfrage vorzuliegen.
Auch muss ich für die erstellung der API und ändern der Hilfeanleitung erstmal die zeit haben.
Würden sich hier mal Leute mit C++ und Delphi Kenntnissen die DLL vornehmen und die Projekte darauf anpassen
wäre mir ja schon geholfen.
Aber leider kommt da nix (Siehe Downloads)

gruß

[radio42]

Hi Du,

können ja auch auf deutsch reden ;-)

Hmmm, echt komisch. Ich habe die BASSvis in der BASS.NET API drin.
War auch mein Download gestern. Habe es aber nicht ausprobiert, weil Du oben geschrieben hattest:
"...This LIB work only on 2.2 not Bass 2.3..." - hab ich aber vielleicht falsch verstanden.

Wer pflegt denn bisher den Link auf Ian's Seite bzgl. BASS_VIS?
Na egal....

Also, die aktuelle bassvis.dll habe ich ja schon.
Was mir zum pflegen der aktuellen API dann noch fehlt wäre die aktuelle Export-Liste der Funktionen, damit ich die neuen Funktionen bei mir in .Net umsetzten kann.
Ist egal, ob Delphi, C/C++, VB oder so...

Stellt sich nur die Frage, wenn es wirklich gar keinen mehr gibt, der BASS_VIS und BASS_WINAMP nutzt, ob es dann wirj´klich noch Sinn macht diese weiterhin offiziell zu unterstützen.

Ich werde mal Ian anpingen und nachfragen...

[BassFan]

Hi

"...This LIB work only on 2.2 not Bass 2.3..." - hab ich aber vielleicht falsch verstanden.

Nein , war die vorherige Version-

Wer pflegt denn bisher den Link auf Ian's Seite bzgl. BASS_VIS?
Na egal....

Keine ahnung wie das gehandhabt wird.
Ich mache mal weiter dann werden wir sehn.

Also, die aktuelle bassvis.dll habe ich ja schon.
Was mir zum pflegen der aktuellen API dann noch fehlt wäre die aktuelle Export-Liste der Funktionen, damit ich die neuen Funktionen bei mir in .Net umsetzten kann.
Ist egal, ob Delphi, C/C++, VB oder so...

Sollst du haben leider nur in Vb bin mit den anderen Sprachen noch nicht so weit.

Option Explicit

' BASS_SONIQUEVIS_CreateVis flags
Public Const BASS_VIS_NOINIT                        As Integer = 1
' BASS_SONIQUEVIS_SetConfig flags
Public Const BASS_VIS_CONFIG_FFTAMP                 As Integer = 1
Public Const BASS_VIS_CONFIG_FFT_SKIPCOUNT          As Integer = 2
' Skip count range is from 0 to 3 (because of limited FFT request size)
Public Const BASS_VIS_CONFIG_WAVE_SKIPCOUNT         As Integer = 3
' Skip count range is from 0 to (...) try it out, whenever Bass crashes or does not return enough sample data
Public Const BASS_VIS_CONFIG_SONIQUE_SLOWFADE       As Integer = 4
' Dim light colors to less than half, then slowly fade them out
' Bass FFT Amplification values
Public Const BASS_VIS_FFTAMP_NORMAL                 As Integer = 1
Public Const BASS_VIS_FFTAMP_HIGH                   As Integer = 2
Public Const BASS_VIS_FFTAMP_HIGHER                 As Integer = 3
Public Const BASS_VIS_FFTAMP_HIGHEST                As Integer = 4
' BASS_VIS_FindPlugin flags
Public Const BASS_VIS_FIND_SONIQUE                  As Integer = 1
Public Const BASS_VIS_FIND_WINAMP                   As Integer = 2
Public Const BASS_VIS_FIND_RECURSIVE                As Integer = 4
' return value type
Public Const BASS_VIS_FIND_COMMALIST                As Integer = 8
' Delphi's comma list style (item1,item2,"item 3",item4,"item with space")
' the list ends with single NULL character

Public Declare Function BASS_SONIQUEVIS_CreateVis Lib "bass_vis.dll" _
                        (ByVal f As Any, _
                        ByVal visconfig As Any, _
                        ByVal flags As Long, _
                        ByVal w As Long, _
                        ByVal h As Long) As Long

Public Declare Function BASS_SONIQUEVIS_Render Lib "bass_vis.dll" _
                        (ByVal handle As Long, _
                        ByVal channel As Long, _
                        ByVal canvas As Long) As Long

Public Declare Function BASS_SONIQUEVIS_Render2 Lib "bass_vis.dll" _
                        (ByVal handle As Long, _
                        ByVal Data As Long, _
                        ByVal fft As Long, _
                        ByVal canvas As Long, _
                        ByVal flags As Long, _
                        ByVal pos As Long) As Long

Public Declare Function BASS_SONIQUEVIS_Free Lib "bass_vis.dll" (ByVal handle As Long) As Long
Public Declare Function BASS_SONIQUEVIS_GetName Lib "bass_vis.dll" (ByVal handle As Long) As Long

Public Declare Function BASS_SONIQUEVIS_Clicked Lib "bass_vis.dll" _
                        (ByVal handle As Long, _
                        ByVal x As Long, _
                        ByVal y As Long) As Long

Public Declare Function BASS_SONIQUEVIS_Resize Lib "bass_vis.dll" _
                        (ByVal handle As Long, _
                        ByVal nw As Long, _
                        ByVal nh As Long) As Long

Public Declare Sub BASS_SONIQUEVIS_CreateFakeSoniqueWnd Lib "bass_vis.dll" ()
Public Declare Sub BASS_SONIQUEVIS_DestroyFakeSoniqueWnd Lib "bass_vis.dll" ()

Public Declare Function BASS_WINAMPVIS_CreateVis Lib "bass_vis.dll" _
                        (ByVal f As Any, _
                        ByVal module As Long, _
                        ByVal flags As Long, _
                        ByVal APPHandle As Long) As Long

Public Declare Function BASS_WINAMPVIS_Render Lib "bass_vis.dll" _
                        (ByVal handle As Long, _
                        ByVal channel As Long) As Long

Public Declare Function BASS_WINAMPVIS_Render2 Lib "bass_vis.dll" _
                        (ByVal handle As Long, _
                        ByVal Data As Long, _
                        ByVal fft As Long, _
                        ByVal flags As Long, _
                        ByVal rate As Long) As Long

Public Declare Function BASS_WINAMPVIS_Free Lib "bass_vis.dll" (ByVal handle As Long) As Long
Public Declare Function BASS_WINAMPVIS_GetName Lib "bass_vis.dll" (ByVal handle As Long) As Long
Public Declare Function BASS_WINAMPVIS_GetModuleName Lib "bass_vis.dll" (ByVal handle As Long) As Long
Public Declare Function BASS_WINAMPVIS_Config Lib "bass_vis.dll" (ByVal handle As Long) As Long

Public Declare Function BASS_WINAMPVIS_SetChanInfo Lib "bass_vis.dll" _
                        (ByVal handle As Long, _
                        ByVal title As Any, _
                        ByVal Filename As Any, _
                        ByVal pos As Long, _
                        ByVal Length As Long, _
                        ByVal PLaylistPos As Integer, _
                        ByVal PLaylistLength As Integer) As Long

Public Declare Function BASS_WINAMPVIS_GetVisHwnd Lib "bass_vis.dll" () As Long
Public Declare Function BASS_WINAMPVIS_GetAmpHwnd Lib "bass_vis.dll" () As Long

Public Declare Function BASS_VIS_GetConfig Lib "bass_vis.dll" (ByVal opt As Long) As Long

Public Declare Sub BASS_VIS_SetConfig Lib "bass_vis.dll" _
                        (ByVal opt As Long, _
                        ByVal Value As Long)
                       
Public Declare Function BASS_VIS_FindPlugins Lib "bass_vis.dll" _
                        (ByVal vispath As Any, _
                        ByVal flags As Long) As Long

Hier die Hilfe

[BassFan]

Teil 2

Stellt sich nur die Frage, wenn es wirklich gar keinen mehr gibt, der BASS_VIS und BASS_WINAMP nutzt, ob es dann wirj´klich noch Sinn macht diese weiterhin offiziell zu unterstützen.

Offiziell oder nicht.
Ich mache auf jedenfall weiter dann nur noch für Private zwecke wenn kein Interesse mehr besteht.

Hier die Winamp API's welche zur zeit unterstützt werden.
Denke die sind selbsterklärend.
Wenn du mit den Plugins kommunizieren willst dann bitte mit Standard Winamp Sendmessagen!

'Command Messagen
Public Const WM_COMMAND              As Long = &H111
Public Const WINAMP_BUTTON1          As Long = 40044    '// Previous Track
Public Const WINAMP_BUTTON2          As Long = 40045    '// Play
Public Const WINAMP_BUTTON3          As Long = 40046    '// Pause/Unpause button
Public Const WINAMP_BUTTON4          As Long = 40047    '// Stop button
Public Const WINAMP_BUTTON5          As Long = 40048    '// Next Track

'IPC Messagen
Public Const IPC_GETLISTPOS          As Long = 125
Public Const IPC_ISPLAYING           As Long = 104
Public Const IPC_SETPLAYLISTPOS      As Long = 121
Public Const IPC_GETPLAYLISTFILE     As Long = 211

Public Const WM_WA_IPC               As Long = WM_USER
Public Enum IPC_ISPLAYING_STATUS
    IPC_ISPLAYING_PLAYING = 1
    IPC_ISPLAYING_PAUSED = 3
    IPC_ISPLAYING_STOPPED = 0
End Enum

#If False Then
Private IPC_ISPLAYING_PLAYING, IPC_ISPLAYING_PAUSED, IPC_ISPLAYING_STOPPED
#End If

Gruß

[Keyman]

And as always, the Dutch sits between the English and the German 

I for one would be very disapointed if the BassVis project bleeds to death due to lack of time of the original developer (XMinioNX ?).
I do think many people are still very interested in the library but don't know how and where to contribute.

As far as I could follow the German discussion (my German is a little rusty) I understand that BassFan worked on the Bass_vis.dll and fixed the greater part of it. That's great!

It's not clear to me what API files are missing now for the various programming environments (Delphi/VB/.NET/???)
Also it's not clear to me what else needs to be done before this project is up and running again.

But, since this is a Delphi project and I'm a Delphi developer I want to offer my help and take care of Delphi related stuff (write the Delphi API and a Delphi demo). For the NOT Delphi related stuff we need other volunteers.

Can you tell me the exact status of the project? What needs to be done etc. where to find all the latest files (source, API's, help etc.) ?
If you (BassFan and NetRadio) can help me getting started I will start contributing.

[BassFan]

And as always, the Dutch sits between the English and the German 

I for one would be very disapointed if the BassVis project bleeds to death due to lack of time of the original developer (XMinioNX ?).
I do think many people are still very interested in the library but don't know how and where to contribute.

As far as I could follow the German discussion (my German is a little rusty) I understand that BassFan worked on the Bass_vis.dll and fixed the greater part of it. That's great!

It's not clear to me what API files are missing now for the various programming environments (Delphi/VB/.NET/???)
Also it's not clear to me what else needs to be done before this project is up and running again.

But, since this is a Delphi project and I'm a Delphi developer I want to offer my help and take care of Delphi related stuff (write the Delphi API and a Delphi demo). For the NOT Delphi related stuff we need other volunteers.

Can you tell me the exact status of the project? What needs to be done etc. where to find all the latest files (source, API's, help etc.) ?
If you (BassFan and NetRadio) can help me getting started I will start contributing.

My english is bad.. ok i will help.
I have many bugs remove .. any function added, and changed.
All infos in the Helpfile
 
You can now work with plugin over the original Winamp-sendmessage i have it inplentiert yet.
i'am working now on winamp5 Plugins and can not yet give the source for any people ..

I have Sample by Delphi to the new version adapted there can you see like it functioned.
greets .. i hope you understand me bad english

[BassFan]

@Keyman
you will working on a new Sample for Delphi ?
Great 
I will help you when problems will arise.

greets

[Keyman]

Yep I will work on the (new) demo.

Also I get the feeling that I understand you better when you write in German as long as you don't use >big< words 

Send me the latest source of the demo and try to explain what needs to be done.
I understand correct that the Winamp-sendmessage is NOT implemented yet?

[BassFan]

Yep I will work on the (new) demo.

Also I get the feeling that I understand you better when you write in German as long as you don't use >big< words 

Send me the latest source of the demo and try to explain what needs to be done.
I understand correct that the Winamp-sendmessage is NOT implemented yet?

Winamp-sendmessage is implemented!
you can use the last source.

Insert a listbox user can load mp3files
when you click on a entry from listbox send befor
SAMPLE: SendMessage(hWndWinAMP, WM_COMMAND, WINAMP_BUTTON2, 0);
then use bass for playing the song.

work with play,pause,stop,next,prev button
use winamp sendmessage. Show SAMPLE.

the best plugin to check if work is Tripex3    use the Button in tripex3

use a timer interval 150ms
into ..
BASS_WINAMPVIS_SetChanInfo(
    handle returned by BASS_WINAMPVIS_CreateVis,
    title,
    filename,
    Current position of Songlen,
    Length of the current file,
    pos of the current playlist index,
    length of the playlist entry,
);

Wichtig: Important ! 
 
Remove all madExeption 'Unit' from Source of Winamptest (Delphi)
madExcept,
madLinkDisAsm,
madListHardware,
madListProcesses,
madListModules,


greets

[Keyman]

No problem, I start working on it after I return from a week holliday.