iisext_tlb.pas

SPServer.rar一个基于TCP/IP监听发送代码

unit IISExt_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 2003-5-19 18:18:32 from Type Library described below.

// ************************************************************************  //
// Type Lib: C:\WINNT\System32\iisext.dll (1)
// LIBID: {2A56EA30-AFEB-11D1-9868-00A0C922E703}
// LCID: 0
// Helpfile: 
// HelpString: Active DS IIS Extension Dll
// DepndLst: 
//   (1) v1.0 ActiveDs, (C:\WINNT\System32\activeds.tlb)
//   (2) v2.0 stdole, (C:\WINNT\System32\stdole2.tlb)
// Errors:
//   Error creating palette bitmap of (TIISExtComputer) : Server iisext.dll contains no icons
//   Error creating palette bitmap of (TIISExtApp) : Server iisext.dll contains no icons
//   Error creating palette bitmap of (TIISExtServer) : Server iisext.dll contains no icons
//   Error creating palette bitmap of (TIISExtDsCrMap) : Server iisext.dll contains no icons
// ************************************************************************ //
// *************************************************************************//
// NOTE:                                                                      
// Items guarded by $IFDEF_LIVE_SERVER_AT_DESIGN_TIME are used by properties  
// which return objects that may need to be explicitly created via a function 
// call prior to any access via the property. These items have been disabled  
// in order to prevent accidental use from within the object inspector. You   
// may enable them by defining LIVE_SERVER_AT_DESIGN_TIME or by selectively   
// removing them from the $IFDEF blocks. However, such items must still be    
// programmatically created via a method of the appropriate CoClass before    
// they can be used.                                                          
{$TYPEDADDRESS OFF} // Unit must be compiled without type-checked pointers. 
{$WARN SYMBOL_PLATFORM OFF}
{$WRITEABLECONST ON}
{$VARPROPSETTER ON}
interface

uses Windows, ActiveDs_TLB, 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
  IISExtMajorVersion = 1;
  IISExtMinorVersion = 0;

  LIBID_IISExt: TGUID = '{2A56EA30-AFEB-11D1-9868-00A0C922E703}';

  IID_IISDsCrMap: TGUID = '{EDCD6A60-B053-11D0-A62F-00A0C922E752}';
  IID_IISApp: TGUID = '{46FBBB80-0192-11D1-9C39-00A0C922E703}';
  IID_IISApp2: TGUID = '{603DCBEA-7350-11D2-A7BE-0000F8085B95}';
  IID_IISComputer: TGUID = '{CF87A2E0-078B-11D1-9C3D-00A0C922E703}';
  CLASS_IISExtComputer: TGUID = '{91EF9258-AFEC-11D1-9868-00A0C922E703}';
  CLASS_IISExtApp: TGUID = '{B4F34438-AFEC-11D1-9868-00A0C922E703}';
  CLASS_IISExtServer: TGUID = '{C3B32488-AFEC-11D1-9868-00A0C922E703}';
  CLASS_IISExtDsCrMap: TGUID = '{BC36CDE8-AFEB-11D1-9868-00A0C922E703}';
type

// *********************************************************************//
// Forward declaration of types defined in TypeLibrary                    
// *********************************************************************//
  IISDsCrMap = interface;
  IISDsCrMapDisp = dispinterface;
  IISApp = interface;
  IISAppDisp = dispinterface;
  IISApp2 = interface;
  IISApp2Disp = dispinterface;
  IISComputer = interface;
  IISComputerDisp = dispinterface;

// *********************************************************************//
// Declaration of CoClasses defined in Type Library                       
// (NOTE: Here we map each CoClass to its Default Interface)              
// *********************************************************************//
  IISExtComputer = IISComputer;
  IISExtApp = IISApp2;
  IISExtServer = IADsServiceOperations;
  IISExtDsCrMap = IISDsCrMap;


// *********************************************************************//
// Interface: IISDsCrMap
// Flags:     (4416) Dual OleAutomation Dispatchable
// GUID:      {EDCD6A60-B053-11D0-A62F-00A0C922E752}
// *********************************************************************//
  IISDsCrMap = interface(IADs)
    ['{EDCD6A60-B053-11D0-A62F-00A0C922E752}']
    procedure CreateMapping(vCert: OleVariant; const bstrNtAcct: WideString; 
                            const bstrNtPwd: WideString; const bstrName: WideString; 
                            lEnabled: Integer); safecall;
    procedure GetMapping(lMethod: Integer; vKey: OleVariant; out pvCert: OleVariant; 
                         out pbstrNtAcct: OleVariant; out pbstrNtPwd: OleVariant; 
                         out pbstrName: OleVariant; out plEnabled: OleVariant); safecall;
    procedure DeleteMapping(lMethod: Integer; vKey: OleVariant); safecall;
    procedure SetEnabled(lMethod: Integer; vKey: OleVariant; lEnabled: Integer); safecall;
    procedure SetName(lMethod: Integer; vKey: OleVariant; const bstrName: WideString); safecall;
    procedure SetPwd(lMethod: Integer; vKey: OleVariant; const bstrPwd: WideString); safecall;
    procedure SetAcct(lMethod: Integer; vKey: OleVariant; const bstrAcct: WideString); safecall;
  end;

// *********************************************************************//
// DispIntf:  IISDsCrMapDisp
// Flags:     (4416) Dual OleAutomation Dispatchable
// GUID:      {EDCD6A60-B053-11D0-A62F-00A0C922E752}
// *********************************************************************//
  IISDsCrMapDisp = dispinterface
    ['{EDCD6A60-B053-11D0-A62F-00A0C922E752}']
    procedure CreateMapping(vCert: OleVariant; const bstrNtAcct: WideString; 
                            const bstrNtPwd: WideString; const bstrName: WideString; 
                            lEnabled: Integer); dispid 101;
    procedure GetMapping(lMethod: Integer; vKey: OleVariant; out pvCert: OleVariant; 
                         out pbstrNtAcct: OleVariant; out pbstrNtPwd: OleVariant; 
                         out pbstrName: OleVariant; out plEnabled: OleVariant); dispid 102;
    procedure DeleteMapping(lMethod: Integer; vKey: OleVariant); dispid 103;
    procedure SetEnabled(lMethod: Integer; vKey: OleVariant; lEnabled: Integer); dispid 104;
    procedure SetName(lMethod: Integer; vKey: OleVariant; const bstrName: WideString); dispid 105;
    procedure SetPwd(lMethod: Integer; vKey: OleVariant; const bstrPwd: WideString); dispid 106;
    procedure SetAcct(lMethod: Integer; vKey: OleVariant; const bstrAcct: WideString); dispid 107;
    property Name: WideString readonly dispid 2;
    property Class_: WideString readonly dispid 3;
    property GUID: WideString readonly dispid 4;
    property ADsPath: WideString readonly dispid 5;
    property Parent: WideString readonly dispid 6;
    property Schema: WideString readonly dispid 7;
    procedure GetInfo; dispid 8;
    procedure SetInfo; dispid 9;
    function Get(const bstrName: WideString): OleVariant; dispid 10;
    procedure Put(const bstrName: WideString; vProp: OleVariant); dispid 11;
    function GetEx(const bstrName: WideString): OleVariant; dispid 12;
    procedure PutEx(lnControlCode: Integer; const bstrName: WideString; vProp: OleVariant); dispid 13;
    procedure GetInfoEx(vProperties: OleVariant; lnReserved: Integer); dispid 14;
  end;

// *********************************************************************//
// Interface: IISApp
// Flags:     (4416) Dual OleAutomation Dispatchable
// GUID:      {46FBBB80-0192-11D1-9C39-00A0C922E703}
// *********************************************************************//
  IISApp = interface(IADs)
    ['{46FBBB80-0192-11D1-9C39-00A0C922E703}']
    procedure AppCreate(bSetInProcFlag: WordBool); safecall;
    procedure AppDelete; safecall;
    procedure AppDeleteRecursive; safecall;
    procedure AppUnLoad; safecall;
    procedure AppUnLoadRecursive; safecall;
    procedure AppDisable; safecall;
    procedure AppDisableRecursive; safecall;
    procedure AppEnable; safecall;
    procedure AppEnableRecursive; safecall;
    procedure AppGetStatus(out pdwStatus: LongWord); safecall;
    procedure AspAppRestart; safecall;
  end;

// *********************************************************************//
// DispIntf:  IISAppDisp
// Flags:     (4416) Dual OleAutomation Dispatchable
// GUID:      {46FBBB80-0192-11D1-9C39-00A0C922E703}
// *********************************************************************//
  IISAppDisp = dispinterface
    ['{46FBBB80-0192-11D1-9C39-00A0C922E703}']
    procedure AppCreate(bSetInProcFlag: WordBool); dispid 101;
    procedure AppDelete; dispid 102;
    procedure AppDeleteRecursive; dispid 103;
    procedure AppUnLoad; dispid 104;
    procedure AppUnLoadRecursive; dispid 105;
    procedure AppDisable; dispid 106;
    procedure AppDisableRecursive; dispid 107;
    procedure AppEnable; dispid 108;
    procedure AppEnableRecursive; dispid 109;
    procedure AppGetStatus(out pdwStatus: LongWord); dispid 110;
    procedure AspAppRestart; dispid 111;
    property Name: WideString readonly dispid 2;
    property Class_: WideString readonly dispid 3;
    property GUID: WideString readonly dispid 4;
    property ADsPath: WideString readonly dispid 5;
    property Parent: WideString readonly dispid 6;
    property Schema: WideString readonly dispid 7;
    procedure GetInfo; dispid 8;
    procedure SetInfo; dispid 9;
    function Get(const bstrName: WideString): OleVariant; dispid 10;
    procedure Put(const bstrName: WideString; vProp: OleVariant); dispid 11;
    function GetEx(const bstrName: WideString): OleVariant; dispid 12;
    procedure PutEx(lnControlCode: Integer; const bstrName: WideString; vProp: OleVariant); dispid 13;
    procedure GetInfoEx(vProperties: OleVariant; lnReserved: Integer); dispid 14;
  end;

// *********************************************************************//
// Interface: IISApp2
// Flags:     (4416) Dual OleAutomation Dispatchable
// GUID:      {603DCBEA-7350-11D2-A7BE-0000F8085B95}
// *********************************************************************//
  IISApp2 = interface(IISApp)
    ['{603DCBEA-7350-11D2-A7BE-0000F8085B95}']
    procedure AppCreate2(lAppMode: Integer); safecall;
    function AppGetStatus2: Integer; safecall;
  end;

// *********************************************************************//
// DispIntf:  IISApp2Disp
// Flags:     (4416) Dual OleAutomation Dispatchable
// GUID:      {603DCBEA-7350-11D2-A7BE-0000F8085B95}
// *********************************************************************//
  IISApp2Disp = dispinterface
    ['{603DCBEA-7350-11D2-A7BE-0000F8085B95}']
    procedure AppCreate2(lAppMode: Integer); dispid 112;
    function AppGetStatus2: Integer; dispid 113;
    procedure AppCreate(bSetInProcFlag: WordBool); dispid 101;
    procedure AppDelete; dispid 102;
    procedure AppDeleteRecursive; dispid 103;
    procedure AppUnLoad; dispid 104;
    procedure AppUnLoadRecursive; dispid 105;
    procedure AppDisable; dispid 106;
    procedure AppDisableRecursive; dispid 107;
    procedure AppEnable; dispid 108;
    procedure AppEnableRecursive; dispid 109;
    procedure AppGetStatus(out pdwStatus: LongWord); dispid 110;
    procedure AspAppRestart; dispid 111;
    property Name: WideString readonly dispid 2;
    property Class_: WideString readonly dispid 3;
    property GUID: WideString readonly dispid 4;
    property ADsPath: WideString readonly dispid 5;
    property Parent: WideString readonly dispid 6;
    property Schema: WideString readonly dispid 7;
    procedure GetInfo; dispid 8;
    procedure SetInfo; dispid 9;
    function Get(const bstrName: WideString): OleVariant; dispid 10;
    procedure Put(const bstrName: WideString; vProp: OleVariant); dispid 11;
    function GetEx(const bstrName: WideString): OleVariant; dispid 12;
    procedure PutEx(lnControlCode: Integer; const bstrName: WideString; vProp: OleVariant); dispid 13;
    procedure GetInfoEx(vProperties: OleVariant; lnReserved: Integer); dispid 14;
  end;

// *********************************************************************//
// Interface: IISComputer
// Flags:     (4416) Dual OleAutomation Dispatchable
// GUID:      {CF87A2E0-078B-11D1-9C3D-00A0C922E703}
// *********************************************************************//
  IISComputer = interface(IADs)
    ['{CF87A2E0-078B-11D1-9C3D-00A0C922E703}']
    procedure Backup(const bstrLocation: WideString; lVersion: Integer; lFlags: Integer); safecall;
    procedure Restore(const bstrLocation: WideString; lVersion: Integer; lFlags: Integer); safecall;
    procedure EnumBackups(const bstrLocation: WideString; lIndex: Integer; 
                          out pvVersion: OleVariant; out pvLocations: OleVariant; 
                          out pvDate: OleVariant); safecall;
    procedure DeleteBackup(const bstrLocation: WideString; lVersion: Integer); safecall;
  end;

// *********************************************************************//
// DispIntf:  IISComputerDisp
// Flags:     (4416) Dual OleAutomation Dispatchable
// GUID:      {CF87A2E0-078B-11D1-9C3D-00A0C922E703}
// *********************************************************************//
  IISComputerDisp = dispinterface
    ['{CF87A2E0-078B-11D1-9C3D-00A0C922E703}']
    procedure Backup(const bstrLocation: WideString; lVersion: Integer; lFlags: Integer); dispid 101;
    procedure Restore(const bstrLocation: WideString; lVersion: Integer; lFlags: Integer); dispid 102;
    procedure EnumBackups(const bstrLocation: WideString; lIndex: Integer; 
                          out pvVersion: OleVariant; out pvLocations: OleVariant; 
                          out pvDate: OleVariant); dispid 103;
    procedure DeleteBackup(const bstrLocation: WideString; lVersion: Integer); dispid 104;
    property Name: WideString readonly dispid 2;
    property Class_: WideString readonly dispid 3;
    property GUID: WideString readonly dispid 4;
    property ADsPath: WideString readonly dispid 5;
    property Parent: WideString readonly dispid 6;
    property Schema: WideString readonly dispid 7;
    procedure GetInfo; dispid 8;
    procedure SetInfo; dispid 9;
    function Get(const bstrName: WideString): OleVariant; dispid 10;
    procedure Put(const bstrName: WideString; vProp: OleVariant); dispid 11;
    function GetEx(const bstrName: WideString): OleVariant; dispid 12;
    procedure PutEx(lnControlCode: Integer; const bstrName: WideString; vProp: OleVariant); dispid 13;
    procedure GetInfoEx(vProperties: OleVariant; lnReserved: Integer); dispid 14;
  end;

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


// *********************************************************************//
// OLE Server Proxy class declaration
// Server Object    : TIISExtComputer
// Help String      : 
// Default Interface: IISComputer
// Def. Intf. DISP? : No
// Event   Interface: 
// TypeFlags        : (2) CanCreate
// *********************************************************************//
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  TIISExtComputerProperties= class;
{$ENDIF}
  TIISExtComputer = class(TOleServer)
  private
    FIntf:        IISComputer;
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
    FProps:       TIISExtComputerProperties;
    function      GetServerProperties: TIISExtComputerProperties;
{$ENDIF}
    function      GetDefaultInterface: IISComputer;
  protected
    procedure InitServerData; override;
    function Get_Name: WideString;
    function Get_Class_: WideString;
    function Get_GUID: WideString;
    function Get_ADsPath: WideString;
    function Get_Parent: WideString;
    function Get_Schema: WideString;
  public
    constructor Create(AOwner: TComponent); override;
    destructor  Destroy; override;
    procedure Connect; override;
    procedure ConnectTo(svrIntf: IISComputer);
    procedure Disconnect; override;
    procedure GetInfo;
    procedure SetInfo;
    function Get(const bstrName: WideString): OleVariant;
    procedure Put(const bstrName: WideString; vProp: OleVariant);
    function GetEx(const bstrName: WideString): OleVariant;
    procedure PutEx(lnControlCode: Integer; const bstrName: WideString; vProp: OleVariant);
    procedure GetInfoEx(vProperties: OleVariant; lnReserved: Integer);
    procedure Backup(const bstrLocation: WideString; lVersion: Integer; lFlags: Integer);
    procedure Restore(const bstrLocation: WideString; lVersion: Integer; lFlags: Integer);
    procedure EnumBackups(const bstrLocation: WideString; lIndex: Integer; 
                          out pvVersion: OleVariant; out pvLocations: OleVariant; 
                          out pvDate: OleVariant);
    procedure DeleteBackup(const bstrLocation: WideString; lVersion: Integer);
    property DefaultInterface: IISComputer read GetDefaultInterface;
    property Name: WideString read Get_Name;
    property Class_: WideString read Get_Class_;
    property GUID: WideString read Get_GUID;
    property ADsPath: WideString read Get_ADsPath;
    property Parent: WideString read Get_Parent;
    property Schema: WideString read Get_Schema;
  published
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
    property Server: TIISExtComputerProperties read GetServerProperties;
{$ENDIF}
  end;

{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
// *********************************************************************//
// OLE Server Properties Proxy Class
// Server Object    : TIISExtComputer
// (This object is used by the IDE's Property Inspector to allow editing
//  of the properties of this server)
// *********************************************************************//
 TIISExtComputerProperties = class(TPersistent)
  private
    FServer:    TIISExtComputer;
    function    GetDefaultInterface: IISComputer;
    constructor Create(AServer: TIISExtComputer);
  protected
    function Get_Name: WideString;
    function Get_Class_: WideString;
    function Get_GUID: WideString;
    function Get_ADsPath: WideString;
    function Get_Parent: WideString;
    function Get_Schema: WideString;
  public
    property DefaultInterface: IISComputer read GetDefaultInterface;
  published
  end;
{$ENDIF}


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


// *********************************************************************//
// OLE Server Proxy class declaration
// Server Object    : TIISExtApp
// Help String      :