unit cddbupdate; interface uses idHttp,global,classes,sysutils; function getfreedbserver : boolean; implementation function getfreedbserver : boolean; var cli : TidHttp; res : Tmemorystream; failed : boolean; serv,cgi : array [0..512] of char; begin failed:=false; res:=tmemorystream.create; cli:=tidhttp.Create(nil); try cli.get('http://myjukebox.co.uk/kiosk/cddb.php?server=1',res); except failed:=true; end; fillchar(serv,sizeof(serv),0); res.seek(0,soFromBeginning); res.read(serv,res.size); res.clear; try cli.get('http://myjukebox.co.uk/kiosk/cddb.php?cgi=1',res); except failed:=true; end; fillchar(cgi,sizeof(cgi),0); res.seek(0,soFromBeginning); res.read(cgi,res.size); if (serv<>'') and (cgi<>'') then begin config.cddbserver:=trim(serv); config.cddbcgi:=trim(cgi); end; cli.free; res.free; result:=failed; end; end.