sasbot 4 anni fa
parent
commit
d20efd8ed1
3 ha cambiato i file con 28 aggiunte e 12 eliminazioni
  1. +16
    -2
      navici.com.zmp/GetUrlScript.txt
  2. +5
    -0
      navici.com.zmp/info.txt
  3. +7
    -10
      navici.com.zmp/params.txt

+ 16
- 2
navici.com.zmp/GetUrlScript.txt Vedi File

@@ -1,3 +1,17 @@
begin
ResultURL:=GetURLBase+RoundEx(GetLLon,8)+','+RoundEx(GetBLat,8)+','+RoundEx(GetRLon,8)+','+RoundEx(GetTLat,8);
var
TL, M: TDoublePoint;
BR, N: TDoublePoint;
begin
TL.X := GetLLon;
TL.Y := GetTLat;
BR.X := GetRLon;
BR.Y := GetBLat;
if Assigned(DefProjConverter) then begin
M := DefProjConverter.LonLat2XY(TL);
N := DefProjConverter.LonLat2XY(BR);
ResultURL := GetURLBase + RoundEx(M.X, 9) + ',' + RoundEx(N.Y, 9) + ',' + RoundEx(N.X, 9) + ',' + RoundEx(M.Y, 9);
end else begin
ResultURL := 'invalid_url';
end;
end. end.

+ 5
- 0
navici.com.zmp/info.txt Vedi File

@@ -0,0 +1,5 @@
<a href="http://navici.com">http://navici.com</a>
<br>
Êàðòà Êàðåëèè
<br>
Èñïîëüçóåòñÿ proj480.dll

+ 7
- 10
navici.com.zmp/params.txt Vedi File

@@ -9,16 +9,13 @@ ParentSubMenu=
ParentSubMenu_en=Local Maps ParentSubMenu_en=Local Maps
ParentSubMenu_ua=Ëîêàëüí³ êàðòè ParentSubMenu_ua=Ëîêàëüí³ êàðòè
NameInCache=navici_com NameInCache=navici_com
DefURLBase=http://wms1.navici.com/geoserver/wms?WIDTH=256&HEIGHT=256&SRS=EPSG:4326&LAYERS=topp:topo100k&STYLES=&FORMAT=image/jpeg&SERVICE=WMS&VERSION=1.1.1&REQUEST=GetMap&EXCEPTIONS=application/vnd.ogc.se_inimage&BBOX=
ñontentType=image/jpeg,image/png
DefURLBase=http://ntile1.navici.com/karjala/?LAYERS=topo20k_group&BBOX=
ContentType=image/jpeg,image/png
MimeTypeSubst=image/png=image/jpeg
DefaultContentType=image/jpeg
Ext=.jpg Ext=.jpg
projection=1 projection=1
sradiusa=6371000
sradiusb=6371000
separator=1
sradiusa=6378137
sradiusb=6356752
UseDwn=1 UseDwn=1
Sleep=0
DefHotKey=
MimeTypeSubst = "image/png=image/jpeg"
DefaultContentType=image/jpeg
Proj4Args=+proj=tmerc +lat_0=0 +lon_0=30 +k=1 +x_0=4500000 +y_0=0 +ellps=intl +units=m +no_defs

Caricamento…
Annulla
Salva