From 9755ddf14b596d872484df4c69458b2c509c8cc5 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/18.bmp | Bin 1062 -> 0 bytes _tourism/TyanShan/TyanShan.zmp/24.bmp | Bin 1782 -> 0 bytes .../TyanShan/TyanShan.zmp/GetUrlScript.txt | 56 ------------------ _tourism/TyanShan/TyanShan.zmp/info.txt | 4 -- _tourism/TyanShan/TyanShan.zmp/params.txt | 18 ------ 5 files changed, 78 deletions(-) delete mode 100644 _tourism/TyanShan/TyanShan.zmp/18.bmp delete mode 100644 _tourism/TyanShan/TyanShan.zmp/24.bmp delete mode 100644 _tourism/TyanShan/TyanShan.zmp/GetUrlScript.txt delete mode 100644 _tourism/TyanShan/TyanShan.zmp/info.txt delete mode 100644 _tourism/TyanShan/TyanShan.zmp/params.txt diff --git a/_tourism/TyanShan/TyanShan.zmp/18.bmp b/_tourism/TyanShan/TyanShan.zmp/18.bmp deleted file mode 100644 index 47d65f276ee5e4851f34fe840f80f2090024fad0..0000000000000000000000000000000000000000 GIT binary patch literal 0 HcmV?d00001 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 diff --git a/_tourism/TyanShan/TyanShan.zmp/GetUrlScript.txt b/_tourism/TyanShan/TyanShan.zmp/GetUrlScript.txt deleted file mode 100644 index 607d9e8f..00000000 --- a/_tourism/TyanShan/TyanShan.zmp/GetUrlScript.txt +++ /dev/null @@ -1,56 +0,0 @@ -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+'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/TyanShan/TyanShan.zmp/info.txt b/_tourism/TyanShan/TyanShan.zmp/info.txt deleted file mode 100644 index cf6e9ac5..00000000 --- a/_tourism/TyanShan/TyanShan.zmp/info.txt +++ /dev/null @@ -1,4 +0,0 @@ - ""
-
- - garl@mail.ru
-
diff --git a/_tourism/TyanShan/TyanShan.zmp/params.txt b/_tourism/TyanShan/TyanShan.zmp/params.txt deleted file mode 100644 index 063d4026..00000000 --- a/_tourism/TyanShan/TyanShan.zmp/params.txt +++ /dev/null @@ -1,18 +0,0 @@ - -[PARAMS] -pnum=17 -GUID={03F32FF2-2450-406C-9007-364BA6361DE8} -name_ru= - -name=Tyan-Shan mountain pass -ParentSubMenu_ru=\- -ParentSubMenu=Tourism\Tyan-Shan -DefURLBase=http://91.237.82.95:8088/pub/tourism/tyanshan/ -projection=1 -sradiusa=6378137 -sradiusb=6378137 -NameInCache=TyanShan -Ext=.jpg -defaultContentType=image/jpeg -ContentType="image/jpeg" -MaxConnectToServerCount=1 -IsUseDownloaderInScript=1