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

Добавление bmp файла на карту

Поиск  Пользователи  Правила  Войти
Форум » Настольные приложения » GIS ToolKit, GIS ToolKit Active, ГИС Конструктор для Windows
Страницы: 1
RSS
Добавление bmp файла на карту, Проблемы с добавлением изображения на карту
 
Здравствуйте!
Пытаюсь добавить изображение формата bmp на карту. Использую структуру PIMGGRAPHICMARK:

tmpGraf : TIMGGRAPHICMARK;
pointGraf : PIMGGRAPHICMARK;

tmpGraf.FileType := 1;
tmpGraf.Height := 1000;
tmpGraf.Width := 1000;
tmpGraf.Length := 50;
tmpGraf.Name := 'test.bmp';
tmpGraf.PosV := 1000;
tmpGraf.PosH := 1000;

tmpobj1 := mapCreateObject(rMap, 0, KM_IDFLOAT2, OL_LINE);
tmpSite := mapGetObjectSiteIdent(rMap, tmpObj1);
tmpobj := mapCreateSiteObject(rMap, tmpSite, KM_IDFLOAT2, 1);
mapRegisterDrawObject(tmpobj, 0, OL_LINE);
mapAppendSemantic(tmpobj, 9, 'Маршрут движения', 150);
pointGraf := @tmpGraf;
mapAppendDraw(tmpobj, IMG_GRAPHICMARK, pointGraf);
mapAppendPointPlane(tmpobj, rX, rY, 0);
mapCommitWithPlace(tmpobj);
mapFreeObject(tmpobj);

За основу взял пример из mapapi "4.2.18 Создание графических объектов".
Подскажите пожалуйста, в чем ошибка.
Версия ГИС Оператора 11.11.5, среда разработки rad studio xe4.  
 
Цитата
tmpGraf : TIMGGRAPHICMARK;
pointGraf : PIMGGRAPHICMARK;
FillChar(tmpGraf , sizeof(TIMGGRAPHICMARK), 0);
tmpGraf.FileType := 1;
tmpGraf.Height := 1000;
tmpGraf.Width := 1000;
tmpGraf.Length := 50; sizeof(TIMGGRAPHICMARK);
tmpGraf.Name := 'test.bmp';
StrLCopy(tmpGraf.Name, ПУТЬ+'test.bmp', sizeof(tmpGraf.Name));
tmpGraf.PosV := 1000; 0;
tmpGraf.PosH := 1000;0;

tmpobj1 := mapCreateObject(rMap, 0, KM_IDFLOAT2, OL_LINE);
tmpSite := mapGetObjectSiteIdent(rMap, tmpObj1);
tmpobj := mapCreateSiteObject(rMap, tmpSite, KM_IDFLOAT2, 1);
mapRegisterDrawObject(tmpobj, 0, OL_LINE OL_MARK);
mapAppendSemantic(tmpobj, 9, 'Маршрут движения', 150);
pointGraf := @tmpGraf;
mapAppendDraw(tmpobj, IMG_GRAPHICMARK, pointGraf@tmpGraf);
mapAppendPointPlane(tmpobj, rX, rY, 0);
mapCommitWithPlace(tmpobj); mapCommitObject(tmpobj);
mapFreeObject(tmpobj);
mapview.Repaint();

Изменено: KFF - 20.08.2018 19:34:18
Не тот глуп кто не знает, а тот, кто не знает где искать.
 
KFF, спасибо за ответ. Исправил, как вы показали. Возникли ошибки:
1. При удалении 4го параметра функции mapCreateSiteObject();
2. При вызове процедуры mapview.Repaint ругается на отсутствие параметров.

Обновление окна работает следующими командами:
TPanWindow(rwindow).Invalidate(1);
TPanWindow(rwindow).UpdateWindow();

При их использовании ошибок нет, но изображение на карту не добавляется.
Страницы: 1
Читают тему (гостей: 1)



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

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