Карты, не вошедшие в основной список

[iLavrov]

Прочитал ветку про proj4. В голове немножко каши.
GetUrlScript

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

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

var
TL,M: TDoublePoint;
BR,N: TDoublePoint;
Proj4Conv: IProjConverter;
// VEPSG: Integer;

begin
Proj4Args='+proj=tmerc +lat_0=0 +lon_0=30 +k=1 +x_0=4500000 +y_0=0 +ellps=intl +units=m +no_defs';

TL.x := GetLLon;
TL.y := GetTLat;
BR.x := GetRLon;
BR.y := GetBLat;
// VEPSG := 2394;

Proj4Conv := ProjFactory.GetByEPSG(2394);
if Assigned(Proj4Conv) then begin
// Proj4Conv := Converter.GetProj4Converter;
// Proj4Conv.SetEPSG(VEPSG,'');
// if Proj4Conv.Available then begin
  M := Proj4Conv.LonLat2XY(TL);
  N := Proj4Conv.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;
end.

Params

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

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

[PARAMS]
pnum=148
GUID={E1BB4A20-4D08-4A4F-B97D-AE77317652DA}
asLayer=0
name=Карта Карелии (navici.com)
name_en=Karelia map (navici.com)
name_ua=Карта Карелії (navici.com)
ParentSubMenu=Локальные карты
ParentSubMenu_en=Local Maps
ParentSubMenu_ua=Локальні карти
NameInCache=navici_com
DefURLBase=http://ntile1.navici.com/karjala/?LAYERS=topo20k_group&BBOX=
сontentType=image/jpeg,image/png
Ext=.jpg
projection=1
sradiusa=6378137
sradiusb=6356752
separator=1
UseDwn=1
Sleep=0
DefHotKey=
MimeTypeSubst = "image/png=image/jpeg"
DefaultContentType=image/jpeg


Не хочет работать. Возвращает пустую строку в адрес тайла.
Пробовал и чуть по другому обращаться к proj4 (закомментированные строки) - результат тот же.
Без Proj4Args возвращает мой invalid_url.
Такое ощущение, что proj4 не хочет инициализироваться, а как его правильно запустить не понимаю.

[zed]

Во-первых, ваш код не должен был скомпилироваться из-за ошибок синтаксиса, а во-вторых вы смешали 2 подхода:
1. В params.txt прописываем Proj4Args и в скрипте используем конвертер DefProjConverter
2. Создаём конвертер сами при каждом запросе через фабрику ProjFactory

if Proj4Conv.Available then begin

У данного интерфейса нету такого метода. http://sasgis.org/wikisasiya/doku.php/%D ... 0%BE%D0%B2

И да, я немного запамятовал - из коробки SAS поддерживает лишь несколько проекций, которые можно запросить через EPSG код и 2394 в их число не входит, поэтому и в скрипте конвертер нужно создавать через строку инициализации:

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

Proj4Conv := ProjFactory.GetByInitString(VInitStr)

[Tolik]

Вот здесь есть образец zmp с proj4: http://sasgis.org/mantis/view.php?id=1172
Правда, я не проверил, работает ли он сейчас.

P.S. Проверил, не работает:

Compilation error in script
[Error] (17:5): Unknown identifier 'Proj4Conv'

[zed]

День добрый.
Есть очень интересные финские карты Карелии: http://www.karjalankartat.fi/
По ним когда-то давно создали хотелку, но она так и висит.

Попробовал переделать из navici (плюсовой набор карт), т.к. она все равно не пашет, в карту Topografinen kartta 1:20 000.

Пример тайлов с масштаба 1:5000:

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

http://ntile1.navici.com/karjala/?LAYERS=topo20k_group&BBOX=4539347.135552547,6844969.846566473,4539705.535359011,6845328.246372937

params.txt

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

[PARAMS]
pnum=148
GUID={E1BB4A20-4D08-4A4F-B97D-AE77317652DA}
asLayer=0
name=Карта Карелии (navici.com)
name_en=Karelia map (navici.com)
name_ua=Карта Карелії (navici.com)
ParentSubMenu=Локальные карты
ParentSubMenu_en=Local Maps
ParentSubMenu_ua=Локальні карти
NameInCache=navici_com
DefURLBase=http://ntile1.navici.com/karjala/?LAYERS=topo20k_group&BBOX=
сontentType=image/jpeg,image/png
Ext=.jpg
projection=2
sradiusa=6378137
sradiusb=6356752
separator=1
UseDwn=1
Sleep=0
DefHotKey=
MimeTypeSubst = "image/png=image/jpeg"
DefaultContentType=image/jpeg
EPSG=3395

GetUrlScript.txt

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

begin
ResultURL:=GetURLBase+RoundEx(GetLLon,9)+','+RoundEx(GetBLat,9)+','+RoundEx(GetRLon,9)+','+RoundEx(GetTLat,9);
end.

Проблемы:
1. Вместо координат в ссылке на тайл указываны какие-то непонятные числа.
2. Обнаружил, что координаты(вернее вот эти числа в ссылках на тайл) иногда содержат разное количество знаков после запятой:

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

http://ntile1.navici.com/karjala/?LAYERS=topo20k_group&BBOX=4539347.135552547,6843536.247340617,4539705.535359011,6843894.647147081
http://ntile1.navici.com/karjala/?LAYERS=topo20k_group&BBOX=4537555.1365202265,6842461.0479212245,4537913.536326691,6842819.447727689
http://ntile1.navici.com/karjala/?LAYERS=topo20k_group&BBOX=4537196.736713762,6842102.64811476,4537555.1365202265,6842461.0479212245

Также интересует карта Pitäjänkartta 1:20 000 от туда же.
Помогите разобраться, карты ОЧЕНЬ нужны.

В аттаче рабочий zmp.

[Deimos4]

Доброго всем времени суток!Вопрос к мастерам,имеется сервис с однаверстовыми картами (http://orda.of.by/.map/?53.961001,28.18 ... 2&poi=gb/h), если это возможно может кто-то создаст zmp?Я в этом деле профан,а очень хотелось бы иметь сие карты в Планете .Заранее благодарен !

[Tolik]

Вот здесь есть образец zmp с proj4: http://sasgis.org/mantis/view.php?id=1172

не работает:

Compilation error in script
[Error] (17:5): Unknown identifier 'Proj4Conv'

Zed, а в том zmp что не так?

[vdemidov]

Вот здесь есть образец zmp с proj4: http://sasgis.org/mantis/view.php?id=1172

не работает:

Compilation error in script
[Error] (17:5): Unknown identifier 'Proj4Conv'

Zed, а в том zmp что не так?

Ну оно вроде черным по белому пишет, что нет такого идентификатора Proj4Conv который используется там в скрипте.

[Tolik]

Чёрным-то по белому я читать умею. А исправить можете?

[Parasite]

исправить можете?

А багтрекер у нас где? Прааавильно! В багтрекере у нас багтрекер!!

[DJ VK]

В программе используется ссылка Bing
http://ecn.t0.tiles.virtualearth.net/ti ... =en-us&n=z
На самом сайте все намного интереснее
http://ak.dynamic.t0.tiles.virtualearth ... &og=30&n=z

Какие параметры интересно за что отвечают? есть смысл поддержать новую адресацию вместо морально устаревшей?