BASS_StreamCreateURL(url$,start,flags,save_file$)

stream = OpenTCPStream("66.160.128.50", 8055) ; ein Radio aus der http://www.shoutcast.com/ Liste...

If (stream<>0) Then
   Print "ok:   " + stream
   Print "IP:   " + DottedIP(TCPStreamIP(stream))
   Print "Port: " + TCPStreamPort(stream)
Else
   Print "leider nein"
   End
EndIf

While Not Eof(stream)

   If ReadAvail(stream) > 0 Then
      in = ReadByte(stream)
      Print "_ " + Len(in)
   Else
      Print "kein Empfang"
      Delay 200
   EndIf

Wend

CloseTCPStream(stream)


WaitKey()

stream = OpenTCPStream("205.188.234.3", 8022)

file = WriteFile("test.txt")

countips = CountHostIPs("")

localip$ = DottedIP$(HostIP(countips))


If (stream<>0) Then
   Print "ok:   " + stream
   Print "IP:   " + DottedIP(TCPStreamIP(stream))
   Print "Port: " + TCPStreamPort(stream)
   Print ""
Else
   Print "leider nein, druecke eine beliebige Taste zum Beenden..."
   WaitKey()
   End
EndIf



WriteLine stream,"GET HTTP/1.0"
WriteLine stream,"Host: " + localip$
WriteLine stream,"" ; end of HTTP query




While Not KeyHit(1)

   If KeyHit(1) Then Exit
   
   Print "..."

   stream_len = ReadAvail(stream)
   
   If stream_len > 0 Then
   
      Print "ReadStream... wait..."
      Print ""
   
      For i=1 To stream_len
         
         in = ReadByte(stream)
         
         If in=13 Then
            Print txt$
            txt$=""
         Else
            If in<>10 Then txt$=txt$ + Chr$(in)
         EndIf
         
         WriteByte file, in
         
         

      Next

   Else
   
      Print "kein Empfang"
      Delay 1000
   
   EndIf

Wend



CloseTCPStream(stream)
CloseFile file

End