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

[garl]

гляньте кадастровый слой росреестра.

[Tolik]

гляньте кадастровый слой росреестра.

Глянул.
Converter.Pos2LonLat
Converter.LonLat2Metr
А описание
Не сочтите за труд, опишите все переменные, функции и т.п. - всё, что можно использовать в скриптах.
Базовые функции дельфи перечислять не надо.

[Tolik]

Оказывается, на geohub.net есть карты не только Кировской области!
Добавил ещё в репозиторий:
Другие карты - Карта (geohub.net)
Слой - Гибрид (geohub.net)

[Sash1970]

Координаты в метрах от экватора? и от какого меридиана?
Это как раз те цифры, которые нужны для Максикарты? BBOX=5009427.52,7014551.88,5014390.56,7019514.92

В метрах от координаты 0,0 (то бишь от экватора и от Гринвича).
Для Максикарты - ResultURL:=GetURLBase+RoundEx(GetLMetr,2)+','+RoundEx(GetBMetr,2)+','+RoundEx(GetRMetr,2)+','+RoundEx(GetTMetr,2);
Но не факт... и вообще, это кажись Гауса-Крюгера...
Карта дрянная на мой взгляд, не стал с ней заморачиваться.

[Sash1970]

surr: Ловите Karta58.ru. Без привязки, ищите Пензу на координатах 0,0. В принципе и для Максикарты тоже самое почти, только ХЗ где её (карту) искать... на каких координатах (высчитывать лениво). Да и карты то так себе...

Спасибо большое. Очень благодарен. Да рано я радовался, ничего не работает. немного разобрался, но там похож ip меняется в разных тайлах (168.144.130.75/app4) и в адресе еще (app4) тоже может быть разная цифра, от чего зависит она так и не понял.

Ну, не знаю у меня zmp работает, всю Пензу выкачивать не стал, но... 17-й и 18-й уровень выкачал весь.

[Tolik]

Хотелось бы подключить вот такую карту: http://www.viamichelin.com/web/Maps
Это карта от Телеатлас, правда, немного устаревшая, но всё равно интересная.
Но самое интересное - как расшифровать эту белиберду!

Вот квадрат из 9-ти тайлов, сверху вниз, потом слева направо:

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

http://m1.viamichelin.com/mapsgene/dm/mapdirect;ZXVyX2NfMDAwNmtfcjA2;MDAwMDAwNzIxMDAwMDAwMTAxMjg=?
http://m1.viamichelin.com/mapsgene/dm/mapdirect;ZXVyX2NfMDAwNmtfcjA2;MDAwMDAwNzIxMDAwMDAwMTAxMjk=?
http://m1.viamichelin.com/mapsgene/dm/mapdirect;ZXVyX2NfMDAwNmtfcjA2;MDAwMDAwNzIwODAwMDAwMTAxMzI=?
http://m1.viamichelin.com/mapsgene/dm/mapdirect;ZXVyX2NfMDAwNmtfcjA2;MDAwMDAwNzIxMTAwMDAwMTAxMjg=?
http://m1.viamichelin.com/mapsgene/dm/mapdirect;ZXVyX2NfMDAwNmtfcjA2;MDAwMDAwNzIxMTAwMDAwMTAxMjk=?
http://m1.viamichelin.com/mapsgene/dm/mapdirect;ZXVyX2NfMDAwNmtfcjA2;MDAwMDAwNzIwOTAwMDAwMTAxMzI=?
http://m1.viamichelin.com/mapsgene/dm/mapdirect;ZXVyX2NfMDAwNmtfcjA2;MDAwMDAwNzIxMDAwMDAwMTAxMzA=?
http://m1.viamichelin.com/mapsgene/dm/mapdirect;ZXVyX2NfMDAwNmtfcjA2;MDAwMDAwNzIxMDAwMDAwMTAxMzE=?
http://m1.viamichelin.com/mapsgene/dm/mapdirect;ZXVyX2NfMDAwNmtfcjA2;MDAwMDAwNzIwODAwMDAwMTAxMzQ=?

P.S. У этой карты ещё и масштаб нестандартный
Так что интерес скорее спортивный.

[Papazol]

Похоже на кондовый Base64.

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

ZXVyX2NfMDAwNmtfcjA2;MDAwMDAwNzIxMDAwMDAwMTAxMjg=? = eur_c_0006k_r06;00000072100000010128
ZXVyX2NfMDAwNmtfcjA2;MDAwMDAwNzIxMDAwMDAwMTAxMjk=? = eur_c_0006k_r06;00000072100000010129
ZXVyX2NfMDAwNmtfcjA2;MDAwMDAwNzIwODAwMDAwMTAxMzI=? = eur_c_0006k_r06;00000072080000010132
ZXVyX2NfMDAwNmtfcjA2;MDAwMDAwNzIxMTAwMDAwMTAxMjg=? = eur_c_0006k_r06;00000072110000010128
ZXVyX2NfMDAwNmtfcjA2;MDAwMDAwNzIxMTAwMDAwMTAxMjk=? = eur_c_0006k_r06;00000072110000010129
ZXVyX2NfMDAwNmtfcjA2;MDAwMDAwNzIwOTAwMDAwMTAxMzI=? = eur_c_0006k_r06;00000072090000010132
ZXVyX2NfMDAwNmtfcjA2;MDAwMDAwNzIxMDAwMDAwMTAxMzA=? = eur_c_0006k_r06;00000072100000010130
ZXVyX2NfMDAwNmtfcjA2;MDAwMDAwNzIxMDAwMDAwMTAxMzE=? = eur_c_0006k_r06;00000072100000010131
ZXVyX2NfMDAwNmtfcjA2;MDAwMDAwNzIwODAwMDAwMTAxMzQ=? = eur_c_0006k_r06;00000072080000010134

Надо ещё разбираться с масштабом, чем они отличаются.

[Tolik]

Точно, похоже!
Хотя цифры получились неочевидные.
А в САС.Планете есть функция кодирования в Base64?

[feya]

Tolik

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

function Encode(S: string): string;
var i,a,x,b: Integer;
   Codes64:string;
begin
 Codes64:='ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/';
 for i:=1 to length(s) do
  if ord(s[i]) mod 2 = 0 then S[i]:=chr(ord(s[i])+1)
                         else S[i]:=chr(ord(s[i])-1);
 Result:='';
 a:=0;
 b:=0;
 for i := 1 to Length(s) do
  begin
   x:=Ord(s[i]);
   b:=b*256+x;
   a:=a+8;
   while a >= 6 do
    begin
     a := a-6;
     x := b div (1 shl a);
     b := b mod (1 shl a);
     Result := Result + Codes64[x + 1];
    end;
  end;
 if a>0 then Result:=Result+Codes64[(b shl (6-a))+1];
end;

[lokiab]

Есть проблемы с eatlas.
Например, Красноармейск при масштабе 14 и выше отображается в разных масштабах.
Видимо, надо поправить в скрипте строку
if ((Zm11dx>2461)and(Zm11dx<2482))and((Zm11dy>1271)and(Zm11dy<1296)) then mn:='MskMO' else
но как именно?..