netobjd4_tlb.pas

路径查找代码[dephi版本代码]

unit NetObjD4_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 : $Revision:   1.11.1.75  $
// File generated on 12/29/00 4:40:10 PM from Type Library described below.

// ************************************************************************ //
// Type Lib: X:\NetworkAPI Tests\PathFinder\Delphi4\NetObjD4.tlb
// IID\LCID: {5510BE91-C7DA-11D4-9C5A-00C04F5AAA5B}\0
// Helpfile: 
// HelpString: NetObjD4 Library
// Version:    1.0
// ************************************************************************ //

interface

uses Windows, ActiveX, Classes, Graphics, OleCtrls, StdVCL, 
  esriCore_TLB;

// *********************************************************************//
// 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
  LIBID_NetObjD4: TGUID = '{5510BE91-C7DA-11D4-9C5A-00C04F5AAA5B}';
  IID_IPathFinder: TGUID = '{5510BE92-C7DA-11D4-9C5A-00C04F5AAA5B}';
  CLASS_PathFinder: TGUID = '{5510BE94-C7DA-11D4-9C5A-00C04F5AAA5B}';
type

// *********************************************************************//
// Forward declaration of interfaces defined in Type Library            //
// *********************************************************************//
  IPathFinder = interface;

// *********************************************************************//
// Declaration of CoClasses defined in Type Library                     //
// (NOTE: Here we map each CoClass to its Default Interface)            //
// *********************************************************************//
  PathFinder = IPathFinder;


// *********************************************************************//
// Interface: IPathFinder
// Flags:     (0)
// GUID:      {5510BE92-C7DA-11D4-9C5A-00C04F5AAA5B}
// *********************************************************************//
  IPathFinder = interface(IUnknown)
    ['{5510BE92-C7DA-11D4-9C5A-00C04F5AAA5B}']
    function OpenAccessNetwork(const AccessFileName: WideString; 
                               const FeatureDatasetName: WideString): HResult; stdcall;
    function Get_StopPoints(out Points: IPointCollection): HResult; stdcall;
    function Set_StopPoints(const Points: IPointCollection): HResult; stdcall;
    function SolvePath(const WeightName: WideString): HResult; stdcall;
    function Get_PathCost(out Value: Double): HResult; stdcall;
    function OpenFeatureDatasetNetwork(const FeatuteDataset: IFeatureDataset): HResult; stdcall;
    function Get_PathPolyLine(out Line: IPolyline): HResult; stdcall;
    function Get_Map(out Map: IMap): HResult; stdcall;
    function Set_Map(const Map: IMap): HResult; stdcall;
  end;

  CoPathFinder = class
    class function Create: IPathFinder;
    class function CreateRemote(const MachineName: string): IPathFinder;
  end;

implementation

uses ComObj;

class function CoPathFinder.Create: IPathFinder;
begin
  Result := CreateComObject(CLASS_PathFinder) as IPathFinder;
end;

class function CoPathFinder.CreateRemote(const MachineName: string): IPathFinder;
begin
  Result := CreateRemoteComObject(MachineName, CLASS_PathFinder) as IPathFinder;
end;

end.