sasbot преди 4 години
родител
ревизия
49ed3d1f29
променени са 5 файла, в които са добавени 109 реда и са изтрити 0 реда
  1. Двоични данни
      gp_RoscosmGeo.zmp/18.bmp
  2. Двоични данни
      gp_RoscosmGeo.zmp/24.bmp
  3. +69
    -0
      gp_RoscosmGeo.zmp/GetUrlScript.txt
  4. +13
    -0
      gp_RoscosmGeo.zmp/info.txt
  5. +27
    -0
      gp_RoscosmGeo.zmp/params.txt

Двоични данни
gp_RoscosmGeo.zmp/18.bmp Целия файл

Преди След

Двоични данни
gp_RoscosmGeo.zmp/24.bmp Целия файл

Преди След

+ 69
- 0
gp_RoscosmGeo.zmp/GetUrlScript.txt Целия файл

@@ -0,0 +1,69 @@
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: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:='0'+dec2bin(GetX);
binY:='0'+dec2bin(GetY);
binX:=copy(binX,length(binX)-(GetZ-1)+1,GetZ-1);
binY:=copy(binY,length(binY)-(GetZ-1)+1,GetZ-1);
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.

+ 13
- 0
gp_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, поэтому прежде чем начинать загружать - зарегистрируйтесь и авторизуйтесь на этом сайте! (Хотя, может быть и нет, требует проверки)

+ 27
- 0
gp_RoscosmGeo.zmp/params.txt Целия файл

@@ -0,0 +1,27 @@
[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

Зареждане…
Отказ
Запис