diff --git a/gp_RoscosmGeo.zmp/18.bmp b/gp_RoscosmGeo.zmp/18.bmp deleted file mode 100644 index 47d65f276..000000000 Binary files a/gp_RoscosmGeo.zmp/18.bmp and /dev/null differ diff --git a/gp_RoscosmGeo.zmp/24.bmp b/gp_RoscosmGeo.zmp/24.bmp deleted file mode 100644 index 595f438be..000000000 Binary files a/gp_RoscosmGeo.zmp/24.bmp and /dev/null differ diff --git a/gp_RoscosmGeo.zmp/GetUrlScript.txt b/gp_RoscosmGeo.zmp/GetUrlScript.txt deleted file mode 100644 index 1f85e46ad..000000000 --- a/gp_RoscosmGeo.zmp/GetUrlScript.txt +++ /dev/null @@ -1,76 +0,0 @@ -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 - inc(i); - 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 - inc(i); - 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/gp_RoscosmGeo.zmp/info.txt b/gp_RoscosmGeo.zmp/info.txt deleted file mode 100644 index 3825dfc29..000000000 --- a/gp_RoscosmGeo.zmp/info.txt +++ /dev/null @@ -1,13 +0,0 @@ -������ 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/gp_RoscosmGeo.zmp/params.txt b/gp_RoscosmGeo.zmp/params.txt deleted file mode 100644 index ea237acdd..000000000 --- a/gp_RoscosmGeo.zmp/params.txt +++ /dev/null @@ -1,27 +0,0 @@ -[PARAMS] -pnum=55 -GUID={5A1A7E89-112D-406F-855D-5B1D1E323422} -name=������� (��������� ����������) -name_en=Satellite (Geoportal Roscosmos) -name_ua=Satellite (Geoportal Roscosmos) -asLayer=0 -DefURLBase=http://geoportal.ntsomz.ru/coverages/&src=images&date=&type=jpg -projection=1 -sradiusa=6378137 -sradiusb=6378137 -NameInCache=RoscosmosGeo -separator=0 -Ext=.jpg -UseDwn=1 -Usestick=1 -UseGenPrevious=1 -Usedel=1 -Usesave=1 -UsePreloadPage=0 -Sleep=0 -DefHotKey= -ContentType="image/jpeg";"image/png" -BanIfLen=0 -ParentSubMenu=��������� -ParentSubMenu_en=Geoportal -ParentSubMenu_uk=Geoportal