11 líneas
405 B

  1. begin
  2. ResultURL :=
  3. 'https://' + Chr(Ord('a') + Random(3)) + '.tile.openstreetmap.org/' +
  4. IntToStr(GetZ-1) + '/' + IntToStr(GetX) + '/' + IntToStr(GetY) + '.png';
  5. RequestHead :=
  6. 'User-Agent: Mozilla/5.0 (Windows NT 6.3; Win64; x64; rv:67.0) Gecko/20100101 Firefox/67.0' + #13#10 +
  7. 'Referer: https://www.openstreetmap.org/' + #13#10 +
  8. 'Accept: image/webp,*/*';
  9. end.