KFF (Все сообщения пользователя)

Здравствуйте господа и дамы Разработчики !
Возможно ли установить 2 ГисВебСервера на 1 компьютер
если ОС позволяет создать Н Веб узлов ?

[QUOTE]Ругается на mapAppendPointPlane(Obj, P.x, P.Y,0); - undeclared identifier.[/QUOTE]

Какая-то переменная из кода не объявлена

Возможные причины:
1. function mapAppendPointPlane(Obj:HObj;X:double;Y:double; subject:integer):integer; stdcall ;external 'gisacces.dll';
2. var Obj : Cardinal;
3. var P : TDoublePoint;
  или
    var P : packed record
         X, Y : double;  
    end;

Так бы и сказали - "скиньте функцию создания объектов эллипсов"

за основу:
 [URL=http://ru.wikipedia.org/wiki/%D0%AD%D0%BB%D0%BB%D0%B8%D0%BF%D1%81] Информация по эллипсу[/URL]
 [URL=http://www.pm298.ru/preobr.php] по повороту осей КС[/URL]

[CODE]
// Obj - объект
//  Center - центр еллиспа
//  Ra, Rb - большая и малая полуоси
// angle- мат. угол поворота  в радианах
procedure mapCreateObjectEllipse(Obj:HObj; Center : TDoublePoint; Ra, Rb : double; angle : double);
var  A,dA : double;
    P    : TDoublePoint;
begin
 dA:=pi/180; A:=0;
 while A<=2*pi do
 begin
  P.x := Rb*cos(A)*cos(angle)-Ra*sin(A)*sin(angle)+Center.X;
  P.y := Rb*cos(A)*sin(angle)-Ra*sin(A)*cos(angle)+Center.Y;;
  mapAppendPointPlane(Obj, P.x, P.Y,0);
  A:=A+dA;
 end;
end;


procedure TForm1.Button1Click(Sender: TObject);
var map : HMap;
   obj : HObj;
   C   : TDoublePoint;
begin
 map:=mapOpenMap('C:\Panorama10\Data\Podolsk\1.sit',GENERIC_READ or GENERIC_WRITE);
 Obj:=mapCreateSiteObject(Map,Map, KM_IDFLOAT2,0);
 mapregisterObject(Obj, 32110000, OL_SQUARE);
 C.X:=6155700; C.Y:=7406000;
 mapCreateObjectEllipse(Obj,C,1000,600, 10*pi/180);
 mapCommitObject(Obj);
 mapCloseMap(map);
end;[/CODE]

Спасибо за разьяснение Александр !

И что работает ?
в Паскале nSize = mapGetObjectRecordLength(hSrc) почему-то менее 1 кБ

Сергей
а если поковырятся в этом:

 // Установить порядок отображения карты   // 18/12/02
 // hMap  - идентификатор открытой карты
 // number - номер пользовательской карты в цепочке
 // order  - флаг(0 - под основной картой, 1 - над основной картой)
 // При ошибке возвращает 0

_MAPIMP long int _MAPAPI mapSetSiteViewOrder(HMAP hMap, long int number,
                                            long int order);

то можно что угодно и над чем угодно перекрыть

Здравствуйте господа Разработчики !
Сегодня переустановлен GIS Tool на версию 10.2.0
ВОПРОС:
Каким образом работает функция mapAppendSemantic в данной версии для служебных семантик
допустим с кодом 32852 (ИМЯ ОПЕРАТОРА) - классификатор Подольск.
Семантика не повторяемая, разрешена для всех объектов.
Вот такой код :
   mapAppendSemantic(Obj1,32852, 'Алекс', 5);
   mapAppendSemantic(Obj1,32852, 'Алекс', 5);
   mapAppendSemantic(Obj1,32852, 'Алекс', 5);
   mapCommitObject(Obj1);
почему то ее делает повторяемой ????
хоть галочка не стоит
------------------
Заранее благодарю за консультацию

ИЩЕМ ЛИБЫ У СЕБЯ НА КОМПЬЮТЕРЕ
C:\Program Files\ПУТЬ К ГИСТООЛКИТ\Dll\

ЭТОТ КОД СОЗДАЕТ КОРРЕКТНЫЙ ПЛАН
-------------------------------
[CODE]procedure TForm1.Button1Click(Sender: TObject);
var Plane : TCREATEPLANE;
  fpath : string;
  FMap : HMap;
begin
fpath:=ExtractFileDir(Application.Exename)+'\MAP';
FillChar(Plane, SizeOf(TCREATEPLANE),0 );
Plane.Length:=SizeOf(TCREATEPLANE);
StrPLCopy(@Plane.MapName[1],'NEWPLAN',7 );
Plane.Scale:=1000;

with Plane.List do
begin
  Length        := SizeOf(TAPPENDPLANELIST);                // Длина записи структуры APPENDLIST
  StrPLCopy(@Nomenclature[1],'MYNOM',5 ); // Номенклатура листа
  StrPLCopy(@ListName[1],'LISTNAME',8 );
  StrPLCopy(@FileName[1],'NEWPLANE',8 );
  // Прямоугольные координаты листа в метрах
  // (для пользовательской карты (SITE) должны быть 0)
  XSouthWest :=0;   // X ю-з
  YSouthWest :=0;   // Y ю-з
  XNorthWest :=10000;  // X с-з
  YNorthWest :=0;      // Y с-з

  XNorthEast :=10000;  // X с-в
  YNorthEast :=10000;  // Y с-в
  XSouthEast :=0;  // X ю-в
  YSouthEast :=10000;  // Y ю-в
 end;

FMap:=mapCreatePlane(PChar(fpath+'\NewPlane.map'), PChar(fpath+'\Topo50t.rsc'),Plane);

mapCloseMap(FMap);

end;[/CODE]
----------------
сверьте что у Вас не так

попробуйте для сита создать свой контекст поиска:

_MAPIMP HSELECT _MAPAPI mapCreateSiteSelectContext(HMAP hMap,HSITE hSite);