You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.

GetUrlScript.txt 2.2 KiB

54 vuotta sitten
54 vuotta sitten
54 vuotta sitten
54 vuotta sitten
54 vuotta sitten
54 vuotta sitten
54 vuotta sitten
54 vuotta sitten
54 vuotta sitten
54 vuotta sitten
54 vuotta sitten
54 vuotta sitten
54 vuotta sitten
54 vuotta sitten
54 vuotta sitten
54 vuotta sitten
54 vuotta sitten
54 vuotta sitten
54 vuotta sitten
54 vuotta sitten
54 vuotta sitten
54 vuotta sitten
54 vuotta sitten
54 vuotta sitten
54 vuotta sitten
54 vuotta sitten
12345678910111213141516171819202122232425262728293031323334353637383940414243444546474849505152535455565758596061626364656667686970717273747576777879
  1. {-----------------------------------------------
  2. ImageProperties.xml
  3. ------------------------------------------------}
  4. const
  5. m_nWidth = 9910;
  6. m_nHeight = 7476;
  7. var
  8. i, zoom, nMaxZoom, nTileGroup :Longint;
  9. {-----------------------------------------------
  10. floor
  11. ------------------------------------------------}
  12. function Floor(v :Extended) :Extended;
  13. begin
  14. Result := Trunc(v);
  15. if v < Result then Result := Result - 1.0;
  16. end;
  17. {-----------------------------------------------
  18. ceil
  19. ------------------------------------------------}
  20. function Ceil(v :Extended) :Extended;
  21. begin
  22. Result := Trunc(v);
  23. if v > Result then Result := Result + 1.0;
  24. end;
  25. {-----------------------------------------------
  26. Zoom'
  27. ------------------------------------------------}
  28. procedure GetMaxZoom();
  29. var k, i :Longint;
  30. begin
  31. k := m_nWidth;
  32. if m_nHeight > m_nWidth then k := m_nHeight;
  33. i := 0;
  34. while k > 256 do
  35. begin
  36. k := Trunc(k / 2);
  37. Inc(i);
  38. end;
  39. nMaxZoom := i;
  40. end;
  41. {-----------------------------------------------
  42. Zoom'
  43. ------------------------------------------------}
  44. function GetTilesAtZoom(zoom: Longint) :Longint;
  45. var k :Extended;
  46. begin
  47. k := 256.0 * IntPower(2, nMaxZoom - zoom);
  48. Result := Trunc(Ceil(m_nWidth / k) * Ceil(m_nHeight / k));
  49. end;
  50. {-----------------------------------------------
  51. Zoom'
  52. ------------------------------------------------}
  53. function GetTilesCount(nZoom: Longint) :Longint;
  54. var i: Longint;
  55. begin
  56. Result := 0;
  57. for i := 0 to nZoom - 1 do Result := Result + GetTilesAtZoom(i);
  58. end;
  59. {-----------------------------------------------
  60. URL
  61. ------------------------------------------------}
  62. begin
  63. zoom := GetZ - 1;
  64. GetMaxZoom();
  65. nTileGroup := (GetX + GetY * Trunc(Ceil(m_nWidth / (256.0 * IntPower(2, nMaxZoom - zoom)))) + GetTilesCount(zoom)) div 256;
  66. ResultURL := GetURLBase + IntToStr(nTileGroup) + '/' + IntToStr(zoom) + '-' + IntToStr(GetX) + '-' + IntToStr(GetY) + '.jpg';
  67. { RequestHead := 'Accept: text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8' + #13#10; }
  68. end.