Explorar el Código

update zmp

pull/1/head
sasbot hace 4 años
padre
commit
f70af00f95
Se han modificado 4 ficheros con 57 adiciones y 0 borrados
  1. BIN
      _local/lantmateriet.se.zmp/18.bmp
  2. BIN
      _local/lantmateriet.se.zmp/24.bmp
  3. +25
    -0
      _local/lantmateriet.se.zmp/GetUrlScript.txt
  4. +32
    -0
      _local/lantmateriet.se.zmp/params.txt

BIN
_local/lantmateriet.se.zmp/18.bmp Ver fichero

Antes Después

BIN
_local/lantmateriet.se.zmp/24.bmp Ver fichero

Antes Después

+ 25
- 0
_local/lantmateriet.se.zmp/GetUrlScript.txt Ver fichero

@@ -0,0 +1,25 @@
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;
RequestHead:='User-Agent: Opera/9.80 (Windows NT 6.1) Presto/2.12.388 Version/12.16' + #13#10 +
'Accept: text/html, application/xml;q=0.9, application/xhtml+xml, image/png, image/webp, image/jpeg, image/gif, image/x-xbitmap, */*;q=0.1' + #13#10 +
'Accept-Language: ru-RU,ru;q=0.9,en;q=0.8' + #13#10 +
'Accept-Encoding: gzip, deflate' + #13#10 +
'Referer: http://kso2.lantmateriet.se/' + #13#10 +
'Host: kso.lantmateriet.se' + #13#10 +
'Cookie: WebTrends=188.95.188.26.1392695245204688' + #13#10 +
'Connection: keep-alive' + #13#10;
end.

+ 32
- 0
_local/lantmateriet.se.zmp/params.txt Ver fichero

@@ -0,0 +1,32 @@
[PARAMS]
pnum=44
GUID={5DBB0B87-766C-41A4-A323-836385E8DF71}
asLayer=0
name=Lantmateriet.se (Sweden Map)
name_en=Lantmateriet.se (Sweden Map)
name_uk=Lantmateriet.se (Sweden Map)
NameInCache=lantmateriet.se
ParentSubMenu=‹®ª «ì­ë¥ ª àâë
ParentSubMenu_en=Local maps
ParentSubMenu_uk=‹®ª «ì­ô ª àâ¨
DefURLBase=http://kso.lantmateriet.se/karta/ortofoto/wms/v1?LAYERS=orto%2Corto025&EXCEPTIONS=application%2Fvnd.ogc.se_xml&FORMAT=image%2Fpng&TRANSPARENT=TRUE&STYLES=default%2Cdefault&SERVICE=WMS&VERSION=1.1.1&REQUEST=GetMap&SRS=EPSG%3A3006&WIDTH=256&HEIGHT=256&BBOX=
ContentType=*
defaultContentType=image/png
IgnoreContentType=1
Ext=.png
separator=0
UseDwn=1
Usestick=0
UseGenPrevious=0
Usedel=1
Usesave=1
UseAntiBan=0
Sleep=0
DefHotKey=80
BanIfLen=0
Enabled2=0
RequestHead=Referer: http://kso2.lantmateriet.se/
projection=1
sradiusa=6378137
sradiusb=6356752
Proj4Args=+proj=utm +zone=33 +ellps=GRS80 +towgs84=0,0,0,0,0,0,0 +units=m +no_defs

Cargando…
Cancelar
Guardar