Сергей Викторович (Все сообщения пользователя)

[QUOTE]Денис Вицко написал:
mapCreateAndAppendTempSitePro[/QUOTE]
Да, все хорошо.
Спасибо.

Здравствуйте!

К основной карте нужно добавить временную карту
и создавать на ней объекты,
с целью дальнейшего сохранения фрагмента основной карты вместе с временной картой в Emf.

Делаем это так:

Var
TempObject            : integer;
TempSite : integer;
res : integer;
begin

TempSite := mapCreateTempSiteExUn(PWChar(PathProgramm+'Uzor.rsc'),Nil,Nil,Nil);

ShowMessage ('TempSite = '+IntToStr(TempSite)); // 142366680

TempObject := mapCreateSiteObject(TempSite, TempSite,KM_IDDOUBLE2, 0);

ShowMessage ('TempObject = '+IntToStr(TempObject)); // 141284176

kd_new := 10000090;
loc_new := 1;

res := mapReadCopyObject(TempObject,form_main.MapObj2.ObjHandle);

res := mapRegisterObject(TempObject,kd_new, loc_new);

ShowMessage ('res_1 = '+IntToStr(res)); // 58

res := mapSetObjectMap(TempObject,TempSite);

ShowMessage ('res_2 = '+IntToStr(res)); // 0

res := mapChangeObjectMap(TempObject,TempSite,TempSite);

ShowMessage ('res_3 = '+IntToStr(res)); // 1

res := mapCommit(TempObject);

ShowMessage ('res_4 = '+IntToStr(res)); // 1

В результате программа компилируется и выполняется,
но новые объекты не появляются на карте.
За двойным слешем результат.

Что я не так делаю?

[QUOTE]Andrey Gheleznyakov написал:
AddServiceSemantic[/QUOTE]
понятно,
спасибо
заменили библиотеки,
теперь все хорошо

Здравствуйте!

Скачали с сайта gisinfo.ru
последний дистрибутив GIS ToolKit 14.5.2.1
Установили под Delphi XE5
Все нормально, но почему-то перестал работать метод Add при добавлении семантики
в визуальном компоненте TMapFind
Что-то я не так делаю?

P.S.
в версии 4.5.0.0 это работает

Здравствуйте!

Собираем объект и подобъекты его, в Мультиполигон следующим образом:

Скрытый текст

[CODE] If XMLDocument.DOMDocument.documentElement.childNodes[a].childNodes[b].childNodes[c].childNodes[d].childNodes[e].childNodes[g].childNodes[h].childNodes[k].childNodes[m].childNodes[n].childNodes[q].nodeName = 'spatials_elements' then                          begin                          SubObjCount := XMLDocument.DOMDocument.documentElement.childNodes[a].childNodes[b].childNodes[c].childNodes[d].childNodes[e].childNodes[g].childNodes[h].childNodes[k].childNodes[m].childNodes[n].childNodes[q].childNodes.length;                          SubObjNum := 0;                           // Прокручиваем подобъекты в цикле                           For w := 0 to SubObjCount-1 do                           begin                            If w = 0 then                            begin                            hSite := mapGetSiteIdent(form_main.mvMap.MapHandle,1);                            hObjKPT := mapCreateSiteObject(form_main.mvMap.MapHandle, hSite,KM_IDDOUBLE2, 0);                            mapRegisterObject(hObjKPT, 10000017, OL_SQUARE);                            end;                            If w > 0 then                            SubObjNum := mapCreateSubject(hObjKPT);                            If XMLDocument.DOMDocument.documentElement.childNodes[a].childNodes[b].childNodes[c].childNodes[d].childNodes[e].childNodes[g].childNodes[h].childNodes[k].childNodes[m].childNodes[n].childNodes[q].childNodes[w].nodeName = 'spatial_element' then                            begin                             For r := 0 to XMLDocument.DOMDocument.documentElement.childNodes[a].childNodes[b].childNodes[c].childNodes[d].childNodes[e].childNodes[g].childNodes[h].childNodes[k].childNodes[m].childNodes[n].childNodes[q].childNodes[w].childNodes.length-1 do                             begin                              If XMLDocument.DOMDocument.documentElement.childNodes[a].childNodes[b].childNodes[c].childNodes[d].childNodes[e].childNodes[g].childNodes[h].childNodes[k].childNodes[m].childNodes[n].childNodes[q].childNodes[w].childNodes[r].nodeName = 'ordinates' then                              begin                               For t := 0 to XMLDocument.DOMDocument.documentElement.childNodes[a].childNodes[b].childNodes[c].childNodes[d].childNodes[e].childNodes[g].childNodes[h].childNodes[k].childNodes[m].childNodes[n].childNodes[q].childNodes[w].childNodes[r].childNodes.length-1 do                               begin                                If XMLDocument.DOMDocument.documentElement.childNodes[a].childNodes[b].childNodes[c].childNodes[d].childNodes[e].childNodes[g].childNodes[h].childNodes[k].childNodes[m].childNodes[n].childNodes[q].childNodes[w].childNodes[r].childNodes[t].nodeName = 'ordinate' then                                begin                                 For z := 0 to XMLDocument.DOMDocument.documentElement.childNodes[a].childNodes[b].childNodes[c].childNodes[d].childNodes[e].childNodes[g].childNodes[h].childNodes[k].childNodes[m].childNodes[n].childNodes[q].childNodes[w].childNodes[r].childNodes[t].childNodes.length-1 do                                 begin                                  If XMLDocument.DOMDocument.documentElement.childNodes[a].childNodes[b].childNodes[c].childNodes[d].childNodes[e].childNodes[g].childNodes[h].childNodes[k].childNodes[m].childNodes[n].childNodes[q].childNodes[w].childNodes[r].childNodes[t].childNodes[z].nodeName = 'x'  then                                  tmp_X :=  StrToFloat(XMLDocument.DOMDocument.documentElement.childNodes[a].childNodes[b].childNodes[c].childNodes[d].childNodes[e].childNodes[g].childNodes[h].childNodes[k].childNodes[m].childNodes[n].childNodes[q].childNodes[w].childNodes[r].childNodes[t].childNodes[z].childNodes[0].nodeValue);                                  If XMLDocument.DOMDocument.documentElement.childNodes[a].childNodes[b].childNodes[c].childNodes[d].childNodes[e].childNodes[g].childNodes[h].childNodes[k].childNodes[m].childNodes[n].childNodes[q].childNodes[w].childNodes[r].childNodes[t].childNodes[z].nodeName = 'y' then                                  tmp_Y := StrToFloat(XMLDocument.DOMDocument.documentElement.childNodes[a].childNodes[b].childNodes[c].childNodes[d].childNodes[e].childNodes[g].childNodes[h].childNodes[k].childNodes[m].childNodes[n].childNodes[q].childNodes[w].childNodes[r].childNodes[t].childNodes[z].childNodes[0].nodeValue);                                 end;                                 mapAppendPointPlane(hObjKPT, tmp_X, tmp_Y, SubObjNum);                                end;                               end;                              end;                             end;                            end;                           end;[/CODE]

Все работает хорошо тогда, когда подобъекты стандартные, т.е. находятся внутри объекта или касаются.
Но если подобъект находится на расстоянии от объекта, то такой код не срабатывает, т.е. объект наносится на карту,
а вот подобъект его нет.
QGis показывает, что это Многоконтурный объект, на скриншоте он красным цветом.
Как решить вопрос?

При редактировании классификатора в программе ГИС Панорама Мини 14 выскакивает ошибка,
см. скриншот.

[QUOTE]Денис Вицко написал:
Отрисовывается "выброс" на 20 метров[/QUOTE]
Все понятно, Денис!
Спасибо.
В следующий раз мы будем внимательней.

[QUOTE]Денис Вицко написал:
Актуальной версией GIS ToolKit в настоящее время является 14.4.3Рекомендуем прислать запрос на предоставление актуальной версии GIS ToolKit Free.[/QUOTE]
Сделали запрос и получили актуальную версию GIS ToolKit 14.4.3.0 Free
Наблюдается проблема неверной передачи координат при создании объекта площадной контур линия без заливки если не установлена команда Commit.
Если команда Commit есть, то все хорошо.
Если команды Commit нет, то наблюдается "хвостик" в левом нижнем углу объекта.
Нам нужно, чтобы команды Commit не было.

hObjKPT   := 0;

vPlaceOut := form_main.mvMap.ViewSelect.PlaceOut;
form_main.mvMap.GetCenter(center, vPlaceOut);

hSite := mapGetSiteIdent(form_main.mvMap.MapHandle,1);
hObjKPT := mapCreateSiteObject(form_main.mvMap.MapHandle, hSite,KM_IDDOUBLE2, 0);
mapRegisterObject(hObjKPT, 10000177, OL_SQUARE);
tmp_X := center.X-170;
tmp_Y := center.Y-80;
mapAppendPointPlane(hObjKPT, tmp_X, tmp_Y, 0);
tmp_X := center.X+100;
tmp_Y := center.Y-80;
mapAppendPointPlane(hObjKPT, tmp_X, tmp_Y, 0);
tmp_X := center.X+100;
tmp_Y := center.Y+200;
mapAppendPointPlane(hObjKPT, tmp_X, tmp_Y, 0);
tmp_X := center.X-170;
tmp_Y := center.Y+200;
mapAppendPointPlane(hObjKPT, tmp_X, tmp_Y, 0);
tmp_X := center.X-170;
tmp_Y := center.Y-100;
mapAppendPointPlane(hObjKPT, tmp_X, tmp_Y, 0);

form_main.MapObj3.ObjHandle := hObjKPT;
// form_main.MapObj3.Commit;
form_main.MapEditMetric1.StopAction;
form_main.MapEditMetric1.MapObj := form_main.MapObj3;
form_main.MapEditMetric1.EditMode := emMove;;
form_main.MapEditMetric1.StartAction;
form_main.mvMap.Repaint;
mapFreeObject(hObjKPT);
form_main.mvMap.Repaint;

Здравствуйте!

В качестве рамки с неизменяемыми шириной и высотой мы используем объект MapObj3
До обновления  с GIS ToolKit 14.1 Free на GIS ToolKit 14.2 Free
сохранение фрагмента карты в Emf работало хорошо.
Теперь же, похоже только узкий кусочек карты сохраняется в Emf,
а не то, что передаем.
Что-то изменилось?

// Сохранение в файл Emf
NameEmf := 'c:\users\'+UserName+'\Report1.emf';

FillChar(parm, SizeOf(TMETAFILEBUILDPARMEX),0);

With parm do
begin
Frame.X1 := form_main.MapObj3.Metric.Points[0,1].X;
Frame.Y1 := form_main.MapObj3.Metric.Points[0,1].Y;
Frame.X2 := form_main.MapObj3.Metric.Points[0,3].X;
Frame.Y2 := form_main.MapObj3.Metric.Points[0,3].Y;
Scale    := form_main.mvMap.ViewScale;
VisualType:= cVT_SCREEN;
// VisualType:= cVT_PRINT;
Border    :=0;
DontClip  :=0;
Black     :=0;
end;

parm.Intensity := 70;
form_main.mvMap.SaveFrameToEmfEx(NameEmf, parm);

[QUOTE]Денис Вицко написал:
Но, судя по тому, что у Вас в подобъект второго объекта фактически заносится метрика основного контура этого же (второго) объекта, а не исходного (первого), возникает подозрение, что Вы оба TMapObj настроили на один и тот же объект (второй).[/QUOTE]
Да, все стало лучше.
При компиляции программа также не дает предупреждений.
Спасибо большое.