sasgis преди 54 години
родител
ревизия
b571637f34
променени са 4 файла, в които са добавени 22 реда и са изтрити 50 реда
  1. Двоични данни
      _local/lantmateriet.se.zmp/18.bmp
  2. Двоични данни
      _local/lantmateriet.se.zmp/24.bmp
  3. +3
    -23
      _local/lantmateriet.se.zmp/GetUrlScript.txt
  4. +19
    -27
      _local/lantmateriet.se.zmp/params.txt

Двоични данни
_local/lantmateriet.se.zmp/18.bmp Целия файл

Преди След

Двоични данни
_local/lantmateriet.se.zmp/24.bmp Целия файл

Преди След

+ 3
- 23
_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.

+ 19
- 27
_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
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=

Зареждане…
Отказ
Запис