Различия

Здесь показаны различия между двумя версиями данной страницы.

--- описание_паскаль_скриптов [05/04/2015 15:52]
zed
+++ описание_паскаль_скриптов [08/02/2021 18:25] (текущий)
radioxoma [Использование автозамены плейсхолдеров]
@@ Строка 21: / Строка 21: @@
   * **ScriptBuffer** (AnsiString) — буфер, любая информация передаваемая между скриптами
   * **ResultURL** (AnsiString) — сюда нужно сформировать ссылку на тайл
-  * **PostData** (AnsiString) — если в скрипте в строковую переменную PostData поместить какие-то данные, то будет выполнен POST запрос вместо GET запроса.
+  * **PostData** (AnsiString) — если в скрипте в строковую переменную PostData поместить какие-то данные, то будет выполнен POST запрос вместо GET запроса
+Интерфейсные переменные, доступные в скриптах*:
+  * **Downloader** (ISimpleHttpDownloader) — выполнение HTTP запросов внутри скрипта. Доступно только при включённой опции **IsUseDownloaderInScript** в params.txt
+  * **DefProjConverter** (IProjConverter) — конвертер координат в проекции, определённой в params.txt (параметр **Proj4Args**). Доступна только при наличии **proj.dll**
+  * **ProjFactory** (IProjConverterFactory) — фабрика, для создания конвертеров координат различных проекций. Доступна только при наличии **proj.dll**
+  * **Converter** (ICoordConverter) — набор функций для работы с координатами в текущей проекции
+Описание интерфейсов и примеры их использования см. ниже.
+* - эти переменные могут быть не инициализированы (т.е. = nil). Перед использованием их необходимо проверять при помощи функции **Assigned**.
 Функции и процедуры, доступные в скриптах:
@@ Строка 117: / Строка 126: @@
   * function **Base64UrlEncode**(const Data: AnsiString): AnsiString;
   * function **Base64Decode**(const Data: AnsiString): AnsiString;
+  * function **TemplateToUrl**(const ATmpl: String): String;
 ===== Выполнение HTTP запросов из скрипта =====
-В Zmp должно быть включена возможность выполнять http запросы IsUseDownloaderInScript=1
+В zmp должно быть включена возможность выполнять HTTP запросы **IsUseDownloaderInScript=1**
 В скрипте можно пользоваться переменной **Downloader**, если она не пустая, то можно выполнять DoHttpRequest
-Например так:
+<code delphi>
+  ISimpleHttpDownloader = interface
+    function DoHttpRequest(
+      const ARequestUrl, ARequestHeader, APostData: AnsiString;
+      out AResponseHeader, AResponseData: AnsiString
+    ): Cardinal;
+  end;
+</code>
+Пример:
 <code delphi>
@@ Строка 154: / Строка 173: @@
 ===== Работа с хитрыми системами координат =====
-Если в папке с программой присутствует proj480.dll, то в скриптах будут доступны такие переменные
+Если в папке с программой присутствует proj.dll, то в скриптах будут доступны такие переменные
   * переменная **DefProjConverter** с объектом типа:
 <code delphi>
@@ Строка 198: / Строка 217: @@
 </code>
+===== Работа с координатами =====
+<code delphi>
+  ICoordConverter = interface
+    // Преобразует позицию тайла на заданном зуме в георафически координаты его верхнего левого угла
+    function Pos2LonLat(const XY: TPoint; AZoom: byte): TDoublePoint; stdcall;
+    // Преобразует георафические координаты в позицию тайла на заданном зуме накрывающего данные координаты
+    function LonLat2Pos(const Ll: TDoublePoint; AZoom: byte): Tpoint; stdcall;
+    // метрические координаты
+    function LonLat2Metr(const Ll: TDoublePoint): TDoublePoint; stdcall;
+    function Metr2LonLat(const Mm: TDoublePoint): TDoublePoint; stdcall;
+    // Возвращает количество тайлов в заданном зуме
+    function TilesAtZoom(const AZoom: byte): Longint; stdcall;
+    // Возвращает общее количество пикселей на заданном зуме
+    function PixelsAtZoom(const AZoom: byte): Longint; stdcall;
+    // Преобразует позицию тайла заданного зума в координаты пиксела его левого верхнего угла
+    function TilePos2PixelPos(const XY: TPoint; const AZoom: byte): TPoint; stdcall;
+    // Преобразует позицию тайла заданного зума в номера пикселов его углов на заданном зуме
+    function TilePos2PixelRect(const XY: TPoint; const AZoom: byte): TRect; stdcall;
+  end;
+</code>
+Пример:
+<code delphi>
+var
+  VTilesCount: Integer;
+begin
+  if Assigned(Converter) then begin
+    VTilesCount := Converter.TilesAtZoom(GetZ);
+    // производим расчёты и генерируем url
+  end else begin
+    ResultURL := '';
+  end;
+end.
+</code>
+===== Использование автозамены плейсхолдеров =====
+Если файла **GetUrlScript.txt** нет или он пуст (в том числе не содержит ни пробелов, ни переводов строк), то будет выполнен скрипт, который автоматически заменяет плейсхолдеры найденные в **GetURLBase**. Именно в этом формате он применяется при [[простой_пример_с_плейсхолдерами |упрощенном добавлении карт]]). Однако, если вам потребуется, то вы можете использовать эту функцию в собственных скриптах.
+<code delphi>
+begin
+  ResultUrl := TemplateToUrl(GetURLBase);
+end.
+</code>

SASGIS

SAS.Wiki

Различия

SASGIS

SAS.Wiki

Инструменты пользователя

Инструменты сайта

Различия

Инструменты страницы