ソースを参照

update zmp

master
sasgis 54年前
コミット
a91e495ac9
6個のファイルの変更13行の追加35行の削除
  1. +1
    -12
      _Rosreestr/rosreestr_cadastr.zmp/GetUrlScript.txt
  2. +3
    -6
      _Rosreestr/rosreestr_cadastr.zmp/params.txt
  3. +1
    -1
      _Rosreestr/rosreestr_hyb.zmp/GetUrlScript.txt
  4. +3
    -7
      _Rosreestr/rosreestr_hyb.zmp/params.txt
  5. +2
    -2
      _Rosreestr/rosreestr_landuse.zmp/GetUrlScript.txt
  6. +3
    -7
      _Rosreestr/rosreestr_landuse.zmp/params.txt

+ 1
- 12
_Rosreestr/rosreestr_cadastr.zmp/GetUrlScript.txt ファイルの表示

@@ -1,14 +1,3 @@
var i:integer;
xy:TPoint;
topLeftM,bottomrightM,LL:TDoublePoint;
begin
xy.x:=GetX*256;
xy.y:=GetY*256;
LL:=Converter.Pos2LonLat(XY,GetZ+7);
topLeftM:=Converter.LonLat2Metr(LL);
xy.x:=(GetX+1)*256;
xy.y:=(GetY+1)*256;
LL:=Converter.Pos2LonLat(XY,GetZ+7);
bottomrightM:=Converter.LonLat2Metr(LL);
ResultURL:=GetURLBase+'&bbox='+RoundEx(topLeftM.x,8)+','+RoundEx(topLeftM.y,8)+','+RoundEx(bottomrightM.x,8)+','+RoundEx(bottomrightM.y,8);
ResultURL:=GetURLBase+RoundEx(GetLMetr,8)+','+RoundEx(GetBMetr,8)+','+RoundEx(GetRMetr,8)+','+RoundEx(GetTMetr,8);
end.

+ 3
- 6
_Rosreestr/rosreestr_cadastr.zmp/params.txt ファイルの表示

@@ -8,13 +8,10 @@ ParentSubMenu_uk=
name=Ęŕäŕńňđîâűĺ ăđŕíčöű (rosreestr.ru)
name_en=Cadastre map (rosreestr.ru)
NameInCache=rosreestr_cadastr
DefURLBase=http://maps.rosreestr.ru/arcgis/rest/services/Cadastre/Cadastre/MapServer/export?dpi=96&transparent=true&format=png32&bboxSR=102100&imageSR=102100&size=256%2C256&f=image
ContentType="image/png"
DefURLBase=http://maps.rosreestr.ru/arcgis/rest/services/Cadastre/Cadastre/MapServer/export?dpi=96&transparent=true&format=png32&bboxSR=102100&imageSR=102100&size=256%2C256&f=image&bbox=
ContentType=image/png
Ext=.png
projection=1
sradiusa=6378137
sradiusb=6378137
separator=0
UseDwn=1
Sleep=0
DefHotKey=0
UseDwn=1

+ 1
- 1
_Rosreestr/rosreestr_hyb.zmp/GetUrlScript.txt ファイルの表示

@@ -1,3 +1,3 @@
begin
ResultURL:=GetURLBase+'/'+inttostr(GetZ-1)+'/'+inttostr(GetY)+'/'+inttostr(GetX)+'.png';
ResultURL:=GetURLBase+inttostr(GetZ-1)+'/'+inttostr(GetY)+'/'+inttostr(GetX);
end.

+ 3
- 7
_Rosreestr/rosreestr_hyb.zmp/params.txt ファイルの表示

@@ -8,14 +8,10 @@ ParentSubMenu_uk=
Name=Ãèáðèä (rosreestr.ru)
name_en=Hybrid (rosreestr.ru)
NameInCache=Rosreestr_hyb
DefURLBase=http://maps.rosreestr.ru/ArcGIS/rest/services/BaseMaps/Anno/MapServer/tile
DefaultContentType=image/png
ContentType=image/png32
DefURLBase=http://b.maps.rosreestr.ru/arcgis/rest/services/BaseMaps/Anno/MapServer/tile/
ContentType=image/png
Ext=.png
projection=1
sradiusa=6378137
sradiusb=6378137
separator=0
UseDwn=1
Sleep=0
DefHotKey=
UseDwn=1

+ 2
- 2
_Rosreestr/rosreestr_landuse.zmp/GetUrlScript.txt ファイルの表示

@@ -1,3 +1,3 @@
begin
ResultURL:=GetURLBase+RoundEx(GetLMetr,10)+','+RoundEx(GetBMetr,10)+','+RoundEx(GetRMetr,10)+','+RoundEx(GetTMetr,10);
begin
ResultURL:=GetURLBase+RoundEx(GetLMetr,8)+','+RoundEx(GetBMetr,8)+','+RoundEx(GetRMetr,8)+','+RoundEx(GetTMetr,8);
end.

+ 3
- 7
_Rosreestr/rosreestr_landuse.zmp/params.txt ファイルの表示

@@ -9,14 +9,10 @@ name=
name_en=Cadastre Landuse (rosreestr.ru)
name_uk=Cadastre Landuse (rosreestr.ru)
NameInCache=rosreestr_zone
DefURLBase=http://maps.rosreestr.ru/ArcGIS/rest/services/CadastreNew/Thematic/MapServer/export?dpi=96&transparent=true&format=png32&bboxSR=102100&imageSR=102100&size=256%2C256&layers=show%3A3%2C4&f=image&bbox=
ContentType="image/png32"
DefaultContentType=image/png
DefURLBase=http://maps.rosreestr.ru/arcgis/rest/services/Cadastre/Thematic/MapServer/export?dpi=96&transparent=true&format=png32&bboxSR=102100&imageSR=102100&size=256%2C256&layers=show%3A2%2C4&f=image&bbox=
ContentType=image/png
Ext=.png
projection=1
sradiusa=6378137
sradiusb=6378137
separator=0
UseDwn=1
Sleep=0
DefHotKey=0
UseDwn=1

||||||
x
 
000:0
読み込み中…
キャンセル
保存