superanalystlib_tlb.pas

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

    property  ControlInterface: _DSuperAnalyst read GetControlInterface;
    property  DefaultInterface: _DSuperAnalyst read GetControlInterface;
  published
    property Anchors;
    property SurfaceAnalyst: IsoSurfaceAnalyst read Get_SurfaceAnalyst write Set_SurfaceAnalyst stored False;
    property GridAnalyst: IsoGridAnalystEx read Get_GridAnalyst write Set_GridAnalyst stored False;
    property NetworkAnalyst: IsoNetworkAnalystEx read Get_NetworkAnalyst write Set_NetworkAnalyst stored False;
  end;

procedure Register;

resourcestring
  dtlServerPage = 'ActiveX';

  dtlOcxPage = 'ActiveX';

implementation

uses ComObj;

class function CosoNeighborhoodParam.Create: IsoNeighborhoodParam;
begin
  Result := CreateComObject(CLASS_soNeighborhoodParam) as IsoNeighborhoodParam;
end;

class function CosoNeighborhoodParam.CreateRemote(const MachineName: string): IsoNeighborhoodParam;
begin
  Result := CreateRemoteComObject(MachineName, CLASS_soNeighborhoodParam) as IsoNeighborhoodParam;
end;

class function CosoSearchRadiusParam.Create: IsoSearchRadiusParam;
begin
  Result := CreateComObject(CLASS_soSearchRadiusParam) as IsoSearchRadiusParam;
end;

class function CosoSearchRadiusParam.CreateRemote(const MachineName: string): IsoSearchRadiusParam;
begin
  Result := CreateRemoteComObject(MachineName, CLASS_soSearchRadiusParam) as IsoSearchRadiusParam;
end;

class function CosoGridAnalysisEnvironment.Create: IsoGridAnalysisEnvironment;
begin
  Result := CreateComObject(CLASS_soGridAnalysisEnvironment) as IsoGridAnalysisEnvironment;
end;

class function CosoGridAnalysisEnvironment.CreateRemote(const MachineName: string): IsoGridAnalysisEnvironment;
begin
  Result := CreateRemoteComObject(MachineName, CLASS_soGridAnalysisEnvironment) as IsoGridAnalysisEnvironment;
end;

class function CosoSurfaceOperator.Create: IsoSurfaceOperator;
begin
  Result := CreateComObject(CLASS_soSurfaceOperator) as IsoSurfaceOperator;
end;

class function CosoSurfaceOperator.CreateRemote(const MachineName: string): IsoSurfaceOperator;
begin
  Result := CreateRemoteComObject(MachineName, CLASS_soSurfaceOperator) as IsoSurfaceOperator;
end;

class function CosoMathOperator.Create: IsoMathOperator;
begin
  Result := CreateComObject(CLASS_soMathOperator) as IsoMathOperator;
end;

class function CosoMathOperator.CreateRemote(const MachineName: string): IsoMathOperator;
begin
  Result := CreateRemoteComObject(MachineName, CLASS_soMathOperator) as IsoMathOperator;
end;

class function CosoConversionOperator.Create: IsoConversionOperator;
begin
  Result := CreateComObject(CLASS_soConversionOperator) as IsoConversionOperator;
end;

class function CosoConversionOperator.CreateRemote(const MachineName: string): IsoConversionOperator;
begin
  Result := CreateRemoteComObject(MachineName, CLASS_soConversionOperator) as IsoConversionOperator;
end;

class function CosoGeneralizeOperator.Create: IsoGeneralizeOperator;
begin
  Result := CreateComObject(CLASS_soGeneralizeOperator) as IsoGeneralizeOperator;
end;

class function CosoGeneralizeOperator.CreateRemote(const MachineName: string): IsoGeneralizeOperator;
begin
  Result := CreateRemoteComObject(MachineName, CLASS_soGeneralizeOperator) as IsoGeneralizeOperator;
end;

class function CosoHydrologyOperator.Create: IsoHydrologyOperator;
begin
  Result := CreateComObject(CLASS_soHydrologyOperator) as IsoHydrologyOperator;
end;

class function CosoHydrologyOperator.CreateRemote(const MachineName: string): IsoHydrologyOperator;
begin
  Result := CreateRemoteComObject(MachineName, CLASS_soHydrologyOperator) as IsoHydrologyOperator;
end;

class function CosoStatisticOperator.Create: IsoStatisticOperator;
begin
  Result := CreateComObject(CLASS_soStatisticOperator) as IsoStatisticOperator;
end;

class function CosoStatisticOperator.CreateRemote(const MachineName: string): IsoStatisticOperator;
begin
  Result := CreateRemoteComObject(MachineName, CLASS_soStatisticOperator) as IsoStatisticOperator;
end;

class function CosoGridAnalystEx.Create: IsoGridAnalystEx;
begin
  Result := CreateComObject(CLASS_soGridAnalystEx) as IsoGridAnalystEx;
end;

class function CosoGridAnalystEx.CreateRemote(const MachineName: string): IsoGridAnalystEx;
begin
  Result := CreateRemoteComObject(MachineName, CLASS_soGridAnalystEx) as IsoGridAnalystEx;
end;

class function CosoInterpolateOperator.Create: IsoInterpolateOperator;
begin
  Result := CreateComObject(CLASS_soInterpolateOperator) as IsoInterpolateOperator;
end;

class function CosoInterpolateOperator.CreateRemote(const MachineName: string): IsoInterpolateOperator;
begin
  Result := CreateRemoteComObject(MachineName, CLASS_soInterpolateOperator) as IsoInterpolateOperator;
end;

class function CosoModelingOperator.Create: IsoModelingOperator;
begin
  Result := CreateComObject(CLASS_soModelingOperator) as IsoModelingOperator;
end;

class function CosoModelingOperator.CreateRemote(const MachineName: string): IsoModelingOperator;
begin
  Result := CreateRemoteComObject(MachineName, CLASS_soModelingOperator) as IsoModelingOperator;
end;

class function CosoSurfaceAnalyst.Create: IsoSurfaceAnalyst;
begin
  Result := CreateComObject(CLASS_soSurfaceAnalyst) as IsoSurfaceAnalyst;
end;

class function CosoSurfaceAnalyst.CreateRemote(const MachineName: string): IsoSurfaceAnalyst;
begin
  Result := CreateRemoteComObject(MachineName, CLASS_soSurfaceAnalyst) as IsoSurfaceAnalyst;
end;

class function CosoCenter.Create: IsoCenter;
begin
  Result := CreateComObject(CLASS_soCenter) as IsoCenter;
end;

class function CosoCenter.CreateRemote(const MachineName: string): IsoCenter;
begin
  Result := CreateRemoteComObject(MachineName, CLASS_soCenter) as IsoCenter;
end;

class function CosoCenters.Create: IsoCenters;
begin
  Result := CreateComObject(CLASS_soCenters) as IsoCenters;
end;

class function CosoCenters.CreateRemote(const MachineName: string): IsoCenters;
begin
  Result := CreateRemoteComObject(MachineName, CLASS_soCenters) as IsoCenters;
end;

class function CosoNetworkSetting.Create: IsoNetworkSetting;
begin
  Result := CreateComObject(CLASS_soNetworkSetting) as IsoNetworkSetting;
end;

class function CosoNetworkSetting.CreateRemote(const MachineName: string): IsoNetworkSetting;
begin
  Result := CreateRemoteComObject(MachineName, CLASS_soNetworkSetting) as IsoNetworkSetting;
end;

class function CosoTurntableSetting.Create: IsoTurnTableSetting;
begin
  Result := CreateComObject(CLASS_soTurntableSetting) as IsoTurnTableSetting;
end;

class function CosoTurntableSetting.CreateRemote(const MachineName: string): IsoTurnTableSetting;
begin
  Result := CreateRemoteComObject(MachineName, CLASS_soTurntableSetting) as IsoTurnTableSetting;
end;

class function CosoLocationAllocateSetting.Create: IsoLocationAllocateSetting;
begin
  Result := CreateComObject(CLASS_soLocationAllocateSetting) as IsoLocationAllocateSetting;
end;

class function CosoLocationAllocateSetting.CreateRemote(const MachineName: string): IsoLocationAllocateSetting;
begin
  Result := CreateRemoteComObject(MachineName, CLASS_soLocationAllocateSetting) as IsoLocationAllocateSetting;
end;

class function CosoNetworkAnalystEx.Create: IsoNetworkAnalystEx;
begin
  Result := CreateComObject(CLASS_soNetworkAnalystEx) as IsoNetworkAnalystEx;
end;

class function CosoNetworkAnalystEx.CreateRemote(const MachineName: string): IsoNetworkAnalystEx;
begin
  Result := CreateRemoteComObject(MachineName, CLASS_soNetworkAnalystEx) as IsoNetworkAnalystEx;
end;

procedure TSuperAnalyst.InitControlData;
const
  CLicenseKey: array[0..27] of Word = ( $0043, $006F, $0070, $0079, $0072, $0069, $0067, $0068, $0074, $0020, $0028
    , $0063, $0029, $0020, $0032, $0030, $0030, $0034, $0020, $0073, $0075
    , $0070, $0065, $0072, $006D, $0061, $0070, $0000);
  CControlData: TControlData2 = (
    ClassID: '{6D827A3F-5C5B-4B48-9FD9-B4A69FA20312}';
    EventIID: '';
    EventCount: 0;
    EventDispIDs: nil;
    LicenseKey: @CLicenseKey;
    Flags: $00000000;
    Version: 401);
begin
  ControlData := @CControlData;
end;

procedure TSuperAnalyst.CreateControl;

  procedure DoCreate;
  begin
    FIntf := IUnknown(OleObject) as _DSuperAnalyst;
  end;

begin
  if FIntf = nil then DoCreate;
end;

function TSuperAnalyst.GetControlInterface: _DSuperAnalyst;
begin
  CreateControl;
  Result := FIntf;
end;

function TSuperAnalyst.Get_SurfaceAnalyst: IsoSurfaceAnalyst;
begin
  Result := DefaultInterface.SurfaceAnalyst;
end;

procedure TSuperAnalyst.Set_SurfaceAnalyst(const Value: IsoSurfaceAnalyst);
begin
  DefaultInterface.SurfaceAnalyst := Value;
end;

function TSuperAnalyst.Get_GridAnalyst: IsoGridAnalystEx;
begin
  Result := DefaultInterface.GridAnalyst;
end;

procedure TSuperAnalyst.Set_GridAnalyst(const Value: IsoGridAnalystEx);
begin
  DefaultInterface.GridAnalyst := Value;
end;

function TSuperAnalyst.Get_NetworkAnalyst: IsoNetworkAnalystEx;
begin
  Result := DefaultInterface.NetworkAnalyst;
end;

procedure TSuperAnalyst.Set_NetworkAnalyst(const Value: IsoNetworkAnalystEx);
begin
  DefaultInterface.NetworkAnalyst := Value;
end;

procedure TSuperAnalyst.AboutBox;
begin
  DefaultInterface.AboutBox;
end;

procedure TSuperAnalyst.Disconnect;
begin
  DefaultInterface.Disconnect;
end;

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

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

end.