sasgis 54 лет назад
Родитель
Сommit
c8a75c5030
5 измененных файлов: 0 добавлений и 78 удалений
  1. Двоичные данные
      _tourism/TyanShan/TyanShan.zmp/18.bmp
  2. Двоичные данные
      _tourism/TyanShan/TyanShan.zmp/24.bmp
  3. +0
    -56
      _tourism/TyanShan/TyanShan.zmp/GetUrlScript.txt
  4. +0
    -4
      _tourism/TyanShan/TyanShan.zmp/info.txt
  5. +0
    -18
      _tourism/TyanShan/TyanShan.zmp/params.txt

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

До После

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

До После

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

@@ -1,56 +0,0 @@
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;
// Выбор зеркала, если не указана версия
if version = '' then
r := random(2)
else
r := StrToInt(version);
case r of
0: BaseUrl := GetURLBase;
1: BaseUrl := RegExprReplaceMatchSubStr(GetURLBase, 'http://91.237.82.95:8088', 'https://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.

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

@@ -1,4 +0,0 @@
Все карты и права из раздела "Туристические" принадлежат их владельцам <br>
<br>
Если у Вас есть чем дополнить этот раздел - смело шлите на ящик garl@mail.ru <br>
<br>

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

@@ -1,18 +0,0 @@
[PARAMS]
pnum=17
GUID={03F32FF2-2450-406C-9007-364BA6361DE8}
name_ru=Ãîðíûå ïåðåâàëû ñåâåðíîãî Òÿíü-Øàíÿ
name=Tyan-Shan mountain pass
ParentSubMenu_ru=Òóðèñòè÷åñêèå\Òÿíü-Øàíü
ParentSubMenu=Tourism\Tyan-Shan
DefURLBase=http://91.237.82.95:8088/pub/tourism/tyanshan/
projection=1
sradiusa=6378137
sradiusb=6378137
NameInCache=TyanShan
Ext=.jpg
defaultContentType=image/jpeg
ContentType="image/jpeg"
MaxConnectToServerCount=1
IsUseDownloaderInScript=1

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