diff --git a/Genshtab/gsh_500m_new.zmp/GetUrlScript.txt b/Genshtab/gsh_500m_new.zmp/GetUrlScript.txt index 52c6241d1..9bf49b2e7 100644 --- a/Genshtab/gsh_500m_new.zmp/GetUrlScript.txt +++ b/Genshtab/gsh_500m_new.zmp/GetUrlScript.txt @@ -13,10 +13,8 @@ begin end; var - BaseUrl: string; code: Cardinal; z_ok, z_no: integer; - r: integer; begin ResultURL := ''; z_ok := StrToIntDef(GetBefore(';', ScriptBuffer), 1); // Максимальный масштаб, который точно есть @@ -25,21 +23,9 @@ begin // Масштаба нет - говорить не о чем if getz >= z_no then exit; - // Выбор зеркала, если не указана версия - if version = '' then - r := random(3) - else - r := StrToInt(version); - - case r of - 0: BaseUrl := GetURLBase; - 1: BaseUrl := RegExprReplaceMatchSubStr(GetURLBase, 'http://91.237.82.95:8088', 'https://maps.melda.ru'); - 2: BaseUrl := RegExprReplaceMatchSubStr(GetURLBase, '91.237.82.95:8088/pub/genshtab', 't.caucasia.ru:80'); - end; - // Проверяем наличие масштаба if getz > z_ok then begin - code := GetCode(BaseUrl+'z'+inttostr(getz)+'/'); + code := GetCode(GetUrlBase+'z'+inttostr(getz)+'/'); // Внимание! Если сервер вернёт 403 - code почему-то будет 0. Так что выбор "404 или что-то иное" // Если дело дошло до проверки наличия масштаба - значит какая-то граница (z_ok / z_no) точно подвинется. @@ -53,5 +39,5 @@ begin end; // Ок, качаем тайлик - ResultURL:= BaseUrl+'z'+inttostr(getz)+'/'+inttostr(getx div 1024)+'/x'+inttostr(getx)+'/'+inttostr(gety div 1024)+'/y'+inttostr(gety)+'.jpg'; + ResultURL:= GetUrlBase+'z'+inttostr(getz)+'/'+inttostr(getx div 1024)+'/x'+inttostr(getx)+'/'+inttostr(gety div 1024)+'/y'+inttostr(gety)+'.jpg'; end. diff --git a/Genshtab/gsh_500m_new.zmp/params.txt b/Genshtab/gsh_500m_new.zmp/params.txt index d5b4fd94e..d62b52bab 100644 --- a/Genshtab/gsh_500m_new.zmp/params.txt +++ b/Genshtab/gsh_500m_new.zmp/params.txt @@ -9,7 +9,7 @@ name_ru=Генштаб 500м (1999-2010) name=Genshtab 500m (1999-2010) name_uk=Генштаб 500м (1999-2010) NameInCache=genshtab500m_new -DefURLBase=http://91.237.82.95:8088/pub/genshtab/500m.new/ +DefURLBase=https://maps.melda.ru/pub/genshtab/500m.new/ defaultContentType=image/jpeg Ext=.jpg projection=1 diff --git a/Genshtab/karta_gsh_10km.zmp/GetUrlScript.txt b/Genshtab/karta_gsh_10km.zmp/GetUrlScript.txt index 52c6241d1..9bf49b2e7 100644 --- a/Genshtab/karta_gsh_10km.zmp/GetUrlScript.txt +++ b/Genshtab/karta_gsh_10km.zmp/GetUrlScript.txt @@ -13,10 +13,8 @@ begin end; var - BaseUrl: string; code: Cardinal; z_ok, z_no: integer; - r: integer; begin ResultURL := ''; z_ok := StrToIntDef(GetBefore(';', ScriptBuffer), 1); // Максимальный масштаб, который точно есть @@ -25,21 +23,9 @@ begin // Масштаба нет - говорить не о чем if getz >= z_no then exit; - // Выбор зеркала, если не указана версия - if version = '' then - r := random(3) - else - r := StrToInt(version); - - case r of - 0: BaseUrl := GetURLBase; - 1: BaseUrl := RegExprReplaceMatchSubStr(GetURLBase, 'http://91.237.82.95:8088', 'https://maps.melda.ru'); - 2: BaseUrl := RegExprReplaceMatchSubStr(GetURLBase, '91.237.82.95:8088/pub/genshtab', 't.caucasia.ru:80'); - end; - // Проверяем наличие масштаба if getz > z_ok then begin - code := GetCode(BaseUrl+'z'+inttostr(getz)+'/'); + code := GetCode(GetUrlBase+'z'+inttostr(getz)+'/'); // Внимание! Если сервер вернёт 403 - code почему-то будет 0. Так что выбор "404 или что-то иное" // Если дело дошло до проверки наличия масштаба - значит какая-то граница (z_ok / z_no) точно подвинется. @@ -53,5 +39,5 @@ begin end; // Ок, качаем тайлик - ResultURL:= BaseUrl+'z'+inttostr(getz)+'/'+inttostr(getx div 1024)+'/x'+inttostr(getx)+'/'+inttostr(gety div 1024)+'/y'+inttostr(gety)+'.jpg'; + ResultURL:= GetUrlBase+'z'+inttostr(getz)+'/'+inttostr(getx div 1024)+'/x'+inttostr(getx)+'/'+inttostr(gety div 1024)+'/y'+inttostr(gety)+'.jpg'; end. diff --git a/Genshtab/karta_gsh_10km.zmp/params.txt b/Genshtab/karta_gsh_10km.zmp/params.txt index 438f87ad8..c0b5eebd6 100644 --- a/Genshtab/karta_gsh_10km.zmp/params.txt +++ b/Genshtab/karta_gsh_10km.zmp/params.txt @@ -9,7 +9,7 @@ name_ru=Генштаб 10 км name=Genshtab 10 km name_uk=Генштаб 10 км NameInCache=Genshtab10km -DefURLBase=http://91.237.82.95:8088/pub/genshtab/10km/ +DefURLBase=https://maps.melda.ru/pub/genshtab/10km/ Ext=.jpg projection=1 sradiusa=6378137 diff --git a/Genshtab/karta_gsh_1km.zmp/GetUrlScript.txt b/Genshtab/karta_gsh_1km.zmp/GetUrlScript.txt index d60778df3..9bf49b2e7 100644 --- a/Genshtab/karta_gsh_1km.zmp/GetUrlScript.txt +++ b/Genshtab/karta_gsh_1km.zmp/GetUrlScript.txt @@ -13,10 +13,8 @@ begin end; var - BaseUrl: string; code: Cardinal; z_ok, z_no: integer; - r: integer; begin ResultURL := ''; z_ok := StrToIntDef(GetBefore(';', ScriptBuffer), 1); // Максимальный масштаб, который точно есть @@ -25,22 +23,9 @@ begin // Масштаба нет - говорить не о чем 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'); -// until dont update maps repo -// 2: BaseUrl := RegExprReplaceMatchSubStr(GetURLBase, '91.237.82.95:8088/pub/genshtab', 't.caucasia.ru:80'); - end; - // Проверяем наличие масштаба if getz > z_ok then begin - code := GetCode(BaseUrl+'z'+inttostr(getz)+'/'); + code := GetCode(GetUrlBase+'z'+inttostr(getz)+'/'); // Внимание! Если сервер вернёт 403 - code почему-то будет 0. Так что выбор "404 или что-то иное" // Если дело дошло до проверки наличия масштаба - значит какая-то граница (z_ok / z_no) точно подвинется. @@ -54,5 +39,5 @@ begin end; // Ок, качаем тайлик - ResultURL:= BaseUrl+'z'+inttostr(getz)+'/'+inttostr(getx div 1024)+'/x'+inttostr(getx)+'/'+inttostr(gety div 1024)+'/y'+inttostr(gety)+'.jpg'; + ResultURL:= GetUrlBase+'z'+inttostr(getz)+'/'+inttostr(getx div 1024)+'/x'+inttostr(getx)+'/'+inttostr(gety div 1024)+'/y'+inttostr(gety)+'.jpg'; end. diff --git a/Genshtab/karta_gsh_1km.zmp/params.txt b/Genshtab/karta_gsh_1km.zmp/params.txt index e6f17c85a..7749ec988 100644 --- a/Genshtab/karta_gsh_1km.zmp/params.txt +++ b/Genshtab/karta_gsh_1km.zmp/params.txt @@ -9,7 +9,7 @@ name_ru=Генштаб 1 км name=Genshtab 1 km name_uk=Генштаб 1 км NameInCache=genshtab1km -DefURLBase=http://91.237.82.95:8088/pub/genshtab/1km/ +DefURLBase=https://maps.melda.ru/pub/genshtab/1km/ defaultContentType=image/jpeg IgnoreContentType=1 Ext=.jpg diff --git a/Genshtab/karta_gsh_20km.zmp/GetUrlScript.txt b/Genshtab/karta_gsh_20km.zmp/GetUrlScript.txt index 607d9e8f1..9bf49b2e7 100644 --- a/Genshtab/karta_gsh_20km.zmp/GetUrlScript.txt +++ b/Genshtab/karta_gsh_20km.zmp/GetUrlScript.txt @@ -13,10 +13,8 @@ begin end; var - BaseUrl: string; code: Cardinal; z_ok, z_no: integer; - r: integer; begin ResultURL := ''; z_ok := StrToIntDef(GetBefore(';', ScriptBuffer), 1); // Максимальный масштаб, который точно есть @@ -25,20 +23,9 @@ begin // Масштаба нет - говорить не о чем 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+'z'+inttostr(getz)+'/'); + code := GetCode(GetUrlBase+'z'+inttostr(getz)+'/'); // Внимание! Если сервер вернёт 403 - code почему-то будет 0. Так что выбор "404 или что-то иное" // Если дело дошло до проверки наличия масштаба - значит какая-то граница (z_ok / z_no) точно подвинется. @@ -52,5 +39,5 @@ begin end; // Ок, качаем тайлик - ResultURL:= BaseUrl+'z'+inttostr(getz)+'/'+inttostr(getx div 1024)+'/x'+inttostr(getx)+'/'+inttostr(gety div 1024)+'/y'+inttostr(gety)+'.jpg'; + ResultURL:= GetUrlBase+'z'+inttostr(getz)+'/'+inttostr(getx div 1024)+'/x'+inttostr(getx)+'/'+inttostr(gety div 1024)+'/y'+inttostr(gety)+'.jpg'; end. diff --git a/Genshtab/karta_gsh_20km.zmp/params.txt b/Genshtab/karta_gsh_20km.zmp/params.txt index 74e0f1c21..dd7eab1c5 100644 --- a/Genshtab/karta_gsh_20km.zmp/params.txt +++ b/Genshtab/karta_gsh_20km.zmp/params.txt @@ -9,7 +9,7 @@ name_ru=Генштаб 20 км name=Genshtab 20 km name_uk=Генштаб 20 км NameInCache=Genshtab20km -DefURLBase=http://91.237.82.95:8088/pub/genshtab/20km/ +DefURLBase=https://maps.melda.ru/pub/genshtab/20km/ Ext=.jpg projection=1 sradiusa=6378137 diff --git a/Genshtab/karta_gsh_250m.zmp/GetUrlScript.txt b/Genshtab/karta_gsh_250m.zmp/GetUrlScript.txt index 607d9e8f1..9bf49b2e7 100644 --- a/Genshtab/karta_gsh_250m.zmp/GetUrlScript.txt +++ b/Genshtab/karta_gsh_250m.zmp/GetUrlScript.txt @@ -13,10 +13,8 @@ begin end; var - BaseUrl: string; code: Cardinal; z_ok, z_no: integer; - r: integer; begin ResultURL := ''; z_ok := StrToIntDef(GetBefore(';', ScriptBuffer), 1); // Максимальный масштаб, который точно есть @@ -25,20 +23,9 @@ begin // Масштаба нет - говорить не о чем 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+'z'+inttostr(getz)+'/'); + code := GetCode(GetUrlBase+'z'+inttostr(getz)+'/'); // Внимание! Если сервер вернёт 403 - code почему-то будет 0. Так что выбор "404 или что-то иное" // Если дело дошло до проверки наличия масштаба - значит какая-то граница (z_ok / z_no) точно подвинется. @@ -52,5 +39,5 @@ begin end; // Ок, качаем тайлик - ResultURL:= BaseUrl+'z'+inttostr(getz)+'/'+inttostr(getx div 1024)+'/x'+inttostr(getx)+'/'+inttostr(gety div 1024)+'/y'+inttostr(gety)+'.jpg'; + ResultURL:= GetUrlBase+'z'+inttostr(getz)+'/'+inttostr(getx div 1024)+'/x'+inttostr(getx)+'/'+inttostr(gety div 1024)+'/y'+inttostr(gety)+'.jpg'; end. diff --git a/Genshtab/karta_gsh_250m.zmp/params.txt b/Genshtab/karta_gsh_250m.zmp/params.txt index 0102dc554..c7313bcce 100644 --- a/Genshtab/karta_gsh_250m.zmp/params.txt +++ b/Genshtab/karta_gsh_250m.zmp/params.txt @@ -9,7 +9,7 @@ name_ru=Генштаб 250 м name=Genshtab 250 m name_uk=Генштаб 250 м NameInCache=genshtab.250m -DefURLBase=http://91.237.82.95:8088/pub/genshtab/250m/ +DefURLBase=https://maps.melda.ru/pub/genshtab/250m/ defaultContentType=image/jpeg IgnoreContentType=1 Ext=.jpg diff --git a/Genshtab/karta_gsh_2km.zmp/GetUrlScript.txt b/Genshtab/karta_gsh_2km.zmp/GetUrlScript.txt index 52c6241d1..9bf49b2e7 100644 --- a/Genshtab/karta_gsh_2km.zmp/GetUrlScript.txt +++ b/Genshtab/karta_gsh_2km.zmp/GetUrlScript.txt @@ -13,10 +13,8 @@ begin end; var - BaseUrl: string; code: Cardinal; z_ok, z_no: integer; - r: integer; begin ResultURL := ''; z_ok := StrToIntDef(GetBefore(';', ScriptBuffer), 1); // Максимальный масштаб, который точно есть @@ -25,21 +23,9 @@ begin // Масштаба нет - говорить не о чем if getz >= z_no then exit; - // Выбор зеркала, если не указана версия - if version = '' then - r := random(3) - else - r := StrToInt(version); - - case r of - 0: BaseUrl := GetURLBase; - 1: BaseUrl := RegExprReplaceMatchSubStr(GetURLBase, 'http://91.237.82.95:8088', 'https://maps.melda.ru'); - 2: BaseUrl := RegExprReplaceMatchSubStr(GetURLBase, '91.237.82.95:8088/pub/genshtab', 't.caucasia.ru:80'); - end; - // Проверяем наличие масштаба if getz > z_ok then begin - code := GetCode(BaseUrl+'z'+inttostr(getz)+'/'); + code := GetCode(GetUrlBase+'z'+inttostr(getz)+'/'); // Внимание! Если сервер вернёт 403 - code почему-то будет 0. Так что выбор "404 или что-то иное" // Если дело дошло до проверки наличия масштаба - значит какая-то граница (z_ok / z_no) точно подвинется. @@ -53,5 +39,5 @@ begin end; // Ок, качаем тайлик - ResultURL:= BaseUrl+'z'+inttostr(getz)+'/'+inttostr(getx div 1024)+'/x'+inttostr(getx)+'/'+inttostr(gety div 1024)+'/y'+inttostr(gety)+'.jpg'; + ResultURL:= GetUrlBase+'z'+inttostr(getz)+'/'+inttostr(getx div 1024)+'/x'+inttostr(getx)+'/'+inttostr(gety div 1024)+'/y'+inttostr(gety)+'.jpg'; end. diff --git a/Genshtab/karta_gsh_2km.zmp/params.txt b/Genshtab/karta_gsh_2km.zmp/params.txt index e2c102076..277223784 100644 --- a/Genshtab/karta_gsh_2km.zmp/params.txt +++ b/Genshtab/karta_gsh_2km.zmp/params.txt @@ -9,7 +9,7 @@ name_ru=Генштаб 2 км name=Genshtab 2 km name_uk=Генштаб 2 км NameInCache=Genshtab2km -DefURLBase=http://91.237.82.95:8088/pub/genshtab/2km/ +DefURLBase=https://maps.melda.ru/pub/genshtab/2km/ Ext=.jpg projection=1 sradiusa=6378137 diff --git a/Genshtab/karta_gsh_2km_new.zmp/GetUrlScript.txt b/Genshtab/karta_gsh_2km_new.zmp/GetUrlScript.txt index 52c6241d1..9bf49b2e7 100644 --- a/Genshtab/karta_gsh_2km_new.zmp/GetUrlScript.txt +++ b/Genshtab/karta_gsh_2km_new.zmp/GetUrlScript.txt @@ -13,10 +13,8 @@ begin end; var - BaseUrl: string; code: Cardinal; z_ok, z_no: integer; - r: integer; begin ResultURL := ''; z_ok := StrToIntDef(GetBefore(';', ScriptBuffer), 1); // Максимальный масштаб, который точно есть @@ -25,21 +23,9 @@ begin // Масштаба нет - говорить не о чем if getz >= z_no then exit; - // Выбор зеркала, если не указана версия - if version = '' then - r := random(3) - else - r := StrToInt(version); - - case r of - 0: BaseUrl := GetURLBase; - 1: BaseUrl := RegExprReplaceMatchSubStr(GetURLBase, 'http://91.237.82.95:8088', 'https://maps.melda.ru'); - 2: BaseUrl := RegExprReplaceMatchSubStr(GetURLBase, '91.237.82.95:8088/pub/genshtab', 't.caucasia.ru:80'); - end; - // Проверяем наличие масштаба if getz > z_ok then begin - code := GetCode(BaseUrl+'z'+inttostr(getz)+'/'); + code := GetCode(GetUrlBase+'z'+inttostr(getz)+'/'); // Внимание! Если сервер вернёт 403 - code почему-то будет 0. Так что выбор "404 или что-то иное" // Если дело дошло до проверки наличия масштаба - значит какая-то граница (z_ok / z_no) точно подвинется. @@ -53,5 +39,5 @@ begin end; // Ок, качаем тайлик - ResultURL:= BaseUrl+'z'+inttostr(getz)+'/'+inttostr(getx div 1024)+'/x'+inttostr(getx)+'/'+inttostr(gety div 1024)+'/y'+inttostr(gety)+'.jpg'; + ResultURL:= GetUrlBase+'z'+inttostr(getz)+'/'+inttostr(getx div 1024)+'/x'+inttostr(getx)+'/'+inttostr(gety div 1024)+'/y'+inttostr(gety)+'.jpg'; end. diff --git a/Genshtab/karta_gsh_2km_new.zmp/params.txt b/Genshtab/karta_gsh_2km_new.zmp/params.txt index 06eabab04..4f2c8cf0c 100644 --- a/Genshtab/karta_gsh_2km_new.zmp/params.txt +++ b/Genshtab/karta_gsh_2km_new.zmp/params.txt @@ -9,7 +9,7 @@ name_ru=Генштаб 2 км (new) name=Genshtab 2 km (new) name_uk=Генштаб 2 км (new) NameInCache=Genshtab2km_new -DefURLBase=http://91.237.82.95:8088/pub/genshtab/2km.new/ +DefURLBase=https://maps.melda.ru/pub/genshtab/2km.new/ Ext=.jpg projection=1 sradiusa=6378137 diff --git a/Genshtab/karta_gsh_500m.zmp/GetUrlScript.txt b/Genshtab/karta_gsh_500m.zmp/GetUrlScript.txt index 13293deab..9bf49b2e7 100644 --- a/Genshtab/karta_gsh_500m.zmp/GetUrlScript.txt +++ b/Genshtab/karta_gsh_500m.zmp/GetUrlScript.txt @@ -13,10 +13,8 @@ begin end; var - BaseUrl: string; code: Cardinal; z_ok, z_no: integer; - r: integer; begin ResultURL := ''; z_ok := StrToIntDef(GetBefore(';', ScriptBuffer), 1); // Максимальный масштаб, который точно есть @@ -25,21 +23,9 @@ begin // Масштаба нет - говорить не о чем 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'); - 2: BaseUrl := RegExprReplaceMatchSubStr(GetURLBase, '91.237.82.95:8088/pub/genshtab', 't.caucasia.ru:80'); - end; - // Проверяем наличие масштаба if getz > z_ok then begin - code := GetCode(BaseUrl+'z'+inttostr(getz)+'/'); + code := GetCode(GetUrlBase+'z'+inttostr(getz)+'/'); // Внимание! Если сервер вернёт 403 - code почему-то будет 0. Так что выбор "404 или что-то иное" // Если дело дошло до проверки наличия масштаба - значит какая-то граница (z_ok / z_no) точно подвинется. @@ -53,5 +39,5 @@ begin end; // Ок, качаем тайлик - ResultURL:= BaseUrl+'z'+inttostr(getz)+'/'+inttostr(getx div 1024)+'/x'+inttostr(getx)+'/'+inttostr(gety div 1024)+'/y'+inttostr(gety)+'.jpg'; + ResultURL:= GetUrlBase+'z'+inttostr(getz)+'/'+inttostr(getx div 1024)+'/x'+inttostr(getx)+'/'+inttostr(gety div 1024)+'/y'+inttostr(gety)+'.jpg'; end. diff --git a/Genshtab/karta_gsh_500m.zmp/params.txt b/Genshtab/karta_gsh_500m.zmp/params.txt index 953403af2..31ab98e05 100644 --- a/Genshtab/karta_gsh_500m.zmp/params.txt +++ b/Genshtab/karta_gsh_500m.zmp/params.txt @@ -9,7 +9,7 @@ name_ru=Генштаб 500 м name=Genshtab 500 m name_uk=Генштаб 500 м NameInCache=genshtab500m -DefURLBase=http://91.237.82.95:8088/pub/genshtab/500m/ +DefURLBase=https://maps.melda.ru/pub/genshtab/500m/ defaultContentType=image/jpeg Ext=.jpg projection=1 diff --git a/Genshtab/karta_gsh_5km.zmp/GetUrlScript.txt b/Genshtab/karta_gsh_5km.zmp/GetUrlScript.txt index 52c6241d1..9bf49b2e7 100644 --- a/Genshtab/karta_gsh_5km.zmp/GetUrlScript.txt +++ b/Genshtab/karta_gsh_5km.zmp/GetUrlScript.txt @@ -13,10 +13,8 @@ begin end; var - BaseUrl: string; code: Cardinal; z_ok, z_no: integer; - r: integer; begin ResultURL := ''; z_ok := StrToIntDef(GetBefore(';', ScriptBuffer), 1); // Максимальный масштаб, который точно есть @@ -25,21 +23,9 @@ begin // Масштаба нет - говорить не о чем if getz >= z_no then exit; - // Выбор зеркала, если не указана версия - if version = '' then - r := random(3) - else - r := StrToInt(version); - - case r of - 0: BaseUrl := GetURLBase; - 1: BaseUrl := RegExprReplaceMatchSubStr(GetURLBase, 'http://91.237.82.95:8088', 'https://maps.melda.ru'); - 2: BaseUrl := RegExprReplaceMatchSubStr(GetURLBase, '91.237.82.95:8088/pub/genshtab', 't.caucasia.ru:80'); - end; - // Проверяем наличие масштаба if getz > z_ok then begin - code := GetCode(BaseUrl+'z'+inttostr(getz)+'/'); + code := GetCode(GetUrlBase+'z'+inttostr(getz)+'/'); // Внимание! Если сервер вернёт 403 - code почему-то будет 0. Так что выбор "404 или что-то иное" // Если дело дошло до проверки наличия масштаба - значит какая-то граница (z_ok / z_no) точно подвинется. @@ -53,5 +39,5 @@ begin end; // Ок, качаем тайлик - ResultURL:= BaseUrl+'z'+inttostr(getz)+'/'+inttostr(getx div 1024)+'/x'+inttostr(getx)+'/'+inttostr(gety div 1024)+'/y'+inttostr(gety)+'.jpg'; + ResultURL:= GetUrlBase+'z'+inttostr(getz)+'/'+inttostr(getx div 1024)+'/x'+inttostr(getx)+'/'+inttostr(gety div 1024)+'/y'+inttostr(gety)+'.jpg'; end. diff --git a/Genshtab/karta_gsh_5km.zmp/params.txt b/Genshtab/karta_gsh_5km.zmp/params.txt index 649cf0a7c..46670a632 100644 --- a/Genshtab/karta_gsh_5km.zmp/params.txt +++ b/Genshtab/karta_gsh_5km.zmp/params.txt @@ -9,7 +9,7 @@ name_ru=Генштаб 5 км name=Genshtab 5 km name_uk=Генштаб 5 км NameInCache=Genshtab5km -DefURLBase=http://91.237.82.95:8088/pub/genshtab/5km/ +DefURLBase=https://maps.melda.ru/pub/genshtab/5km/ Ext=.jpg projection=1 sradiusa=6378137