Forum Guidelines

This forum is for finished source code that is working properly. If you have questions about this or any other source code, please post it in one of the Discussion Forums, not here.
See more
See less


  • Filter
  • Time
  • Show
Clear All
new posts

  • gbRadio

    Here's code for a short application, gbRadio, which plays internet radio stations. Discussion is here.

    EXE and BAS are here.

    Well, actually it calls up the default player for .pls files, which on my PC is MPC-HC. MPC-HC responds to %WS_ShowMinimized in ShellExecute() and will shut down with SendMessage(hWin,%WM_SysCommand, %SC_Close,0). I get the app hWin by using FindWIndow for the class "MediaPlayerClassicW", If you have a different default player you might have to make some changes to the code, or set your PC to a new default pls player.

    Instead of including *.pls files, I hardcode the radio stations to avoid having to distribute pls files. When station is played, I create "temp.pls" to feed to the default pls player.

    Press Play or double-click a station to play it.

    Stop and closing the app shuts down the external player.

    Escape will close the app.

    Volume control buttons are provided

    Click image for larger version  Name:	pb_2295.jpg Views:	0 Size:	20.7 KB ID:	816750

    'Compilable Example:
    [HASHTAG="t812"]compiler[/HASHTAG] PBWin 10
    [HASHTAG="t493"]compile[/HASHTAG] Exe "gbradio.exe"
    [HASHTAG="t742"]dim[/HASHTAG] All
    %Unicode = 1
    $Ver = "1.0"
    $AppClass = "MediaPlayerClassicW"
    [HASHTAG="t985"]include[/HASHTAG] ""
    Enum Equates Singular
    IDC_ListView = 500
    End Enum
    Global hDlg, hIcon As Dword
    Function PBMain() As Long
    Dialog Default Font "Arial Black", 16, 1
    Dialog New Pixels, 0, "gbRadio v" + $Ver + " Internet Radio Player",300,300,700,400, %WS_OverlappedWindow To hDlg
    Control Add Button, hDlg, %IDT_Play, "Play", 10,10,75,30
    Control Add Button, hDlg, %IDT_Stop, "Stop", 95,10,75,30
    Control Add Button, hDlg, %IDT_Louder, "Louder", 180,10,90,30
    Control Add Button, hDlg, %IDT_Softer, "Softer", 280,10,90,30
    Control Add ListView, hDlg, %IDC_ListView,"", 10,50,350,200
    ListView Set StyleXX hDlg, %IDC_ListView, %LVS_Ex_FullRowSelect Or %LVS_Ex_GridLines
    ListView Insert Column hDlg, %IDC_ListView, 1, "Category", 130,0
    ListView Insert Column hDlg, %IDC_ListView, 2, "Radio Station", 250,0
    Dialog Show Modal hDlg Call DlgProc
    End Function
    CallBack Function DlgProc() As Long
    Local w,h As Long
    Select Case Cb.Msg
    Case %WM_InitDialog
    hIcon = LoadIcon(ByVal %Null, ByVal %IDI_Shield) 'use a system icon for the dialog
    SendMessage hDlg, %WM_SetIcon, %ICON_BIG, hIcon 'use a system icon for the dialog
    Case %WM_ContextMenu
    Case %WM_Command
    Select Case Cb.Ctl
    Case %IdCancel : Dialog End hDlg 'Escape will close the app
    Case %IDT_Play : StopWindowsMediaPlayer : PlayRadio
    Case %IDT_Stop : StopWindowsMediaPlayer
    Case %IDT_Louder : keybd_event %VK_VOLUME_UP, 0, 1, 0
    Case %IDT_Softer : keybd_event %VK_VOLUME_DOWN, 0, 1, 0
    End Select
    Case %WM_Notify
    Select Case Cb.NmId
    Case %IDC_ListView
    Select Case Cb.NmCode
    Case %NM_DblClk
    End Select
    End Select
    Case %WM_Destroy
    Case %WM_Size
    Dialog Get Client hDlg To w,h
    Control Set Size hDlg, %IDC_Listview, w-20,h-60
    ListView Set Column hDlg, %IDC_Listview, 2, w-120
    End Select
    End Function
    Sub PlayRadio
    Local iRow, iResult As Long, RadioURL As WStringZ * %Max_Path
    ListView Get Select hDlg, %IDC_ListView To iRow
    ListView Get Text hDlg, %IDC_ListView, iRow, 2 To RadioURL
    Open "temp.pls" For Output As [NODE="1"]PowerBASIC[/NODE]
    Print #1, "[playlist]" + $CrLf + "NumberOfEntries=1" + $CrLf + "File1=" + RadioURL
    Close [NODE="1"]PowerBASIC[/NODE]
    iResult = ShellExecute(hDlg, "Open", ("temp.pls"), $Nul, $Nul, %SW_ShowMinimized)
    End Sub
    Sub StopWindowsMediaPlayer
    Local hWin As Dword
    Local wName As WStringZ * %Max_Path
    hWin = FindWindow($AppClass, ByVal %Null)
    SendMessage hWin, %WM_SysCommand, %SC_Close, 0
    End Sub
    Sub LoadStations
    ListView Insert Item hDlg, %IDC_ListView, 1, 0, "Talk"
    ListView Set Text hDlg, %IDC_Listview, 1, 2, ""
    ListView Insert Item hDlg, %IDC_ListView, 2, 0, "Country"
    ListView Set Text hDlg, %IDC_Listview, 2, 2, ""
    End Sub