systools_tlb.pas

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

    procedure Set_Stream(Value: OleVariant); safecall;
    function  License(const Key: WideString): WordBool; safecall;
    property Avoid: WordBool read Get_Avoid write Set_Avoid;
    property IgnoreCase: WordBool read Get_IgnoreCase write Set_IgnoreCase;
    property InFixedLineLength: Integer read Get_InFixedLineLength write Set_InFixedLineLength;
    property InLineTermChar: WideString read Get_InLineTermChar write Set_InLineTermChar;
    property InLineTerminator: TStLineTerminator read Get_InLineTerminator write Set_InLineTerminator;
    property LineCount: Integer read Get_LineCount;
    property LineNumbers: WordBool read Get_LineNumbers write Set_LineNumbers;
    property LinesMatched: Integer read Get_LinesMatched;
    property LinesPerSecond: Integer read Get_LinesPerSecond;
    property LinesReplaced: Integer read Get_LinesReplaced;
    property LinesSelected: Integer read Get_LinesSelected;
    property MatchPattern: IStStringList read Get_MatchPattern write Set_MatchPattern;
    property OutFixedLineLength: Integer read Get_OutFixedLineLength write Set_OutFixedLineLength;
    property OutLineTermChar: WideString read Get_OutLineTermChar write Set_OutLineTermChar;
    property OutLineTerminitor: Integer read Get_OutLineTerminitor write Set_OutLineTerminitor;
    property OutputOptions: TStOutputOption read Get_OutputOptions write Set_OutputOptions;
    property ReplacePattern: IStStringList read Get_ReplacePattern write Set_ReplacePattern;
    property SelAvoidPattern: IStStringList read Get_SelAvoidPattern write Set_SelAvoidPattern;
    property Stream: OleVariant read Get_Stream write Set_Stream;
  end;

// *********************************************************************//
// DispIntf:  IStRegExDisp
// Flags:     (4416) Dual OleAutomation Dispatchable
// GUID:      {6498218A-2A04-4B0F-AD99-AD1D551997E8}
// *********************************************************************//
  IStRegExDisp = dispinterface
    ['{6498218A-2A04-4B0F-AD99-AD1D551997E8}']
    property Avoid: WordBool dispid 1;
    property IgnoreCase: WordBool dispid 2;
    property InFixedLineLength: Integer dispid 3;
    property InLineTermChar: WideString dispid 4;
    property InLineTerminator: TStLineTerminator dispid 5;
    property LineCount: Integer readonly dispid 6;
    property LineNumbers: WordBool dispid 7;
    property LinesMatched: Integer readonly dispid 8;
    property LinesPerSecond: Integer readonly dispid 9;
    property LinesReplaced: Integer readonly dispid 10;
    property LinesSelected: Integer readonly dispid 11;
    property MatchPattern: IStStringList dispid 12;
    property OutFixedLineLength: Integer dispid 13;
    property OutLineTermChar: WideString dispid 14;
    property OutLineTerminitor: Integer dispid 15;
    property OutputOptions: TStOutputOption dispid 16;
    property ReplacePattern: IStStringList dispid 17;
    property SelAvoidPattern: IStStringList dispid 18;
    function  CheckString(const S: WideString; var StartPos: Integer; var EndPos: Integer; 
                          var Length: Integer): WordBool; dispid 19;
    function  DOSMaskToRegEx(const Masks: WideString): WordBool; dispid 20;
    function  Execute: WordBool; dispid 21;
    procedure LoadFromFile(const FileName: WideString); dispid 22;
    procedure SaveToFile(const FileName: WideString); dispid 24;
    property Stream: OleVariant dispid 23;
    function  License(const Key: WideString): WordBool; dispid 200;
  end;

// *********************************************************************//
// DispIntf:  IStRegExEvents
// Flags:     (4096) Dispatchable
// GUID:      {25513E60-B981-49F8-AD17-E18E7358163A}
// *********************************************************************//
  IStRegExEvents = dispinterface
    ['{25513E60-B981-49F8-AD17-E18E7358163A}']
    procedure OnProgress(Percent: Integer); dispid 1;
  end;

// *********************************************************************//
// Interface: IStExpr
// Flags:     (4416) Dual OleAutomation Dispatchable
// GUID:      {C4753F38-E937-4AFE-8D35-2210305B6D19}
// *********************************************************************//
  IStExpr = interface(IDispatch)
    ['{C4753F38-E937-4AFE-8D35-2210305B6D19}']
    function  AnalyzeExpr(const Expr: WideString): Double; safecall;
    function  License(const Key: WideString): WordBool; safecall;
  end;

// *********************************************************************//
// DispIntf:  IStExprDisp
// Flags:     (4416) Dual OleAutomation Dispatchable
// GUID:      {C4753F38-E937-4AFE-8D35-2210305B6D19}
// *********************************************************************//
  IStExprDisp = dispinterface
    ['{C4753F38-E937-4AFE-8D35-2210305B6D19}']
    function  AnalyzeExpr(const Expr: WideString): Double; dispid 1;
    function  License(const Key: WideString): WordBool; dispid 200;
  end;

// *********************************************************************//
// Interface: IStMime
// Flags:     (4416) Dual OleAutomation Dispatchable
// GUID:      {96547B4C-ED9E-4844-8F74-5C9E0268F460}
// *********************************************************************//
  IStMime = interface(IDispatch)
    ['{96547B4C-ED9E-4844-8F74-5C9E0268F460}']
    function  Get_Attachments: IStStringList; safecall;
    function  Get_Boundry: WideString; safecall;
    procedure Set_Boundry(const Value: WideString); safecall;
    function  Get_Encoding: WideString; safecall;
    procedure Set_Encoding(const Value: WideString); safecall;
    function  Get_ContentDescription: WideString; safecall;
    procedure Set_ContentDescription(const Value: WideString); safecall;
    function  Get_ContentDisposition: WideString; safecall;
    procedure Set_ContentDisposition(const Value: WideString); safecall;
    function  Get_ContentType: WideString; safecall;
    procedure Set_ContentType(const Value: WideString); safecall;
    function  Get_Directory: WideString; safecall;
    procedure Set_Directory(const Value: WideString); safecall;
    function  Get_MimeHeaders: WordBool; safecall;
    procedure Set_MimeHeaders(Value: WordBool); safecall;
    function  Get_Stream: OleVariant; safecall;
    procedure Set_Stream(Value: OleVariant); safecall;
    procedure AddFileAttachment(const FileName: WideString); safecall;
    procedure AddStreamAttachment(Stream: OleVariant; const FileName: WideString); safecall;
    procedure ExtractAttachment(const Attachment: WideString); safecall;
    procedure ExtractAttachmentIndex(Index: Integer); safecall;
    procedure ExtractToStream(Index: Integer; Stream: OleVariant); safecall;
    procedure ExtractAttachments; safecall;
    procedure GetTag(const Description: WideString); safecall;
    function  License(const Key: WideString): WordBool; safecall;
    property Attachments: IStStringList read Get_Attachments;
    property Boundry: WideString read Get_Boundry write Set_Boundry;
    property Encoding: WideString read Get_Encoding write Set_Encoding;
    property ContentDescription: WideString read Get_ContentDescription write Set_ContentDescription;
    property ContentDisposition: WideString read Get_ContentDisposition write Set_ContentDisposition;
    property ContentType: WideString read Get_ContentType write Set_ContentType;
    property Directory: WideString read Get_Directory write Set_Directory;
    property MimeHeaders: WordBool read Get_MimeHeaders write Set_MimeHeaders;
    property Stream: OleVariant read Get_Stream write Set_Stream;
  end;

// *********************************************************************//
// DispIntf:  IStMimeDisp
// Flags:     (4416) Dual OleAutomation Dispatchable
// GUID:      {96547B4C-ED9E-4844-8F74-5C9E0268F460}
// *********************************************************************//
  IStMimeDisp = dispinterface
    ['{96547B4C-ED9E-4844-8F74-5C9E0268F460}']
    property Attachments: IStStringList readonly dispid 3;
    property Boundry: WideString dispid 4;
    property Encoding: WideString dispid 5;
    property ContentDescription: WideString dispid 6;
    property ContentDisposition: WideString dispid 7;
    property ContentType: WideString dispid 8;
    property Directory: WideString dispid 9;
    property MimeHeaders: WordBool dispid 10;
    property Stream: OleVariant dispid 11;
    procedure AddFileAttachment(const FileName: WideString); dispid 12;
    procedure AddStreamAttachment(Stream: OleVariant; const FileName: WideString); dispid 13;
    procedure ExtractAttachment(const Attachment: WideString); dispid 14;
    procedure ExtractAttachmentIndex(Index: Integer); dispid 15;
    procedure ExtractToStream(Index: Integer; Stream: OleVariant); dispid 16;
    procedure ExtractAttachments; dispid 17;
    procedure GetTag(const Description: WideString); dispid 18;
    function  License(const Key: WideString): WordBool; dispid 200;
  end;

// *********************************************************************//
// DispIntf:  IStMimeEvents
// Flags:     (4096) Dispatchable
// GUID:      {0D42F0C6-844D-4541-8BAD-E2BFB6BF6C25}
// *********************************************************************//
  IStMimeEvents = dispinterface
    ['{0D42F0C6-844D-4541-8BAD-E2BFB6BF6C25}']
    procedure OnProgress(Status: TStConvertState; PercentDone: Byte); dispid 1;
    procedure OnSaveAs(var FileName: WideString); dispid 2;
  end;

// *********************************************************************//
// Interface: IStRegINI
// Flags:     (4416) Dual OleAutomation Dispatchable
// GUID:      {37198FBE-3932-4548-A6B1-31229E83F87B}
// *********************************************************************//
  IStRegINI = interface(IDispatch)
    ['{37198FBE-3932-4548-A6B1-31229E83F87B}']
    procedure Open(const RootName: WideString; IsIniFile: WordBool); safecall;
    function  Get_CurrentSubKey: WideString; safecall;
    procedure Set_CurrentSubKey(const Value: WideString); safecall;
    function  Get_IsIniFile: WordBool; safecall;
    procedure CreateKey(const KeyName: WideString); safecall;
    procedure DeleteKey(const KeyName: WideString; DeleteSubKeys: WordBool); safecall;
    procedure DeleteValue(const ValueName: WideString); safecall;
    function  Get_Primary: WideString; safecall;
    procedure Set_Primary(const Value: WideString); safecall;
    function  Get_SubKeys: IStRegINISubKeys; safecall;
    function  Get_Values: IStRegINIValues; safecall;
    function  KeyExists(const KeyName: WideString): WordBool; safecall;
    function  QueryKey: IStRegINIQueryKeyInfo; safecall;
    function  ReadBoolean(const ValueName: WideString; Default: WordBool): WordBool; safecall;
    function  ReadDate(const ValueName: WideString; Default: TDateTime): TDateTime; safecall;
    function  ReadDateTime(const ValueName: WideString; Default: TDateTime): TDateTime; safecall;
    function  ReadInteger(const ValueName: WideString; Default: Integer): Integer; safecall;
    function  ReadString(const ValueName: WideString; const Default: WideString): WideString; safecall;
    function  ReadTime(const ValueName: WideString; Default: TDateTime): TDateTime; safecall;
    procedure WriteBoolean(const ValueName: WideString; Value: WordBool); safecall;
    procedure WriteDate(const ValueName: WideString; Value: TDateTime); safecall;
    procedure WriteDateTime(const ValueName: WideString; Value: TDateTime); safecall;
    procedure WriteInteger(const ValueName: Wide