From 164db1c3fba98b872cc53bae8cc8891d4ce2970b Mon Sep 17 00:00:00 2001 From: sasbot <> Date: Sat, 6 Jun 2020 12:00:00 +0000 Subject: [PATCH] update zmp --- _tourism/TyanShan/TyanShan.zmp/params.txt | 1 - _tourism/TyanShan/tyan_shan.zmp/params.txt | 1 - _tourism/djungarii.zmp/params.txt | 1 - _tourism/hrebtovka_elbrus.zmp/params.txt | 1 - _tourism/kyrgyz.zmp/18.bmp | Bin 0 -> 1062 bytes _tourism/kyrgyz.zmp/24.bmp | Bin 0 -> 1782 bytes _tourism/kyrgyz.zmp/GetUrlScript.txt | 53 +++++++++++++++++++++ _tourism/kyrgyz.zmp/info.txt | 16 +++++++ _tourism/kyrgyz.zmp/params.txt | 19 ++++++++ _tourism/terskey.zmp/params.txt | 1 - 10 files changed, 88 insertions(+), 5 deletions(-) create mode 100644 _tourism/kyrgyz.zmp/18.bmp create mode 100644 _tourism/kyrgyz.zmp/24.bmp create mode 100644 _tourism/kyrgyz.zmp/GetUrlScript.txt create mode 100644 _tourism/kyrgyz.zmp/info.txt create mode 100644 _tourism/kyrgyz.zmp/params.txt diff --git a/_tourism/TyanShan/TyanShan.zmp/params.txt b/_tourism/TyanShan/TyanShan.zmp/params.txt index 573dbb4f..063d4026 100644 --- a/_tourism/TyanShan/TyanShan.zmp/params.txt +++ b/_tourism/TyanShan/TyanShan.zmp/params.txt @@ -10,7 +10,6 @@ DefURLBase=http://91.237.82.95:8088/pub/tourism/tyanshan/ projection=1 sradiusa=6378137 sradiusb=6378137 -CACHETYPE=4 NameInCache=TyanShan Ext=.jpg defaultContentType=image/jpeg diff --git a/_tourism/TyanShan/tyan_shan.zmp/params.txt b/_tourism/TyanShan/tyan_shan.zmp/params.txt index 00647528..99a0940a 100644 --- a/_tourism/TyanShan/tyan_shan.zmp/params.txt +++ b/_tourism/TyanShan/tyan_shan.zmp/params.txt @@ -10,7 +10,6 @@ DefURLBase=http://91.237.82.95:8088/pub/tourism/tyan_shan/ projection=1 sradiusa=6378137 sradiusb=6378137 -CACHETYPE=4 NameInCache=Tyan_Shan Ext=.jpg defaultContentType=image/jpeg diff --git a/_tourism/djungarii.zmp/params.txt b/_tourism/djungarii.zmp/params.txt index 3b292cbe..c9490b54 100644 --- a/_tourism/djungarii.zmp/params.txt +++ b/_tourism/djungarii.zmp/params.txt @@ -9,7 +9,6 @@ DefURLBase=http://g-utka.ru/tsvetik/automaps/jungariaoro/olmap/ projection=1 sradiusa=6378137 sradiusb=6378137 -CACHETYPE=4 NameInCache=djungarii Ext=.jpg UsePreloadPage=0 diff --git a/_tourism/hrebtovka_elbrus.zmp/params.txt b/_tourism/hrebtovka_elbrus.zmp/params.txt index 73b277ec..17d70edc 100644 --- a/_tourism/hrebtovka_elbrus.zmp/params.txt +++ b/_tourism/hrebtovka_elbrus.zmp/params.txt @@ -10,7 +10,6 @@ DefURLBase=http://91.237.82.95:8088/pub/tourism/hr_elbrus/ projection=1 sradiusa=6378137 sradiusb=6378137 -CACHETYPE=4 NameInCache=hr_elbrus Ext=.jpg defaultContentType=image/jpeg diff --git a/_tourism/kyrgyz.zmp/18.bmp b/_tourism/kyrgyz.zmp/18.bmp new file mode 100644 index 0000000000000000000000000000000000000000..47d65f276ee5e4851f34fe840f80f2090024fad0 GIT binary patch literal 1062 zcmZ9KZA_Y16vywfecXqopY~~KvaH?alDW=SYHg=3GPOl9RSFgDth`K7@Qo=-*J_cr zA|hiJ0Rgd4QIwa7Pz7;{2#U}GkBEw`PBW8kvt8H9W^CLOoSW^?Sj z@)n4m6R>^==b?Y|4e)OC{^^_1@`~(&-Pgjd?Hm`;10tM`l?N-_zh;0(0LTB_9x6I@!2R25VR|jbB+t>*;@1XMl2Sf1dTchNcka*|O$oh(RDiD6YWZ8kFJCk*r zJ?L3Q<$vft=jazaYX4%}O5An{A_48rL%TP)Fbpj&&rfgpjFDOK_C(EAAJQky+e4$A zRd;8Ob39_a_?Mj(amgZH&C8I^WV3MlM{jAIa)supOR+m6j#%l>l?l_*G8m0=_8U3B zOAuS;@+}Mdg^l-ztv%wD^>>R%^_}FaBJ?-RT3VGy%J|#Xu&u+bwjLYTN&wJHcyr9y zXUdGt-m)hH^e0;8rvB;+GfT+1iD9q_^n$bJ3p0?ouT#$~D=VLAh?{~>-69eIz167D zwWGiNaQ0_$!CDt-t-Ivco?@kdjU=+Ozs<{UIz_%lI(LbY7@yWnLvF|mA9Ih*Hzoog zOL_YN^@HVxqy=8?Qae7}ftwN$krizSk}!$dm|2m5ZOqES;_p^uLj2ri4jN)0c=e?K zbe%lp#vchXQ+@o4enEban={^m$-?A)g8444KzuZlSU|=(u4gZ_otte&Eiq0r=_T>? zN&rM(e&iseKrFmZK=AU5e63mbD``#GxKw0jdiG^@3CeXP*;$`7QI|N)NF1(?&uyZf zyg&h}!U4O>V{<)l`e#iehP4p%(Bqvm>D09qgHh;J4xZqcm~n*G!)|{l00l!U_XA7L R_0>hQ$*Ppg_6&Opz&}nENZ zlAv#9NGpGGqQXVRm>`Lcnyn-%Q9%j{YGdE?*hTCu8qOTfyZ4;$oO|xi;ryR_Y@0s^ zI*otI)_>QgWwVWM&2KtwsSVqPrK~J3$A*KEfam?)+R5HVrcd*>Vs<{O#z6 zz-eNaqIbT>I?-=JzOP38psyJFe`ud4Vh~nC#e}cVKSh48J&8?BV*Fa@V34W#wnAu@ zHOL@I@%cS|7Js6MCG~WC7Qx_?aRdiwRBMT%4@-VKKHpw=a3%^_{SpWAd|@3eBTV6d z+mFzGlI}oJ=d?FdLDt?qLL_h?8WZUck9>>{F(@e71&ZtnWmfLZWKePN6cqYeR|F~1 zO{321W7n7!6suzis#oSN`0Wgmf|?l@!5PD^-_C6bK+v@IgB7*q6`J9$5l<TsgU*0rmxI{}93<8ySBxXgt$`-u>*+4h1Anho z;PL%?z^Rr}$t7*1)E;LdoHHp2Y`SpJJYRE>Fj}rQ5N>z-!y%5M+)$1^)uIuw(Aec$ zsfmb!U{Dee-UJL#K-60SGu$1fNHp&)F92mjW0!&ORBq>pEw3L_=1UTv#Sj|CpkYLx zjp0B#G|M!O=UGCeDnS8}mk>`3L=0x3(XrvSHhliAWXA}rL-3Rr731Z~01z3sEaMLs CO&z=d literal 0 HcmV?d00001 diff --git a/_tourism/kyrgyz.zmp/GetUrlScript.txt b/_tourism/kyrgyz.zmp/GetUrlScript.txt new file mode 100644 index 00000000..1f0d7199 --- /dev/null +++ b/_tourism/kyrgyz.zmp/GetUrlScript.txt @@ -0,0 +1,53 @@ +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; + + // Выбор зеркала +// r := random(2); + r := 0; + case r of + 0: BaseUrl := GetURLBase; +// 1: BaseUrl := RegExprReplaceMatchSubStr(GetURLBase, '91.237.82.95:8088', 'maps.melda.ru'); + end; + + // Проверяем наличие масштаба + if getz > z_ok then begin + code := GetCode(BaseUrl+'z'+inttostr(getz)+'/'); + + // Внимание! Если сервер вернёт 403 - code почему-то будет 0. Так что выбор "404 или что-то иное" + // Если дело дошло до проверки наличия масштаба - значит какая-то граница (z_ok / z_no) точно подвинется. + if code = 404 then z_no := getz else z_ok := getz; + + // Сохраняем актуализированные границы для последующих вызовов + ScriptBuffer := inttostr(z_ok) + ';' + inttostr(z_no); + + // Масштаба нет (о чём могли только что при проверке узнать) - говорить не о чем + if getz >= z_no then exit; + end; + + // Ок, качаем тайлик + ResultURL:= BaseUrl+'z'+inttostr(getz)+'/'+inttostr(getx div 1024)+'/x'+inttostr(getx)+'/'+inttostr(gety div 1024)+'/y'+inttostr(gety)+'.jpg'; +end. diff --git a/_tourism/kyrgyz.zmp/info.txt b/_tourism/kyrgyz.zmp/info.txt new file mode 100644 index 00000000..cc7fa4e0 --- /dev/null +++ b/_tourism/kyrgyz.zmp/info.txt @@ -0,0 +1,16 @@ +
+ - garl@mail.ru
+
+
+
- . +
+
, . 1:50000. GeoTIFF. , (Global mapper, Ozi explorer .) 254 dpi 100 . +
1:200000. +
+
AS IS ( ). . , , . , . (avp westra.ru) ( ) . +
. +
+
. (, , ) .
.., , . +
+
04.04.2007 +
http://westra.ru/reports/tianshan/kirgmap.html \ No newline at end of file diff --git a/_tourism/kyrgyz.zmp/params.txt b/_tourism/kyrgyz.zmp/params.txt new file mode 100644 index 00000000..e1c17bb6 --- /dev/null +++ b/_tourism/kyrgyz.zmp/params.txt @@ -0,0 +1,19 @@ + +[PARAMS] +pnum=17 +GUID={6e2d3659-d51a-4121-8b38-9c96381370b3} +name_ru=- . +name=Kyrgyz ridge map +ParentSubMenu_ru=\ +ParentSubMenu=Tourism\Kyrgyz +DefURLBase=http://91.237.82.95:8088/pub/tourism/kyrgyz/ +projection=1 +sradiusa=6378137 +sradiusb=6378137 +NameInCache=kyrgyz +Ext=.jpg +defaultContentType=image/jpeg +ContentType="image/jpeg" +MaxConnectToServerCount=1 +License= +IsUseDownloaderInScript=1 diff --git a/_tourism/terskey.zmp/params.txt b/_tourism/terskey.zmp/params.txt index fb1cc77a..496d7fd0 100644 --- a/_tourism/terskey.zmp/params.txt +++ b/_tourism/terskey.zmp/params.txt @@ -9,7 +9,6 @@ DefURLBase=http://map.g-utka.ru/ projection=1 sradiusa=6378137 sradiusb=6378137 -CACHETYPE=4 NameInCache=Terskey Ext=.png UsePreloadPage=0