GetUrlScript.txt 508 B

hace 54 años
hace 54 años
hace 54 años
hace 54 años
hace 54 años
123456789101112
  1. begin
  2. GetURLBase[8]:=chr(ord('a')+random(3));
  3. ResultURL:=GetURLBase+'/'+inttostr(GetZ-1)+'/'+inttostr(GetX)+'/'+inttostr(GetY)+'.png';
  4. RequestHead :=
  5. 'User-Agent: Mozilla/5.0 (Windows NT 6.2; WOW64; rv:27.0) Gecko/20100101 Firefox/27.0' + #13#10 +
  6. 'Referer: http://www.openstreetmap.org/' + #13#10 +
  7. 'Cache-Control: max-age=0' + #13#10 +
  8. 'DNT: 1' + #13#10 +
  9. 'Accept-Language: ru-RU,ru;q=0.8,en-US;q=0.5,en;q=0.3' + #13#10 +
  10. 'Accept-Encoding: gzip, deflate';
  11. end.