Quellcode durchsuchen

update zmp

undefined
sasgis vor 54 Jahren
committed by sasbot
Ursprung
Commit
2b38e939e9
18 geänderte Dateien mit 27 neuen und 152 gelöschten Zeilen
  1. +2
    -16
      Genshtab/gsh_500m_new.zmp/GetUrlScript.txt
  2. +1
    -1
      Genshtab/gsh_500m_new.zmp/params.txt
  3. +2
    -16
      Genshtab/karta_gsh_10km.zmp/GetUrlScript.txt
  4. +1
    -1
      Genshtab/karta_gsh_10km.zmp/params.txt
  5. +2
    -17
      Genshtab/karta_gsh_1km.zmp/GetUrlScript.txt
  6. +1
    -1
      Genshtab/karta_gsh_1km.zmp/params.txt
  7. +2
    -15
      Genshtab/karta_gsh_20km.zmp/GetUrlScript.txt
  8. +1
    -1
      Genshtab/karta_gsh_20km.zmp/params.txt
  9. +2
    -15
      Genshtab/karta_gsh_250m.zmp/GetUrlScript.txt
  10. +1
    -1
      Genshtab/karta_gsh_250m.zmp/params.txt
  11. +2
    -16
      Genshtab/karta_gsh_2km.zmp/GetUrlScript.txt
  12. +1
    -1
      Genshtab/karta_gsh_2km.zmp/params.txt
  13. +2
    -16
      Genshtab/karta_gsh_2km_new.zmp/GetUrlScript.txt
  14. +1
    -1
      Genshtab/karta_gsh_2km_new.zmp/params.txt
  15. +2
    -16
      Genshtab/karta_gsh_500m.zmp/GetUrlScript.txt
  16. +1
    -1
      Genshtab/karta_gsh_500m.zmp/params.txt
  17. +2
    -16
      Genshtab/karta_gsh_5km.zmp/GetUrlScript.txt
  18. +1
    -1
      Genshtab/karta_gsh_5km.zmp/params.txt

+ 2
- 16
Genshtab/gsh_500m_new.zmp/GetUrlScript.txt Datei anzeigen

@@ -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.

+ 1
- 1
Genshtab/gsh_500m_new.zmp/params.txt Datei anzeigen

@@ -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


+ 2
- 16
Genshtab/karta_gsh_10km.zmp/GetUrlScript.txt Datei anzeigen

@@ -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.

+ 1
- 1
Genshtab/karta_gsh_10km.zmp/params.txt Datei anzeigen

@@ -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


+ 2
- 17
Genshtab/karta_gsh_1km.zmp/GetUrlScript.txt Datei anzeigen

@@ -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.

+ 1
- 1
Genshtab/karta_gsh_1km.zmp/params.txt Datei anzeigen

@@ -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


+ 2
- 15
Genshtab/karta_gsh_20km.zmp/GetUrlScript.txt Datei anzeigen

@@ -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.

+ 1
- 1
Genshtab/karta_gsh_20km.zmp/params.txt Datei anzeigen

@@ -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


+ 2
- 15
Genshtab/karta_gsh_250m.zmp/GetUrlScript.txt Datei anzeigen

@@ -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.

+ 1
- 1
Genshtab/karta_gsh_250m.zmp/params.txt Datei anzeigen

@@ -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


+ 2
- 16
Genshtab/karta_gsh_2km.zmp/GetUrlScript.txt Datei anzeigen

@@ -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.

+ 1
- 1
Genshtab/karta_gsh_2km.zmp/params.txt Datei anzeigen

@@ -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


+ 2
- 16
Genshtab/karta_gsh_2km_new.zmp/GetUrlScript.txt Datei anzeigen

@@ -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.

+ 1
- 1
Genshtab/karta_gsh_2km_new.zmp/params.txt Datei anzeigen

@@ -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


+ 2
- 16
Genshtab/karta_gsh_500m.zmp/GetUrlScript.txt Datei anzeigen

@@ -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.

+ 1
- 1
Genshtab/karta_gsh_500m.zmp/params.txt Datei anzeigen

@@ -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


+ 2
- 16
Genshtab/karta_gsh_5km.zmp/GetUrlScript.txt Datei anzeigen

@@ -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.

+ 1
- 1
Genshtab/karta_gsh_5km.zmp/params.txt Datei anzeigen

@@ -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


||||||
x
 
000:0
Laden…
Abbrechen
Speichern