FiveTech Support Forums

*-----------------------------------------------------------------------------
Function TVRadio() // PAINEL PARA SE OUVIR RÁDIOS E ASSISTIR ALGUMAS TV´s
*-----------------------------------------------------------------------------
   Local oDlg, oActiveX, cRadioTv:="http://www.tempofm.com.br/tempofm3.asx"
   if lTV
      MsgAlert("Já existe uma janela de Rádio/TV aberta. Encontre-a com <Alt><Tab>.","Atenção")
      Return nil
   endif
   DEFINE WINDOW oDlg from 1,1 TO 360,430 PIXEL TITLE "(OASyS) Rádios/TV"
   oActiveX := ActivaWMP( oDlg, oActiveX, cRadioTv )
   ToolBar(oDlg, oActiveX)
   MenuRadioTv(oDlg, oActiveX)
   oDlg:Center()
   lTV := .T.
   ACTIVATE WINDOW oDlg VALID ( SysWait(0.1), oActiveX:DO("Stop"), oActiveX:End(), lTV:=.F., .T. )
/*
   DEFINE DIALOG oDlg TITLE "(OASyS) Rádio/Tv" FROM 1,1 TO 360,430 PIXEL
   oDlg:lHelpIcon := .F.
   oDlg:nStyle := nOr( WS_MINIMIZEBOX ,WS_VISIBLE, WS_CAPTION, WS_SYSMENU ) //, WS_THICKFRAME
   ACTIVATE DIALOG oDlg CENTERED NOMODAL;
            ON INIT ( oActiveX := ActivaWMP( oDlg, oActiveX, cRadioTv ), ToolBar(oDlg, oActiveX), MenuRadioTv(oDlg, oActiveX) );
            VALID ( oActiveX:DO( "Stop" ), oActiveX:End(), .T. )
*/
Return nil
*-----------------------------------------------------------------------------
Static Function ActivaWMP( oDlg, oActiveX, cRadioTv )
   oActiveX = TActiveX():New( oDlg, "MediaPlayer.MediaPlayer.1",;
   oDlg:nTop+30, oDlg:nLeft, oDlg:nRight, oDlg:nBottom-50 )
   oActiveX:SetProp( "FileName", cRadioTv )
Return( oActiveX )
*-----------------------------------------------------------------------------
Static Function ToolBar(oDlg, oActiveX)
   Local oToolBar, cTitle:="Rádio Tempo FM", oFont, oFont2
   DEFINE FONT oFont  NAME "Verdana" SIZE 0, -14 BOLD
   DEFINE FONT oFont2 NAME "Verdana" SIZE 0, -08
   DEFINE ButtonBar oToolBar SIZE 50,28 OF oDlg TOP 2007
   @ 002, 002 COMBOBOX cTitle ITEMS {"Rádio Tempo FM",;
                                     "Rádio CBN",;
                                     "Rádio JovemPan FM",;
                                     "Rádio JovemPan AM 620",;
                                     "Rádio Cruzeiro FM 92,3",;
                                     "Tv Rede Brasil",;
                                     "Tv Rai News (Italia)",;
                                     "Escolher Arquivo"} PIXEL OF oToolBar SIZE 250,150 ON CHANGE MudaRadioTV(cTitle, oDlg, oActiveX)
Return nil
*-----------------------------------------------------------------------------
Static Function MudaRadioTV(cTitle, oDlg, oActiveX)
   Local cFile, cString
   oActiveX:DO( "Stop" )
   If     cTitle = "Rádio Tempo FM"
      oActiveX:SetProp("FileName", "http://www.tempofm.com.br/tempofm3.asx", "Rádio Tempo FM" )
   ElseIf cTitle = "Rádio CBN"
      oActiveX:SetProp( "FileName", "http://cbn.globoradio.globo.com/cbn/wma/radiosp/cbn.asx" )
   ElseIf cTitle = "Rádio JovemPan FM"
      oActiveX:SetProp( "FileName", "http://www.dnip.com.br/link/jovempancampinas.wmx" )
   ElseIf cTitle = "Rádio JovemPan AM 620"
      oActiveX:SetProp( "FileName", "mms://p.mm.uol.com.br/ampan" )
   ElseIf cTitle = "Rádio Cruzeiro FM 92,3"
      oActiveX:SetProp( "FileName", "http://www.dnip.com.br/link/radiocruzeiro.wmx" )
   ElseIf cTitle = "Tv Rede Brasil"
      oActiveX:SetProp( "FileName", "mms://rbtv.interrogacaodigital.net/rbtv" )
   ElseIf cTitle = "Tv Cultura"
      oActiveX:SetProp( "FileName", "mms://streaming.net2.com.br/tvcultura" )
   ElseIf cTitle = "Tv Rai News (Italia)"
      oActiveX:SetProp( "FileName", "http://mediapolis.rai.it/relinker/relinkerServlet.htm?cont=1" )
   ElseIf cTitle = "Tv CNTV (Espanhol)"
      oActiveX:SetProp( "FileName", "mms://a1889.l7906023888.c79060.g.lm.akamaistream.net/D/1889/79060/v0001/reflector:23888" )
   ElseIf cTitle = "Rádio Verdes Mares"
      oActiveX:SetProp( "FileName", "http://187.110.226.22:8122" )
   ElseIf cTitle = "Tv CM (Musica Argentina)"
      oActiveX:SetProp( "FileName", "mms://www.cmtv.com.ar:1234" )
   ElseIf cTitle = "Tv Ojos Solidarios (Espanha)"
      oActiveX:SetProp( "FileName", "mms://wm.mad.interhost.com/OjosSolidariosTv" )
   ElseIf cTitle = "Escuta Aerea Salgado Filho-RS"
      oActiveX:SetProp( "FileName", "http://rio.radioetvweb.com.br:8282" )
   ElseIf cTitle = "Escuta Aerea Atlanta Center-USA"
      oActiveX:SetProp( "FileName", "mms://64.5.41.162/center" )
   ElseIf cTitle = "Escuta Aerea ScanACT-Austrália"
      oActiveX:SetProp( "FileName", "http://www.scanact.net/scan.asx" )
   ElseIf cTitle = "Los Angeles Police Scanner"
      oActiveX:SetProp( "FileName", "http://216.66.69.100:3074" )
   ElseIf cTitle = "Las Vegas Police / Fire"
      oActiveX:SetProp( "FileName", "http://lvscanner.no-ip.org:8000")
   ElseIf cTitle = "Coral Springs Police"
      oActiveX:SetProp( "FileName", "http://74.169.219.50:8000")
   ElseIf cTitle = "Rádio Calypso FM 106,7"
      oActiveX:SetProp( "FileName", "mms://zoeweb.tv/zoenet-15")
   ElseIf cTitle = "Rádio Cidade AM 810"
      oActiveX:SetProp( "FileName", "http://www.cidadeam860.com.br/radio/amcidade860.asx")
   ElseIf cTitle = "Rádio FM93"
      oActiveX:SetProp( "FileName", "http://187.110.226.22:8036")
   ElseIf cTitle = "Tv Cristo Vive"
      oActiveX:SetProp( "FileName", "mms://overserver1000.com/tvcristovive3")
   ElseIf cTitle = "Tv Novo Tempo"
      oActiveX:SetProp( "FileName", "mms://strm02.novotempo.org.br/TVNovoTempo-Vivo")
   ElseIf cTitle = "TV Atalainet"
      oActiveX:SetProp( "FileName", "mms://130.94.69.93/Web%20TV%20AtalaiaNET")
   ElseIf cTitle = "CBN News-USA"
      oActiveX:SetProp( "FileName", "mms://cbn-news.wm.llnwd.net/cbn_news")
   ElseIf cTitle = "Express 24-USA"
      oActiveX:SetProp( "FileName", "mms://ams01.egihosting.com/ExpressEnglish")
   ElseIf cTitle = "TVKNOB Education-USA"
      oActiveX:SetProp( "FileName", "mms://streams.tvknob.com/tvloops/Ch9/tvknob.wsx")
   ElseIf cTitle = "TVKNOB Lifestyles-USA"
      oActiveX:SetProp( "FileName", "mms://streams.tvknob.com/tvloops/Ch10/tvknob.wsx")
   ElseIf cTitle = "NBC-USA"
      oActiveX:SetProp( "FileName", "mms://msnbc.wmod.llnwd.net/a275/e1/video/100/vh.asf")
   ElseIf cTitle = "Escolher Arquivo"
      cString := "wav|*.wav|mp4|*.mp4|*.*|*.*|"
      cFile := cGetFile( cString, "Selecione um arquivo",, CurDrive()+":\"+GetCurDir() )
      If "*"$cFile .or. !File(cFile)
         cFile:=""
      Else
         oActiveX:SetProp( "FileName", cFile )
      Endif
   Endif
Return nil
*-----------------------------------------------------------------------------
Static Function MenuRadioTv(oDlg, oActiveX)
   Local oMenu
   MENU oMenu 2007
      MENUITEM "&Rádios"
      MENU
         MENUITEM "&São Paulo"
         MENU
           MENUITEM "Rádio Tempo FM" action MudaRadioTV("Rádio Tempo FM", oDlg, oActiveX)
           MENUITEM "Rádio CBN" action MudaRadioTV("Rádio CBN", oDlg, oActiveX)
           MENUITEM "Rádio JovemPan AM 620" action MudaRadioTV("Rádio JovemPan AM 620", oDlg, oActiveX)
         ENDMENU
         MENUITEM "Cam&pinas"
         MENU
           MENUITEM "Rádio JovemPan FM" action MudaRadioTV("Rádio JovemPan FM", oDlg, oActiveX)
         ENDMENU
         MENUITEM "So&rocaba"
         MENU
           MENUITEM "Rádio Cruzeiro FM 92,3" action MudaRadioTV("Rádio Cruzeiro FM 92,3", oDlg, oActiveX)
         ENDMENU
         MENUITEM "&Ceara"
         MENU
           MENUITEM "Rádio Verdes Mares"  action MudaRadioTV("Rádio Verdes Mares", oDlg, oActiveX)
           MENUITEM "Rádio Calypso FM 106,7" action MudaRadioTV("Rádio Calypso FM 106,7", oDlg, oActiveX)
           MENUITEM "Rádio Cidade AM 810" action MudaRadioTV("Rádio Cidade AM 810", oDlg, oActiveX)
           MENUITEM "Rádio FM93" action MudaRadioTV("Rádio FM93", oDlg, oActiveX)
         ENDMENU
         MENUITEM "&Escuta Aerea/Policia/Bombeiro"
         MENU
           MENUITEM "Escuta Aerea Atlanta Center-USA" action MudaRadioTV("Escuta Aerea Atlanta Center-USA", oDlg, oActiveX)
           MENUITEM "Los Angeles Police Scanner" action MudaRadioTV("Los Angeles Police Scanner", oDlg, oActiveX)
           MENUITEM "Las Vegas Police / Fire" action MudaRadioTV("Las Vegas Police / Fire", oDlg, oActiveX)
           MENUITEM "Coral Springs Police" action MudaRadioTV("Coral Springs Police", oDlg, oActiveX)
         ENDMENU
      ENDMENU
      MENUITEM "&Tvs"
      MENU
         MENUITEM "&Tv Brasil"
         MENU
           MENUITEM "Tv Novo Tempo" action MudaRadioTV("Tv Novo Tempo", oDlg, oActiveX)
           MENUITEM "TV Atalainet" action MudaRadioTV("TV Atalainet", oDlg, oActiveX)
           MENUITEM "Tv Rede Brasil" action MudaRadioTV("Tv Rede Brasil", oDlg, oActiveX)
           MENUITEM "Tv Cultura" action MudaRadioTV("Tv Cultura", oDlg, oActiveX)
         ENDMENU
         MENUITEM "&Tv Internacional"
         MENU
           MENUITEM "Tv Rai News (Italia)" action MudaRadioTV("Tv Rai News (Italia)", oDlg, oActiveX)
           MENUITEM "Tv CNTV (Espanhol)" action MudaRadioTV("Tv CNTV (Espanhol)", oDlg, oActiveX)
           MENUITEM "Tv CM (Musica Argentina)" action MudaRadioTV("Tv CM (Musica Argentina)", oDlg, oActiveX)
           MENUITEM "Tv Ojos Solidarios (Espanha)" action MudaRadioTV("Tv Ojos Solidarios (Espanha)", oDlg, oActiveX)
           MENUITEM "CBN News-USA" action MudaRadioTV("CBN News-USA", oDlg, oActiveX)
           MENUITEM "NBC-USA" action MudaRadioTV("NBC-USA", oDlg, oActiveX)
           MENUITEM "Express 24-USA" action MudaRadioTV("Express 24-USA", oDlg, oActiveX)
           MENUITEM "TVKNOB Education-USA" action MudaRadioTV("TVKNOB Education-USA", oDlg, oActiveX)
           MENUITEM "TVKNOB Lifestyles-USA" action MudaRadioTV("TVKNOB Lifestyles-USA", oDlg, oActiveX)
         ENDMENU
      ENDMENU
   ENDMENU
   oDlg:setmenu(oMenu)
RETURN oMenu