From 8d86698a5bee5e73b5e7d9f55f749325d9ef73c0 Mon Sep 17 00:00:00 2001 From: sasgis <> Date: Sat, 12 Dec 1970 12:00:00 +0000 Subject: [PATCH] update zmp --- Local/RoscosmGeo.zmp/18.bmp | Bin 0 -> 1062 bytes Local/RoscosmGeo.zmp/24.bmp | Bin 0 -> 1782 bytes Local/RoscosmGeo.zmp/GetUrlScript.txt | 76 ++++++++++++++++++++++++++ Local/RoscosmGeo.zmp/info.txt | 13 +++++ Local/RoscosmGeo.zmp/params.txt | 26 +++++++++ 5 files changed, 115 insertions(+) create mode 100644 Local/RoscosmGeo.zmp/18.bmp create mode 100644 Local/RoscosmGeo.zmp/24.bmp create mode 100644 Local/RoscosmGeo.zmp/GetUrlScript.txt create mode 100644 Local/RoscosmGeo.zmp/info.txt create mode 100644 Local/RoscosmGeo.zmp/params.txt diff --git a/Local/RoscosmGeo.zmp/18.bmp b/Local/RoscosmGeo.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/Local/RoscosmGeo.zmp/GetUrlScript.txt b/Local/RoscosmGeo.zmp/GetUrlScript.txt new file mode 100644 index 00000000..ce4b5e7e --- /dev/null +++ b/Local/RoscosmGeo.zmp/GetUrlScript.txt @@ -0,0 +1,76 @@ +function dec2bin(x:integer):string; +var s:string; +begin + s:=''; + repeat + s:=chr($30 + x and 1) + s; + x:=x shr 1; + until x=0; + result:=s; +end; + +var binX,binY:string; + i,posSRC,posDATE,posTYPE,posFirstAND,lenbinXY:integer; +begin + posFirstAND:=pos('&',GetUrlBase)-1; + if posFirstAND<=0 then begin + posFirstAND:=length(GetUrlBase); + end; + posSRC:=pos('&src=',GetUrlBase); + posDATE:=pos('&date=',GetUrlBase); + posTYPE:=pos('&type=',GetUrlBase); + + ResultURL:=copy(GetUrlBase,1,posFirstAND); + + if posSRC>0 then begin + i:=posSRC+5; + while (GetUrlBase[i]<>'&') do begin + i:=i+1; + if (i>length(GetUrlBase)) then break; + end; + ResultURL:=ResultURL+copy(GetUrlBase,posSRC+5,i-(posSRC+5)); + end; + + ResultURL:=ResultURL+'/'+inttostr(GetZ-1)+'/'; + + if posDATE>0 then begin + i:=posDATE+6; + while (GetUrlBase[i]<>'&') do begin + i:=i+1; + if (i>length(GetUrlBase)) then break; + end; + if (i-(posDATE+6))>0 then begin + ResultURL:=ResultURL+copy(GetUrlBase,posDATE+6,i-(posDATE+6))+'/'; + end; + end; + + binX:=dec2bin(GetX); + binY:=dec2bin(GetY); + lenbinXY:=length(binX); + for i:=1 to ((GetZ-1)-lenbinXY) do begin + binX:='0'+binX; + end; + lenbinXY:=length(binY); + for i:=1 to ((GetZ-1)-lenbinXY) do begin + binY:='0'+binY; + end; + + for i:=7 to GetZ-1 do begin + ResultURL:=ResultURL+copy(binY,1,i-6)+'-'+copy(binX,1,i-6)+'/'; + end; + ResultURL:=ResultURL+binY+'-'+binX; + + if posTYPE>0 then begin + i:=posTYPE+6; + while (GetUrlBase[i]<>'&') do begin + inc(i); + if (i>length(GetUrlBase)) then break; + end; + if (i-(posTYPE+6))>0 then begin + ResultURL:=ResultURL+'.'+copy(GetUrlBase,posTYPE+6,i-(posTYPE+6)); + end; + end else begin + ResultURL:=ResultURL+'.jpg'; + end; + +end. \ No newline at end of file diff --git a/Local/RoscosmGeo.zmp/info.txt b/Local/RoscosmGeo.zmp/info.txt new file mode 100644 index 00000000..3825dfc2 --- /dev/null +++ b/Local/RoscosmGeo.zmp/info.txt @@ -0,0 +1,13 @@ +Данный zmp предназначен для загрузки снимков с ресурса http://geoportal.ntsomz.ru. +Особенности данного zmp в том, что применены "виртуальные" параметры в поле URL, т.е. параметры в запросе на самом деле являются командами для скрипта самого zmp а не для ресурса. +Описание параметра ссылки (URL): +- "http://geoportal.ntsomz.ru/coverages/" - базовая часть, не меняется. +- "&src=" - "Виртуальный" параметр, отвечает за выбор растрового слоя геопортала, на данный момент известны следующие слои: + images_lansat - снимки landsat, 1-14 зумы. (для данного источника параметр &date не заполняется) + images_ortho_region - снимки landsat + ALOS по Московской области (для данного источника параметр &date не заполняется) + images - снимки landsat + Ресурс-ДК1 (не все) (для данного источника параметр &date не заполняется) + images_new_structure - Ресурс-ДК1 (для данного источника параметр &date обязательно заполняется) +- "&date=" - "Виртуальный" параметр, заполняется датой если выбран источник images_new_structure, дату можно узнать только снифером( +- "&type=" - тип запрашиваемого тайла, jpg или png. Нужен при источнике images_new_structure, т.к. на границах снимков грузятся png. + +Многие снимки для загрузки требуют авторизацию на geoportal.ntsomz.ru, поэтому прежде чем начинать загружать - зарегистрируйтесь и авторизуйтесь на этом сайте! (Хотя, может быть и нет, требует проверки) \ No newline at end of file diff --git a/Local/RoscosmGeo.zmp/params.txt b/Local/RoscosmGeo.zmp/params.txt new file mode 100644 index 00000000..d2dfaaae --- /dev/null +++ b/Local/RoscosmGeo.zmp/params.txt @@ -0,0 +1,26 @@ +[PARAMS] +pnum=17 +GUID={5A1A7E89-112D-406F-855D-5B1D1E323422} +name=Спутник (Геопортал Роскосмоса) +name_en=Satellite (Geoportal Roscosmos) +ParentSubMenu=Локальные карты +ParentSubMenu_en=Local maps +ParentSubMenu_uk=Локальні карти +asLayer=0 +DefURLBase=http://geoportal.ntsomz.ru/coverages/&src=images&date=&type=jpg +projection=1 +sradiusa=6378137 +sradiusb=6378137 +NameInCache=RoscosmosGeo +separator=1 +Ext=.jpg +UseDwn=1 +Usestick=1 +UseGenPrevious=1 +Usedel=1 +Usesave=1 +UsePreloadPage=0 +Sleep=0 +DefHotKey= +ContentType="image/jpeg";"image/png" +BanIfLen=0 \ No newline at end of file