您最多选择25个主题 主题必须以字母或数字开头,可以包含连字符 (-),并且长度不得超过35个字符

GetUrlScript.txt 1.9 KiB

54 年前
54 年前
54 年前
54 年前
54 年前
54 年前
54 年前
54 年前
54 年前
12345678910111213141516171819202122232425262728293031323334353637383940414243
  1. function GetCode(const url: AnsiString): Cardinal;
  2. var
  3. VResponseCode: Cardinal;
  4. VResponseHeader, VResponseData: AnsiString;
  5. begin
  6. Result := 1;
  7. if Assigned(Downloader) then begin
  8. VResponseHeader := '';
  9. VResponseData := '';
  10. VResponseCode := Downloader.DoHttpRequest(url, '', '', VResponseHeader, VResponseData);
  11. Result := VResponseCode;
  12. end;
  13. end;
  14. var
  15. code: Cardinal;
  16. z_ok, z_no: integer;
  17. begin
  18. ResultURL := '';
  19. z_ok := StrToIntDef(GetBefore(';', ScriptBuffer), 1); // Максимальный масштаб, который точно есть
  20. z_no := StrToIntDef(GetAfter(';', ScriptBuffer), 25); // Минимальный масштаб, которого точно нет
  21. // Масштаба нет - говорить не о чем
  22. if getz >= z_no then exit;
  23. // Проверяем наличие масштаба
  24. if getz > z_ok then begin
  25. code := GetCode(GetURLBase+'z'+inttostr(getz)+'/');
  26. // Внимание! Если сервер вернёт 403 - code почему-то будет 0. Так что выбор "404 или что-то иное"
  27. // Если дело дошло до проверки наличия масштаба - значит какая-то граница (z_ok / z_no) точно подвинется.
  28. if code = 404 then z_no := getz else z_ok := getz;
  29. // Сохраняем актуализированные границы для последующих вызовов
  30. ScriptBuffer := inttostr(z_ok) + ';' + inttostr(z_no);
  31. // Масштаба нет (о чём могли только что при проверке узнать) - говорить не о чем
  32. if getz >= z_no then exit;
  33. end;
  34. // Ок, качаем тайлик
  35. ResultURL:= GetURLBase+'z'+inttostr(getz)+'/'+inttostr(getx div 1024)+'/x'+inttostr(getx)+'/'+inttostr(gety div 1024)+'/y'+inttostr(gety)+'.png';
  36. end.