systools_tlb.pas

条码控件： 一维条码控件 二维条码控件 PDF417Barcode MaxiCodeBarcode

unit SysTools_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  $
// File generated on 5/10/2000 2:46:28 PM from Type Library described below.

// *************************************************************************//
// 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.                                                          
// ************************************************************************ //
// Type Lib: F:\TPS\SYSTOOLS\COM\SysTools.tlb (1)
// IID\LCID: {AC5A1156-9F49-49CB-8827-2C37F08BF054}\0
// Helpfile: 
// DepndLst: 
//   (1) v2.0 stdole, (C:\WINNT\System32\stdole2.tlb)
//   (2) v4.0 StdVCL, (C:\WINNT\System32\STDVCL40.DLL)
// ************************************************************************ //
{$TYPEDADDRESS OFF} // Unit must be compiled without type-checked pointers. 
interface

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

// *********************************************************************//
// 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
  SysToolsMajorVersion = 1;
  SysToolsMinorVersion = 0;

  LIBID_SysTools: TGUID = '{AC5A1156-9F49-49CB-8827-2C37F08BF054}';

  IID_IStDate: TGUID = '{06A34C32-CF9D-40DA-B943-B7D5D178AE4D}';
  CLASS_StDate: TGUID = '{C77513BB-8AB2-4EB8-A585-8D3F8486F4E3}';
  IID_IStString: TGUID = '{B622F701-6E3F-4875-A574-201F0DB002F3}';
  CLASS_StString: TGUID = '{D152991C-854C-40DD-AB93-912311F62E2E}';
  IID_IStToHTML: TGUID = '{9F64CFCF-E50F-4807-A1AA-1E319B0A1D63}';
  DIID_IStToHTMLEvents: TGUID = '{71DAEE82-3292-4122-8E4A-E1BB58D8D162}';
  CLASS_StToHTML: TGUID = '{807E3064-CA6F-4DEF-B6F6-BA4DBF4F51DD}';
  IID_IStStringList: TGUID = '{7A005B00-EE90-4034-B05A-64579C0A7837}';
  DIID_IStStringListEvents: TGUID = '{2457A45F-311D-4E0F-A370-AAD85C6C922E}';
  CLASS_StStringList: TGUID = '{1689CC1F-4D2E-409E-AFFD-1EBAC808C569}';
  IID_IStRegEx: TGUID = '{6498218A-2A04-4B0F-AD99-AD1D551997E8}';
  DIID_IStRegExEvents: TGUID = '{25513E60-B981-49F8-AD17-E18E7358163A}';
  CLASS_StRegEx: TGUID = '{E894200A-226E-4B27-8FB5-320BF9430046}';
  IID_IStExpr: TGUID = '{C4753F38-E937-4AFE-8D35-2210305B6D19}';
  CLASS_StExpr: TGUID = '{D0200AD9-8DE6-40C4-AACB-CC12964084FE}';
  IID_IStMime: TGUID = '{96547B4C-ED9E-4844-8F74-5C9E0268F460}';
  DIID_IStMimeEvents: TGUID = '{0D42F0C6-844D-4541-8BAD-E2BFB6BF6C25}';
  CLASS_StMime: TGUID = '{0EF7D4FF-E095-4C8A-A25C-CED37FF02398}';
  IID_IStRegINI: TGUID = '{37198FBE-3932-4548-A6B1-31229E83F87B}';
  CLASS_StRegINI: TGUID = '{856EC866-10AE-4AC7-90FF-6C7D5B153064}';
  IID_IStFin: TGUID = '{821B289E-492C-4115-8484-A6545E281BB3}';
  CLASS_StFin: TGUID = '{8CD51FD5-514E-4CB0-9121-9B4B21B3A320}';
  IID_IStRegINIQueryKeyInfo: TGUID = '{DF09E023-FC82-4BC0-BEA8-AA5D5C0E9F2A}';
  CLASS_StRegINIQueryKeyInfo: TGUID = '{33B067CF-275F-444C-A63B-E98ADEE1D1B2}';
  IID_IStRegINISubKeys: TGUID = '{43B798DA-D2CA-4263-854D-E63FBB2F7C64}';
  CLASS_StRegINISubKeys: TGUID = '{A4FD4C76-1147-46C9-862B-4C3A5D246D38}';
  IID_IStRegINIValue: TGUID = '{A3E5FB23-CD5C-471B-8214-5075375DE8DF}';
  CLASS_StRegINIValue: TGUID = '{C5B752C4-113B-4887-92CC-5C30B158E502}';
  IID_IStRegINIValues: TGUID = '{FC9E57F0-ABC0-4B69-80A0-06CDACB61AEB}';
  CLASS_StRegINIValues: TGUID = '{50210282-7730-48FC-A9EC-6BBAD8B3915A}';
  IID_IStRegINISubKey: TGUID = '{BBA14CDE-6BDE-4E40-86DD-E04697595AF3}';
  CLASS_StRegINISubKey: TGUID = '{0C2EECA2-08E5-47C2-AABF-F091F71427CC}';

// *********************************************************************//
// Declaration of Enumerations defined in Type Library                    
// *********************************************************************//
// Constants for enum TStBondDateType
type
  TStBondDateType = TOleEnum;
const
  bdtActual = $00000000;
  bdt30E360 = $00000001;
  bdt30360 = $00000002;

// Constants for enum TStDayType
type
  TStDayType = TOleEnum;
const
  Sunday = $00000000;
  Monday = $00000001;
  Tuesday = $00000002;
  Wednesday = $00000003;
  Thursday = $00000004;
  Friday = $00000005;
  Saturday = $00000006;

// Constants for enum TStConvertState
type
  TStConvertState = TOleEnum;
const
  csStarted = $00000000;
  csProgressing = $00000001;
  csFinished = $00000002;

// Constants for enum TStLineTerminator
type
  TStLineTerminator = TOleEnum;
const
  ltNone = $00000000;
  ltCR = $00000001;
  ltLF = $00000002;
  ltCRLF = $00000003;
  ltOther = $00000004;

// Constants for enum TStOutputOption
type
  TStOutputOption = TOleEnum;
const
  ooUnSelected = $00000001;
  ooModified = $00000002;
  ooCountOnly = $00000004;

type

// *********************************************************************//
// Forward declaration of types defined in TypeLibrary                    
// *********************************************************************//
  IStDate = interface;
  IStDateDisp = dispinterface;
  IStString = interface;
  IStStringDisp = dispinterface;
  IStToHTML = interface;
  IStToHTMLDisp = dispinterface;
  IStToHTMLEvents = dispinterface;
  IStStringList = interface;
  IStStringListDisp = dispinterface;
  IStStringListEvents = dispinterface;
  IStRegEx = interface;
  IStRegExDisp = dispinterface;
  IStRegExEvents = dispinterface;
  IStExpr = interface;
  IStExprDisp = dispinterface;
  IStMime = interface;
  IStMimeDisp = dispinterface;
  IStMimeEvents = dispinterface;
  IStRegINI = interface;
  IStRegINIDisp = dispinterface;
  IStFin = interface;
  IStFinDisp = dispinterface;
  IStRegINIQueryKeyInfo = interface;
  IStRegINIQueryKeyInfoDisp = dispinterface;
  IStRegINISubKeys = interface;
  IStRegINISubKeysDisp = dispinterface;
  IStRegINIValue = interface;
  IStRegINIValueDisp = dispinterface;
  IStRegINIValues = interface;
  IStRegINIValuesDisp = dispinterface;
  IStRegINISubKey = interface;
  IStRegINISubKeyDisp = dispinterface;

// *********************************************************************//
// Declaration of CoClasses defined in Type Library                       
// (NOTE: Here we map each CoClass to its Default Interface)              
// *********************************************************************//
  StDate = IStDate;
  StString = IStString;
  StToHTML = IStToHTML;
  StStringList = IStStringList;
  StRegEx = IStRegEx;
  StExpr = IStExpr;
  StMime = IStMime;
  StRegINI = IStRegINI;
  StFin = IStFin;
  StRegINIQueryKeyInfo = IStRegINIQueryKeyInfo;
  StRegINISubKeys = IStRegINISubKeys;
  StRegINIValue = IStRegINIValue;
  StRegINIValues = IStRegINIValues;
  StRegINISubKey = IStRegINISubKey;


// *********************************************************************//
// Interface: IStDate
// Flags:     (4416) Dual OleAutomation Dispatchable
// GUID:      {06A34C32-CF9D-40DA-B943-B7D5D178AE4D}
// *********************************************************************//
  IStDate = interface(IDispatch)
    ['{06A34C32-CF9D-40DA-B943-B7D5D178AE4D}']
    function  AstJulianDate(Julian: TDateTime): Double; safecall;