unit Krista_FM_PlanningWrapper_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.88.1.0.1.0  $
// File generated on 02.10.2014 10:35:51 from Type Library described below.

// ************************************************************************ //
// Type Lib: Y:\_Krista.Wrapper\Krista.FM.PlanningWrapper\Krista.FM.PlanningWrapper\Krista.FM.PlaningWrapper.tlb (1)
// IID\LCID: {48231386-9BE8-401B-81CA-F4EBB2ED4601}\0
// Helpfile: 
// DepndLst: 
//   (1) v2.0 stdole, (C:\WINDOWS\system32\stdole2.tlb)
//   (2) v2.4 mscorlib, (C:\WINDOWS\Microsoft.NET\Framework\v4.0.30319\mscorlib.tlb)
//   (3) v4.0 StdVCL, (C:\WINDOWS\system32\stdvcl40.dll)
// ************************************************************************ //
{$TYPEDADDRESS OFF} // Unit must be compiled without type-checked pointers. 
interface

uses Windows, ActiveX, Classes, Graphics, OleServer, OleCtrls, StdVCL, 
  mscorlib_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
  // TypeLibrary Major and minor versions
  Krista_FM_PlanningWrapperMajorVersion = 1;
  Krista_FM_PlanningWrapperMinorVersion = 0;

  LIBID_Krista_FM_PlanningWrapper: TGUID = '{48231386-9BE8-401B-81CA-F4EBB2ED4601}';

  IID_IPlanningWrapper: TGUID = '{D87BA47F-0A2F-4DE4-A23C-8F8285E937FB}';
  CLASS_PlanningWrapper: TGUID = '{80D3EE99-58A1-4F6F-9CF8-6A10E52C773E}';
type

// *********************************************************************//
// Forward declaration of types defined in TypeLibrary                    
// *********************************************************************//
  IPlanningWrapper = interface;
  IPlanningWrapperDisp = dispinterface;

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


// *********************************************************************//
// Interface: IPlanningWrapper
// Flags:     (4416) Dual OleAutomation Dispatchable
// GUID:      {D87BA47F-0A2F-4DE4-A23C-8F8285E937FB}
// *********************************************************************//
  IPlanningWrapper = interface(IDispatch)
    ['{D87BA47F-0A2F-4DE4-A23C-8F8285E937FB}']
    function  Get_Connected: WordBool; safecall;
    function  Connect(const serverNameNPort: WideString; const userName: WideString; 
                      const password: WideString; authType: Integer; withinTaskContext: WordBool; 
                      var errStr: WideString): WordBool; safecall;
    procedure Disconnect; safecall;
    function  GetSchemeName(const providerId: WideString): WideString; safecall;
    function  Writeback(const data: WideString): WideString; safecall;
    function  GetObjectRecordset(const objectName: WideString; const filter: WideString): OleVariant; safecall;
    function  GetMetadataDate: WideString; safecall;
    function  GetMetaData: WideString; safecall;
    function  GetMembers(const providerId: WideString; const cubeName: WideString; 
                         const dimensionName: WideString; const hierarchyName: WideString; 
                         const levelNames: WideString; const memberPropertiesNames: WideString): WideString; safecall;
    function  GetRecordsetData(const providerId: WideString; const queryText: WideString): WideString; safecall;
    function  GetCellsetData(const providerId: WideString; const queryText: WideString): WideString; safecall;
    procedure RefreshDimension(const providerId: WideString; names: PSafeArray); safecall;
    procedure RefreshCube(const providerId: WideString; names: PSafeArray); safecall;
    function  RefreshMetaData: WideString; safecall;
    function  UpdateTaskParams(taskId: Integer; const paramsText: WideString; 
                               const sectionDivider: WideString; const valuesDivider: WideString): WideString; safecall;
    function  UpdateTaskConsts(taskId: Integer; const constsText: WideString; 
                               const sectionDivider: WideString; const valuesDivider: WideString): WideString; safecall;
    function  GetTaskContext(taskId: Integer): WideString; safecall;
    procedure Dispose; safecall;
    function  GetDataSourcesInfo: OleVariant; safecall;
    property Connected: WordBool read Get_Connected;
  end;

// *********************************************************************//
// DispIntf:  IPlanningWrapperDisp
// Flags:     (4416) Dual OleAutomation Dispatchable
// GUID:      {D87BA47F-0A2F-4DE4-A23C-8F8285E937FB}
// *********************************************************************//
  IPlanningWrapperDisp = dispinterface
    ['{D87BA47F-0A2F-4DE4-A23C-8F8285E937FB}']
    property Connected: WordBool readonly dispid 1610743808;
    function  Connect(const serverNameNPort: WideString; const userName: WideString; 
                      const password: WideString; authType: Integer; withinTaskContext: WordBool; 
                      var errStr: WideString): WordBool; dispid 1610743809;
    procedure Disconnect; dispid 1610743810;
    function  GetSchemeName(const providerId: WideString): WideString; dispid 1610743811;
    function  Writeback(const data: WideString): WideString; dispid 1610743812;
    function  GetObjectRecordset(const objectName: WideString; const filter: WideString): OleVariant; dispid 1610743813;
    function  GetMetadataDate: WideString; dispid 1610743814;
    function  GetMetaData: WideString; dispid 1610743815;
    function  GetMembers(const providerId: WideString; const cubeName: WideString; 
                         const dimensionName: WideString; const hierarchyName: WideString; 
                         const levelNames: WideString; const memberPropertiesNames: WideString): WideString; dispid 1610743816;
    function  GetRecordsetData(const providerId: WideString; const queryText: WideString): WideString; dispid 1610743817;
    function  GetCellsetData(const providerId: WideString; const queryText: WideString): WideString; dispid 1610743818;
    procedure RefreshDimension(const providerId: WideString; names: {??PSafeArray} OleVariant); dispid 1610743819;
    procedure RefreshCube(const providerId: WideString; names: {??PSafeArray} OleVariant); dispid 1610743820;
    function  RefreshMetaData: WideString; dispid 1610743821;
    function  UpdateTaskParams(taskId: Integer; const paramsText: WideString; 
                               const sectionDivider: WideString; const valuesDivider: WideString): WideString; dispid 1610743822;
    function  UpdateTaskConsts(taskId: Integer; const constsText: WideString; 
                               const sectionDivider: WideString; const valuesDivider: WideString): WideString; dispid 1610743823;
    function  GetTaskContext(taskId: Integer): WideString; dispid 1610743824;
    procedure Dispose; dispid 1610743825;
    function  GetDataSourcesInfo: OleVariant; dispid 1610743826;
  end;

// *********************************************************************//
// The Class CoPlanningWrapper provides a Create and CreateRemote method to          
// create instances of the default interface IPlanningWrapper exposed by              
// the CoClass PlanningWrapper. The functions are intended to be used by             
// clients wishing to automate the CoClass objects exposed by the         
// server of this typelibrary.                                            
// *********************************************************************//
  CoPlanningWrapper = class
    class function Create: IPlanningWrapper;
    class function CreateRemote(const MachineName: string): IPlanningWrapper;
  end;

implementation

uses ComObj;

class function CoPlanningWrapper.Create: IPlanningWrapper;
begin
  Result := CreateComObject(CLASS_PlanningWrapper) as IPlanningWrapper;
end;

class function CoPlanningWrapper.CreateRemote(const MachineName: string): IPlanningWrapper;
begin
  Result := CreateRemoteComObject(MachineName, CLASS_PlanningWrapper) as IPlanningWrapper;
end;

end.
