hc.Initialize("hc")' OkHttpClient
Dim req As OkHttpRequest
req.InitializeGet("http://185.23.192.118:8008/;")
req.SetHeader("Icy-MetaData", "1")
req.SetHeader("Connection", "close")
req.SetHeader("Accept", Null)
hc.Execute(req,0)
Private Sub hc_ResponseSuccess (Response As OkHttpResponse, TaskId As Int)
Log(Response.ContentType)'<---- return audio/mpeg
Log(Response.GetHeaders)'<---- return map headers
End If
(MyMap) {accept-ranges=[none], access-control-allow-origin=[*], cache-control=[no-cache,no-store,must-revalidate,max-age=0], connection=[close], content-type=[audio/mpeg], icy-br=[128], icy-genre=[folk latina latin], icy-metaint=[32768], icy-name=[RADIO CHANQUETE MALAGA (www.chanquetefm.com) ANDALUCIA ESPANA SPAIN ESPANOL], icy-notice1=[<BR>This stream requires <a href="http://www.winamp.com">Winamp</a><BR>], icy-notice2=[SHOUTcast DNAS/posix(linux x86) v2.5.5.733<BR>], icy-pub=[1], icy-sr=[44100], icy-url=[http://www.chanquetefm.com], x-clacks-overhead=[GNU Terry Pratchett]}