-----------------------------------

ecliptical

Thu Dec 22, 2005 2:19 am


streamMP3 from the internet

-----------------------------------

I might spend a little more time with this and make a little media player.
Ya I know nothing to special as far as the progress bar is concerned...but i haven't figured that part out yet...and there is also some distortion in the mp3 like with the images..so I suspect Tony was right in that i should do this using binary i'll give it a shoot later..

procedure playMP3
    loop
        Music.PlayFile ("test.mp3")
    end loop
end playMP3

procedure streamMP3 (url : string)
    var count : int := 0
    var progress : int
    var netStream : int
    var net_line : char
    netStream := Net.OpenURLConnection (url)
    if netStream