dlgmain.inc

bass radibass radio 1.0o 1.0

include    windows.inc
include    kernel32.inc
include    user32.inc
include    Comctl32.inc
include    shell32.inc
include    masm32.inc
include    shlwapi.inc
include    gdi32.inc

includelib kernel32.lib
includelib user32.lib
includelib Comctl32.lib
includelib shell32.lib
includelib masm32.lib
includelib shlwapi.lib
includelib gdi32.lib

include    Bass.inc
includelib Bass.lib


DlgProc			 PROTO	:HWND,:UINT,:WPARAM,:LPARAM
ReadMeta         PROTO  
MetaSync         PROTO :DWORD,:DWORD,:DWORD,:DWORD
EndSync          PROTO :DWORD,:DWORD,:DWORD,:DWORD
Icy_Tag          PROTO :DWORD
StatusTime       PROTO :DWORD,:DWORD,:DWORD
CalcElapsedTime  PROTO :DWORD

qinvoke MACRO function:REQ,p1,p2,p3,p4,p5,p6,p7,p8
                                
   push 0
    FOR arg,<p8,p7,p6,p5,p4,p3,p2,p1>
      IFNB <arg>         ; if not blank
         push arg     ; push parameter
      ENDIF
    ENDM
       call function       
ENDM
   
.const

IDD_DIALOG		equ 1000

;#########################################################################
.data
url             db"http://www.sky.fm/mp3/the80s.pls",0

szBuffering     db "..... %d%%",0
aStreamtitle    db "StreamTitle='",0
szKbs           db " kbs",0
szElapsedTime	db "%0.2lu:%0.2lu",0
aIcyName        db "icy-name:",0
aIcyBr          db "icy-br:",0
szNotPlaying    db "Not playing",0
szNoInfo        db "No meta tags found!",0
szLoadStream    db ".... Loading stream",0
aCanTPlayTheStr db "Can't play the stream",0
szNoSteam       db "No stream...",0
szSteamStopped  db "Stream is stopped...",0
szPlayingStream db "Playing stream...",0

.data?

hInstance	   dd ?
hMain          dd ?
chan           dd ?
_len           dd ?
progress       dd ?
icy            dd ?
hBuffering     dd ?
hBitrate       dd ?
szDoubleQ QWORD ?
szStatusElapsedTime	db 100 dup (?)
StartTime		    dd ?
ElapsedTime		    dd ?
;#########################################################################