Форум SAS.Планета

ingener писал(а):нафиг снесли X[/b] и Y?!
у вас:
ResultURL:=GetURLBase+RoundEx(GetLMetr,-5,10)+','+RoundEx(GetBMetr,-2,10)+','+RoundEx(GetRMetr,-5,10)+','+RoundEx(GetTMetr,-2,10);
а должно быть :
ResultURL:=GetURLBase+RoundEx(GetLMetr,x-5,10)+','+RoundEx(GetBMetr,y-2,10)+','+RoundEx(GetRMetr,x-5,10)+','+RoundEx(GetTMetr,y-2,10);
Ессно после каждого исправления и сохранения скрипта надо перезапускать прогу.

странно, но у меня изначально скрипт выглядит вот так:

Код: Выделить всё

begin
ResultURL:=GetURLBase+RoundEx(GetLMetr,10)+','+RoundEx(GetBMetr,10)+','+RoundEx(GetRMetr,10)+','+RoundEx(GetTMetr,10);
end.

Подставил ваш вариант. Увы, вообще ничего не изменилось. А еще выдает ошибку

У вас программа 2020 года, судя по скрину? У меня крайняя версия и, похоже форматы скриптов разные, или я чего-то не понимаю

Можете скинуть ваш zmp?

begin
ResultURL:=GetURLBase+RoundEx(GetLMetr-5,10)+','+RoundEx(GetBMetr-2,10)+','+RoundEx(GetRMetr-5,10)+','+RoundEx(GetTMetr-2,10);
end.

у меня так и было, но ничего не меняется на карте

PS удалил кэш вроде свежее качается с изменениями
Все спасибо за участие!

samsomus писал(а):...странно, но у меня изначально скрипт выглядит вот так:

Код: Выделить всё

begin
ResultURL:=GetURLBase+RoundEx(GetLMetr,10)+','+RoundEx(GetBMetr,10)+','+RoundEx(GetRMetr,10)+','+RoundEx(GetTMetr,10);
end.

samsomus, теперь понятно - у вас набор слоев от Slinger-а. Там совсем другой принцип построения скрипта использован, упрощенный. Про сдвиг в нем ничего сказать не могу, особо не копался.
Поэтому этот мой метод сдвига работает, естественно, только с моим набором "Rosreestr_new-20.09.2022.zip"(на первой странице, полный набор всех слоев Росреестра, с разбивкой на подменю). Какой набор лучше - вам решать.
У меня GetUrlScript.txt такой:

скрытый текст: показать

var i:integer;
xy:TPoint;
topLeftM,bottomrightM,LL:TDoublePoint;
begin
if (GetX mod 4 = 0) and (GetY mod 4 = 0) then
begin
xy.x:=GetX*256;
xy.y:=GetY*256;
LL:=Converter.Pos2LonLat(XY,GetZ+7);
topLeftM:=Converter.LonLat2Metr(LL);
xy.x:=(GetX+4)*256;
xy.y:=(GetY+4)*256;
LL:=Converter.Pos2LonLat(XY,GetZ+7);
bottomrightM:=Converter.LonLat2Metr(LL);
ResultURL:=GetURLBase + RoundEx(topLeftM.x,10) +','+RoundEx(topLeftM.y,10)+','+RoundEx(bottomrightM.x,10) +','+RoundEx(bottomrightM.y,10) +'&bboxSR=102100&imageSR=102100&size=1024%2C1024&transparent=true&f=image&_ts=false';
end
end.

params.txt тоже отличается:

скрытый текст: показать

[PARAMS]
pnum=9
GUID={56f80aef-120a-4597-85fc-dde57e129f70}
asLayer=1
ParentSubMenu_ru=Росреестр\Земельные участки и ОКС
ParentSubMenu=Rosreestr\Land plots and OKS
name=21-Земельные участки все(22,23,24,25,26,27,28,29)
name_en=Land plots all(21,22,23,24,25,26_27,28,29)
NameInCache=cadastr-21-land_plots_all
DefURLBase=https://pkk.rosreestr.ru/arcgis/rest/services/PKK6/CadastreObjects/MapServer/export?layers=show%3A21&dpi=96&format=PNG32&bbox=
ContentType="image/png"
Ext=.png
EPSG=3785
separator=0
UseDwn=1
Sleep=0
DefHotKey=0
CutCountX=4
CutCountY=4
CutSizeX=256
CutSizeY=256
CutTileX=0
CutTileY=0
MaxConnectToServerCount=1

RequestHead=Referer:https://pkk.rosreestr.ru\r\nConnection: keep-alive\r\nUser-Agent: Mozilla/5.0 (Windows NT 10.0; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/109.0.0.0 Safari/537.36\r\nAccept: image/webp,image/apng,image/*,*/*;q=0.8\r\nAccept-Encoding: gzip, deflate\r\nAccept-Language: ru,en-US;q=0.9,en;q=0.8

License= © Rosreestr

Скрины подменю:

скрытый текст: показать