Вопрос по WMS в GISTollKit12

Администратор

Сообщений: 1413 Регистрация: 10.06.2008

16.11.2018 09:48:29

Для установки смещения были добавлены функции MAPAPI:

Цитата

см. файл wmsapi.h:

// Установить смещение геопортала
// hMap - идентификатор карты
// shiftx - смещение по оси х
// shifty - смещение по оси у
// При ошибке возвращает 0

_MAPIMP long int _MAPAPI mapSetGeoportalShift(HMAP hMap, long int number, double shiftx, double shifty);

// Запросить смещение геопортала
// hMap - идентификатор карты
// shiftx - смещение по оси х
// shifty - смещение по оси у
// При ошибке возвращает 0

_MAPIMP long int _MAPAPI mapGetGeoportalShift(HMAP hMap, long int number, double* shiftx, double* shifty);

Данная опция необходима для установки точного совпадения исходных данных и геопортала (который вводит смещение искусственно).
Смещение устанавливается программно с помощью указанных функций.
Сохранение и восстановление этих параметров в XML не выполняется.

Сергей Викторович

Пользователь

Сообщений: 1020 Регистрация: 27.03.2014

#12

16.11.2018 13:17:17

В uses добавлено
mapviewa, mapwina, mapcmp,
Maptype,
mapcompa, mapfind, mapobja, mapobj, maction, mapedmet, mapcheck,
mappoint, mdlgsher, mDialog, mapdlist, mapproc, maprect,
GisProp;

Но программа не компилируется,
сообщает, что идентификатор не найден:
mapGetGeoportalShift

procedure Tform_main.N67Click(Sender: TObject);
Var
shiftx : double;
shifty : double;
number : integer;
begin
mapGetGeoportalShift(form_main.mvMap, number, shiftx, shifty);
end;

Денис Вицко

Администратор

Сообщений: 1413 Регистрация: 10.06.2008

#13

16.11.2018 15:50:44

Функции по Вашей просьбе были добавлены в ГИС-ядро. Описание функций есть в wmsapi.h.
Библиотеки Вы можете скачать с сайта.

Прототипы функций для Delphi появятся несколько позже в следующих версиях GIS ToolKit.

Пока при необходимости использовать эти функции из программы на Delphi, Вы можете прописать их прототипы самостоятельно.

Сергей Викторович

Пользователь

Сообщений: 1020 Регистрация: 27.03.2014

#14

24.12.2018 10:39:40

Добавление в библиотеки моих правок принесет дополнительную путанницу для меня прежде всего.
Очень прошу добавить функции
mapSetGeoportalShift(HMAP hMap, long int number, double shiftx, double shifty);
mapGetGeoportalShift(HMAP hMap, long int number, double* shiftx, double* shifty);
в 32 битную версию GTK12 и можно заодно и исправленный баг по вызову функции из DLL с описанием вызова формы изменения проекции
и прислать ссылку на скачивание.

Это сейчас очень нужно!

Денис Вицко

Администратор

Сообщений: 1413 Регистрация: 10.06.2008

#15

26.12.2018 13:47:55

Цитата
Сергей Викторович написал: Очень прошу добавить функции

Выпуск новой версии GIS ToolKit 12 запланирован в середине января.
В новой версии будут актуализированы прототипы MAPAPI-функций для Delphi.
В том числе будут добавлены и указанные Вами функции.

Денис Вицко

Администратор

Сообщений: 1413 Регистрация: 10.06.2008

#16

27.12.2018 16:37:23

Описание для указанных Вами функций будет выглядеть так:

Код

// Установить смещение геопортала
// hMap - идентификатор карты
// shiftx - смещение по оси х
// shifty - смещение по оси у
// При ошибке возвращает 0

function mapSetGeoportalShift(map : HMAP; number : integer;shiftx :double;shifty : double) : integer;
 {$IFNDEF LINUXAPI} stdcall {$ELSE} cdecl {$ENDIF}
external sGISACCES;

// Запросить смещение геопортала
// hMap - идентификатор карты
// shiftx - смещение по оси х
// shifty - смещение по оси у
// При ошибке возвращает 0

function mapGetGeoportalShift(map : HMAP; number : integer;var shiftx :double; var shifty : double) : integer;
 {$IFNDEF LINUXAPI} stdcall {$ELSE} cdecl {$ENDIF}
external sGISACCES;