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

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

Не открылась нормально первая страница Gis Server 10.6.1.3
Настроили подключение к Panorama Gis Server 10.6.1.3 в соответствии с видео телемоста с вашим специалистом.
С помощью Web доступа, все хорошо запустилось и на самом сервере и на удаленном подключении.
Но картина на странице не та, что ожидалась.
PHP v8.0
IIS
Windows Server 2012 R2

Что мы делаем не правильно?

[QUOTE]Денис Вицко написал:
Кстати, в Вашем коде я не увидел вызова mapCommit...[/QUOTE]
Разве это не оно?

[QUOTE]Денис Вицко написал:
hSiteRaschet - это отдельная карта или та же, где исходные площадные объекты?[/QUOTE]
Эта таже карта,
где исходные площадные объекты.

[QUOTE]Денис Вицко написал:
Я так понимаю, проверку нанесения подписей с исключением из этого процесса базы данных Вы не провели.[/QUOTE]
Проверялся методом нанесения подписей по одной точке,
результат: ОК
Проверялся методом нанесения всех подписей по площадному объекту, включая подобъекты,
результат: ОК

[QUOTE]Денис Вицко написал:
В диалоге на последнем скриншоте нажать "Break" и смотреть стек вызовов (Call Stack). Там процедуры внутри ядра будут показаны адресами, а перед ними будут вызовы, откуда программа туда приходит из Вашего кода.[/QUOTE]
Запустили программу под отладчиком,
программа слетела как обычно.
Нажали "Break"
Результат на скриншоте.
Что-то можно по нему сказать?

[QUOTE]Денис Вицко написал:
Эффект тот же?[/QUOTE]
Денис, здравствуйте!

Наш тестировщик провёл точно такой же тест, но уже на другом проекте,
т.е. карта и записи в БД для другого проекта уже свои.
Однако, при наличии всего 30 объектов, программа свалилась на 11.
Просьба, посмотреть лог файл ГИС Сервера,
мы его прислали на вашу почту Елене Кузнецовой,
с просьбой передать это сообщение вам.
В логе сначала удаляются все подписи с карты, там все хорошо,
в конце этого лог мы добавили строку
------- Прошло нормально массовое удаление Подписей поворотных точек
затем лог продолжается уже нанесением подписей поворотных точек
и в конце лога дитектируется ошибка сваливания программы.  
У нас установлен Panorama GIS Server v.8.7.4

[QUOTE]Денис Вицко написал:
Выполните запуск по отладчиком и при ошибке по памяти он покажет строчку кода, которая вызывает ошибку[/QUOTE]
Денис, здравствуйте!

Запустили под отладчиком,
ошибку выдает стабильно.
Подскажите, что можно из сообщений отладчика понять,
почему программа слетает?

log.txt протокол включили
Вначале удаление ранее нанесённых поворотных точек.
Чтобы долго не листать, в блокноте найдите строку             поворот        
Затем идет нанесение поворотных точек. Сразу идите в самый конец. Там нет Append новый объект, Программе что-то не понравилось

Файл log.txt не удалось прикрепить,
отправили его на вашу почту

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

Ниже приведен исходный код нанесения объектов типа Подпись Номера поворотных точек прилегающих территорий и их подобъектов на карту.
В процессе выполнения процедуры примерно в середине прокручивания таблицы Поворотных точек,
наша программа выдает ошибку GISACCESS32.DLL ошибка по адресу памяти.
Есть подозрение, что виртуальные объекты создаются и уничтожаются не корректно
или запись объектов типа Подпись происходит на карту не корректно.
В чём может быть ошибка?
Что мы делаем не правильно или не так?

form_main.mvMap.PlaceOut := PP_PLANE;
form_main.MapObj1.PlaceOut := PP_PLANE;
form_main.pBar1.Visible := true;

// Прокручиваем таблицу  
bd_Zones.QSanitZonesDop.First;
Reccount := bd_Zones.QSanitZonesDop.RecordCount;

 While not bd_Zones.QSanitZonesDop.Eof do
 begin

 inc(NumRec);

 form_main.pBar1.Position := Round(NumRec/Reccount*100);
 form_main.pBar1.Repaint;

 form_main.MapFind1.Active := false;
 form_main.MapFind1.FindPoint := false;
 form_main.MapFind1.MapSelect.Clear;
 form_main.MapFind1.MapSelect.ClearSemantic;
 form_main.MapFind1.MapObj.Style := OS_NORMAL;
 form_main.MapFind1.MapSelect.Excode[-1,OL_SQUARE] := false;
 form_main.MapFind1.MapSelect.Excode[10000051,OL_SQUARE] := true; // УЗ ПТ
 form_main.MapFind1.MapSelect.AddSemantic(10,bd_Zones.QSanitZonesDopIDObject.AsString,SC_EQUAL);
 form_main.MapFind1.Active := true;
 form_main.MapFind1.First;

 SubObjCount := form_main.MapObj1.Metric.SubObjCount;

 // Расчет координат поворотных точек
 icount := form_main.MapObj1.Metric.PointCount[0];

  For i := 1 to icount-1 do
  begin

  k := i;

  Tmpi := IntToStr(k);

  case k of
  1 : Tmpi := '01';
  2 : Tmpi := '02';
  3 : Tmpi := '03';
  4 : Tmpi := '04';
  5 : Tmpi := '05';
  6 : Tmpi := '06';
  7 : Tmpi := '07';
  8 : Tmpi := '08';
  9 : Tmpi := '09';
  end;

  xd := form_main.MapObj1.Metric.Points[0,i].X;
  yd := form_main.MapObj1.Metric.Points[0,i].Y;

  // Нанесем поворотные точки ТС на карту
  hObjKPT := mapCreateSiteObject(form_main.mvMap.MapHandle,hSiteRaschet,KM_IDDOUBLE2,0);
  mapRegisterObject(hObjKPT,10000229, OL_TEXT);
  mapAppendPointPlane(hObjKPT,xd,yd,0);
  mapAppendPointPlane(hObjKPT,xd,yd+6,0);
  mapPutTextUn(hObjKPT,PCHAR('     '+Tmpi),0);
  mapAppendSemanticUnicode(hObjKPT,10, PChar(bd_Zones.QSanitZonesDopIDObject.AsString),50);
  mapCommitObject(hObjKPT);
  mapFreeObject(hObjKPT);
  end;

  For j := 0 to SubObjCount do
  begin

  // Расчет координат поворотных точек подобъектов
  icount := form_main.MapObj1.Metric.PointCount[j];

   For i := 1 to icount-1 do
   begin

   inc(k);

   Tmpi := IntToStr(k);

   case k of
   1 : Tmpi := '01';
   2 : Tmpi := '02';
   3 : Tmpi := '03';
   4 : Tmpi := '04';
   5 : Tmpi := '05';
   6 : Tmpi := '06';
   7 : Tmpi := '07';
   8 : Tmpi := '08';
   9 : Tmpi := '09';
   end;

   xd := form_main.MapObj1.Metric.Points[j,i].X;
   yd := form_main.MapObj1.Metric.Points[j,i].Y;

   // Нанесем поворотные точки ПТ на карту
   hObjKPT := mapCreateSiteObject(form_main.mvMap.MapHandle,hSiteRaschet,KM_IDDOUBLE2,0);
   mapRegisterObject(hObjKPT,10000229, OL_TEXT);
   mapAppendPointPlane(hObjKPT,xd,yd,0);
   mapAppendPointPlane(hObjKPT,xd,yd+6,0);
   mapPutTextUn(hObjKPT,PCHAR('     '+Tmpi),0);
   mapAppendSemanticUnicode(hObjKPT,10, PChar(bd_Zones.QSanitZonesDopIDObject.AsString),50);
   mapCommitObject(hObjKPT);
   mapFreeObject(hObjKPT);
   end;
  end;
 // Application.ProcessMessages;
 bd_Zones.QSanitZonesDop.Next;
 end;
bd_Zones.QSanitZonesDop.First;

form_main.mvMap.AdjustData;
form_main.mvMap.Repaint;
// form_main.mvMap.MapSort(false,false);

form_main.pBar1.Visible := false;
ProcTotal.ShowBoxMessage(form_main.Handle,'Сообщение','Подписи поворотных точек прилегающих территорий нанесены на карту');

GisToolKit 14.5.9.5

[QUOTE]Andrey Gheleznyakov написал:
Модули Dll\X64\py_mapapi14\  являются 64-х разрядными и я запускаю в IDLE (Python 3.7 64-bit). У Вас х32.Результат работы примера на картинке[/QUOTE]
Здравствуйте!
Снесли Python 3.7.4 x32
Установили Python 3.7.4 x64
Результат тот же.

[QUOTE]Andrey Gheleznyakov написал:
Спасибо за информацию Предупреждения уберем.[/QUOTE]
Результат запуска модуля findobj.py в Python 3.7.4 Shell