diff --git a/_local/lantmateriet.se.zmp/18.bmp b/_local/lantmateriet.se.zmp/18.bmp index 47d65f27..cafa0416 100644 Binary files a/_local/lantmateriet.se.zmp/18.bmp 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 index 595f438b..cafa0416 100644 Binary files a/_local/lantmateriet.se.zmp/24.bmp 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 index e0df7e13..847d92ac 100644 --- a/_local/lantmateriet.se.zmp/GetUrlScript.txt +++ b/_local/lantmateriet.se.zmp/GetUrlScript.txt @@ -1,25 +1,5 @@ -var - TL, M: TDoublePoint; - BR, N: TDoublePoint; begin - TL.X := GetLLon; - TL.Y := GetTLat; - BR.X := GetRLon; - BR.Y := GetBLat; + ResultURL:=GetURLBase+RoundEx(GetLLon,8)+','+RoundEx(GetBLat,8)+','+RoundEx(GetRLon,8)+','+RoundEx(GetTLat,8)+'&WIDTH=256&HEIGHT=256'; +end. + - 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 index 55cbca93..59a01c73 100644 --- a/_local/lantmateriet.se.zmp/params.txt +++ b/_local/lantmateriet.se.zmp/params.txt @@ -1,32 +1,24 @@ [PARAMS] -pnum=44 -GUID={5DBB0B87-766C-41A4-A323-836385E8DF71} +pnum= +GUID={3AC94CEE-5C84-4BD2-9AB3-16109FAE713E} +name=SETopowebb +name_en=SETopowebb +name_uk=SETopowebb 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/ +DefURLBase=http://vvv.sgu.se/lmvProxy/map?LAYERS=topowebbkartan&FORMAT=image%2Fjpeg&SERVICE=WMS&VERSION=1.1.1&REQUEST=GetMap&STYLES=&EXCEPTIONS=application%2Fvnd.ogc.se_inimage&SRS=EPSG%3A4326&BBOX= 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 +ParentSubMenu=Suede +ParentSubMenu_en=Suede +ParentSubMenu_uk=Suede +NameInCache=SETopowebb +separator=0 +ContentType=image/jpeg,image/png +MimeTypeSubst=image/png=image/jpeg +DefaultContentType=image/jpeg +Ext=.jpg +UseDwn=1 +Sleep=0 +DefHotKey= +