diff --git a/_local/lantmateriet.se.zmp/18.bmp b/_local/lantmateriet.se.zmp/18.bmp new file mode 100644 index 00000000..47d65f27 Binary files /dev/null and b/_local/lantmateriet.se.zmp/18.bmp differ diff --git a/_local/lantmateriet.se.zmp/24.bmp b/_local/lantmateriet.se.zmp/24.bmp new file mode 100644 index 00000000..595f438b Binary files /dev/null and b/_local/lantmateriet.se.zmp/24.bmp differ diff --git a/_local/lantmateriet.se.zmp/GetUrlScript.txt b/_local/lantmateriet.se.zmp/GetUrlScript.txt new file mode 100644 index 00000000..e0df7e13 --- /dev/null +++ b/_local/lantmateriet.se.zmp/GetUrlScript.txt @@ -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. \ No newline at end of file diff --git a/_local/lantmateriet.se.zmp/params.txt b/_local/lantmateriet.se.zmp/params.txt new file mode 100644 index 00000000..9b084d2c --- /dev/null +++ b/_local/lantmateriet.se.zmp/params.txt @@ -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 \ No newline at end of file