Streaming music via Server?

Blitz3D Forums/Blitz3D Programming/Streaming music via Server?

Guy Fawkes

(Posted 2012) [#1]

Hi all, I have been converting a server & client streaming code from BlitzPlus to Blitzbasic, that streams music to a client via TCP, but ive run into a couple problems... I can't get it to PLAY the music on the client side, even though I checked the packet data being sent, and it returned the correct file location (on my C drive), BUT STILL wont play :/ Also, there's a couple timer codes in there that i commented out, that i dont quite understand how to convert to blitzbasic.

If you guys could help me, I would GREATLY appreciate it! :) I wanna add this to the code archives for everybody to use! :)

Also, when my friend connects to it, for some reason, the server on MY end crashes o.o It seems to do this when more than 1 person is connected to it at once.

Here is where I found it originally:

http://www.blitzbasic.com/codearcs/codearcs.php?code=2106

BlitzPlus:

StreamServer.b+:

;SERVER

AppTitle("Music Sync Server")

Type client
	Field connection,timer
End Type

server=CreateTCPServer(550)

If Not server
	Notify "Couldn't Initialize Server!",1
	End
Else
	window=CreateWindow("Music Sync Server",ClientWidth(Desktop())/2-200,ClientHeight(Desktop())/2-100,400,200,Desktop(),3)
	open=CreateButton("New Music",50,50,100,20,window)
	label=CreateLabel("Status: ",50,100,300,100,window)
	SetGadgetText(label,"Status: server is running.")
End If

pingtimer=CreateTimer(1)

While Not endvariable=1
	WaitEvent(0)
	
	connect=AcceptTCPStream(server)
	
	If connect
		c.client=New client
		c\timer=CreateTimer(1)
		c\connection=connect
		For a=1 To 3
			WriteLine(c\connection,"sync")
			
			While Not ReadAvail(c\connection)
			Wend
			
			WriteLine(c\connection,"pong")
		Next
		
		Delay(250)
		WriteLine(c\connection,MilliSecs())
	End If
	
	If EventID()=$803
		endvariable=1
	End If
	
	If EventID()=$401
		If EventSource()=open
			thesound$=RequestFile("Open a song","mp3")
			
			starttime=MilliSecs()+15000
			
			If thesound$<>""
				SetGadgetText(label,"Status: Playing "+readtoslash$(thesound$))
			
				For c.client=Each client
					WriteLine(c\connection,"play"+readtoslash$(thesound$))
					WriteLine(c\connection,"start"+starttime)
				Next
			End If
		End If
	End If
	
	If TimerTicks(pingtimer)>5
		For c.client=Each client
			WriteLine(c\connection,"ping")
		Next
		
		ResetTimer(pingtimer)
	End If
	
	For c.client=Each client
		If ReadAvail(c\connection)
			If ReadLine(c\connection)="ping"
				ResetTimer(c\timer)
			End If
		End If
	
		If TimerTicks(c\timer)>20
			CloseTCPStream(c\connection)
			Delete c
		End If
	Next
	
	Delay(1)
Wend

End

Function readtoslash$(incoming$)
	temp$=""
	
	While Right$(incoming$,1)<>"\" And incoming$<>""
		temp$=Right$(incoming$,1)+temp$
		incoming$=Left$(incoming$,Len(incoming$)-1)
	Wend

	Return temp$
End Function

StreamClient.b+:

;CLIENT

AppTitle("Music Sync Client")

server$="dayne"
connection=OpenTCPStream(server$,550)

If connection
	Print("Succesfully connected to server.  Music will begin playing on next song.")
Else
	Notify("No server!")
	End
End If

servertimer=CreateTimer(1)
clienttimer=CreateTimer(1)

For a=1 To 3
	While Not ReadAvail(connection)
		Delay(1)
	Wend
	
	temp$=ReadLine(connection)
	
	oldtime=MilliSecs()
	WriteLine(connection,"ping")
	
	While Not ReadAvail(connection)
	Wend
	
	temp$=ReadLine(connection)
	
	lag=lag+(MilliSecs()-oldtime)
Next

While Not ReadAvail(connection)
Wend

offset=MilliSecs()-Int(ReadLine(connection))-lag/6

While Not endvariable=1
	If ReadAvail(connection)
		incoming$=ReadLine(connection)
		
		If Left$(incoming$,4)="play"
			incoming$=Right$(incoming$,Len(incoming$)-4)
			nextsong$=incoming$
			newsong=LoadSound("\\"+server$+"\music\"+incoming$)
		
			While Not ReadAvail(connection)
				Delay(1)
			Wend
			
			incoming$=ReadLine(connection)
		
			If Left$(incoming$,5)="start"
				incoming$=Right$(incoming$,Len(incoming$)-5)
				
				starttime=Int(incoming$)+offset
			End If
		End If
		
		If incoming$="ping"
			ResetTimer(servertimer)
		End If
	End If
	
	If starttime
		If Not MilliSecs()<starttime-500
			Print("Playing: "+nextsong$)
			While MilliSecs()<starttime-5
				Delay(1)
			Wend
			
			While MilliSecs()<starttime
			Wend
			
			StopChannel(channel)
			channel=PlaySound(newsong)
			starttime=0
		End If
	End If
	
	If TimerTicks(servertimer)>20
		Notify("Connection to server lost!",1)
		End
	End If
	
	If TimerTicks(clienttimer)>5
		WriteLine(connection,"ping")
		ResetTimer(clienttimer)
	End If
	
	Delay(1)
Wend

End

Blitzbasic

Without further adieu, here is/are the source(s):

StreamServer.bb:

;SERVER



Global movewin%



movewin% = api_MoveWindow(SystemProperty("ApphWnd"), api_GetSystemMetrics(0)/2-GraphicsWidth()/2, api_GetSystemMetrics(1)/2-GraphicsHeight()/2, GraphicsWidth(), GraphicsHeight(), $000F)



AppTitle("Music Sync Server")



Include "WB3DStyles.bb"



Type client
	Field connection%,timer%
End Type



Global RuntimeWindow_hWnd% = WB3D_InitializeGUI(SystemProperty("AppHwnd"),10,10,GraphicsWidth(),GraphicsHeight())



Global Port% = 5000
Global server%=StartServer(Port%)
Global connect%



Global newmusic%



If server% = False
	
	
	
	movewin% = api_MoveWindow(RuntimeWindow_hWnd, api_GetSystemMetrics(0)/2-GraphicsWidth()/2, api_GetSystemMetrics(1)/2-GraphicsHeight()/2, GraphicsWidth(), GraphicsHeight(), $000F)
	
	
	
	api_messagebox(0, "Couldn't Start Server!"+Chr$(13)+Chr$(10)+"Port: "+Chr$(34)+Port%+Chr$(34)+" is already being used!", "WARNING!", 0)
		
	
	
	WB3D_EndGUI()
	
	
	
	End
		
	
	
Else
	
	
	
	movewin% = api_MoveWindow(RuntimeWindow_hWnd%, api_GetSystemMetrics(0)/2-GraphicsWidth()/2, api_GetSystemMetrics(1)/2-GraphicsHeight()/2, GraphicsWidth(), GraphicsHeight(), $000F)
	
	
	
	newmusic%=WB3D_CreateButton("New Music",0,50,100,20,RuntimeWindow_hWnd%,0)
	label%=WB3D_CreateLabel("Status: ", 0,100,GraphicsWidth(),GraphicsHeight(),RuntimeWindow_hWnd%,0)
	WB3D_SetGadgetText(label%, "Status: Awaiting Data...")
	
	
	
	menus% = WB3D_WindowMenu(RuntimeWindow_hWnd%)
	
	
	
	FileMenu% = WB3D_CreateMenu("&File",0,menus%,0)
	i% = i% + 1
	Open% = WB3D_CreateMenu("Open",i%,FileMenu%,0)
	i% = i% + 1
	Quit% = WB3D_CreateMenu("Quit",i%,FileMenu%,0)
	
	
	
	AboutMenu% = WB3D_CreateMenu("&About",0,menus%,0)
	i% = i% + 1
	About% = WB3D_CreateMenu("About...",i%,AboutMenu%,0)
	
	
	
	HelpMenu% = WB3D_CreateMenu("&Help",0,menus%,0)
	i% = i% + 1
	HelpFile% = WB3D_CreateMenu("Help...",i%,HelpMenu%,0)
	
	
	
	WB3D_UpdateWindowMenu(RuntimeWindow_hWnd%)
	
	
	
		; cleanup any old creation events, its better to do this before we enter the main
		; event loop, when some gadgets are created they generate events.
	
	
	
;Reset everything thats happened once
	WB3D_FlushEvents()
	
	
;Allow NORMAL BlitzBasic Keyhit / Keydown commands
	WB3D_Force_BlitzKeys(1)
	
	
End If



Global pingtimer%=CreateTimer(1)



;Global lastInteraction% = MilliSecs()



While Not KeyHit(1)
	
	
	
	connect%=AcceptTCPStream(server%)
	
	
	
	If connect%
		c.client=New client
		c\timer%=CreateTimer(1)
		c\connection%=connect%
		For a=1 To 3
			WriteLine(c\connection%,"sync")
			
			While Not ReadAvail(c\connection%)
			Wend
			
			WriteLine(c\connection%,"pong")
		Next
		
		Delay(250)
		WriteLine(c\connection%,MilliSecs())
		;WB3D_SetGadgetText(label%, "Server: Online!")
	;Else
		;WB3D_SetGadgetText(label%, "Server: Awaiting Response...")
	End If
	
	
	
	;If EventID()=$803
		;endvariable=1
	;End If
	
	;If EventID()=$401
		;If EventSource()=open
			;thesound$=RequestFile("Open a song","mp3")
			
			;starttime=MilliSecs()+15000
			
			;If thesound$<>""
				;WB3D_SetGadgetText(label,"Status: Playing "+readtoslash$(thesound$))
				
				;For c.client=Each client
					;WriteLine(c\connection,"play"+readtoslash$(thesound$))
					;WriteLine(c\connection,"start"+starttime)
				;Next
			;End If
		;End If
	;End If
	
	;If TimerTicks(pingtimer)>5
		;For c.client=Each client
			;WriteLine(c\connection,"ping")
		;Next
		
		;ResetTimer(pingtimer)
	;End If
	
	;For c.client=Each client
		;If ReadAvail(c\connection)
			;If ReadLine(c\connection)="ping"
				;ResetTimer(c\timer)
			;End If
		;End If
		
		;If TimerTicks(c\timer)>20
			;CloseTCPStream(c\connection)
			;Delete c
		;End If
	;Next
		
		
		
		
		
		
		
	
				; get an event of the event queue.
	event% = WB3D_WaitEvent()
	
	
	
	Select event%
			
			
			
				Case WB3D_EVENT_GADGET
					
					
					
					selected = WB3D_EventSource()
					WB3D_GenerateEvents(False)
					
					
							Select selected
									
									
									
								Case newmusic%
									
									
									
									thesound$=Call_Open_Menu$()
									
									
									
									starttime=MilliSecs()+15000
									
									
									
									If thesound$<>""
										
										
										
										;Upate Status
										
										
										
										WB3D_SetGadgetText(label%, "Status: Streaming Data "+"|"+" Port "+Chr$(34)+Port%+Chr$(34)+Chr$(13)+Chr$(10)+"Song Name: "+readtoslash$(thesound$))
										
										
										
										;Stream Data
										
										
										
										For c.client=Each client
											
											
											
											WriteLine(c\connection,"play"+thesound$) ;readtoslash$(thesound$))
											
											
											
											WriteLine(c\connection,"start"+starttime)
											
											
											
										Next
										
										
										
									End If
									
									
									
									thesound$ = ""
									
									
									
							End Select
							
							
							
											;switch=Not switch
							
							
							
											;If switch 
							
							
							
													;WB3D_SetGadgetText(button,"Stop")
							
							
							
											;Else
							
							
							
												;WB3D_SetGadgetText(button,"Start")
							
							
							
											;End If
					
					
				
						Case WB3D_EVENT_MENU
			
			
			
							
							Select WB3D_EventData()
					
					
					
					
									
								Case 1
					
					
					
									
									thesound$=Call_Open_Menu$()
					
					
					
									
									starttime=MilliSecs()+15000
					
					
					
									
									If thesound$<>""
						
						
						
										
										;Upate Status
						
						
						
										
										WB3D_SetGadgetText(label%, "Status: Streaming Data "+"|"+" Port "+Chr$(34)+Port%+Chr$(34)+Chr$(13)+Chr$(10)+"Song Name: "+readtoslash$(thesound$))
						
						
										
										
										;Stream Data
						
						
						
										For c.client=Each client
							
							
							
											
											WriteLine(c\connection,"play"+readtoslash$(thesound$))
							
							
							
											
											WriteLine(c\connection,"start"+starttime)
							
							
							
											
										Next
						
						
						
										
									End If
					
					
					
									
								Case 2
					
					
					
									
									api_MessageBox(0, "An actual help file will be coming very soon!", "Help...", 0)
					
					
					
									
								Case 3
					
					
					
									
									yesno% = api_messagebox(0, "Are you SURE you want to quit?", "WARNING!", MB_YESNO)
					
					
					
									
									Select yesno%
							
							
							
										;ID for Yes
											
											
											
										Case 6
							
											
											
										;If the YES case is selected via the yesno variable question, add a messagebox saying goodbye.
										;NOTE: This does NOT have to be used. If you don't WANT an exit messagebox, then put a semi-colon ( ; )
										;Before the 1st letter in the FOLLOWING line LIKE SO: 
							
											
											
										;api_messagebox(0, "GOODBYE!", "INFO", 0)
											
											
							
										;Then remove THIS line and the ABOVE line
										;You can ALSO COMPLETELY remove the bottom line if you don't want it there at all
										;even in the code
											
							
							
											
											api_messagebox(0, "GOODBYE!", "INFO", 0)
							
							
							
											;If the YES case is selected via the yesno variable question, then Clear the 3D world, and END the program
							
							
							
											
											WB3D_EndGUI()
							
							
							
											
											End
							
							
							
											;ID for No
											
											
											
										Case 7
											
											
							
											;Put either NOTHING AT ALL here, OR an api_messagebox() message here saying
											;the user cancelled.
											
											
											
											;It's best to not return ANYTHING so that the value for yesno = null and does nothing.\
							
							
							
											;If WB3D_EventSource()=open
								
								
								
											;thesound$=Call_Open_Menu$()
							
											
											
											;starttime=MilliSecs()+15000
								
								
								
											;If thesound$<>""
												
												
												
												;WB3D_SetGadgetText(label,"Status: Playing "+readtoslash$(thesound$))
												
												
												
												;For c.client=Each client
													
													
													
													;WriteLine(c\connection,"play"+readtoslash$(thesound$))
													
													;WriteLine(c\connection,"start"+starttime)
													
													
													
												;Next
												
												
												
											;End If
											
											
											
										;End If
											
											
											
									End Select
	
	
	
	
	
									
							End Select
	
	
							
							
						Case WB3D_EVENT_WINDOW_CLOSE
							
							
							
							
							
							Select WB3D_EventSource()
									
									
									
									
									
								Case RuntimeWindow_hWnd%
									
									
									
									
									
									WB3D_EndGUI()
									
									
									
									
									
									End
									
									
									
									
									
							End Select							
							

							
					End Select
	
	
	
					
					Delay(1)
	
	
	
					;EndIf
	
	
	
					
					Flip
	
	
	
					
				Wend



				
				WB3D_EndGUI()



				
				End



Function readtoslash$(incoming$)
	temp$=""
	
	While Right$(incoming$,1)<>"\" And incoming$<>""
		temp$=Right$(incoming$,1)+temp$
		incoming$=Left$(incoming$,Len(incoming$)-1)
	Wend
	
	Return temp$
End Function



Function StartServer%(Port%)
	
	
	
	server% = CreateTCPServer(Port%)
	
	
	
	Return server%
	
	
	
End Function



Function Call_Open_Menu$()
	
	
	
	ext$ = ".mp3"+Chr$(0)+"*.mp3"+Chr$(0) ;USE A SEMI COLON IF NOT THE END OF THE FILE TYPES LIST!
	
	openfiledir$ = ".\music\"
	
	openfilename$ = WB3D_OpenFileRequest("Open Music...",openfiledir$,ext$,"")								
	
	
	
	If openfilename$ = "" Then api_MessageBox(0, "Music Open Canceled...", "WARNING!", 0)
	
	
	
	fname1$ = getfilename$(openfilename$)
	
	fpath1$ = getdirectory$(openfilename$)
	
	fext1$  = getextension$(openfilename$)
	
	
	
	If openfilename$<>"" Then fcount = fcount + 1
	
	
	
	Return openfilename$
	
	
	
End Function




Function getfilename$(filename$) ; Returns the filename and extension
	
	lastdir = 1
	
	
	For i=1 To Len(filename$)
		
		
		If Mid$(filename$,i,1) = "\" Then Lastdir = i
		
	Next
	
	If Lastdir > 1 Then Lastdir = Lastdir + 1
	
	For i=Lastdir To Len(filename$)
		
		a$ = a$ + Mid(filename$,i,1)
		
	Next
	
	Return a$
	
End Function



Function getextension$(filename$) ; Returns the extension minus the .
	
	lastdir = 1
	
	For i=1 To Len(filename$)
		
		If Mid$(filename$,i,1) = "." Then Lastdir = i
		
	Next
	
	If Lastdir > 1 Then Lastdir = Lastdir + 1
	
	For i=Lastdir To Len(filename$)
		
		a$ = a$ + Mid(filename$,i,1)
		
	Next
	
	Return a$
	
End Function



Function getdirectory$(filename$) ; Returns the complete directory including drive
	
	lastdir = 1
	
	For i=1 To Len(filename$)
		
		If Mid$(filename$,i,1) = "\" Then Lastdir = i
		
	Next
	
	For i=1 To Lastdir
		
		a$ = a$ + Mid(filename$,i,1)
		
	Next
	
	Return a$
	
End Function

StreamClient.bb:

;CLIENT



AppTitle("Music Sync Client")



Graphics 800, 600, 0, 2



Global server$="localhost"
Global Port% = 5000
Global connection%=OpenTCPStream(server$,Port%)



If connection%
	
	
	
	Print "Succesfully connected to server.  Music will begin playing on next song."
	
	
	
Else
	
	
	
	api_messagebox(0, "No server!", "WARNING!", 0)
	
	
	
	End
	
	
	
End If



Global servertimer%=CreateTimer(1)
Global clienttimer%=CreateTimer(1)



For a%=1 To 3
	
	
	
	While Not ReadAvail(connection%)
		Delay(1)
	Wend
	
	
	
	temp$=ReadLine(connection%)
	
	
	
	oldtime=MilliSecs()
	WriteLine(connection,"ping")
	
	
	
	While Not ReadAvail(connection)
	Wend
	
	
	
	temp$=ReadLine(connection)
	
	
	
	lag=lag+(MilliSecs()-oldtime)
	
	
	
Next



While Not ReadAvail(connection%)
	
	
	
Wend



Global offset%=MilliSecs()-Int(ReadLine(connection%))-lag%/6



While Not KeyHit(1)
	
	
	
	If ReadAvail(connection%)
		
		
		
		incoming$=ReadLine(connection%)
		
		
		
		If Left$(incoming$,4)="play"
			
			
			
			incoming$=Right$(incoming$,Len(incoming$)-4)
			
			
			
			api_messagebox(0, incoming$, incoming$, 0)
			
			
			
			nextsong$=incoming$
			
			
			
			newsong%=LoadSound(incoming$)
			
			
			
			While Not ReadAvail(connection)
				
				
				
				Delay(1)
				
				
				
			Wend
			
			
			
			incoming$=ReadLine(connection%)
			
			
			
			If Left$(incoming$,5)="start"
				
				
				
				incoming$=Right$(incoming$,Len(incoming$)-5)
				
				
				
				starttime%=Int(incoming$)+offset%
				
				
				
			End If
			
			
			
		End If
		
		
		
		If incoming$="ping"
			
			
			
			;ResetTimer(servertimer)
			
			
			
			servertimer = 0
			
			
			
		End If
		
		
		
	End If
	
	
	
	If starttime
		
		
		
		If Not MilliSecs()<starttime-500
			
			
			
			Print("Playing: "+nextsong$)
			
			
			
			While MilliSecs()<starttime-5
				
				
				
				Delay(1)
				
				
				
			Wend
			
			
			
			While MilliSecs()<starttime
				
				
				
			Wend
			
			
			
			StopChannel(channel)
			
			
			
			channel=PlaySound(newsong)
			
			
			
			starttime=0
			
			
			
		End If
		
		
		
	End If
	
	
	
	;If TimerTicks(servertimer)>20
		
		
		
		;Notify("Connection to server lost!",1)
	
	
	
	
		;End
		
		
		
	;End If
	
	
	
	;If TimerTicks(clienttimer)>5
		
		
		
		;WriteLine(connection,"ping")
		;ResetTimer(clienttimer)
		
		
		
	;End If
	
	
	
	Delay(1)
	
	
	
Wend



End

You will also need the WinBlitz3D 1.1 DECLs file & DLL file, I will provide it, but if Kev doesn't want it on here, then I will have to remove it :)

Credit goes to: Kev for WinBlitz3D - the BEST damn GUI code OUT there BY FAR! :) Thanks Kev, for your contribution! :)

And now without further adieu, here is the WinBlitz3D DECLs file:

Blitz3D_GUI_DLL.DECLS:

; 
; WinBlitz3D, copyright Kevin Poole.
;
;

.lib "Blitz3D_GUI_DLL.DLL"

WB3D_LoadTextAreaText(textarea%,filename$):"_API_LoadTextAreaText@8"
WB3D_SaveTextAreaText(textarea%,filename$):"_API_SaveTextAreaText@8"
WB3D_TextAreaCursorX%(textarea%):"_API_TextAreaCursorX@4"
WB3D_TextAreaCursorY%(textarea%):"_API_TextAreaCursorY@4"

WB3D_DDHook%(directdraw%):"_app_DDHook@4"
WB3D_DDUnHook():"_app_DDUnHook@0"
WB3D_DDWasLost%():"_app_DDWasLost@0"

WB3D_AddGadgetLayoutSlot%(slot%,gadget%,left%,right%,top%,bottm%):"_API_AddGadgetLayoutSlot@24"
WB3D_RemovePanelImage(window%):"_API_RemovePanelImage@4"
WB3D_FakeFullScreen%(runtimewindow%):"_API_FakeFullScreen@4"
WB3D_ForceWindowMode(runtimewindow%,force%):"_API_ForceWindowMode@8"

WB3D_LoadSkin%(bmp$):"_API_LoadSkin@4"
WB3D_AttachSkin%(window%,skin%):"_API_AttachSkin@8"
WB3D_UpdateSkin%(window%,skindc%):"_API_UpdateSkin@8"
WB3D_CheckSkinHotspot%(window%,x%,y%,width%,height%):"_API_CheckSkinHotspot@20"

WB3D_CreateHole(window%,x%,y%,width%,height%):"_API_CreateHole@20"
WB3D_RemoveHole(window%):"_API_RemoveHole@4"

WB3D_GadgetExists%(gadget%):"_API_GadgetExists@4"

WB3D_PlotWB3DPixel(window%,x%,y%,red%,green%,blue%):"_API_PlotWB3DPixel@20"
WB3D_CreateWB3DRect(window%,x%,y%,width%,height%,bred%,bgreen%,bblue%,pred%,pgreen%,pblue%):"_API_CreateWB3DRect@44"
WB3D_CreateWB3DLine(window%,x1%,y1%,x2%,y2%,red%,green%,blue%):"_API_CreateWB3DLine@32"
WB3D_CreateWB3DCircle(window%,x%,y%,radius%,bred%,bgreen%,bblue%,pred%,pgreen%,pblue%):"_API_CreateWB3DCircle@40"

WB3D_TextAreaLineCount%(textarea%,line%):"_API_TextAreaLineCount@8"

WB3D_TextAreaFindToken%(textarea%,pos%):"_API_TextAreaFindToken@8"

WB3D_UpdateTextArea(textarea%):"_API_UpdateTextArea@4"
WB3D_TextAreaTextReplaceSelection(textarea%,text$):"_API_TextAreaTextReplaceSelection@8"
WB3D_TextAreaTextRange$(textarea%,start%,end%):"_API_TextAreaTextRange@12"
WB3D_TextAreaTextSelection(textarea%,start%,end%):"_API_TextAreaTextSelection@12"
WB3D_GetStartTextAreaSelection%(textarea%):"_API_GetStartTextAreaSelection@4"
WB3D_GetEndTextAreaSelection%(textarea%):"_API_GetEndTextAreaSelection@4"
WB3D_ClearTextAreaText(textarea%):"_API_ClearTextAreaText@4"
WB3D_FormatTextAreaText(textarea%,red%,green%,blue%,flags%,start%,end%):"_API_FormatTextAreaText@28"
WB3D_TextAreaFirstVisableLine%(textarea%):"_API_TextAreaFirstVisableLine@4"
WB3D_TextAreaLastVisableLine%(textarea%):"_API_TextAreaLastVisableLine@4"

WB3D_ShowRebarContainer(rebar%,index%):"_API_ShowRebarContainer@8"
WB3D_HideRebarContainer(rebar%,index%):"_API_HideRebarContainer@8"
WB3D_CountRebarContainers%(rebar%):"_API_CountRebarContainers@4"
WB3D_DeleteRebarContainer(rebar%,index%):"_API_DeleteRebarContainer@8"
WB3D_AddRebarContainer%(rebar%,child%,height%,length%,title$,style%):"_API_AddRebarContainer@24"
WB3D_CreateRebar%(owner%,style%):"_API_CreateRebar@8"

SCHNOK_EVENT_State%():"_SCHNOK_EVENT_State@0"
SCHNOK_EVENT_hWnd%():"_SCHNOK_EVENT_hWnd@0"

WB3D_SetPointer(pointer%):"_API_SetPointer@4"
WB3D_GetCapture%():"_API_GetCapture@0"
WB3D_ReleaseCapture%():"_API_ReleaseCapture@0"

WB3D_SetGadgetTextColor%(gadget%,red%,green%,blue%):"_API_SetGadgetTextColor@16"
WB3D_QueueSize%():"_API_QueueSize@0"
WB3D_GenerateEvents(state%):"_API_GenerateEvents@4"

WB3D_SetMinWindowSize(window%,width%,height%):"_API_SetMinWindowSize@12"
WB3D_GetOSVersion%():"_API_GetOSVersion@0"
WB3D_Force_BlitzKeys(state%):"_API_Force_BlitzKeys@4"

WB3D_BUILD_GadgetData%(winproc%) : "_API_BUILD_GadgetData@4"
WB3D_Strict_GadgetCreation%(state%):"_API_Strict_GadgetCreation@4"

WB3D_InitializeGUI%(runtimeHWND%,x%,y%,width%,height%):"_API_InitializeGUI@20"
WB3D_SetQuitMessage(bodytext$,titletext$):"_API_SetQuitMessage@8"
WB3D_EndGUI():"_API_EndGUI@0"

;
WB3D_ConvertBlitzImage%(rgbdata*,width%,height%,banksize%):"_API_ConvertBlitzImage@16"
WB3D_DrawIcon(window%,x%,y%,icon%):"_API_DrawIcon@16"
WB3D_SetIconBuffer(window%,icon%,bank*):"_API_SetIconBuffer@12"
WB3D_FreeIcon(icon%):"_API_FreeIcon@4"

; listview/listbox item checkbox state
WB3D_ListSetCheckState(list%,item%,state%):"_API_ListSetCheckState@12"
WB3D_ListCheckState%(list%,item%):"_API_ListCheckState@8"

; spinner
WB3D_SetSpinnerRange(spinner%,min%,max%):"_API_SetSpinnerRange@12"
WB3D_GetSpinnerPos%(spinner%):"_API_GetSpinnerPos@4"
WB3D_SetSpinnerPos(spinner%,pos%):"_API_SetSpinnerPos@8"

; trackbar
WB3D_SetTrackBarRange(trackbar%,min%,max%):"_API_SetTrackBarRange@12"
WB3D_GetTrackBarPos%(trackbar%):"_API_GetTrackBarPos@4"
WB3D_SetTrackBarPos(trackbar%,pos%):"_API_SetTrackBarPos@8"

; font
WB3D_Usefont(gadget%,font%):"_API_Usefont@8"
WB3D_DefaultGadgetFont(gadget%):"_API_DefaultGadgetFont@4"
WB3D_OpenFont%(fontname$,size%,width%,bold%,italic%,underline%):"_API_OpenFont@24"

; listview/treeview listbox gadget label editing
WB3D_GetEditedLabel$():"_API_GetEditedLabel@0"
WB3D_GetEditedLabelIndex%():"_API_GetEditedLabelIndex@0"

; context menus
WB3D_CreateContextMenu%():"_API_CreateContextMenu@0"
WB3D_TrackContextMenu(window%,ContextMenu%,x%,y%):"_API_TrackContextMenu@16"

; system tray
WB3D_AddTrayIcon%(iconlist%,icon%,tooltip$):"_API_AddTrayIcon@12"
WB3D_RemoveTrayIcon%(trayicon%):"_API_RemoveTrayIcon@4"

; drag and drop
WB3D_DragAcceptFiles(window%,state%):"_API_DragAcceptFiles@8"
WB3D_CountDroppedFiles%():"_API_CountDroppedFiles@0"
WB3D_DroppedFileName$(index%):"_API_DroppedFileName@4"

; 
WB3D_ForceSetForegroundWindow(window%):"_API_ForceSetForegroundWindow@4"


; window icons
WB3D_SetWindowIcon(window%,iconlist%,icon%):"_API_SetWindowIcon@12"

; create gadgets
WB3D_CreateButton%(title$,x%,y%,width%,height%,group%,style%):"_API_CreateButton@28"
WB3D_CreateCheckButton%(title$,x%,y%,width%,height%,group%,style%):"_API_CheckButton@28"
WB3D_CreateToggleButton%(title$,x%,y%,width%,height%,group%,style%):"_API_ToggleButton@28"
WB3D_CreateRadioButton%(title$,x%,y%,width%,height%,group%,style%,autogroup%):"_API_RadioButton@32"
WB3D_CreateGroupBox%(title$,x%,y%,width%,height%,group%,style%):"_API_CreateGroupBox@28"
WB3D_CreateToolBar%(x%,y%,width%,height%,group%,style%):"_API_CreateToolBar@24"
WB3D_CreateTextArea%(x%,y%,width%,height%,group%,style%):"_API_CreateTextArea@24"
WB3D_CreateEditField%(default$,x%,y%,width%,height%,group%,style%,styletype%):"_API_CreateEditField@32"
WB3D_CreateWindow%(title$,x%,y%,width%,height%,group%,style%):"_API_CreateWindow@28"
WB3D_CreateComboBox%(x%,y%,width%,height%,group%,style%):"_API_CreateComboBox@24"
WB3D_CreateListBox%(x%,y%,width%,height%,group%,style%):"_API_CreateListBox@24"
WB3D_CreateTabber%(x%,y%,width%,height%,group%,style%):"_API_CreateTabber@24"
WB3D_CreateListView%(x%,y%,width%,height%,group%,style%):"_API_CreateListView@24"
WB3D_CreateProgBar%(x%,y%,width%,height%,group%,style%):"_API_CreateProgBar@24"
WB3D_CreateTreeView%(x%,y%,width%,height%,group%,style%):"_API_CreateTreeView@24"
WB3D_CreatePanel%(x%,y%,width%,height%,group%,style%):"_API_CreatePanel@24"
WB3D_CreateTabberPanel%(x%,y%,width%,height%,group%):"_API_CreateTabberPanel@20"
WB3D_CreateLabel%(title$,x%,y%,width%,height%,group%,style%):"_API_CreateLabel@28"
WB3D_CreateTrackBar%(x%,y%,width%,height%,group%,type%,style%):"_API_CreateTrackBar@28"
WB3D_CreateSpinner%(x%,y%,width%,height%,group%,type%,style%):"_API_CreateSpinner@28"
WB3D_CreateBmpButton%(x%,y%,width%,height%,group%,iconlist%,iconindex%):"_API_CreateBmpButton@28"

; listbox
WB3D_SetListBoxBKGNColor(listbox%,red%,green%,blue%):"_API_SetListBoxBKGNColor@16"
WB3D_SetListBoxTextColor(listbox%,red%,green%,blue%):"_API_SetListBoxTextColor@16"

; tooltip
WB3D_CreateToolTip%(gadget%,tiptext$,type%):"_API_CreateToolTip@12"
WB3D_SetToolTipText(tooltip%,text$):"_API_SetToolTipText@8"
WB3D_GetToolTipText$(tooltip%):"_API_GetToolTipText@4"
WB3D_SetToolTipColor(tooltip%,red%,green%,blue%,state%):"_API_SetToolTipColor@20"
WB3D_SetToolTipWidth(tooltip%,width%):"_API_SetToolTipWidth@8"

; panel
WB3D_AddPanelImage(panel%,bmp$):"_API_AddPanelImage@8"

; textarea
WB3D_TextAreaText$(textarea%):"_API_TextAreaText@4"
WB3D_SetTextAreaText(textarea%,text$):"_API_SetTextAreaText@8"
WB3D_SetTextAreaBKGNColor(textarea%,red%,green%,blue%):"_API_SetTextAreaBKGNColor@16"
WB3D_SetTextAreaColor(textarea%,red%,green%,blue%):"_API_SetTextAreaColor@16"
WB3D_SetTextAreaTabs(textarea%,tabs%):"_API_SetTextAreaTabs@8"
WB3D_TextAreaLen%(textarea%,option%):"_API_TextAreaLen@8"
WB3D_TextAreaLineLen%(textarea%,line%):"_API_TextAreaLineLen@8"
WB3D_TextAreaChar%(textarea%,line%):"_API_TextAreaChar@8"
WB3D_TextAreaLine%(textarea%,char%):"_API_TextAreaLine@8"

; iconlists
WB3D_LoadIconStrip%(bmp$,iconwidth%,bitdepth%):"_API_LoadIconStrip@12"
WB3D_SetGadgetIconStrip(gadget%,iconstrip%):"_API_SetGadgetIconStrip@8"
WB3D_FreeIconStrip(iconstrip%):"_API_FreeIconStrip@4"

; progress bars
WB3D_ProgBarStepSize(progbar%,size%):"_API_ProgBarStepSize@8"
WB3D_UpdateProgBar%(progbar%):"_API_UpdateProgBar@4"
WB3D_ProgBarSetRange(progbar%,min%,max%):"_API_ProgBarSetRange@12"

; return values from color requester
WB3D_RequestedRED%():"_API_RequestedRED@0"
WB3D_RequestedGREEN%():"_API_RequestedGREEN@0"
WB3D_RequestedBLUE%():"_API_RequestedBLUE@0"

; buttons
WB3D_SetButtonState(button%,state%):"_API_SetButtonState@8"
WB3D_ButtonState%(button%):"_API_ButtonState@4"


;toolbar access
WB3D_AddToolBarSeparator(toolbar%):"_API_AddToolBarSeparator@4"
WB3D_AddToolBarButton%(toolbar%,bmpindex%,buttonID%,buttontext$,tooltip$,style%):"_API_AddToolBarButton@24"
WB3D_ToolBarDefaultBmp(toolbar%):"_API_ToolBarDefaultBmp@4"
WB3D_UpdateToolbar(toolbar%):"_API_UpdateToolbar@4"
WB3D_DisableToolBarButton(toolbar%,buttonID%):"_API_DisableToolBarButton@8"
WB3D_EnableToolBarButton(toolbar%,buttonID%):"_API_EnableToolBarButton@8"
WB3D_DeleteToolBarButton(toolbar%,buttonID%):"_API_DeleteToolBarButton@8"
WB3D_GetToolBarButtonText$(toolbar%,buttonID%):"_API_GetToolBarButtonText@8"
WB3D_HideToolBarButton(toolbar%,buttonID%):"_API_HideToolBarButton@8"
WB3D_ShowToolBarButton(toolbar%,buttonID%):"_API_ShowToolBarButton@8"
WB3D_InsertToolBarButton(toolbar%,bmpindex%,buttonID%,buttontext$):"_API_InsertToolBarButton@16"
WB3D_SetToolBarButtonSize(toolbar%,width%,height%):"_API_SetToolBarButtonSize@12"
WB3D_SetToolBarButtonState(toolbar%,buttonID%,state%):"_API_SetToolBarButtonState@12"
WB3D_ToolBarButtonState%(toolbar%,buttonID%):"_API_ToolBarButtonState@8"

; window access
WB3D_MaximizeWindow(window%):"_API_MaximizeWindow@4"
WB3D_MinimizeWindow(window%):"_API_MinimizeWindow@4"
WB3D_WindowMaximized%(window%):"_API_WindowMaximized@4"
WB3D_WindowMinimized%(window%):"_API_WindowMinimized@4"

; create requester's
WB3D_Notify%(Caption$,Title$,type%):"_WinBlitz_Notify@12"
WB3D_OpenFontRequest%():"_WinBlitz_OpenFontRequester@0" 
WB3D_OpenFileRequest$(title$,dir$,ext$,initFile$):"_WinBlitz_OpenFileRequester@16"
WB3D_SaveFileRequest$(title$,dir$,ext$,initFile$):"_WinBlitz_SaveFileRequester@16"
WB3D_RequestColor%(red%,green%,blue%):"_WinBlitz_RequestColor@12"
WB3D_RequestDir$(title$,dir$):"_WinBlitz_RequestDir@8"

; gadget access
WB3D_GadgetX%(gadget%):"_API_GadgetX@4"
WB3D_GadgetY%(gadget%):"_API_GadgetY@4"
WB3D_GadgetWidth%(gadget%):"_API_GadgetWidth@4"
WB3D_GadgetHeight%(gadget%):"_API_GadgetHeight@4"
WB3D_AddGadgetItem%(gadget%,item$,selected%,icon%):"_API_AddGadgetItem@16"
WB3D_FreeGadget(gadget%):"_API_FreeGadget@4"
WB3D_SetActiveWindow(window%):"_API_SetActiveWindow@4"
WB3D_SelectedGadgetItem%(gadget%):"_API_SelectedGadgetItem@4"
WB3D_ShowGadget(gadget%):"_API_ShowGadget@4"
WB3D_HideGadget(gadget%):"_API_HideGadget@4"
WB3D_SetGadgetShape(gadget%,x%,y%,width%,height%):"_API_SetGadgetShape@20"
WB3D_SetGadgetText(gadget%,title$):"_API_SetGadgetText@8"
WB3D_ActivateGadget(gadget%):"_API_ActivateGadget@4"
WB3D_DisableGadget(gadget%):"_API_DisableGadget@4"
WB3D_EnableGadget(gadget%):"_API_EnableGadget@4"
WB3D_DeskTop%():"_API_DeskTop@0"
WB3D_ClearGadgetItems(gadget%):"_API_ClearGadgetItems@4"
WB3D_InsertGadgetItem(gadget%,index%,title$,icon%):"_API_InsertGadgetItem@16"
WB3D_ModifyGadgetItem(gadget%,index%,title$,icon%):"_API_ModifyGadgetItem@16"
WB3D_GadgetItemText$(gadget%,index%):"_API_GadgetItemText@8"
WB3D_SelectGadgetItem(gadget%,index%):"_API_SelectGadgetItem@8"
WB3D_CountGadgetItems%(gadget%):"_API_CountGadgetItems@4"
WB3D_RemoveGadgetItem(gadget%,index%):"_API_RemoveGadgetItem@8"
WB3D_CreateGadgetsHidden%(state%):"_API_CreateGadgetsHidden@4"
WB3D_GetGadgetText$(gadget%):"_API_GetGadgetText@4"
WB3D_GetActiveGadget%():"_API_GetActiveGadget@0"
WB3D_SetGadgetExtendedStyle%(gadget%,exstyle%):"_API_SetGadgetExtendedStyle@8"
WB3D_SetGadgetItemIcon%(gadget%,index%,icon%,iconstate%):"_API_SetGadgetItemIcon@16"
WB3D_ExcludeGadgetShown(gadget%):"_API_ExcludeGadgetShown@4"
WB3D_SetGadgetStyle%(gadget%,style%):"_API_SetGadgetStyle@8"
WB3D_SetParent(child%,parent%):"_API_SetParent@8"
WB3D_GetParent%(child%):"_API_GetParent@4"
WB3D_GadgetEnabled%(gadget%):"_API_GadgetEnabled@4"
WB3D_GadgetVisible%(gadget%):"_API_GadgetVisible@4"
WB3D_AutoSetGadgetRedraw(gadget%,state%):"_API_AutoSetGadgetRedraw@8"
WB3D_SetTopMost(window%):"_API_SetTopMost@4"

; listview
WB3D_AddListViewColumn%(listview%,index%,title$,columnWidth%):"_AddListViewColumn@16"
WB3D_AddListViewItem%(listview%,columnIndex%,itemIndex%,title$,icon%):"_AddListViewItem@20"
WB3D_CountListviewColumns%(listview%):"_API_CountListviewColumns@4"
WB3D_CountListviewItems%(listview%):"_API_CountListviewItems@4"
WB3D_SelectedListViewItem%(listview%):"_API_SelectedListViewItem@4"
WB3D_GetListviewColumnText$(listview%,column%):"_API_GetListviewColumnText@8"
WB3D_SetListviewColumnText(listview%,column%,title$):"_API_SetListviewColumnText@12"
WB3D_GetListviewColumnItem$(listview%,column%,item%):"_API_GetListviewColumnItem@12"
WB3D_SetListviewColumnItem(listview%,column%,item%,title$):"_API_SetListviewColumnItem@16"
WB3D_GetListviewColumnWidth%(listview%,column%):"_API_GetListviewColumnWidth@8"
WB3D_SetListviewColumnWidth(listview%,column%,width%):"_API_SetListviewColumnWidth@12"
WB3D_DeleteListviewColumn(listview%,column%):"_API_DeleteListviewColumn@8"
WB3D_DeleteListviewItem(listview%,item%):"_API_DeleteListviewItem@8"
WB3D_SelectListviewItem(listview%,item%):"_API_SelectListviewItem@8"
WB3D_ClearListviewItems(listview%):"_API_ClearListviewItems@4"
WB3D_SetListviewBKGNColor(listview%,red%,green%,blue%):"_API_SetListViewBKGNColor@16"
WB3D_SetListViewTextColor(listview%,red%,green%,blue%):"_API_SetListViewTextColor@16"

; treeview
WB3D_AddTreeViewNode%(treeview%,title$,prevNODE%,icon%,selectedicon%):"_API_AddTreeViewNode@20"
WB3D_SelectTreeViewNode%(treeview%,node%):"_API_SelectTreeViewNode@8"
WB3D_ExpandTreeViewNode%(treeview%,node%):"_API_ExpandTreeViewNode@8"
WB3D_CollapseTreeViewNode%(treeview%,node%):"_API_CollapseTreeViewNode@8"
WB3D_TreeViewRoot%(treeview%):"_API_TreeViewRoot@4"
WB3D_FreeTreeViewNode(treeview%,node%):"_API_FreeTreeViewNode@8"
WB3D_ModifyTreeViewNode%(treeview%,node%,title$):"_API_ModifyTreeViewNode@12"
WB3D_SelectedTreeViewNode%(treeview%):"_API_SelectedTreeViewNode@4"
WB3D_CountTreeViewNodes%(treeview%):"_API_CountTreeViewNodes@4"
WB3D_ClearTreeViewNodes(treeview%):"_API_ClearTreeViewNodes@4"
WB3D_TreeNodeSetCheckState%(treeview%,node%,state%):"_API_TreeNodeSetCheckState@12"
WB3D_TreeNodeCheckState%(treeview%,node%):"_API_TreeNodeCheckState@8"
WB3D_TreeViewNodeText$(treeview%,node%):"_API_TreeViewNodeText@8"

; statusbars
WB3D_CreateStatusBar%(window%,title$):"_API_CreateStatusBar@8"
WB3D_SetStatusParts%(window%,numparts%):"_API_SetStatusParts@8"
WB3D_StatusPartWidth%(window%,part%,width%):"_API_StatusPartWidth@12"
WB3D_SetStatusText%(window%,part%,title$):"_API_SetStatusText@12"
WB3D_GetStatusText$(window%,part%):"_API_GetStatusText@8"
WB3D_UpdateStatusbar(statusbar%):"_API_UpdateStatusbar@4"
WB3D_SetStatusPartIcon(statusbar%,partindex%,iconstrip%,iconindex%):"_API_SetStatusPartIcon@16"

; events
WB3D_WaitEvent%():"_API_WaitEvent@0"
WB3D_EventSource%() :"_API_EventSource@0"
WB3D_EventData%() :"_API_EventData@0"
WB3D_EventX%():"_API_EventX@0"
WB3D_EventY%():"_API_EventY@0"
WB3D_EventFlagKey%():"_API_EventFlagKey@0"
WB3D_StopEvents():"_API_StopHOOKEvents@0"
WB3D_StartEvents():"_API_StartHOOKEvents@0"
WB3D_FlushEvents():"_API_FlushEvents@0"
WB3D_EventID%():"_API_EventID@0"
WB3D_HotKeyEvent%(modifier%,rawkey%,id%):"_API_HotKeyEvent@12"
WB3D_DeleteHotKeyEvent(hotkey%):"_API_DeleteHotKeyEvent@4"

WB3D_EventEdited%():"_API_EventEdited@0"
WB3D_GUIMouseEvents(state%):"_API_GUIMouseEvents@4"

; menus
WB3D_WindowMenu%(window%):"_API_WindowMenu@4"
WB3D_CreateMenu%(title$,index%,parentMenu%,submenu%):"_API_CreateMenu@16"
WB3D_DisableMenuItem%(menu%,menuID%):"_API_DisableMenu@8"
WB3D_EnableMenuItem%(menu%,menuID%):"_API_EnableMenu@8"
WB3D_CheckMenuItem%(menu%,menuID%):"_API_CheckMenu@8"
WB3D_UnCheckMenuItem(menu%,menuID%):"_API_UncheckMenu@8"
WB3D_UpdateWindowMenu%(window%):"_API_UpdateWindowMenu@4"
WB3D_AddMenuIcon%(menu%,menuID%,bmp$):"_API_AddMenuIcon@12"
WB3D_RadiocheckMenu%(menu%,start%,end%,itemselected%):"_API_RadiocheckMenu@16"
WB3D_RemoveMenuItem(menu%,menuID%):"_API_RemoveMenu@8"
WB3D_HideWindowMenu%(window%):"_API_HideWindowMenu@4"

Please note: I have removed the browser functions from the WinBlitz3D DECLS file, as I am not sure whether or not it is legal to use in commercial projects :)

Here is a link to my whole project, which INCLUDES the DECLS file, the WinBlitz3D DLL file, my client / server sources, and an EXE version of my client / server sources:

http://www.mediafire.com/?n563cbmvciuhe16

Thank you to all who help! :)

Last edited 2012