sasbot 4 лет назад
Родитель
Сommit
164db1c3fb
10 измененных файлов: 88 добавлений и 5 удалений
  1. +0
    -1
      _tourism/TyanShan/TyanShan.zmp/params.txt
  2. +0
    -1
      _tourism/TyanShan/tyan_shan.zmp/params.txt
  3. +0
    -1
      _tourism/djungarii.zmp/params.txt
  4. +0
    -1
      _tourism/hrebtovka_elbrus.zmp/params.txt
  5. Двоичные данные
      _tourism/kyrgyz.zmp/18.bmp
  6. Двоичные данные
      _tourism/kyrgyz.zmp/24.bmp
  7. +53
    -0
      _tourism/kyrgyz.zmp/GetUrlScript.txt
  8. +16
    -0
      _tourism/kyrgyz.zmp/info.txt
  9. +19
    -0
      _tourism/kyrgyz.zmp/params.txt
  10. +0
    -1
      _tourism/terskey.zmp/params.txt

+ 0
- 1
_tourism/TyanShan/TyanShan.zmp/params.txt Просмотреть файл

@@ -10,7 +10,6 @@ DefURLBase=http://91.237.82.95:8088/pub/tourism/tyanshan/
projection=1
sradiusa=6378137
sradiusb=6378137
CACHETYPE=4
NameInCache=TyanShan
Ext=.jpg
defaultContentType=image/jpeg


+ 0
- 1
_tourism/TyanShan/tyan_shan.zmp/params.txt Просмотреть файл

@@ -10,7 +10,6 @@ DefURLBase=http://91.237.82.95:8088/pub/tourism/tyan_shan/
projection=1
sradiusa=6378137
sradiusb=6378137
CACHETYPE=4
NameInCache=Tyan_Shan
Ext=.jpg
defaultContentType=image/jpeg


+ 0
- 1
_tourism/djungarii.zmp/params.txt Просмотреть файл

@@ -9,7 +9,6 @@ DefURLBase=http://g-utka.ru/tsvetik/automaps/jungariaoro/olmap/
projection=1
sradiusa=6378137
sradiusb=6378137
CACHETYPE=4
NameInCache=djungarii
Ext=.jpg
UsePreloadPage=0


+ 0
- 1
_tourism/hrebtovka_elbrus.zmp/params.txt Просмотреть файл

@@ -10,7 +10,6 @@ DefURLBase=http://91.237.82.95:8088/pub/tourism/hr_elbrus/
projection=1
sradiusa=6378137
sradiusb=6378137
CACHETYPE=4
NameInCache=hr_elbrus
Ext=.jpg
defaultContentType=image/jpeg


Двоичные данные
_tourism/kyrgyz.zmp/18.bmp Просмотреть файл

До После

Двоичные данные
_tourism/kyrgyz.zmp/24.bmp Просмотреть файл

До После

+ 53
- 0
_tourism/kyrgyz.zmp/GetUrlScript.txt Просмотреть файл

@@ -0,0 +1,53 @@
function GetCode(const url: AnsiString): Cardinal;
var
VResponseCode: Cardinal;
VResponseHeader, VResponseData: AnsiString;
begin
Result := 1;
if Assigned(Downloader) then begin
VResponseHeader := '';
VResponseData := '';
VResponseCode := Downloader.DoHttpRequest(url, '', '', VResponseHeader, VResponseData);
Result := VResponseCode;
end;
end;
var
BaseUrl: string;
code: Cardinal;
z_ok, z_no: integer;
r: integer;
begin
ResultURL := '';
z_ok := StrToIntDef(GetBefore(';', ScriptBuffer), 1); // Максимальный масштаб, который точно есть
z_no := StrToIntDef(GetAfter(';', ScriptBuffer), 25); // Минимальный масштаб, которого точно нет
// Масштаба нет - говорить не о чем
if getz >= z_no then exit;
// Выбор зеркала
// r := random(2);
r := 0;
case r of
0: BaseUrl := GetURLBase;
// 1: BaseUrl := RegExprReplaceMatchSubStr(GetURLBase, '91.237.82.95:8088', 'maps.melda.ru');
end;
// Проверяем наличие масштаба
if getz > z_ok then begin
code := GetCode(BaseUrl+'z'+inttostr(getz)+'/');
// Внимание! Если сервер вернёт 403 - code почему-то будет 0. Так что выбор "404 или что-то иное"
// Если дело дошло до проверки наличия масштаба - значит какая-то граница (z_ok / z_no) точно подвинется.
if code = 404 then z_no := getz else z_ok := getz;
// Сохраняем актуализированные границы для последующих вызовов
ScriptBuffer := inttostr(z_ok) + ';' + inttostr(z_no);
// Масштаба нет (о чём могли только что при проверке узнать) - говорить не о чем
if getz >= z_no then exit;
end;
// Ок, качаем тайлик
ResultURL:= BaseUrl+'z'+inttostr(getz)+'/'+inttostr(getx div 1024)+'/x'+inttostr(getx)+'/'+inttostr(gety div 1024)+'/y'+inttostr(gety)+'.jpg';
end.

+ 16
- 0
_tourism/kyrgyz.zmp/info.txt Просмотреть файл

@@ -0,0 +1,16 @@
<br>
Если у Вас есть чем дополнить этот раздел - смело шлите на ящик garl@mail.ru <br>
<br>
<br>
<br>Схема-хребтовка Киргизского хребта.
<br>
<br>Схема разбита на шесть листов, приблизительно соответствующих стандартным номенклатурным листам. Масштаб схемы 1:50000. Файлы выложены в формате GeoTIFF. Их можно открывать как обычными программами для работы с графическими файлами, так и специализированными программами для работы с геоданными (Global mapper, Ozi explorer и др.) Разрешение изображений 254 dpi или 100 точек на сантиметр.
<br>Точность привязки соответствует карте масштаба 1:200000.
<br>
<br>Схема распространяется в формате AS IS (как есть). Она заведомо содержит некоторое количество ошибок. Я стараюсь находить их и исправлять, однако не доверяйте этой схеме как единственному источнику информации, проверяйте местоположение объектов по другим данным. Я буду рад любой информации, которорая позволит уточнить схемы. Пишите мне электронной почтой (avp westra.ru) или (что надёжнее) личным сообщением на форуме.
<br>Схема довольно часто обновляется.
<br>
<br>Разрешается некоммерческое использование схемы. Любое коммерческое использование (продажа, издание, включение в коммерческие сборники схем) запрещается. Если вы используете фрагменты схемы в отчётах и <br>т.д., пожалуйста, поставьте ссылку на эту страницу. Так вы дадите своим читателям возможность скачать свежую версию схемы
<br>
<br>Версия 04.04.2007
<br>http://westra.ru/reports/tianshan/kirgmap.html

+ 19
- 0
_tourism/kyrgyz.zmp/params.txt Просмотреть файл

@@ -0,0 +1,19 @@
[PARAMS]
pnum=17
GUID={6e2d3659-d51a-4121-8b38-9c96381370b3}
name_ru=Ñõåìà-õðåáòîâêà Êèðãèçñêîãî õðåáòà.
name=Kyrgyz ridge map
ParentSubMenu_ru=Òóðèñòè÷åñêèå\Êèðãèçèÿ
ParentSubMenu=Tourism\Kyrgyz
DefURLBase=http://91.237.82.95:8088/pub/tourism/kyrgyz/
projection=1
sradiusa=6378137
sradiusb=6378137
NameInCache=kyrgyz
Ext=.jpg
defaultContentType=image/jpeg
ContentType="image/jpeg"
MaxConnectToServerCount=1
License=© Àëåêñàíäð Ïóðèêîâ
IsUseDownloaderInScript=1

+ 0
- 1
_tourism/terskey.zmp/params.txt Просмотреть файл

@@ -9,7 +9,6 @@ DefURLBase=http://map.g-utka.ru/
projection=1
sradiusa=6378137
sradiusb=6378137
CACHETYPE=4
NameInCache=Terskey
Ext=.png
UsePreloadPage=0


Загрузка…
Отмена
Сохранить