Прочитал местную вики, воспользовался поиском, ответа на свой вопрос не нашел. Сдаюсь, прошу помощи.
Сразу скажу, что ни паскалем ни каким-то еще языком программирования не владею, пытался делать по готовым шаблонам.
Понадобилась крупная карта Германии 19 века. Нашел 2 ресурса с подходящими местами:
Вариант 1:
https://mapire.eu/de/map/europe-19centu ... =158%2C164От него пришлось отказаться, так как в свойствах фигурирует canvas, а не прямые ссылки на тайлы, а это, насколько я понял из поисков по сайту, пока данной программе не доступно. (Или не правильно понял?)
Вариант 2:
https://www.landkartenarchiv.de/deutsch ... eiches.phpКарта: KARTE DES DEUTSCHEN REICHS 1:100.000 - GESAMTAUSGABE (1893-1898)
https://www.landkartenarchiv.de/vollbil ... 15&zoom=13Выглядело все просто, адреса тайлов в формате
https://tiles.historic.place/kdr1893/13/4401/2685.pngгде 13-15 зум и 2 четырехзначных числа для X и Y
Пишу params для плейсхолдеров
- скрытый текст: показать
- [PARAMS]
GUID={1334AD70-75F3-476B-8D92-43BE9426C256}
pnum=515
ParentSubMenu_ru=Исторические
name_ru=landkartenarchiv.de - Карта Германия 1:100.000 XIX век
name=landkartenarchiv.de - KARTE DES DEUTSCHEN REICHS 1:100.000 (1893-1898)
NameInCache=KARTE DES DEUTSCHEN REICHS
asLayer=0
EPSG=3785
DefURLBase=https://tiles.historic.place/kdr1893/{z}/{x}/{y}.png
DetectContentType=1
ContentType=image/png
Ext=.png
Получаю ошибку 404
Пробую вариант с ручным набором GetUrlScript
Получается так:
params
- скрытый текст: показать
- [PARAMS]
GUID={1334AD70-75F3-476B-8D92-43BE9426C256}
pnum=515
ParentSubMenu_ru=Исторические
name_ru=landkartenarchiv.de - Карта Германия 1:100.000 XIX век
name=landkartenarchiv.de - KARTE DES DEUTSCHEN REICHS 1:100.000 (1893-1898)
NameInCache=KARTE DES DEUTSCHEN REICHS
asLayer=0
EPSG=3785
DefURLBase=https://tiles.historic.place/kdr1893/
DetectContentType=1
ContentType=image/png
Ext=.png
GetUrlScript
- скрытый текст: показать
- var
Y: integer;
SX, SY: string;
begin
case Y of
0..9: SY := '000'+IntToStr(Y);
10..99: SY := '00'+IntToStr(Y);
100..999: SY := '0'+IntToStr(Y);
1000..9999: SY := IntToStr(Y);
end;
case GetX of
0..9: SX := '000'+IntToStr(GetX);
10..99: SX := '00'+IntToStr(GetX);
100..999: SX := '0'+IntToStr(GetX);
1000..9999: SX := IntToStr(GetX);
end;
if ((GetZ <= 15) and (GetZ >= 13)) then
ResultURL:=GetURLBase+'/'+IntToStr(GetZ-3)+'/'+SX+'/'+SY+'.png';
end.
Ориентировался на пример из вики
http://www.sasgis.org/wikisasiya/doku.p ... 0%B5%D1%80X и Y четырехзначные, Z от 13 до 15.
Получил Tile does not exist.
Что я сделал не так?
