... | | | | | | | | |

KFF ( )

     
»  » KFF

: . 1 2 3 4 5 6 7 8 9 10 11 ... 327 .
( ), C#
 
[QUOTE] :
?[/QUOTE]
CS

[QUOTE] mapproc maptype?[/QUOTE]
[B]mapproc[/B][CODE]namespace mapproc
{
 [DllImport(GisLibrary, CharSet = CharSet.Ansi)]
 public static extern HMAP mapOpenMap(string name, int mode);
   
 [DllImport(GisLibrary, CharSet = CharSet.Ansi)]
 public static extern void mapCloseMap(HMAP hMap);
 ....
 ....
}
[/CODE]
[B]maptype [/B]- .... -
[CODE]namespace maptype
{  
  [StructLayout(LayoutKind.Sequential, CharSet = CharSet.Ansi)]
  public struct DFrame
  {
    public double X1;
    public double Y1;
    public double X2;
    public double Y2;
    public bool Empty
    {
       get { return (X1.Equals(0.0) && X2.Equals(0.0) && Y1.Equals(0.0) && Y2.Equals(0.0)); }
    }
  }
 
  [StructLayout(LayoutKind.Sequential, CharSet = CharSet.Ansi)]
   public struct DOUBLEPOINT                     //
   {
       public double X;
       public double Y;
       public void Point(double x, double y)
       {
           X = x; Y = y;
       }
   }
 

   public enum MAPTYPE                     // " "
   {
      TOPOGRAPHIC  = 1,                    //
      CK_42        = 1,                    // 42
      GEOGRAPHIC   = 2,                    // -
      GLOBE        = 3,                    // ()
      CITYPLAN     = 4,                    //
      LARGESCALE   = 5,                    //
      AERONAUTIC   = 6,                    //
      SEANAUTIC    = 7,                    //
      AVIATION     = 8,                    //
      BLANK        = 9,                    //
      UTMNAD27     = 10,                   // UTM North American Datum 1927
      UTMWGS84     = 11,                   // UTM WGS84
      UTMTYPE      = 12,                   // UTM
      CK_63        = 13,                   // 63
      CK_95        = 14                    // 95
   }
   ....
   ....
   ....
   ....
}  [/CODE]
: KFF - 07.04.2020 19:24:05
( ), C#
 
[QUOTE] :
, , , , , 71111110, [/QUOTE]
[CODE]using System.Windows.Forms;
using maptype;
using mapproc;

namespace MySolution
{
   public partial class MainForm : Form
   {
       public void ForKsuhaSmirnova(HMAP map, double Hotn )
       {
          HOBJ obj    = mapCreateSiteObject(map, map);         //
          HSELECT sel = mapCreateSiteSelectContext(map, map);  //
          mapSelectObject(sel , -1, 0);                         // "" ( )
          // 71111110
          mapSelectObject(sel, mapRscObjectCode(map, 71111110, OL_SQUARE), 1);  
          int flag = 0;  
          while (mapSeekSiteSelectObject(map, map, obj, sel, flag)) //
          {
             mapAppendSemanticLong(obj, 1, Hotn); // ( 1) Hotn ( )    
             mapCommitObject(obj);                // " "
             flag = 4;                            
          }
          mapDeleteSelectContext(sel);            //
          mapFreeObject(obj);                     //
       }

       private void btnCreateObject_Click(object sender, EventArgs e)
       {
         HMAP map = mapOpenMap("__.sitx", 0);  
         ForKsuhaSmirnova(map , 27.4);
         mapCloseMap(map);
       }
   }
}
[/CODE]
: KFF - 06.04.2020 11:47:27
 
!

, "" 13.
, .


[IMG WIDTH=871 HEIGHT=518]https://d.radikal.ru/d00/2004/47/d936848a56b4.png[/IMG]
mapCreateObjectsConsent
 
, - "" (. )
[QUOTE]  while mapGetNextConsent(cross, obj) <> 0 do
 begin
   if mapReadCopyObject(ret, obj)<>0 then
   begin
     mapRegisterObject(ret, 81140100, OL_LINE);
     mapCommitObject(ret);
   end;
 end;
[/QUOTE]
..   13! (mapacces64.dll) .. GTK !



[IMG WIDTH=631 HEIGHT=554]https://b.radikal.ru/b29/2004/d6/c00685bc1c74.png[/IMG]
: KFF - 02.04.2020 13:21:23
mapCreateObjectsConsent
 
!

-

[QUOTE] //  
procedure CreateEDGE(map: HMAP; base, outObj : HOBJ);
var cross : HCross;
   Obj   : HObj;
begin
 cross := mapCreateObjectsConsent(base, outObj, OL_LINE, 0.01);
 Obj := mapCreateSiteObject(Map, Map);

 while mapGetNextConsent(cross, obj) <> 0 do
 begin
    mapRegisterObject(obj, 100000001, OL_LINE); //
    mapCommitObject(obj);
 end;
 mapFreeObject(Obj);
 mapFreeObjectsConsent(cross);
end;

[/QUOTE]




[QUOTE]procedure TForm1.Button2Click(Sender: TObject);
var Map : HMap;
   Obj1, Obj2 : HObj;
begin
 Map := mapOpenMap('E:\tmp\@ANI-BASE-FILL\MAP\WorldBorder.sitx', 0);
 Obj1 := mapCreateSiteObject(Map, Map);
 Obj2 := mapCreateSiteObject(Map, Map);
 if (mapSeekSiteObject(Map, Map, Obj1,  [B]28335[/B]) <> 0) and
    (mapSeekSiteObject(Map, Map, Obj2, [B]28332[/B]) <> 0) then
  CreateEDGE(Map, Obj1, Obj2);
 mapFreeObject(Obj1);
 mapFreeObject(Obj2);
 mapCloseMap(map);
end;[/QUOTE]

""

[IMG WIDTH=1107 HEIGHT=811]https://a.radikal.ru/a13/2004/9e/e0fb95fc5706.png[/IMG]


.
mapGetNextConsent ( )... ? .. ??

. : [B]\Data.Ani\ \ICAO-countries.sitx[/B] ( )
: Oleg Belenkov - 03.04.2020 11:37:03
, ,
 
[QUOTE] () (   R187, D28.9),   ?[/QUOTE]

VOR/DME
/

[IMG WIDTH=792 HEIGHT=500]https://c.radikal.ru/c25/2003/b8/ce5733a66a5e.png[/IMG]


( 2)



!
[B][U] [/U][/B] . , , R187 ( )
: KFF - 31.03.2020 11:10:16
LOG-
 
[QUOTE] :
SHD .[/QUOTE]
. .
( )
( / , ..)
SIT (sit, sda, sse, shd) mapCreateAndAppendSite
- ( 500 ) 4 () ( )
,  , - , .

- ?
LOG-
 


, LOG .
( )

    . 01/02/2019  11:07:42
    : D:\MAP\USER61\.SIT
    : 1,
    .01/02/2019  11:07:42
    . 01/02/2019  11:07:42
    .01/02/2019  11:07:42
    . 01/02/2019  11:07:43
[B]>>>> Read zero head error[/B]
    .04/02/2019  13:17:44
    . 04/02/2019  13:17:44
[B]>>>> - .shd[/B]
    .04/02/2019  13:17:50
    . 04/02/2019  13:17:50
    . 09/02/2019  09:27:43
    : D:\MAP\USER61\.SIT
    : 1,
    .09/02/2019  09:27:43
    . 09/02/2019  09:27:43
    .09/02/2019  09:27:44
    . 09/02/2019  09:27:44
    : D:\MAP\USER61\.SIT
    : 1,
    .09/02/2019  09:27:44
    . 09/02/2019  09:27:44
[B]>>>> Read zero head error[/B]
    . 13/02/2019  17:53:53
    : D:\MAP\USER61\.SIT
    : 1,
    .13/02/2019  17:53:53
    . 13/02/2019  17:53:53
    .13/02/2019  17:53:53
    . 13/02/2019  17:53:54
    : D:\MAP\USER61\.SIT
    : 1,
    .13/02/2019  17:53:54
    . 13/02/2019  17:53:54
    . 13/02/2019  17:57:53
    : D:\MAP\USER61\.SIT
    : 1,
    .13/02/2019  17:57:53
    . 13/02/2019  17:57:53
    .13/02/2019  17:57:54
    . 13/02/2019  17:57:54
    : D:\MAP\USER61\.SIT
    : 1,
    .13/02/2019  17:57:54
    . 13/02/2019  17:57:54
    . 15/02/2019  15:39:55
    : D:\MAP\USER61\.SIT
    : 1,
    .15/02/2019  15:39:55
    . 15/02/2019  15:39:55
    .15/02/2019  15:39:55
    . 15/02/2019  15:39:55
    : D:\MAP\USER61\.SIT
    : 1,
    .15/02/2019  15:39:55
    . 15/02/2019  15:39:55
    . 19/02/2019  14:45:02
    : D:\MAP\USER61\.SIT
    : 1,
    .19/02/2019  14:45:02
    . 19/02/2019  14:45:02
    .19/02/2019  14:45:02
    . 19/02/2019  14:45:02
    : D:\MAP\USER61\.SIT
    : 1,
    .19/02/2019  14:45:02
    . 19/02/2019  14:45:02
    . 21/02/2019  04:14:47
    : D:\MAP\USER61\.SIT
    : 1,
    .21/02/2019  04:14:47
    . 21/02/2019  04:14:47
    .21/02/2019  04:14:47
    . 21/02/2019  04:14:48
    : D:\MAP\USER61\.SIT
    : 1,
    .21/02/2019  04:14:48
    . 21/02/2019  04:14:48
[B]>>>> Read zero head error[/B]
    . 21/02/2019  14:24:50
    : D:\MAP\USER61\.SIT
    : 1,
    .21/02/2019  14:24:50
    . 21/02/2019  14:24:50
    .21/02/2019  14:24:50
    . 21/02/2019  14:24:51
    : D:\MAP\USER61\.SIT
    : 1,
    .21/02/2019  14:24:51
    . 21/02/2019  14:24:51
[B]>>>> Read zero head error[/B]
    . 26/02/2019  06:22:05
    : D:\MAP\USER61\.SIT
    : 1,
    .26/02/2019  06:22:05
    . 26/02/2019  06:22:05
    .26/02/2019  06:22:05
    . 26/02/2019  06:22:05
    : D:\MAP\USER61\.SIT
    : 1,
    .26/02/2019  06:22:05
    . 26/02/2019  06:22:05
    . 28/02/2019  15:39:16
    : D:\MAP\USER61\.SIT
    : 1,
    .28/02/2019  15:39:16
    . 28/02/2019  15:39:16
    .28/02/2019  15:39:16
    . 28/02/2019  15:39:17
    : D:\MAP\USER61\.SIT
    : 1,
    .28/02/2019  15:39:17
    . 28/02/2019  15:39:17
[B]>>>> Read zero head error[/B]
    . 01/03/2019  19:19:11
    : D:\MAP\USER61\.SIT
    : 1,
    .01/03/2019  19:19:11
    . 01/03/2019  19:19:11
    .01/03/2019  19:19:11
    . 01/03/2019  19:19:11
    : D:\MAP\USER61\.SIT
    : 1,
    .01/03/2019  19:19:11
    . 01/03/2019  19:19:11
[B]>>>> Read zero head error[/B]
[B]>>>> Read zero head error[/B]
[B] [/B] . 03/03/2019 14:01:36
    : D:\MAP\USER61\.SIT
    : 1,
    .03/03/2019  14:01:36
    . 03/03/2019  14:01:36
    .03/03/2019  14:01:36
    . 03/03/2019  14:01:36
    : D:\MAP\USER61\.SIT
    : 1,
    .03/03/2019  14:01:36
    . 03/03/2019  14:01:36
    .13/03/2019  11:53:15
    . 13/03/2019  11:56:24
    : D:\MAP\USER61\.SIT
    : 1,
    .13/03/2019  11:56:24
    . 13/03/2019  11:56:24
    .13/03/2019  11:56:24
    . 13/03/2019  11:56:24
    : D:\MAP\USER61\.SIT
    : 1,
    .13/03/2019  11:56:24
    . 13/03/2019  11:56:24
    . 15/03/2019  09:16:17
    : D:\MAP\USER61\.SIT
    : 1,
    .15/03/2019  09:16:17
    . 15/03/2019  09:16:17
    .15/03/2019  09:16:18
    . 15/03/2019  09:16:18
    : D:\MAP\USER61\.SIT
    : 1,
    .15/03/2019  09:16:18
    . 15/03/2019  09:16:18
    . 17/03/2019  05:08:41
    : D:\MAP\USER61\.SIT
    : 1,
    .17/03/2019  05:08:41
    . 17/03/2019  05:08:41
    .17/03/2019  05:08:41
 
[QUOTE] :
, fTmpMark.Parm .[/QUOTE]
, , ( ):

[IMG WIDTH=882 HEIGHT=349]https://a.radikal.ru/a38/2002/1e/75b3197e7ece.png[/IMG]

, ,
GetMem- mapDrawParameters "" .

[QUOTE] :
fTmpMark ( ) mapPaintExample.[/QUOTE]
"" .

TPAINTEXAMPLE
 
!

medChoicePointImage "HOBJ"   mapDrawParameters mapDrawImage
, [B]IMGMULTIMARK. [/B] ,
( ) TPanel TForm TControl

[B]mapPaintExample[/B]
[B]
[/B]


[B]fTmpMark    : TPAINTEXAMPLE;[/B]
[B]fRect : TRect;[/B]
------------
 fRect := imgDraw.ClientRect;  
 FillChar(fTmpMark, sizeof(fTmpMark), 0);
 fTmpMark.DC    := GetDC(imgDraw.Handle);  // imgDraw TPanel
 fTmpMark.Rect  := @fRect;
 fTmpMark.Func  := IMG_MULTIMARK;
 fTmpMark.Local := OL_MARK;
 fTmpMark.VisualType := cVT_SCREEN;
 fTmpMark.FillIntensity := 100;[B]
[/B]
[B]-------------------------[/B]
[B] "" Parm[/B]
[B]
[/B]obj : HOBJ;
ref : Pointer;


obj := mapCreateSiteObject(fTask.FHMap,fTask.FHMap);
mapRegisterDrawObject(obj, 0, OL_MARK);
if Assigned(fTmpMark.Parm) then //
   mapAppendDraw(obj, IMG_MULTIMARK, fTmpMark.Parm);
if (medChoicePointImage(fTask.FHMap, fTask.FParm, obj, 0, 0)<>0) and   (mapDrawImage(obj,1) = IMG_MULTIMARK) then
begin
if Assigned(fTmpMark.Parm) then FreeMem(fTmpMark.Parm);
fTmpMark.Parm := nil;
ref := mapDrawParameters(obj, 1);
if Assigned(ref)  then //
begin
  GetMem(fTmpMark.Parm, PIMGMULTIMARK(ref)^.Head.Length);
  move(ref^, fTmpMark.Parm^, PIMGMULTIMARK(ref)^.Head.Length); //

end;
end;
mapFreeObject(obj);[B]
[/B]


---------------------
[B] - [/B]
procedure TdlgLoadParcel.FormPaint(Sender: TObject);
begin
 if Assigned(fTask) and (fTmpMark.DC<>0) and Assigned(fTmpMark.Parm) then
    mapPaintExample(fTask.FHMap, fTmpMark);
end;

, ?
"


: . 1 2 3 4 5 6 7 8 9 10 11 ... 327 .



© , 1991-2021

,