Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Образование тайлов / 13 сообщений из 13, страница 1 из 1
18.09.2018, 16:53
    #39704428
adminsamara
adminsamara
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Образование тайлов
до 10 слоя ссылки генерируются правильно, почему на 11 таких тайлов не существует?! (догадываюсь что файлы хранятся по 1024 в папке)...
Код: pascal
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
procedure TForm10.Button2Click(Sender: TObject);
var
  vec,ResultURL,put: string;
  GetX,GetY,GetZ,i:integer;
  stream:tmemorystream;
  m:integer;
  begin
  m:=10;
    GetX:=strtoint(floattostr(zoom(m)));
    repeat
    GetX:=GetX-1;
    GetY:=strtoint(floattostr(zoom(m)));
       repeat
         GetY:=GetY-1;
         GetZ:=m;


         vec:='http://............................................................=';
         ResultURL := vec +inttostr(GetX)+'&y='+inttostr(GetY)+'&z='+inttostr(GetZ-1)+'&g=';

         //put:='M:\mycash\'+inttostr(GetZ)+'\'+ inttostr(GetX div 1024)+'\x'+inttostr(GetX)+'\'+ inttostr(GetY div 1024)+'\';

         memo1.Lines.add(ResultURL);
         //memo2.Lines.add(put+inttostr(GetY)+'.png');


        //wait(100);
       until GetY=0;
    application.ProcessMessages;
    until GetX=0;

  end;
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
18.09.2018, 16:58
    #39704431
defecator
defecatorПривилегированный пользователь
Модератор форума
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Образование тайлов
Код: pascal
1.
2.
3.
4.
5.
 m:=10;
    GetX:=strtoint(floattostr(zoom(m)));
    repeat
    GetX:=GetX-1;
    GetY:=strtoint(floattostr(zoom(m)));



Ах, какой замечательный код !
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
18.09.2018, 16:59
    #39704432
Кроик Семён
Кроик Семён
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Образование тайлов
1) openmaps.pas
http://www.sql.ru/forum/actualfile.aspx?id=21528978
Код: pascal
1.
2.
Function omGetTileX
Function omGetTileY



2)
http://www.sql.ru/forum/1297289/mozhet-komu-prigoditsya-openstreetmap-demo-svoimi-rukami
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
19.09.2018, 11:13
    #39704798
adminsamara
adminsamara
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Образование тайлов
Кроик Семён,

Это то понятно все, как перечислить все тайлы на всех зумах?!
Например на 5 зуме вывести все ссылки на тайлы.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
19.09.2018, 11:22
    #39704807
goldmi45
goldmi45
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Образование тайлов
adminsamara,

Вместо
Код: pascal
1.
  strtoint(floattostr(zoom(m))); // Будет ошибка при StrToInt(FloatToStr(1.2))



используйте
Код: pascal
1.
  Trunc(zoom(m));  // Целая часть от числа с плавающей точкой
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
19.09.2018, 11:28
    #39704809
Кроик Семён
Кроик Семён
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Образование тайлов
X: [0..(2^zoom)-1]
Y: [0..(2^zoom)-1]
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
19.09.2018, 11:40
    #39704817
Кроик Семён
Кроик Семён
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Образование тайлов
кстати, бывает еще разделение на a/b/c суб-домены (видимо, чтобы снизить нагрузку на серверы в 3 раза)

https://a.tile.openstreetmap.org/11/1139/677.png
https://b.tile.openstreetmap.org/11/1139/677.png
https://c.tile.openstreetmap.org/11/1139/678.png
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
19.09.2018, 11:45
    #39704819
adminsamara
adminsamara
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Образование тайлов
Кроик Семён,

Понял, щас попробуем
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
19.09.2018, 12:00
    #39704825
adminsamara
adminsamara
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Образование тайлов
adminsamara,

С сылкой разобрался, а как быть с путем вот пример
Код: pascal
1.
\cache\osm_CycleMap\z15\10\x10472\5\y5324.png


Откуда появились 10 и 5 ?!
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
19.09.2018, 12:09
    #39704830
adminsamara
adminsamara
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Образование тайлов
adminsamara,

Это 10472 div 1024
5324 div 1024 так?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
19.09.2018, 12:12
    #39704831
Кроик Семён
Кроик Семён
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Образование тайлов
adminsamara,

Это кэш какой программы?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
19.09.2018, 12:40
    #39704859
adminsamara
adminsamara
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Образование тайлов
Кроик Семён,

sasplanet
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
19.09.2018, 13:00
    #39704872
defecator
defecatorПривилегированный пользователь
Модератор форума
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Образование тайлов
adminsamaraКроик Семён,

sasplanet

SASPlanet доступна в исходных кодах, скачай и посмотри, как они делают.
Там код простой
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Образование тайлов / 13 сообщений из 13, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 465ms
Закрыть
start [/forum/topic.php?fid=58&mobile=1&tid=2040399]:
 0ms
get settings:
 7ms
get forum list:
 18ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 149ms
get topic data:
 11ms
get forum data:
 3ms
get page messages:
 58ms
get tp. blocked users:
 1ms
others: 212ms
total:  465ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]