super3dlib_tlb.pas

GIS开发源代码。 SuperMax5.0＋Delphi,用Delphi编写的控件工具包

unit Super3DLib_TLB;

// ************************************************************************ //
// WARNING                                                                    
// -------                                                                    
// The types declared in this file were generated from data read from a       
// Type Library. If this type library is explicitly or indirectly (via        
// another type library referring to this type library) re-imported, or the   
// 'Refresh' command of the Type Library Editor activated while editing the   
// Type Library, the contents of this file will be regenerated and all        
// manual modifications will be lost.                                         
// ************************************************************************ //

// PASTLWTR : 1.2
// File generated on 2005-2-25 10:05:46 from Type Library described below.

// ************************************************************************  //
// Type Lib: D:\Program Files\SuperMap\5.0.2\Super3D.ocx (1)
// LIBID: {99AA4EEF-16DB-41B9-8A9E-CACCD93FBD5D}
// LCID: 0
// Helpfile: d:\Program Files\SuperMap\SuperMap Objects 5.0\help\SmProRef.chm
// HelpString: SuperMap Objects 5.0 3D Control
// DepndLst: 
//   (1) v2.0 stdole, (C:\WINDOWS\system32\STDOLE2.TLB)
//   (2) v5.0 SuperMapLib, (D:\Program Files\SuperMap\5.0.2\SuperMap.ocx)
// ************************************************************************ //
{$TYPEDADDRESS OFF} // Unit must be compiled without type-checked pointers. 
{$WARN SYMBOL_PLATFORM OFF}
{$WRITEABLECONST ON}
{$VARPROPSETTER ON}
interface

uses Windows, ActiveX, Classes, Graphics, OleCtrls, OleServer, StdVCL, SuperMapLib_TLB, 
Variants;
  

// *********************************************************************//
// GUIDS declared in the TypeLibrary. Following prefixes are used:        
//   Type Libraries     : LIBID_xxxx                                      
//   CoClasses          : CLASS_xxxx                                      
//   DISPInterfaces     : DIID_xxxx                                       
//   Non-DISP interfaces: IID_xxxx                                        
// *********************************************************************//
const
  // TypeLibrary Major and minor versions
  Super3DLibMajorVersion = 5;
  Super3DLibMinorVersion = 0;

  LIBID_Super3DLib: TGUID = '{99AA4EEF-16DB-41B9-8A9E-CACCD93FBD5D}';

  DIID_IsoFlightControl: TGUID = '{2D60DD48-B33E-4CC4-B28B-30B3695DF049}';
  DIID_IsoCutFillResult: TGUID = '{125D1198-D66D-4B82-9B8E-D316D82F008C}';
  DIID_IsoStyle3D: TGUID = '{4045BB8E-990F-43E2-8CF0-1309B15A6B4C}';
  DIID_IsoGeoEvent3D: TGUID = '{88A53AF2-BFE3-4D63-9635-AF9A60CC21AE}';
  CLASS_soGeoEvent3D: TGUID = '{016B71C6-5A52-4E02-B850-00FCD78BF8BF}';
  DIID_Iso3DLayer: TGUID = '{BA4FDD99-599F-4DB8-82A5-0DA538508DE2}';
  CLASS_so3DLayer: TGUID = '{E844EF5F-FC46-4055-B39A-1563CD734158}';
  DIID_Iso3DLayers: TGUID = '{87CD03D9-ED1B-420A-9A4F-16F334830C5A}';
  CLASS_so3DLayers: TGUID = '{C8850E3E-7576-4B53-ACAC-A1E47E16A832}';
  CLASS_soStyle3D: TGUID = '{FB7EA168-9CB9-4107-BC34-F288D1FB07DB}';
  DIID_Iso3DTrackingLayer: TGUID = '{96524D22-0850-47B7-AA38-18A24D0E9845}';
  CLASS_so3DTrackingLayer: TGUID = '{6E148C53-7DE5-4E68-8EBF-9B65FAEC7C08}';
  DIID_IsoFog: TGUID = '{9901DE29-1CF9-4376-A998-204A8BD3E254}';
  CLASS_soFog: TGUID = '{E13FD39C-5088-4F30-9DF6-ED3769B2CCFC}';
  DIID_IsoLight: TGUID = '{B818611A-18C3-4F3F-B244-952AE6C70C2C}';
  CLASS_soLight: TGUID = '{1295C884-D187-4B1F-9BB9-D8E21F88E752}';
  DIID_IsoLights: TGUID = '{DABC18FF-2CF9-4B1E-9D36-2EFB803FB7AE}';
  CLASS_soLights: TGUID = '{F50EF4A5-95D4-4D7F-B7E0-D6666E5D51C1}';
  DIID_IsoCamera: TGUID = '{C4AF5390-E796-43EF-8FD7-B05FED56B6E8}';
  CLASS_soCamera: TGUID = '{D78FC08A-23A1-4D9D-B75F-58EFC5F2A3E1}';
  DIID__DSuper3D: TGUID = '{D3874D8E-AE8B-4881-9E0F-3FF1B9311CE8}';
  DIID__DSuper3DEvents: TGUID = '{3E86DE3E-20FE-47A2-90CA-7C3D91EDF7B4}';
  CLASS_Super3D: TGUID = '{09947CFE-F736-4E8E-BFFD-906FF5D6322C}';
  DIID_Iso3DAnalyst: TGUID = '{5BFD4FB4-55B5-4743-B5E6-90C24C2F9AA2}';
  CLASS_so3DAnalyst: TGUID = '{D0F1BC31-2D24-4B24-8E89-D4A460547D80}';
  CLASS_soFlightControl: TGUID = '{E27F5A2B-EE38-4CE8-8C5D-F0E6624E2F44}';
  CLASS_soCutFillResult: TGUID = '{3FA1B77A-C3E1-44D5-A34A-5F244E84965E}';

// *********************************************************************//
// Declaration of Enumerations defined in Type Library                    
// *********************************************************************//
// Constants for enum se3DAction
type
  se3DAction = TOleEnum;
const
  sca3DNull = $00000000;
  sca3DPan = $00000001;
  sca3DPanRotate = $00000002;
  sca3DZoomIn = $00000003;
  sca3DZoomOut = $00000004;
  sca3DZoomFree = $00000005;
  sca3DZoomRectIn = $00000006;
  sca3DZoomRectOut = $00000007;
  sca3DPointSelect = $00000008;
  sca3DRotateX = $00000009;
  sca3DRotateZ = $0000000A;
  sca3DCameraMoveZ = $0000000B;

// Constants for enum seSceneRenderMode
type
  seSceneRenderMode = TOleEnum;
const
  scsRenderlPoints = $00000001;
  scsRenderWireFrame = $00000002;
  scsRenderSolid = $00000003;

// Constants for enum seLightType
type
  seLightType = TOleEnum;
const
  sclLightPoint = $00000001;
  sclLightDirectional = $00000002;
  sclLightSpotPoint = $00000003;

// Constants for enum seFogMode
type
  seFogMode = TOleEnum;
const
  scfFogNone = $00000000;
  scfFogEXP = $00000001;
  scfFogEXP2 = $00000002;
  scfFogLinear = $00000003;

type

// *********************************************************************//
// Forward declaration of types defined in TypeLibrary                    
// *********************************************************************//
  IsoFlightControl = dispinterface;
  IsoCutFillResult = dispinterface;
  IsoStyle3D = dispinterface;
  IsoGeoEvent3D = dispinterface;
  Iso3DLayer = dispinterface;
  Iso3DLayers = dispinterface;
  Iso3DTrackingLayer = dispinterface;
  IsoFog = dispinterface;
  IsoLight = dispinterface;
  IsoLights = dispinterface;
  IsoCamera = dispinterface;
  _DSuper3D = dispinterface;
  _DSuper3DEvents = dispinterface;
  Iso3DAnalyst = dispinterface;

// *********************************************************************//
// Declaration of CoClasses defined in Type Library                       
// (NOTE: Here we map each CoClass to its Default Interface)              
// *********************************************************************//
  soGeoEvent3D = IsoGeoEvent3D;
  so3DLayer = Iso3DLayer;
  so3DLayers = Iso3DLayers;
  soStyle3D = IsoStyle3D;
  so3DTrackingLayer = Iso3DTrackingLayer;
  soFog = IsoFog;
  soLight = IsoLight;
  soLights = IsoLights;
  soCamera = IsoCamera;
  Super3D = _DSuper3D;
  so3DAnalyst = Iso3DAnalyst;
  soFlightControl = IsoFlightControl;
  soCutFillResult = IsoCutFillResult;


// *********************************************************************//
// Declaration of structures, unions and aliases.                         
// *********************************************************************//
  PSmallint1 = ^Smallint; {*}
  PDouble1 = ^Double; {*}


// *********************************************************************//
// DispIntf:  IsoFlightControl
// Flags:     (4096) Dispatchable
// GUID:      {2D60DD48-B33E-4CC4-B28B-30B3695DF049}
// *********************************************************************//
  IsoFlightControl = dispinterface
    ['{2D60DD48-B33E-4CC4-B28B-30B3695DF049}']
    property ViewPoint: IsoPoint3D dispid 1;
    property VisibleAngle: Double dispid 2;
    property Roll: Double dispid 3;
    property Pitch: Double dispid 4;
    property Heading: Double dispid 5;
  end;

// *********************************************************************//
// DispIntf:  IsoCutFillResult
// Flags:     (4096) Dispatchable
// GUID:      {125D1198-D66D-4B82-9B8E-D316D82F008C}
// *********************************************************************//
  IsoCutFillResult = dispinterface
    ['{125D1198-D66D-4B82-9B8E-D316D82F008C}']
    property CutVolume: Double dispid 1;
    property CutArea: Double dispid 2;
    property FillVolume: Double dispid 3;
    property FillArea: Double dispid 4;
    property BalanceVolume: Double dispid 5;
    property GradedArea: Double dispid 6;
    property NotGradedArea: Double dispid 7;
    property TotalArea: Double dispid 8;
  end;

// *********************************************************************//
// DispIntf:  IsoStyle3D
// Flags:     (4096) Dispatchable
// GUID:      {4045BB8E-990F-43E2-8CF0-1309B15A6B4C}
// *********************************************************************//
  IsoStyle3D = dispinterface
    ['{4045BB8E-990F-43E2-8CF0-1309B15A6B4C}']
    function GetSmObject: Integer; dispid 4;
    property Style: Integer dispid 2;
    property Color: OLE_COLOR dispid 1;
    property Radius: Double dispid 3;
  end;

// *********************************************************************//
// DispIntf:  IsoGeoEvent3D
// Flags:     (4096) Dispatchable
// GUID:      {88A53AF2-BFE3-4D63-9635-AF9A60CC21AE}
// *********************************************************************//
  IsoGeoEvent3D = dispinterface
    ['{88A53AF2-BFE3-4D63-9635-AF9A60CC21AE}']
    procedure MoveTo(X: Double; Y: Double; Z: Double); dispid 10;
    procedure Move(X: Double; Y: Double; Z: Double); dispid 9;
    property Geometry: IsoGeometry dispid 3;
    property Tag: WideString dispid 1;
    property RelativeHeight: Double dispid 4;
    property Surface: WordBool dispid 5;
    property Y: Double dispid 7;
    property X: Double dispid 6;
    property Style3D: IsoStyle3D dispid 2;
    property Z: Double dispid 8;
  end;

// *********************************************************************//
// DispIntf:  Iso3DLayer
// Flags:     (4096) Dispatchable
// GUID:      {BA4FDD99-599F-4DB8-82A5-0DA538508DE2}
// *********************************************************************//
  Iso3DLayer = dispinterface
    ['{BA4FDD99-599F-4DB8-82A5-0DA538508DE2}']
    function ToXML: WideString; dispid 16;
    function FromXML(const strXML: WideString; bIgnoreCaption: OleVariant): WordBool; dispid 15;
    function HitTest(X: Double; Y: Double; Z: Double; dTolerance: Double): IsoGeometry; dispid 14;
    function GetSmObject: Integer; dispid 13;
    property Empty: WordBool dispid 5;
    property Name: WideString dispid 2;
    property Caption: WideString dispid 1;
    property Style: IsoStyle dispid 8;
    property Selectable: WordBool dispid 7;
    property Visible: WordBool dispid 6;
    property Style3D: IsoStyle3D dispid 9;
    property Colorset: IsoColors dispid 12;
    property BaseHeightField: WideString dispid 10;
    property RelativeHeightField: WideString dispid 11;
    property TextureDataset: IsoDataset dispid 18;
    property Description: WideString dispid 4;
    property Dataset: IsoDataset dispid 3;
    property TextureFile: WideString dispid 17;
  end;

// *********************************************************************//
// DispIntf:  Iso3DLayers
// Flags:     (4096) Dispatchable
// GUID:      {87CD03D9-ED1B-420A-9A4F-16F334830C5A}
// *********************************************************************//
  Iso3DLayers = dispinterface
    ['{87CD03D9-ED1B-420A-9A4F-16F334830C5A}']
    property Item[Index: OleVariant]: Iso3DLayer dispid 0; default;
    function AddDataset(const objDataset: IsoDataset; bAddToHead: WordBool): Iso3DLayer; dispid 2;
    function MoveBottom(nIndex: Integer): WordBool; dispid 6;
    function AddHead(const objDataset: IsoDataset): Iso3DLayer; dispid 3;
    function AddTail(const objDataset: IsoDataset): Iso3DLayer; dispid 4;
    function FindLayer(const obj3DLayer: Iso3DLayer): Integer; dispid 5;
    function MoveDown(nIndex: Integer): WordBool; dispid 7;
    function MoveTo(nIndexFrom: Integer; nIndexTo: Integer): WordBool; dispid 8;
    function MoveTop(nIndex: Integer): WordBool; dispid 9;
    function MoveUp(nIndex: Integer): WordBool; dispid 10;
    function Remove(nIndex: Integer; nCount: Integer): Integer; dispid 11;
    function RemoveAt(nIndex: OleVariant): WordBool; dispid 12;
    procedure RemoveAll; dispid 13;
    property Count: Integer dispid 1;
  end;

// *********************************************************************//
// DispIntf:  Iso3DTrackingLayer
// Flags:     (4096) Dispatchable
// GUID:      {96524D22-0850-47B7-AA38-18A24D0E9845}
// *********************************************************************//
  Iso3DTrackingLayer = dispinterface
    ['{96524D22-0850-47B7-AA38-18A24D0E9845}']
    function AddEvent(const objGeoEvent3D: IsoGeoEvent3D): Integer; dispid 4;
    property Event[Index: OleVariant]: IsoGeoEvent3D dispid 3;
    procedure ClearEvents; dispid 7;
    procedure Refresh; dispid 6;
    function HitTest(X: Double; Y: Double; Z: Double; dTolerance: Double): Integer; dispid 5;
    function RemoveEvent(Index: Integer): WordBool; dispid 8;
    property Visible: WordBool dispid 2;
    property EventCount: Integer dispid 1;
  end;

// *********************************************************************//
// DispIntf:  IsoFog
// Flags:     (4096) Dispatchable
// GUID:      {9901DE29-1CF9-4376-A998-204A8BD3E254}
// *********************************************************************//
  IsoFog = dispinterface
    ['{9901DE29-1CF9-4376-A998-204A8BD3E254}']
    property FogMode: seFogMode dispid 1;
    property FogColor: OLE_COLOR dispid 2;
    property FogStart: Single dispid 3;
    property FogEnd: Single dispid 4;
    property FogDensity: Single dispid 5;
  end;

// *********************************************************************//
// DispIntf:  IsoLight
// Flags:     (4096) Dispatchable
// GUID:      {B818611A-18C3-4F3F-B244-952AE6C70C2C}
// *********************************************************************//
  IsoLight = dispinterface
    ['{B818611A-18C3-4F3F-B244-952AE6C70C2C}']
    property LightType: seLightType dispid 1;
    property Name: WideString dispid 2;
    property Position: IsoPoint3D dispid 3;
    property Direction: IsoPoint3D dispid 4;
    property SpecularColor: OLE_COLOR dispid 5;
    property DiffuseClolor: OLE_COLOR dispid 6;
  end;

// *********************************************************************//
// DispIntf:  IsoLights
// Flags:     (4096) Dispatchable