netlibrary_tlb.pas

Delphi7从入门到精通及附书源码 Delphi7从入门到精通及附书源码

unit NetLibrary_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 10/8/2002 3:56:45 PM from Type Library described below.

// ************************************************************************  //
// Type Lib: netlibrary.dll (1)
// LIBID: {9DF79128-D535-374E-A80C-50327959B32C}
// LCID: 0
// Helpfile: 
// HelpString: 
// DepndLst: 
//   (1) v2.0 stdole, (C:\WINDOWS\System32\stdole2.tlb)
//   (2) v1.0 mscorlib, (C:\WINDOWS\Microsoft.NET\Framework\v1.0.3705\mscorlib.tlb)
// Errors:
//   Hint: TypeInfo '@TClass' changed to '_TClass'
//   Hint: TypeInfo '@Text' changed to '_Text'
//   Hint: TypeInfo '@TNumber' changed to '_TNumber'
//   Hint: TypeInfo '@FinalizeHandler' changed to '_FinalizeHandler'
//   Hint: TypeInfo '_Text' changed to '_Text1'
//   Hint: TypeInfo '_@TClass' changed to '__TClass'
//   Hint: TypeInfo '_TNumber' changed to '_TNumber1'
//   Hint: TypeInfo '_@Text' changed to '__Text'
//   Hint: TypeInfo '_@TNumber' changed to '__TNumber'
//   Hint: TypeInfo '_@FinalizeHandler' changed to '__FinalizeHandler'
//   Error creating palette bitmap of (TText) : Server C:\WINDOWS\System32\mscoree.dll contains no icons
//   Error creating palette bitmap of (TTNumber) : Server C:\WINDOWS\System32\mscoree.dll contains no icons
//   Error creating palette bitmap of (TBorland_Delphi_System_Unit) : Server C:\WINDOWS\System32\mscoree.dll contains no icons
//   Error creating palette bitmap of (TNetNumberClass_Unit) : Server C:\WINDOWS\System32\mscoree.dll contains no icons
//   Error creating palette bitmap of (TNetLibrary_Unit) : Server C:\WINDOWS\System32\mscoree.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, ActiveX, Classes, Graphics, mscorlib_TLB, 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
  NetLibraryMajorVersion = 1;
  NetLibraryMinorVersion = 0;

  LIBID_NetLibrary: TGUID = '{9DF79128-D535-374E-A80C-50327959B32C}';

  IID__Text1: TGUID = '{6682B647-3B13-30EA-B364-C601AEF43B0B}';
  IID___TClass: TGUID = '{B93EE951-7A0B-3263-B9CB-E4442247EF9B}';
  IID_ITextDeviceFactory: TGUID = '{1A418A20-950B-32C5-AA7D-9F3ABBA68EF7}';
  IID__TNumber1: TGUID = '{64992554-80BA-3D9F-BFBC-2306D2B10191}';
  IID_INumber: TGUID = '{F853E7B1-D0F3-33DE-B03C-AC8EEA8A0DFF}';
  IID___Text: TGUID = '{B4643373-8421-31CA-83EC-588142CCEC3B}';
  IID___TNumber: TGUID = '{8B1255F7-AB8E-3A7B-A62B-B895AE2B64A7}';
  IID___FinalizeHandler: TGUID = '{BF985481-2345-3221-9F0F-9AE2D619BB79}';
  IID__Borland_Delphi_System_Unit: TGUID = '{C8AA32E8-2F5C-3DBD-A82A-73B073D4174A}';
  IID__NetNumberClass_Unit: TGUID = '{5B4B17F8-9512-361A-98B3-835C9270EA4D}';
  IID__NetLibrary_Unit: TGUID = '{12A93F11-F0E7-3D30-BC32-9322A989C319}';
  CLASS_Text: TGUID = '{27DF9B70-47B7-3326-B694-C8E1B9D9790F}';
  CLASS__TClass: TGUID = '{2922DBD0-1E4A-31BE-81B9-7640107C3AED}';
  CLASS_TNumber: TGUID = '{0FF4FB93-DEB6-39A8-B769-3D3B85D1AB10}';
  CLASS__Text: TGUID = '{FF16DC8E-9351-3E33-B5B0-F218EC3280D9}';
  CLASS__TNumber: TGUID = '{8C5EC693-BE28-3AB4-BAEC-7220E88BBA51}';
  CLASS__FinalizeHandler: TGUID = '{B4419DA1-7674-3834-A14E-49815225DF58}';
  CLASS_Borland_Delphi_System_Unit: TGUID = '{44EE1E8B-A1ED-3B95-8C2A-D658E84E15AB}';
  CLASS_NetNumberClass_Unit: TGUID = '{A1C737F4-5EF5-3D96-8BC7-F70523A29248}';
  CLASS_NetLibrary_Unit: TGUID = '{6958E056-B6A0-31BA-9021-3A567E025203}';

// *********************************************************************//
// Declaration of Enumerations defined in Type Library                    
// *********************************************************************//
// Constants for enum TTextLineBreakStyle
type
  TTextLineBreakStyle = TOleEnum;
const
  TTextLineBreakStyle_tlbsLF = $00000000;
  TTextLineBreakStyle_tlbsCRLF = $00000001;

type

// *********************************************************************//
// Forward declaration of types defined in TypeLibrary                    
// *********************************************************************//
  _Text1 = interface;
  _Text1Disp = dispinterface;
  __TClass = interface;
  __TClassDisp = dispinterface;
  ITextDeviceFactory = interface;
  ITextDeviceFactoryDisp = dispinterface;
  _TNumber1 = interface;
  _TNumber1Disp = dispinterface;
  INumber = interface;
  INumberDisp = dispinterface;
  __Text = interface;
  __TextDisp = dispinterface;
  __TNumber = interface;
  __TNumberDisp = dispinterface;
  __FinalizeHandler = interface;
  __FinalizeHandlerDisp = dispinterface;
  _Borland_Delphi_System_Unit = interface;
  _Borland_Delphi_System_UnitDisp = dispinterface;
  _NetNumberClass_Unit = interface;
  _NetNumberClass_UnitDisp = dispinterface;
  _NetLibrary_Unit = interface;
  _NetLibrary_UnitDisp = dispinterface;

// *********************************************************************//
// Declaration of CoClasses defined in Type Library                       
// (NOTE: Here we map each CoClass to its Default Interface)              
// *********************************************************************//
  Text = _Text1;
  _TClass = __TClass;
  TNumber = _TNumber1;
  _Text = __Text;
  _TNumber = __TNumber;
  _FinalizeHandler = __FinalizeHandler;
  Borland_Delphi_System_Unit = _Borland_Delphi_System_Unit;
  NetNumberClass_Unit = _NetNumberClass_Unit;
  NetLibrary_Unit = _NetLibrary_Unit;


// *********************************************************************//
// Interface: _Text1
// Flags:     (4432) Hidden Dual OleAutomation Dispatchable
// GUID:      {6682B647-3B13-30EA-B364-C601AEF43B0B}
// *********************************************************************//
  _Text1 = interface(IDispatch)
    ['{6682B647-3B13-30EA-B364-C601AEF43B0B}']
  end;

// *********************************************************************//
// DispIntf:  _Text1Disp
// Flags:     (4432) Hidden Dual OleAutomation Dispatchable
// GUID:      {6682B647-3B13-30EA-B364-C601AEF43B0B}
// *********************************************************************//
  _Text1Disp = dispinterface
    ['{6682B647-3B13-30EA-B364-C601AEF43B0B}']
  end;

// *********************************************************************//
// Interface: __TClass
// Flags:     (4432) Hidden Dual OleAutomation Dispatchable
// GUID:      {B93EE951-7A0B-3263-B9CB-E4442247EF9B}
// *********************************************************************//
  __TClass = interface(IDispatch)
    ['{B93EE951-7A0B-3263-B9CB-E4442247EF9B}']
  end;

// *********************************************************************//
// DispIntf:  __TClassDisp
// Flags:     (4432) Hidden Dual OleAutomation Dispatchable
// GUID:      {B93EE951-7A0B-3263-B9CB-E4442247EF9B}
// *********************************************************************//
  __TClassDisp = dispinterface
    ['{B93EE951-7A0B-3263-B9CB-E4442247EF9B}']
  end;

// *********************************************************************//
// Interface: ITextDeviceFactory
// Flags:     (4416) Dual OleAutomation Dispatchable
// GUID:      {1A418A20-950B-32C5-AA7D-9F3ABBA68EF7}
// *********************************************************************//
  ITextDeviceFactory = interface(IDispatch)
    ['{1A418A20-950B-32C5-AA7D-9F3ABBA68EF7}']
    function Open(const p1: _Text1; p2: Word): Integer; safecall;
    function Close(const p1: _Text1): Integer; safecall;
  end;

// *********************************************************************//
// DispIntf:  ITextDeviceFactoryDisp
// Flags:     (4416) Dual OleAutomation Dispatchable
// GUID:      {1A418A20-950B-32C5-AA7D-9F3ABBA68EF7}
// *********************************************************************//
  ITextDeviceFactoryDisp = dispinterface
    ['{1A418A20-950B-32C5-AA7D-9F3ABBA68EF7}']
    function Open(const p1: _Text1; p2: {??Word}OleVariant): Integer; dispid 1610743808;
    function Close(const p1: _Text1): Integer; dispid 1610743809;
  end;

// *********************************************************************//
// Interface: _TNumber1
// Flags:     (4432) Hidden Dual OleAutomation Dispatchable
// GUID:      {64992554-80BA-3D9F-BFBC-2306D2B10191}
// *********************************************************************//
  _TNumber1 = interface(IDispatch)
    ['{64992554-80BA-3D9F-BFBC-2306D2B10191}']
  end;

// *********************************************************************//
// DispIntf:  _TNumber1Disp
// Flags:     (4432) Hidden Dual OleAutomation Dispatchable
// GUID:      {64992554-80BA-3D9F-BFBC-2306D2B10191}
// *********************************************************************//
  _TNumber1Disp = dispinterface
    ['{64992554-80BA-3D9F-BFBC-2306D2B10191}']
  end;

// *********************************************************************//
// Interface: INumber
// Flags:     (4416) Dual OleAutomation Dispatchable
// GUID:      {F853E7B1-D0F3-33DE-B03C-AC8EEA8A0DFF}
// *********************************************************************//
  INumber = interface(IDispatch)
    ['{F853E7B1-D0F3-33DE-B03C-AC8EEA8A0DFF}']
    function GetValue: Integer; safecall;
    procedure SetValue(p1: Integer); safecall;
    procedure Increase; safecall;
  end;

// *********************************************************************//
// DispIntf:  INumberDisp
// Flags:     (4416) Dual OleAutomation Dispatchable
// GUID:      {F853E7B1-D0F3-33DE-B03C-AC8EEA8A0DFF}
// *********************************************************************//
  INumberDisp = dispinterface
    ['{F853E7B1-D0F3-33DE-B03C-AC8EEA8A0DFF}']
    function GetValue: Integer; dispid 1610743808;
    procedure SetValue(p1: Integer); dispid 1610743809;
    procedure Increase; dispid 1610743810;
  end;

// *********************************************************************//
// Interface: __Text
// Flags:     (4432) Hidden Dual OleAutomation Dispatchable
// GUID:      {B4643373-8421-31CA-83EC-588142CCEC3B}
// *********************************************************************//
  __Text = interface(IDispatch)
    ['{B4643373-8421-31CA-83EC-588142CCEC3B}']
  end;

// *********************************************************************//
// DispIntf:  __TextDisp
// Flags:     (4432) Hidden Dual OleAutomation Dispatchable
// GUID:      {B4643373-8421-31CA-83EC-588142CCEC3B}
// *********************************************************************//
  __TextDisp = dispinterface
    ['{B4643373-8421-31CA-83EC-588142CCEC3B}']
  end;

// *********************************************************************//
// Interface: __TNumber
// Flags:     (4432) Hidden Dual OleAutomation Dispatchable
// GUID:      {8B1255F7-AB8E-3A7B-A62B-B895AE2B64A7}
// *********************************************************************//
  __TNumber = interface(IDispatch)
    ['{8B1255F7-AB8E-3A7B-A62B-B895AE2B64A7}']
  end;

// *********************************************************************//
// DispIntf:  __TNumberDisp
// Flags:     (4432) Hidden Dual OleAutomation Dispatchable
// GUID:      {8B1255F7-AB8E-3A7B-A62B-B895AE2B64A7}
// *********************************************************************//
  __TNumberDisp = dispinterface
    ['{8B1255F7-AB8E-3A7B-A62B-B895AE2B64A7}']
  end;

// *********************************************************************//
// Interface: __FinalizeHandler
// Flags:     (4432) Hidden Dual OleAutomation Dispatchable
// GUID:      {BF985481-2345-3221-9F0F-9AE2D619BB79}
// *********************************************************************//
  __FinalizeHandler = interface(IDispatch)
    ['{BF985481-2345-3221-9F0F-9AE2D619BB79}']
  end;

// *********************************************************************//
// DispIntf:  __FinalizeHandlerDisp
// Flags:     (4432) Hidden Dual OleAutomation Dispatchable
// GUID:      {BF985481-2345-3221-9F0F-9AE2D619BB79}
// *********************************************************************//
  __FinalizeHandlerDisp = dispinterface
    ['{BF985481-2345-3221-9F0F-9AE2D619BB79}']
  end;

// *********************************************************************//
// Interface: _Borland_Delphi_System_Unit
// Flags:     (4432) Hidden Dual OleAutomation Dispatchable
// GUID:      {C8AA32E8-2F5C-3DBD-A82A-73B073D4174A}
// *********************************************************************//
  _Borland_Delphi_System_Unit = interface(IDispatch)
    ['{C8AA32E8-2F5C-3DBD-A82A-73B073D4174A}']
  end;

// *********************************************************************//
// DispIntf:  _Borland_Delphi_System_UnitDisp
// Flags:     (4432) Hidden Dual OleAutomation Dispatchable
// GUID:      {C8AA32E8-2F5C-3DBD-A82A-73B073D4174A}
// *********************************************************************//
  _Borland_Delphi_System_UnitDisp = dispinterface
    ['{C8AA32E8-2F5C-3DBD-A82A-73B073D4174A}']
  end;

// *********************************************************************//
// Interface: _NetNumberClass_Unit
// Flags:     (4432) Hidden Dual OleAutomation Dispatchable
// GUID:      {5B4B17F8-9512-361A-98B3-835C9270EA4D}
// *********************************************************************//
  _NetNumberClass_Unit = interface(IDispatch)
    ['{5B4B17F8-9512-361A-98B3-835C9270EA4D}']
  end;

// *********************************************************************//
// DispIntf:  _NetNumberClass_UnitDisp
// Flags:     (4432) Hidden Dual OleAutomation Dispatchable
// GUID:      {5B4B17F8-9512-361A-98B3-835C9270EA4D}
// *********************************************************************//
  _NetNumberClass_UnitDisp = dispinterface
    ['{5B4B17F8-9512-361A-98B3-835C9270EA4D}']
  end;

// *********************************************************************//
// Interface: _NetLibrary_Unit
// Flags:     (4432) Hidden Dual OleAutomation Dispatchable
// GUID:      {12A93F11-F0E7-3D30-BC32-9322A989C319}
// *********************************************************************//
  _NetLibrary_Unit = interface(IDispatch)
    ['{12A93F11-F0E7-3D30-BC32-9322A989C319}']
  end;

// *********************************************************************//
// DispIntf:  _NetLibrary_UnitDisp
// Flags:     (4432) Hidden Dual OleAutomation Dispatchable
// GUID:      {12A93F11-F0E7-3D30-BC32-9322A989C319}
// *********************************************************************//
  _NetLibrary_UnitDisp = dispinterface
    ['{12A93F11-F0E7-3D30-BC32-9322A989C319}']
  end;

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


// *********************************************************************//
// OLE Server Proxy class declaration
// Server Object    : TText
// Help String      : 
// Default Interface: _Text1
// Def. Intf. DISP? : No
// Event   Interface: 
// TypeFlags        : (2) CanCreate
// *********************************************************************//
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  TTextProperties= class;
{$ENDIF}
  TText = class(TOleServer)
  private
    FIntf:        _Text1;
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
    FProps:       TTextProperties;
    function      GetServerProperties: TTextProperties;
{$ENDIF}
    function      GetDefaultInterface: _Text1;
  protected
    procedure InitServerData; override;
  public
    constructor Create(AOwner: TComponent); override;
    destructor  Destroy; override;
    procedure Connect; override;
    procedure ConnectTo(svrIntf: _Text1);
    procedure Disconnect; override;
    property DefaultInterface: _Text1 read GetDefaultInterface;
  published
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
    property Server: TTextProperties read GetServerProperties;
{$ENDIF}
  end;

{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
// *********************************************************************//
// OLE Server Properties Proxy Class
// Server Object    : TText
// (This object is used by the IDE's Property Inspector to allow editing
//  of the properties of this server)
// *********************************************************************//
 TTextProperties = class(TPersistent)
  private
    FServer:    TText;
    function    GetDefaultInterface: _Text1;
    constructor Create(AServer: TText);
  protected
  public
    property DefaultInterface: _Text1 read GetDefaultInterface;
  published