super3dlib_tlb.pas

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

function TSuper3D.Get_Selection: IsoSelection;
begin
  Result := DefaultInterface.Selection;
end;

procedure TSuper3D.Set_Selection(const Value: IsoSelection);
begin
  DefaultInterface.Selection := Value;
end;

function TSuper3D.Get_FlightControl: IsoFlightControl;
begin
  Result := DefaultInterface.FlightControl;
end;

procedure TSuper3D.Set_FlightControl(const Value: IsoFlightControl);
begin
  DefaultInterface.FlightControl := Value;
end;

function TSuper3D.Get_Layers: IsoLayers;
begin
  Result := DefaultInterface.Layers;
end;

procedure TSuper3D.Set_Layers(const Value: IsoLayers);
begin
  DefaultInterface.Layers := Value;
end;

function TSuper3D.Get_OverlayImage: IsoDatasetRaster;
begin
  Result := DefaultInterface.OverlayImage;
end;

procedure TSuper3D.Set_OverlayImage(const Value: IsoDatasetRaster);
begin
  DefaultInterface.OverlayImage := Value;
end;

function TSuper3D.Get_ClipRegion: IsoGeoRegion;
begin
  Result := DefaultInterface.ClipRegion;
end;

procedure TSuper3D.Set_ClipRegion(const Value: IsoGeoRegion);
begin
  DefaultInterface.ClipRegion := Value;
end;

function TSuper3D.Get_Colorset: IsoColors;
begin
  Result := DefaultInterface.Colorset;
end;

procedure TSuper3D.Set_Colorset(const Value: IsoColors);
begin
  DefaultInterface.Colorset := Value;
end;

function TSuper3D.Get_ActiveDataset: IsoDataset;
begin
  Result := DefaultInterface.ActiveDataset;
end;

procedure TSuper3D.Set_ActiveDataset(const Value: IsoDataset);
begin
  DefaultInterface.ActiveDataset := Value;
end;

function TSuper3D.FromXML(const strXML: WideString): WordBool;
begin
  Result := DefaultInterface.FromXML(strXML, EmptyParam);
end;

function TSuper3D.FromXML(const strXML: WideString; bIgore3DLayerCaption: OleVariant): WordBool;
begin
  Result := DefaultInterface.FromXML(strXML, bIgore3DLayerCaption);
end;

procedure TSuper3D.SetFlyEnabled(bEnable: WordBool);
begin
  DefaultInterface.SetFlyEnabled(bEnable);
end;

function TSuper3D.Connect(const objSuperWorkspace: IDispatch): WordBool;
begin
  Result := DefaultInterface.Connect(objSuperWorkspace);
end;

function TSuper3D.Disconnect: WordBool;
begin
  Result := DefaultInterface.Disconnect;
end;

procedure TSuper3D.Close;
begin
  DefaultInterface.Close;
end;

function TSuper3D.ToXML: WideString;
begin
  Result := DefaultInterface.ToXML;
end;

procedure TSuper3D.AddFlyTime(dAddTime: Double);
begin
  DefaultInterface.AddFlyTime(dAddTime);
end;

procedure TSuper3D.AboutBox;
begin
  DefaultInterface.AboutBox;
end;

function TSuper3D.SaveMap3DAs(const strMapName: WideString): WordBool;
begin
  Result := DefaultInterface.SaveMap3DAs(strMapName);
end;

function TSuper3D.Rotate(dAngle: Double; NormalX: Double; NormalY: Double; NormalZ: Double): WordBool;
begin
  Result := DefaultInterface.Rotate(dAngle, NormalX, NormalY, NormalZ);
end;

function TSuper3D.RouteFly(const obj3DPoints: IsoPoint3Ds; dPeriod: Double): WordBool;
begin
  Result := DefaultInterface.RouteFly(obj3DPoints, dPeriod);
end;

procedure TSuper3D.RestoreScene;
begin
  DefaultInterface.RestoreScene;
end;

procedure TSuper3D.Fly(const objViewPoint: IsoPoint3D; fVisAngle: Single; dRoll: Double; 
                       dPitch: Double; dHeading: Double);
begin
  DefaultInterface.Fly(objViewPoint, fVisAngle, dRoll, dPitch, dHeading);
end;

function TSuper3D.SaveSceneAs(const strName: WideString): WordBool;
begin
  Result := DefaultInterface.SaveSceneAs(strName);
end;

function TSuper3D.HitTestEx(X: Double; Y: Double): WordBool;
begin
  Result := DefaultInterface.HitTestEx(X, Y);
end;

function TSuper3D.OpenScene(const strName: WideString): WordBool;
begin
  Result := DefaultInterface.OpenScene(strName);
end;

function TSuper3D.SaveScene: WordBool;
begin
  Result := DefaultInterface.SaveScene;
end;

procedure TSuper3D.AddResourceLocation(const strPathName: WideString);
begin
  DefaultInterface.AddResourceLocation(strPathName);
end;

procedure TSuper3D.UnlockWindowUpdate;
begin
  DefaultInterface.UnlockWindowUpdate;
end;

function TSuper3D.OpenMap3D(const strMapName: WideString): WordBool;
begin
  Result := DefaultInterface.OpenMap3D(strMapName);
end;

function TSuper3D.OutputToFile(const strPictureFile: WideString): WordBool;
begin
  Result := DefaultInterface.OutputToFile(strPictureFile, EmptyParam);
end;

function TSuper3D.OutputToFile(const strPictureFile: WideString; nFileFormat: OleVariant): WordBool;
begin
  Result := DefaultInterface.OutputToFile(strPictureFile, nFileFormat);
end;

procedure TSuper3D.LockWindowUpdate;
begin
  DefaultInterface.LockWindowUpdate;
end;

function TSuper3D.CreateSoObject(const strObjectName: WideString): IDispatch;
begin
  Result := DefaultInterface.CreateSoObject(strObjectName);
end;

function TSuper3D.RegisterForRuntime(const strUser: WideString; const strCompany: WideString; 
                                     const strSerialNo: WideString): WordBool;
begin
  Result := DefaultInterface.RegisterForRuntime(strUser, strCompany, strSerialNo);
end;

procedure TSuper3D.Refresh;
begin
  DefaultInterface.Refresh;
end;

function TSuper3D.Output(hDC: OLE_HANDLE): WordBool;
begin
  Result := DefaultInterface.Output(hDC);
end;

procedure TSuper3D.PanRotate(dX: Integer; dY: Integer);
begin
  DefaultInterface.PanRotate(dX, dY);
end;

procedure TSuper3D.Flood(dHeight: Double);
begin
  DefaultInterface.Flood(dHeight);
end;

procedure TSuper3D.FloodEx(const ControlPoints: IDispatch);
begin
  DefaultInterface.FloodEx(ControlPoints);
end;

function TSuper3D.CompileChunkLod(const objDataset: IDispatch): WordBool;
begin
  Result := DefaultInterface.CompileChunkLod(objDataset, EmptyParam, EmptyParam, EmptyParam, 
                                             EmptyParam, EmptyParam);
end;

function TSuper3D.CompileChunkLod(const objDataset: IDispatch; nTreeDepth: OleVariant): WordBool;
begin
  Result := DefaultInterface.CompileChunkLod(objDataset, nTreeDepth, EmptyParam, EmptyParam, 
                                             EmptyParam, EmptyParam);
end;

function TSuper3D.CompileChunkLod(const objDataset: IDispatch; nTreeDepth: OleVariant; 
                                  dMaxError: OleVariant): WordBool;
begin
  Result := DefaultInterface.CompileChunkLod(objDataset, nTreeDepth, dMaxError, EmptyParam, 
                                             EmptyParam, EmptyParam);
end;

function TSuper3D.CompileChunkLod(const objDataset: IDispatch; nTreeDepth: OleVariant; 
                                  dMaxError: OleVariant; dResolution: OleVariant): WordBool;
begin
  Result := DefaultInterface.CompileChunkLod(objDataset, nTreeDepth, dMaxError, dResolution, 
                                             EmptyParam, EmptyParam);
end;

function TSuper3D.CompileChunkLod(const objDataset: IDispatch; nTreeDepth: OleVariant; 
                                  dMaxError: OleVariant; dResolution: OleVariant; 
                                  dVerticalScale: OleVariant): WordBool;
begin
  Result := DefaultInterface.CompileChunkLod(objDataset, nTreeDepth, dMaxError, dResolution, 
                                             dVerticalScale, EmptyParam);
end;

function TSuper3D.CompileChunkLod(const objDataset: IDispatch; nTreeDepth: OleVariant; 
                                  dMaxError: OleVariant; dResolution: OleVariant; 
                                  dVerticalScale: OleVariant; dStoredScale: OleVariant): WordBool;
begin
  Result := DefaultInterface.CompileChunkLod(objDataset, nTreeDepth, dMaxError, dResolution, 
                                             dVerticalScale, dStoredScale);
end;

function TSuper3D.SaveMap3D: WordBool;
begin
  Result := DefaultInterface.SaveMap3D;
end;

function TSuper3D.Pan(dX: Double; dY: Double): WordBool;
begin
  Result := DefaultInterface.Pan(dX, dY);
end;

function TSuper3D.LightSource(const objPosition: IsoPoint3D; bLocate: WordBool): WordBool;
begin
  Result := DefaultInterface.LightSource(objPosition, bLocate);
end;

procedure TSuper3D.Zoom(dRatio: Double);
begin
  DefaultInterface.Zoom(dRatio);
end;

function TSuper3D.HitTest(dWinX: Double; dWinY: Double): IsoPoint3D;
begin
  Result := DefaultInterface.HitTest(dWinX, dWinY);
end;

class function Coso3DAnalyst.Create: Iso3DAnalyst;
begin
  Result := CreateComObject(CLASS_so3DAnalyst) as Iso3DAnalyst;
end;

class function Coso3DAnalyst.CreateRemote(const MachineName: string): Iso3DAnalyst;
begin
  Result := CreateRemoteComObject(MachineName, CLASS_so3DAnalyst) as Iso3DAnalyst;
end;

class function CosoFlightControl.Create: IsoFlightControl;
begin
  Result := CreateComObject(CLASS_soFlightControl) as IsoFlightControl;
end;

class function CosoFlightControl.CreateRemote(const MachineName: string): IsoFlightControl;
begin
  Result := CreateRemoteComObject(MachineName, CLASS_soFlightControl) as IsoFlightControl;
end;

class function CosoCutFillResult.Create: IsoCutFillResult;
begin
  Result := CreateComObject(CLASS_soCutFillResult) as IsoCutFillResult;
end;

class function CosoCutFillResult.CreateRemote(const MachineName: string): IsoCutFillResult;
begin
  Result := CreateRemoteComObject(MachineName, CLASS_soCutFillResult) as IsoCutFillResult;
end;

procedure Register;
begin
  RegisterComponents(dtlOcxPage, [TSuper3D]);
end;

end.