From 4dcf4c289d52c0444cd94a2e8a8777bf39323cf6 Mon Sep 17 00:00:00 2001 From: sasgis <> Date: Sat, 12 Dec 1970 12:00:00 +0000 Subject: [PATCH] update zmp --- .../ggc/karta_ggc_2km.zmp/GetUrlScript.txt | 51 ++++++++++++++++++- Genshtab/ggc/karta_ggc_2km.zmp/params.txt | 2 +- 2 files changed, 51 insertions(+), 2 deletions(-) diff --git a/Genshtab/ggc/karta_ggc_2km.zmp/GetUrlScript.txt b/Genshtab/ggc/karta_ggc_2km.zmp/GetUrlScript.txt index d7035220..c5dcd226 100644 --- a/Genshtab/ggc/karta_ggc_2km.zmp/GetUrlScript.txt +++ b/Genshtab/ggc/karta_ggc_2km.zmp/GetUrlScript.txt @@ -1,3 +1,52 @@ +function GetCode(const url: AnsiString): Cardinal; +var + VResponseCode: Cardinal; + VResponseHeader, VResponseData: AnsiString; begin - ResultURL:=GetURLBase+'z'+inttostr(getz)+'/'+inttostr(getx div 1024)+'/x'+inttostr(getx)+'/'+inttostr(gety div 1024)+'/y'+inttostr(gety)+'.png'; + 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); + 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)+'.png'; end. diff --git a/Genshtab/ggc/karta_ggc_2km.zmp/params.txt b/Genshtab/ggc/karta_ggc_2km.zmp/params.txt index 0994e54e..d2cad4a0 100644 --- a/Genshtab/ggc/karta_ggc_2km.zmp/params.txt +++ b/Genshtab/ggc/karta_ggc_2km.zmp/params.txt @@ -6,7 +6,7 @@ name_ru=ГосГисЦентр 2 Км name=GosGisCentr 2 Km name_uk=GosGisCentr 2 Kм NameInCache=ggc2km -DefURLBase=http://91.237.82.95:8088/pub/ggc/2km/ +DefURLBase=http://91.237.82.95:8088/pub/ggc/2km.png/ defaultContentType=image/png ParentSubMenu_ru=Генштаб\ГГЦ ParentSubMenu=Genshtab\GGC