5 Commits

27 changed files with 343 additions and 11 deletions
Split View
  1. +1
    -1
      GGC/karta_ggc_1km.zmp/GetUrlScript.txt
  2. +3
    -3
      GGC/karta_ggc_250m.zmp/GetUrlScript.txt
  3. +1
    -1
      GGC/karta_ggc_250m_png.zmp/GetUrlScript.txt
  4. +1
    -1
      GGC/karta_ggc_2km.zmp/GetUrlScript.txt
  5. +1
    -1
      GGC/karta_ggc_500m.zmp/GetUrlScript.txt
  6. +1
    -1
      GGC/karta_ggc_all.zmp/GetUrlScript.txt
  7. +3
    -3
      _tourism/Syberia/ergaki_2017.zmp/GetUrlScript.txt
  8. BIN
      _tourism/ukraine/Chernogora 2010.zmp/18.bmp
  9. BIN
      _tourism/ukraine/Chernogora 2010.zmp/24.bmp
  10. +57
    -0
      _tourism/ukraine/Chernogora 2010.zmp/GetUrlScript.txt
  11. +6
    -0
      _tourism/ukraine/Chernogora 2010.zmp/info.txt
  12. +20
    -0
      _tourism/ukraine/Chernogora 2010.zmp/params.txt
  13. BIN
      _tourism/ukraine/Chernogora 2013.zmp/18.bmp
  14. BIN
      _tourism/ukraine/Chernogora 2013.zmp/24.bmp
  15. +57
    -0
      _tourism/ukraine/Chernogora 2013.zmp/GetUrlScript.txt
  16. +6
    -0
      _tourism/ukraine/Chernogora 2013.zmp/info.txt
  17. +20
    -0
      _tourism/ukraine/Chernogora 2013.zmp/params.txt
  18. BIN
      _tourism/ukraine/chornogora-marmarosy_2013.zmp/18.bmp
  19. BIN
      _tourism/ukraine/chornogora-marmarosy_2013.zmp/24.bmp
  20. +57
    -0
      _tourism/ukraine/chornogora-marmarosy_2013.zmp/GetUrlScript.txt
  21. +6
    -0
      _tourism/ukraine/chornogora-marmarosy_2013.zmp/info.txt
  22. +20
    -0
      _tourism/ukraine/chornogora-marmarosy_2013.zmp/params.txt
  23. BIN
      _tourism/ukraine/karpaty2018.zmp/18.bmp
  24. BIN
      _tourism/ukraine/karpaty2018.zmp/24.bmp
  25. +57
    -0
      _tourism/ukraine/karpaty2018.zmp/GetUrlScript.txt
  26. +6
    -0
      _tourism/ukraine/karpaty2018.zmp/info.txt
  27. +20
    -0
      _tourism/ukraine/karpaty2018.zmp/params.txt

+ 1
- 1
GGC/karta_ggc_1km.zmp/GetUrlScript.txt View File

@@ -27,7 +27,7 @@ begin
// Выбор зеркала, если не указана версия
if version = '' then
r := random(2)
r := random(3)
else
r := StrToInt(version);


+ 3
- 3
GGC/karta_ggc_250m.zmp/GetUrlScript.txt View File

@@ -27,10 +27,10 @@ begin
// Выбор зеркала , если не указана версия
if version = '' then
r := random(2)
else
r := random(3)
else
r := StrToInt(version);
case r of
0: BaseUrl := GetURLBase;
1: BaseUrl := RegExprReplaceMatchSubStr(GetURLBase, '91.237.82.95:8088/pub/ggc', 't.caucasia.ru:80');


+ 1
- 1
GGC/karta_ggc_250m_png.zmp/GetUrlScript.txt View File

@@ -27,7 +27,7 @@ begin
// Выбор зеркала, если не указана версия
if version = '' then
r := random(2)
r := random(3)
else
r := StrToInt(version);


+ 1
- 1
GGC/karta_ggc_2km.zmp/GetUrlScript.txt View File

@@ -27,7 +27,7 @@ begin
// Выбор зеркала, если не указана версия
if version = '' then
r := random(2)
r := random(3)
else
r := StrToInt(version);


+ 1
- 1
GGC/karta_ggc_500m.zmp/GetUrlScript.txt View File

@@ -27,7 +27,7 @@ begin
// Выбор зеркала, если не указана версия
if version = '' then
r := random(2)
r := random(3)
else
r := StrToInt(version);


+ 1
- 1
GGC/karta_ggc_all.zmp/GetUrlScript.txt View File

@@ -4,7 +4,7 @@ var
begin
// Выбор зеркала, если не указана версия
if version = '' then
r := random(2)
r := random(3)
else
r := StrToInt(version);


+ 3
- 3
_tourism/Syberia/ergaki_2017.zmp/GetUrlScript.txt View File

@@ -38,11 +38,11 @@ begin

// Проверяем наличие масштаба
if getz > z_ok then begin
code := GetCode(BaseUrl+inttostr(getz)+'/');
code := GetCode(BaseUrl+inttostr(getz-1)+'/');

// Внимание! Если сервер вернёт 403 - code почему-то будет 0. Так что выбор "404 или что-то иное"
// Если дело дошло до проверки наличия масштаба - значит какая-то граница (z_ok / z_no) точно подвинется.
if code = 404 then z_no := getz else z_ok := getz;
if code = 404 then z_no := getz-1 else z_ok := getz-1;

// Сохраняем актуализированные границы для последующих вызовов
ScriptBuffer := inttostr(z_ok) + ';' + inttostr(z_no);
@@ -52,6 +52,6 @@ begin
end;

// Ок, качаем тайлик
ResultURL:= BaseUrl+inttostr(getz-1)+'/'+inttostr(getx)+'/'+inttostr(gety )+'.jpg';
ResultURL:= BaseUrl+inttostr(getz-1)+'/'+inttostr(getx)+'/'+inttostr(gety)+'.jpg';

end.

BIN
_tourism/ukraine/Chernogora 2010.zmp/18.bmp View File

Before After

BIN
_tourism/ukraine/Chernogora 2010.zmp/24.bmp View File

Before After

+ 57
- 0
_tourism/ukraine/Chernogora 2010.zmp/GetUrlScript.txt View File

@@ -0,0 +1,57 @@
function GetCode(const url: AnsiString): Cardinal;
var
VResponseCode: Cardinal;
VResponseHeader, VResponseData: AnsiString;
begin
Result := 1;
if Assigned(Downloader) then begin
VResponseHeader := '';
VResponseData := '';
VResponseCode := Downloader.DoHttpRequest(url, '', '', VResponseHeader, VResponseData);
Result := VResponseCode;
end;
end;

var
BaseUrl: string;
code: Cardinal;
z_ok, z_no: integer;
r: integer;
begin
ResultURL := '';
z_ok := StrToIntDef(GetBefore(';', ScriptBuffer), 1); // Максимальный масштаб, который точно есть
z_no := StrToIntDef(GetAfter(';', ScriptBuffer), 25); // Минимальный масштаб, которого точно нет

// Масштаба нет - говорить не о чем
if getz >= z_no then exit;

// Выбор зеркала, если не указана версия
if version = '' then
r := random(2)
else
r := StrToInt(version);

case r of
0: BaseUrl := GetURLBase;
1: BaseUrl := RegExprReplaceMatchSubStr(GetURLBase, 'http://91.237.82.95:8088', 'https://maps.melda.ru');
end;

// Проверяем наличие масштаба
if getz > z_ok then begin
code := GetCode(BaseUrl+inttostr(getz-1)+'/');

// Внимание! Если сервер вернёт 403 - code почему-то будет 0. Так что выбор "404 или что-то иное"
// Если дело дошло до проверки наличия масштаба - значит какая-то граница (z_ok / z_no) точно подвинется.
if code = 404 then z_no := getz-1 else z_ok := getz-1;

// Сохраняем актуализированные границы для последующих вызовов
ScriptBuffer := inttostr(z_ok) + ';' + inttostr(z_no);

// Масштаба нет (о чём могли только что при проверке узнать) - говорить не о чем
if getz >= z_no then exit;
end;

// Ок, качаем тайлик
ResultURL:= BaseUrl+inttostr(getz-1)+'/'+inttostr(getx)+'/'+inttostr(gety)+'.png';

end.

+ 6
- 0
_tourism/ukraine/Chernogora 2010.zmp/info.txt View File

@@ -0,0 +1,6 @@
Все карты и права из раздела "Туристические" принадлежат их владельцам <br><br>
<br>
<br>скачать готовый кэш можно из облака майл-ру <A href=https://cloud.mail.ru/public/64hJ/Eun9HcSD4>https://cloud.mail.ru/public/64hJ/Eun9HcSD4</a>
<br>
Если у Вас есть чем дополнить этот раздел - смело шлите на ящик garl@mail.ru <br>
<br>

+ 20
- 0
_tourism/ukraine/Chernogora 2010.zmp/params.txt View File

@@ -0,0 +1,20 @@

[PARAMS]
pnum=17
GUID={ac39a79e-04f5-4326-921f-19b2f534c293}
ParentSubMenu_ru=Туристические\Украина
ParentSubMenu_uk=Туристичний\Україна
ParentSubMenu=Hike\Ukraine
name_ru=Черногория 2010
name=Chornogora 2010
DefURLBase=http://91.237.82.95:8088/pub/tourism/ukraine/050_polish_map_Chernogora 2010/
projection=1
sradiusa=6378137
sradiusb=6378137
NameInCache=050_polish_map_Chernogora 2010
Ext=.png
ContentType="image/png"
defaultContentType="image/png"
MaxConnectToServerCount=1
IsUseDownloaderInScript=1
License=(c) Издательство Compass

BIN
_tourism/ukraine/Chernogora 2013.zmp/18.bmp View File

Before After

BIN
_tourism/ukraine/Chernogora 2013.zmp/24.bmp View File

Before After

+ 57
- 0
_tourism/ukraine/Chernogora 2013.zmp/GetUrlScript.txt View File

@@ -0,0 +1,57 @@
function GetCode(const url: AnsiString): Cardinal;
var
VResponseCode: Cardinal;
VResponseHeader, VResponseData: AnsiString;
begin
Result := 1;
if Assigned(Downloader) then begin
VResponseHeader := '';
VResponseData := '';
VResponseCode := Downloader.DoHttpRequest(url, '', '', VResponseHeader, VResponseData);
Result := VResponseCode;
end;
end;

var
BaseUrl: string;
code: Cardinal;
z_ok, z_no: integer;
r: integer;
begin
ResultURL := '';
z_ok := StrToIntDef(GetBefore(';', ScriptBuffer), 1); // Максимальный масштаб, который точно есть
z_no := StrToIntDef(GetAfter(';', ScriptBuffer), 25); // Минимальный масштаб, которого точно нет

// Масштаба нет - говорить не о чем
if getz >= z_no then exit;

// Выбор зеркала, если не указана версия
if version = '' then
r := random(2)
else
r := StrToInt(version);

case r of
0: BaseUrl := GetURLBase;
1: BaseUrl := RegExprReplaceMatchSubStr(GetURLBase, 'http://91.237.82.95:8088', 'https://maps.melda.ru');
end;

// Проверяем наличие масштаба
if getz > z_ok then begin
code := GetCode(BaseUrl+inttostr(getz-1)+'/');

// Внимание! Если сервер вернёт 403 - code почему-то будет 0. Так что выбор "404 или что-то иное"
// Если дело дошло до проверки наличия масштаба - значит какая-то граница (z_ok / z_no) точно подвинется.
if code = 404 then z_no := getz-1 else z_ok := getz-1;

// Сохраняем актуализированные границы для последующих вызовов
ScriptBuffer := inttostr(z_ok) + ';' + inttostr(z_no);

// Масштаба нет (о чём могли только что при проверке узнать) - говорить не о чем
if getz >= z_no then exit;
end;

// Ок, качаем тайлик
ResultURL:= BaseUrl+inttostr(getz-1)+'/'+inttostr(getx)+'/'+inttostr(gety)+'.png';

end.

+ 6
- 0
_tourism/ukraine/Chernogora 2013.zmp/info.txt View File

@@ -0,0 +1,6 @@
Все карты и права из раздела "Туристические" принадлежат их владельцам <br><br>
<br>
<br>скачать готовый кэш можно из облака майл-ру <A href=https://cloud.mail.ru/public/64hJ/Eun9HcSD4>https://cloud.mail.ru/public/64hJ/Eun9HcSD4</a>
<br>
Если у Вас есть чем дополнить этот раздел - смело шлите на ящик garl@mail.ru <br>
<br>

+ 20
- 0
_tourism/ukraine/Chernogora 2013.zmp/params.txt View File

@@ -0,0 +1,20 @@

[PARAMS]
pnum=17
GUID={03db589d-22fc-4b6f-b8ea-8544e4b72063}
ParentSubMenu_ru=Туристические\Украина
ParentSubMenu_uk=Туристичний\Україна
ParentSubMenu=Hike\Ukraine
name_ru=Черногория 2013
name=Chornogora 2013
DefURLBase=http://91.237.82.95:8088/pub/tourism/ukraine/050_polish_map_Chernogora 2013/
projection=1
sradiusa=6378137
sradiusb=6378137
NameInCache=050_polish_map_Chernogora 2013
Ext=.png
ContentType="image/png"
defaultContentType="image/png"
MaxConnectToServerCount=1
IsUseDownloaderInScript=1
License=(c) Издательство Compass

BIN
_tourism/ukraine/chornogora-marmarosy_2013.zmp/18.bmp View File

Before After

BIN
_tourism/ukraine/chornogora-marmarosy_2013.zmp/24.bmp View File

Before After

+ 57
- 0
_tourism/ukraine/chornogora-marmarosy_2013.zmp/GetUrlScript.txt View File

@@ -0,0 +1,57 @@
function GetCode(const url: AnsiString): Cardinal;
var
VResponseCode: Cardinal;
VResponseHeader, VResponseData: AnsiString;
begin
Result := 1;
if Assigned(Downloader) then begin
VResponseHeader := '';
VResponseData := '';
VResponseCode := Downloader.DoHttpRequest(url, '', '', VResponseHeader, VResponseData);
Result := VResponseCode;
end;
end;

var
BaseUrl: string;
code: Cardinal;
z_ok, z_no: integer;
r: integer;
begin
ResultURL := '';
z_ok := StrToIntDef(GetBefore(';', ScriptBuffer), 1); // Максимальный масштаб, который точно есть
z_no := StrToIntDef(GetAfter(';', ScriptBuffer), 25); // Минимальный масштаб, которого точно нет

// Масштаба нет - говорить не о чем
if getz >= z_no then exit;

// Выбор зеркала, если не указана версия
if version = '' then
r := random(2)
else
r := StrToInt(version);

case r of
0: BaseUrl := GetURLBase;
1: BaseUrl := RegExprReplaceMatchSubStr(GetURLBase, 'http://91.237.82.95:8088', 'https://maps.melda.ru');
end;

// Проверяем наличие масштаба
if getz > z_ok then begin
code := GetCode(BaseUrl+inttostr(getz-1)+'/');

// Внимание! Если сервер вернёт 403 - code почему-то будет 0. Так что выбор "404 или что-то иное"
// Если дело дошло до проверки наличия масштаба - значит какая-то граница (z_ok / z_no) точно подвинется.
if code = 404 then z_no := getz-1 else z_ok := getz-1;

// Сохраняем актуализированные границы для последующих вызовов
ScriptBuffer := inttostr(z_ok) + ';' + inttostr(z_no);

// Масштаба нет (о чём могли только что при проверке узнать) - говорить не о чем
if getz >= z_no then exit;
end;

// Ок, качаем тайлик
ResultURL:= BaseUrl+inttostr(getz-1)+'/'+inttostr(getx)+'/'+inttostr(gety)+'.png';

end.

+ 6
- 0
_tourism/ukraine/chornogora-marmarosy_2013.zmp/info.txt View File

@@ -0,0 +1,6 @@
Все карты и права из раздела "Туристические" принадлежат их владельцам <br><br>
<br>
<br>скачать готовый кэш можно из облака майл-ру <A href=https://cloud.mail.ru/public/64hJ/Eun9HcSD4>https://cloud.mail.ru/public/64hJ/Eun9HcSD4</a>
<br>
Если у Вас есть чем дополнить этот раздел - смело шлите на ящик garl@mail.ru <br>
<br>

+ 20
- 0
_tourism/ukraine/chornogora-marmarosy_2013.zmp/params.txt View File

@@ -0,0 +1,20 @@

[PARAMS]
pnum=17
GUID={0db919ef-beaf-448a-8e90-7ddf2fb5a9da}
ParentSubMenu_ru=Туристические\Украина
ParentSubMenu_uk=Туристичний\Україна
ParentSubMenu=Hike\Ukraine
name_ru=Карта Черногора и Мармаросы
name=Chornogora-Marmarosy
DefURLBase=http://91.237.82.95:8088/pub/tourism/ukraine/050_chornogora-marmarosy_2013/
projection=1
sradiusa=6378137
sradiusb=6378137
NameInCache=050_chornogora-marmarosy_2013
Ext=.png
ContentType="image/png"
defaultContentType="image/png"
MaxConnectToServerCount=1
IsUseDownloaderInScript=1
License=(c) Издательство Aurius

BIN
_tourism/ukraine/karpaty2018.zmp/18.bmp View File

Before After

BIN
_tourism/ukraine/karpaty2018.zmp/24.bmp View File

Before After

+ 57
- 0
_tourism/ukraine/karpaty2018.zmp/GetUrlScript.txt View File

@@ -0,0 +1,57 @@
function GetCode(const url: AnsiString): Cardinal;
var
VResponseCode: Cardinal;
VResponseHeader, VResponseData: AnsiString;
begin
Result := 1;
if Assigned(Downloader) then begin
VResponseHeader := '';
VResponseData := '';
VResponseCode := Downloader.DoHttpRequest(url, '', '', VResponseHeader, VResponseData);
Result := VResponseCode;
end;
end;

var
BaseUrl: string;
code: Cardinal;
z_ok, z_no: integer;
r: integer;
begin
ResultURL := '';
z_ok := StrToIntDef(GetBefore(';', ScriptBuffer), 1); // Максимальный масштаб, который точно есть
z_no := StrToIntDef(GetAfter(';', ScriptBuffer), 25); // Минимальный масштаб, которого точно нет

// Масштаба нет - говорить не о чем
if getz >= z_no then exit;

// Выбор зеркала, если не указана версия
if version = '' then
r := random(2)
else
r := StrToInt(version);

case r of
0: BaseUrl := GetURLBase;
1: BaseUrl := RegExprReplaceMatchSubStr(GetURLBase, 'http://91.237.82.95:8088', 'https://maps.melda.ru');
end;

// Проверяем наличие масштаба
if getz > z_ok then begin
code := GetCode(BaseUrl+inttostr(getz-1)+'/');

// Внимание! Если сервер вернёт 403 - code почему-то будет 0. Так что выбор "404 или что-то иное"
// Если дело дошло до проверки наличия масштаба - значит какая-то граница (z_ok / z_no) точно подвинется.
if code = 404 then z_no := getz-1 else z_ok := getz-1;

// Сохраняем актуализированные границы для последующих вызовов
ScriptBuffer := inttostr(z_ok) + ';' + inttostr(z_no);

// Масштаба нет (о чём могли только что при проверке узнать) - говорить не о чем
if getz >= z_no then exit;
end;

// Ок, качаем тайлик
ResultURL:= BaseUrl+inttostr(getz-1)+'/'+inttostr(getx)+'/'+inttostr(gety)+'.png';

end.

+ 6
- 0
_tourism/ukraine/karpaty2018.zmp/info.txt View File

@@ -0,0 +1,6 @@
Все карты и права из раздела "Туристические" принадлежат их владельцам <br><br>
<br>
<br>скачать готовый кэш можно из облака майл-ру <A href=https://cloud.mail.ru/public/64hJ/Eun9HcSD4>https://cloud.mail.ru/public/64hJ/Eun9HcSD4</a>
<br>
Если у Вас есть чем дополнить этот раздел - смело шлите на ящик garl@mail.ru <br>
<br>

+ 20
- 0
_tourism/ukraine/karpaty2018.zmp/params.txt View File

@@ -0,0 +1,20 @@

[PARAMS]
pnum=17
GUID={8debebc0-b593-49f5-8046-53339fcf7044}
ParentSubMenu_ru=Туристические\Украина
ParentSubMenu_uk=Туристичний\Україна
ParentSubMenu=Hike\Ukraine
name_ru=Карпаты 500м
name=Chornogora-Marmarosy
DefURLBase=http://91.237.82.95:8088/pub/tourism/ukraine/050_karpaty2018/
projection=1
sradiusa=6378137
sradiusb=6378137
NameInCache=050_karpaty2018
Ext=.png
ContentType="image/png"
defaultContentType="image/png"
MaxConnectToServerCount=1
IsUseDownloaderInScript=1
License=(c) Издательство Стежки та мапи

Loading…
Cancel
Save