P4COM_TLB.pas #1

unit P4COM_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 12/02/2004 11:59:49 from Type Library described below.

// ************************************************************************  //
// Type Lib: c:\Data\work\p4com\src\ReleaseMinDependency\p4com.dll (1)
// LIBID: {BC5DA98A-3A2F-4458-8666-22EDB27C6258}
// LCID: 0
// Helpfile: 
// HelpString: p4com 1.0 Type Library
// DepndLst: 
//   (1) v2.0 stdole, (C:\WINDOWS\System32\stdole2.tlb)
// Errors:
//   Hint: Member 'Var' of 'Ip4' changed to 'Var_'
// ************************************************************************ //
{$TYPEDADDRESS OFF} // Unit must be compiled without type-checked pointers. 
{$WARN SYMBOL_PLATFORM OFF}
{$WRITEABLECONST ON}
{$VARPROPSETTER ON}
interface

uses Windows, ActiveX, Classes, Graphics, OleServer, StdVCL, 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
  P4COMMajorVersion = 1;
  P4COMMinorVersion = 0;

  LIBID_P4COM: TGUID = '{BC5DA98A-3A2F-4458-8666-22EDB27C6258}';

  IID_Ip4: TGUID = '{E7D963D4-7AC8-4B89-B768-16F900DB2A93}';
  CLASS_p4: TGUID = '{0709D2DF-09E0-4DBF-AECB-9B997006C0B4}';
type

// *********************************************************************//
// Forward declaration of types defined in TypeLibrary                    
// *********************************************************************//
  Ip4 = interface;
  Ip4Disp = dispinterface;

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


// *********************************************************************//
// Declaration of structures, unions and aliases.                         
// *********************************************************************//
  PPSafeArray1 = ^PSafeArray; {*}
  PPSafeArray2 = ^PSafeArray; {*}


// *********************************************************************//
// Interface: Ip4
// Flags:     (4416) Dual OleAutomation Dispatchable
// GUID:      {E7D963D4-7AC8-4B89-B768-16F900DB2A93}
// *********************************************************************//
  Ip4 = interface(IDispatch)
    ['{E7D963D4-7AC8-4B89-B768-16F900DB2A93}']
    function Get_Charset: WideString; safecall;
    procedure Set_Charset(const pVal: WideString); safecall;
    function Get_Client: WideString; safecall;
    procedure Set_Client(const pVal: WideString); safecall;
    function Get_Cwd: WideString; safecall;
    procedure Set_Cwd(const pVal: WideString); safecall;
    function Get_Host: WideString; safecall;
    procedure Set_Host(const pVal: WideString); safecall;
    function Get_Language: WideString; safecall;
    procedure Set_Language(const pVal: WideString); safecall;
    function Get_Password: WideString; safecall;
    procedure Set_Password(const pVal: WideString); safecall;
    function Get_Port: WideString; safecall;
    procedure Set_Port(const pVal: WideString); safecall;
    function Get_User: WideString; safecall;
    procedure Set_User(const pVal: WideString); safecall;
    function Get_Errors: PSafeArray; safecall;
    function Get_Warnings: PSafeArray; safecall;
    function run(const cmd: WideString): PSafeArray; safecall;
    procedure Connect; safecall;
    procedure Disconnect; safecall;
    function Get_ExceptionLevel: Integer; safecall;
    procedure Set_ExceptionLevel(pVal: Integer); safecall;
    procedure Tagged; safecall;
    procedure ParseForms; safecall;
    function Get_TempFilename: WideString; safecall;
    function Get_Var_(const varName: WideString): WideString; safecall;
    procedure Set_Var_(const varName: WideString; const pVal: WideString); safecall;
    function Get_VarExists(const varName: WideString): Integer; safecall;
    function Get_ArrayVar(const varName: WideString): PSafeArray; safecall;
    procedure Set_ArrayVar(const varName: WideString; var pVal: PSafeArray); safecall;
    function Get_Os: WideString; safecall;
    function Get_ServerVersion: Integer; safecall;
    procedure Set_ArrayVar_variant(const varName: WideString; Param2: PPSafeArray2); safecall;
    function run_variant(const cmd: WideString): OleVariant; safecall;
    function Get_Errors_variant: OleVariant; safecall;
    function Get_Warnings_variant: OleVariant; safecall;
    property Charset: WideString read Get_Charset write Set_Charset;
    property Client: WideString read Get_Client write Set_Client;
    property Cwd: WideString read Get_Cwd write Set_Cwd;
    property Host: WideString read Get_Host write Set_Host;
    property Language: WideString read Get_Language write Set_Language;
    property Password: WideString read Get_Password write Set_Password;
    property Port: WideString read Get_Port write Set_Port;
    property User: WideString read Get_User write Set_User;
    property Errors: PSafeArray read Get_Errors;
    property Warnings: PSafeArray read Get_Warnings;
    property ExceptionLevel: Integer read Get_ExceptionLevel write Set_ExceptionLevel;
    property TempFilename: WideString read Get_TempFilename;
    property Var_[const varName: WideString]: WideString read Get_Var_ write Set_Var_;
    property VarExists[const varName: WideString]: Integer read Get_VarExists;
    property Os: WideString read Get_Os;
    property ServerVersion: Integer read Get_ServerVersion;
    property ArrayVar_variant[const varName: WideString]: PPSafeArray2 write Set_ArrayVar_variant;
    property Errors_variant: OleVariant read Get_Errors_variant;
    property Warnings_variant: OleVariant read Get_Warnings_variant;
  end;

// *********************************************************************//
// DispIntf:  Ip4Disp
// Flags:     (4416) Dual OleAutomation Dispatchable
// GUID:      {E7D963D4-7AC8-4B89-B768-16F900DB2A93}
// *********************************************************************//
  Ip4Disp = dispinterface
    ['{E7D963D4-7AC8-4B89-B768-16F900DB2A93}']
    property Charset: WideString dispid 1;
    property Client: WideString dispid 2;
    property Cwd: WideString dispid 3;
    property Host: WideString dispid 4;
    property Language: WideString dispid 5;
    property Password: WideString dispid 6;
    property Port: WideString dispid 7;
    property User: WideString dispid 8;
    property Errors: {??PSafeArray}OleVariant readonly dispid 10;
    property Warnings: {??PSafeArray}OleVariant readonly dispid 11;
    function run(const cmd: WideString): {??PSafeArray}OleVariant; dispid 12;
    procedure Connect; dispid 13;
    procedure Disconnect; dispid 14;
    property ExceptionLevel: Integer dispid 15;
    procedure Tagged; dispid 16;
    procedure ParseForms; dispid 17;
    property TempFilename: WideString readonly dispid 18;
    property Var_[const varName: WideString]: WideString dispid 19;
    property VarExists[const varName: WideString]: Integer readonly dispid 20;
    function ArrayVar(const varName: WideString): {??PSafeArray}OleVariant; dispid 21;
    property Os: WideString readonly dispid 22;
    property ServerVersion: Integer readonly dispid 23;
    property ArrayVar_variant[const varName: WideString]: {??PPSafeArray2}OleVariant writeonly dispid 24;
    function run_variant(const cmd: WideString): OleVariant; dispid 25;
    property Errors_variant: OleVariant readonly dispid 26;
    property Warnings_variant: OleVariant readonly dispid 27;
  end;

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

implementation

uses ComObj;

class function Cop4.Create: Ip4;
begin
  Result := CreateComObject(CLASS_p4) as Ip4;
end;

class function Cop4.CreateRemote(const MachineName: string): Ip4;
begin
  Result := CreateRemoteComObject(MachineName, CLASS_p4) as Ip4;
end;

end.