На главную... Продукты | Технологии | Классификаторы | Проекты | Скачать | Цены| Форум | Статьи | Обучение | Контакты

Изменить параметры проекции

Поиск  Пользователи  Правила  Войти
Форум » Настольные приложения » GIS ToolKit, GIS ToolKit Active, ГИС Конструктор для Windows
Страницы: Пред. 1 2 3 4 5 6
RSS
Изменить параметры проекции, Изменить параметры проекции
 
Вернул все как было:

// Функция для вычисления проекции
 function Modify(hmap: HMAP; parm: PTASKPARMEX): integer;
 {$IFNDEF LINUXAPI} stdcall {$ELSE} cdecl {$ENDIF};
 external sGISVECTR;

procedure Tform_main.N20Click(Sender: TObject);
var
aPathShell, aIniName : GTKString;
parm: TTASKPARMEX;
appname, shpath, ininame : GtkString;
begin
if (mvMap.Active) then
begin
// Имя приложения
appname := GtkString(Application.Title);
// Каталог приложения (exe,dll,...)
shpath  := GtkString(ExtractFilePath(Application.ExeName));
// Полное имя файла ".ini" приложения
ininame := GtkString(Application.ExeName + '.ini');
// Подготовка структуры
FillChar(parm, sizeof(parm), 0);
 with parm do
 begin
 Language  := cML_RUSSIAN;       // Локализация интерфейса
 Handle    := Self.Handle;       // Идентификатор главного окна приложения
 DocHandle := mvMap.Handle;   // Идентификатор окна карты

 aPathShell  := GTKPChar(ExtractFilePath(Application.ExeName));
 aIniName    := GTKPChar(aPathShell +'Uzor.ini');
 PathShell := GTKPChar(aPathShell);
 IniName := GTKPChar(aIniName);
 ApplicationName := GTKPChar(appname);   // Имя приложения
 end;
 Modify(mvMap.MapHandle, @parm);
end
else
ShowMessage('Нет открытой карты!');
end;

Программа компилируется нормально.
Запускается тоже нормально.
Но при попытке вызвать Tform_main.N20Click
Результат на скриншоте.

Возможно я путаюсь с кодировкой?
Sceenshort10.PNG (6.83 КБ)
 
Теперь и запускаться прикладная программа перестала. Выскакивает таже ошибка, что на скриншоте предыдущего сообщения.
 
В vectrapi.h приведен пример вызова функции Modify()

  // Загрузка библиотеки                                        
  HINSTANCE libInst = ::LoadLibrary("gisu64vectr.dll");        

  // Вызов функции                                              
  typedef long int (WINAPI * MODIFY)(HMAP hmap, TASKPARMEX * parm)

  MODIFY modify = (MODIFY)GetProcAddress(libInst, "Modify");

  long int rezult = 0;

  if (modify)
    rezult = (*modify)(hmap, parm);
                                                                 
  // Выгрузка библиотеки
  if (libInst)
    ::FreeLibrary(libInst);                                      
 
Б
Цитата
Сергей Викторович написал:
Теперь и запускаться прикладная программа перестала. Выскакивает таже ошибка, что на скриншоте предыдущего сообщения.
Обновили библиотеки gislib12x64.zip от 19.12.2018
Просьба обновить на нашем сайте раздел "Скачать":
http://gisinfo.ru/download?id=180
Изменено: Елена Кузнецова - 19.12.2018 17:24:31
 
У меня есть подозрение, что мы используем библиотеки gislib12x32
Возможно это связано с тем, что некоторые наши пользователи
используют 32 битные ОС

Можно ли добавить сюда ссылку на скачивание
gislib12x32.zip ?
 
Цитата
Сергей Викторович написал:
Можно ли добавить сюда ссылку на скачивание  gislib12x32.zip ?
Пересоберем библиотеки gislib12x32.zip и выложим на сайт, раздел "Скачать".
 
Просьба, т.к. это я заметил ошибку,
прислать мне на почту ссылку на новые библиотеки gislib12x32.zip
Спасибо.
 
Цитата
Сергей Викторович написал:
прислать мне на почту ссылку на новые библиотеки gislib12x32.zip
Ответили по электронной почте.
Страницы: Пред. 1 2 3 4 5 6
Читают тему (гостей: 1)



© КБ Панорама, 1991-2024

Регистрируясь или авторизуясь на форуме, Вы соглашаетесь с Политикой конфиденциальности