13 líneas
624 B

  1. begin
  2. ResultURL:=GetUrlBase+inttostr(GetZ-1)+'/'+inttostr(GetZ-1)+'_'+inttostr(GetY)+'_'+inttostr(GetX)+'.jpg';
  3. RequestHead:='User-Agent: Mozilla/5.0 (Windows NT 5.1; rv:2.0) Gecko/20100101 Firefox/4.0' + #13#10 +
  4. 'Accept: image/png,image/*;q=0.8,*/*;q=0.5' + #13#10 +
  5. 'Accept-Language: en-us,en;q=0.5' + #13#10 +
  6. 'Accept-Encoding: gzip, deflate' + #13#10 +
  7. 'Accept-Charset: ISO-8859-1,utf-8;q=0.7,*;q=0.7' + #13#10 +
  8. 'DNT: 1' + #13#10 +
  9. 'Proxy-Connection: keep-alive' + #13#10 +
  10. 'Referer: http://mosday.ru/map/?ll=55.806312,37.512119&z=16&t=h' + #13#10;
  11. end.