Permalink
Browse files

VBScript_RegExp export

  • Loading branch information...
1 parent b263e81 commit 821cf42a7fa88232707a368f8b0a07105603db28 unknown committed Dec 1, 2010
Showing with 396 additions and 0 deletions.
  1. +396 −0 VBScript_RegExp_55_TLB.pas
View
396 VBScript_RegExp_55_TLB.pas
@@ -0,0 +1,396 @@
+unit VBScript_RegExp_55_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 17/11/2010 9:48:50 from Type Library described below.
+
+// ************************************************************************ //
+// Type Lib: C:\WINDOWS\System32\vbscript.dll\3 (1)
+// LIBID: {3F4DACA7-160D-11D2-A8E9-00104B365C9F}
+// LCID: 0
+// Helpfile:
+// HelpString: Microsoft VBScript Regular Expressions 5.5
+// DepndLst:
+// (1) v2.0 stdole, (C:\WINDOWS\system32\STDOLE2.TLB)
+// ************************************************************************ //
+{$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
+ VBScript_RegExp_55MajorVersion = 5;
+ VBScript_RegExp_55MinorVersion = 5;
+
+ LIBID_VBScript_RegExp_55: TGUID = '{3F4DACA7-160D-11D2-A8E9-00104B365C9F}';
+
+ IID_IRegExp: TGUID = '{3F4DACA0-160D-11D2-A8E9-00104B365C9F}';
+ IID_IMatch: TGUID = '{3F4DACA1-160D-11D2-A8E9-00104B365C9F}';
+ IID_IMatchCollection: TGUID = '{3F4DACA2-160D-11D2-A8E9-00104B365C9F}';
+ IID_IRegExp2: TGUID = '{3F4DACB0-160D-11D2-A8E9-00104B365C9F}';
+ IID_IMatch2: TGUID = '{3F4DACB1-160D-11D2-A8E9-00104B365C9F}';
+ IID_IMatchCollection2: TGUID = '{3F4DACB2-160D-11D2-A8E9-00104B365C9F}';
+ IID_ISubMatches: TGUID = '{3F4DACB3-160D-11D2-A8E9-00104B365C9F}';
+ CLASS_RegExp: TGUID = '{3F4DACA4-160D-11D2-A8E9-00104B365C9F}';
+ CLASS_Match: TGUID = '{3F4DACA5-160D-11D2-A8E9-00104B365C9F}';
+ CLASS_MatchCollection: TGUID = '{3F4DACA6-160D-11D2-A8E9-00104B365C9F}';
+ CLASS_SubMatches: TGUID = '{3F4DACC0-160D-11D2-A8E9-00104B365C9F}';
+type
+
+// *********************************************************************//
+// Forward declaration of types defined in TypeLibrary
+// *********************************************************************//
+ IRegExp = interface;
+ IRegExpDisp = dispinterface;
+ IMatch = interface;
+ IMatchDisp = dispinterface;
+ IMatchCollection = interface;
+ IMatchCollectionDisp = dispinterface;
+ IRegExp2 = interface;
+ IRegExp2Disp = dispinterface;
+ IMatch2 = interface;
+ IMatch2Disp = dispinterface;
+ IMatchCollection2 = interface;
+ IMatchCollection2Disp = dispinterface;
+ ISubMatches = interface;
+ ISubMatchesDisp = dispinterface;
+
+// *********************************************************************//
+// Declaration of CoClasses defined in Type Library
+// (NOTE: Here we map each CoClass to its Default Interface)
+// *********************************************************************//
+ RegExp = IRegExp2;
+ Match = IMatch2;
+ MatchCollection = IMatchCollection2;
+ SubMatches = ISubMatches;
+
+
+// *********************************************************************//
+// Interface: IRegExp
+// Flags: (4560) Hidden Dual NonExtensible OleAutomation Dispatchable
+// GUID: {3F4DACA0-160D-11D2-A8E9-00104B365C9F}
+// *********************************************************************//
+ IRegExp = interface(IDispatch)
+ ['{3F4DACA0-160D-11D2-A8E9-00104B365C9F}']
+ function Get_Pattern: WideString; safecall;
+ procedure Set_Pattern(const pPattern: WideString); safecall;
+ function Get_IgnoreCase: WordBool; safecall;
+ procedure Set_IgnoreCase(pIgnoreCase: WordBool); safecall;
+ function Get_Global: WordBool; safecall;
+ procedure Set_Global(pGlobal: WordBool); safecall;
+ function Execute(const sourceString: WideString): IDispatch; safecall;
+ function Test(const sourceString: WideString): WordBool; safecall;
+ function Replace(const sourceString: WideString; const replaceString: WideString): WideString; safecall;
+ property Pattern: WideString read Get_Pattern write Set_Pattern;
+ property IgnoreCase: WordBool read Get_IgnoreCase write Set_IgnoreCase;
+ property Global: WordBool read Get_Global write Set_Global;
+ end;
+
+// *********************************************************************//
+// DispIntf: IRegExpDisp
+// Flags: (4560) Hidden Dual NonExtensible OleAutomation Dispatchable
+// GUID: {3F4DACA0-160D-11D2-A8E9-00104B365C9F}
+// *********************************************************************//
+ IRegExpDisp = dispinterface
+ ['{3F4DACA0-160D-11D2-A8E9-00104B365C9F}']
+ property Pattern: WideString dispid 10001;
+ property IgnoreCase: WordBool dispid 10002;
+ property Global: WordBool dispid 10003;
+ function Execute(const sourceString: WideString): IDispatch; dispid 10004;
+ function Test(const sourceString: WideString): WordBool; dispid 10005;
+ function Replace(const sourceString: WideString; const replaceString: WideString): WideString; dispid 10006;
+ end;
+
+// *********************************************************************//
+// Interface: IMatch
+// Flags: (4560) Hidden Dual NonExtensible OleAutomation Dispatchable
+// GUID: {3F4DACA1-160D-11D2-A8E9-00104B365C9F}
+// *********************************************************************//
+ IMatch = interface(IDispatch)
+ ['{3F4DACA1-160D-11D2-A8E9-00104B365C9F}']
+ function Get_Value: WideString; safecall;
+ function Get_FirstIndex: Integer; safecall;
+ function Get_Length: Integer; safecall;
+ property Value: WideString read Get_Value;
+ property FirstIndex: Integer read Get_FirstIndex;
+ property Length: Integer read Get_Length;
+ end;
+
+// *********************************************************************//
+// DispIntf: IMatchDisp
+// Flags: (4560) Hidden Dual NonExtensible OleAutomation Dispatchable
+// GUID: {3F4DACA1-160D-11D2-A8E9-00104B365C9F}
+// *********************************************************************//
+ IMatchDisp = dispinterface
+ ['{3F4DACA1-160D-11D2-A8E9-00104B365C9F}']
+ property Value: WideString readonly dispid 0;
+ property FirstIndex: Integer readonly dispid 10001;
+ property Length: Integer readonly dispid 10002;
+ end;
+
+// *********************************************************************//
+// Interface: IMatchCollection
+// Flags: (4560) Hidden Dual NonExtensible OleAutomation Dispatchable
+// GUID: {3F4DACA2-160D-11D2-A8E9-00104B365C9F}
+// *********************************************************************//
+ IMatchCollection = interface(IDispatch)
+ ['{3F4DACA2-160D-11D2-A8E9-00104B365C9F}']
+ function Get_Item(index: Integer): IDispatch; safecall;
+ function Get_Count: Integer; safecall;
+ function Get__NewEnum: IUnknown; safecall;
+ property Item[index: Integer]: IDispatch read Get_Item;
+ property Count: Integer read Get_Count;
+ property _NewEnum: IUnknown read Get__NewEnum;
+ end;
+
+// *********************************************************************//
+// DispIntf: IMatchCollectionDisp
+// Flags: (4560) Hidden Dual NonExtensible OleAutomation Dispatchable
+// GUID: {3F4DACA2-160D-11D2-A8E9-00104B365C9F}
+// *********************************************************************//
+ IMatchCollectionDisp = dispinterface
+ ['{3F4DACA2-160D-11D2-A8E9-00104B365C9F}']
+ property Item[index: Integer]: IDispatch readonly dispid 10001;
+ property Count: Integer readonly dispid 1;
+ property _NewEnum: IUnknown readonly dispid -4;
+ end;
+
+// *********************************************************************//
+// Interface: IRegExp2
+// Flags: (4560) Hidden Dual NonExtensible OleAutomation Dispatchable
+// GUID: {3F4DACB0-160D-11D2-A8E9-00104B365C9F}
+// *********************************************************************//
+ IRegExp2 = interface(IDispatch)
+ ['{3F4DACB0-160D-11D2-A8E9-00104B365C9F}']
+ function Get_Pattern: WideString; safecall;
+ procedure Set_Pattern(const pPattern: WideString); safecall;
+ function Get_IgnoreCase: WordBool; safecall;
+ procedure Set_IgnoreCase(pIgnoreCase: WordBool); safecall;
+ function Get_Global: WordBool; safecall;
+ procedure Set_Global(pGlobal: WordBool); safecall;
+ function Get_Multiline: WordBool; safecall;
+ procedure Set_Multiline(pMultiline: WordBool); safecall;
+ function Execute(const sourceString: WideString): IDispatch; safecall;
+ function Test(const sourceString: WideString): WordBool; safecall;
+ function Replace(const sourceString: WideString; replaceVar: OleVariant): WideString; safecall;
+ property Pattern: WideString read Get_Pattern write Set_Pattern;
+ property IgnoreCase: WordBool read Get_IgnoreCase write Set_IgnoreCase;
+ property Global: WordBool read Get_Global write Set_Global;
+ property Multiline: WordBool read Get_Multiline write Set_Multiline;
+ end;
+
+// *********************************************************************//
+// DispIntf: IRegExp2Disp
+// Flags: (4560) Hidden Dual NonExtensible OleAutomation Dispatchable
+// GUID: {3F4DACB0-160D-11D2-A8E9-00104B365C9F}
+// *********************************************************************//
+ IRegExp2Disp = dispinterface
+ ['{3F4DACB0-160D-11D2-A8E9-00104B365C9F}']
+ property Pattern: WideString dispid 10001;
+ property IgnoreCase: WordBool dispid 10002;
+ property Global: WordBool dispid 10003;
+ property Multiline: WordBool dispid 10007;
+ function Execute(const sourceString: WideString): IDispatch; dispid 10004;
+ function Test(const sourceString: WideString): WordBool; dispid 10005;
+ function Replace(const sourceString: WideString; replaceVar: OleVariant): WideString; dispid 10006;
+ end;
+
+// *********************************************************************//
+// Interface: IMatch2
+// Flags: (4560) Hidden Dual NonExtensible OleAutomation Dispatchable
+// GUID: {3F4DACB1-160D-11D2-A8E9-00104B365C9F}
+// *********************************************************************//
+ IMatch2 = interface(IDispatch)
+ ['{3F4DACB1-160D-11D2-A8E9-00104B365C9F}']
+ function Get_Value: WideString; safecall;
+ function Get_FirstIndex: Integer; safecall;
+ function Get_Length: Integer; safecall;
+ function Get_SubMatches: IDispatch; safecall;
+ property Value: WideString read Get_Value;
+ property FirstIndex: Integer read Get_FirstIndex;
+ property Length: Integer read Get_Length;
+ property SubMatches: IDispatch read Get_SubMatches;
+ end;
+
+// *********************************************************************//
+// DispIntf: IMatch2Disp
+// Flags: (4560) Hidden Dual NonExtensible OleAutomation Dispatchable
+// GUID: {3F4DACB1-160D-11D2-A8E9-00104B365C9F}
+// *********************************************************************//
+ IMatch2Disp = dispinterface
+ ['{3F4DACB1-160D-11D2-A8E9-00104B365C9F}']
+ property Value: WideString readonly dispid 0;
+ property FirstIndex: Integer readonly dispid 10001;
+ property Length: Integer readonly dispid 10002;
+ property SubMatches: IDispatch readonly dispid 10003;
+ end;
+
+// *********************************************************************//
+// Interface: IMatchCollection2
+// Flags: (4560) Hidden Dual NonExtensible OleAutomation Dispatchable
+// GUID: {3F4DACB2-160D-11D2-A8E9-00104B365C9F}
+// *********************************************************************//
+ IMatchCollection2 = interface(IDispatch)
+ ['{3F4DACB2-160D-11D2-A8E9-00104B365C9F}']
+ function Get_Item(index: Integer): IDispatch; safecall;
+ function Get_Count: Integer; safecall;
+ function Get__NewEnum: IUnknown; safecall;
+ property Item[index: Integer]: IDispatch read Get_Item; default;
+ property Count: Integer read Get_Count;
+ property _NewEnum: IUnknown read Get__NewEnum;
+ end;
+
+// *********************************************************************//
+// DispIntf: IMatchCollection2Disp
+// Flags: (4560) Hidden Dual NonExtensible OleAutomation Dispatchable
+// GUID: {3F4DACB2-160D-11D2-A8E9-00104B365C9F}
+// *********************************************************************//
+ IMatchCollection2Disp = dispinterface
+ ['{3F4DACB2-160D-11D2-A8E9-00104B365C9F}']
+ property Item[index: Integer]: IDispatch readonly dispid 0; default;
+ property Count: Integer readonly dispid 1;
+ property _NewEnum: IUnknown readonly dispid -4;
+ end;
+
+// *********************************************************************//
+// Interface: ISubMatches
+// Flags: (4560) Hidden Dual NonExtensible OleAutomation Dispatchable
+// GUID: {3F4DACB3-160D-11D2-A8E9-00104B365C9F}
+// *********************************************************************//
+ ISubMatches = interface(IDispatch)
+ ['{3F4DACB3-160D-11D2-A8E9-00104B365C9F}']
+ function Get_Item(index: Integer): OleVariant; safecall;
+ function Get_Count: Integer; safecall;
+ function Get__NewEnum: IUnknown; safecall;
+ property Item[index: Integer]: OleVariant read Get_Item; default;
+ property Count: Integer read Get_Count;
+ property _NewEnum: IUnknown read Get__NewEnum;
+ end;
+
+// *********************************************************************//
+// DispIntf: ISubMatchesDisp
+// Flags: (4560) Hidden Dual NonExtensible OleAutomation Dispatchable
+// GUID: {3F4DACB3-160D-11D2-A8E9-00104B365C9F}
+// *********************************************************************//
+ ISubMatchesDisp = dispinterface
+ ['{3F4DACB3-160D-11D2-A8E9-00104B365C9F}']
+ property Item[index: Integer]: OleVariant readonly dispid 0; default;
+ property Count: Integer readonly dispid 1;
+ property _NewEnum: IUnknown readonly dispid -4;
+ end;
+
+// *********************************************************************//
+// The Class CoRegExp provides a Create and CreateRemote method to
+// create instances of the default interface IRegExp2 exposed by
+// the CoClass RegExp. The functions are intended to be used by
+// clients wishing to automate the CoClass objects exposed by the
+// server of this typelibrary.
+// *********************************************************************//
+ CoRegExp = class
+ class function Create: IRegExp2;
+ class function CreateRemote(const MachineName: string): IRegExp2;
+ end;
+
+// *********************************************************************//
+// The Class CoMatch provides a Create and CreateRemote method to
+// create instances of the default interface IMatch2 exposed by
+// the CoClass Match. The functions are intended to be used by
+// clients wishing to automate the CoClass objects exposed by the
+// server of this typelibrary.
+// *********************************************************************//
+ CoMatch = class
+ class function Create: IMatch2;
+ class function CreateRemote(const MachineName: string): IMatch2;
+ end;
+
+// *********************************************************************//
+// The Class CoMatchCollection provides a Create and CreateRemote method to
+// create instances of the default interface IMatchCollection2 exposed by
+// the CoClass MatchCollection. The functions are intended to be used by
+// clients wishing to automate the CoClass objects exposed by the
+// server of this typelibrary.
+// *********************************************************************//
+ CoMatchCollection = class
+ class function Create: IMatchCollection2;
+ class function CreateRemote(const MachineName: string): IMatchCollection2;
+ end;
+
+// *********************************************************************//
+// The Class CoSubMatches provides a Create and CreateRemote method to
+// create instances of the default interface ISubMatches exposed by
+// the CoClass SubMatches. The functions are intended to be used by
+// clients wishing to automate the CoClass objects exposed by the
+// server of this typelibrary.
+// *********************************************************************//
+ CoSubMatches = class
+ class function Create: ISubMatches;
+ class function CreateRemote(const MachineName: string): ISubMatches;
+ end;
+
+implementation
+
+uses ComObj;
+
+class function CoRegExp.Create: IRegExp2;
+begin
+ Result := CreateComObject(CLASS_RegExp) as IRegExp2;
+end;
+
+class function CoRegExp.CreateRemote(const MachineName: string): IRegExp2;
+begin
+ Result := CreateRemoteComObject(MachineName, CLASS_RegExp) as IRegExp2;
+end;
+
+class function CoMatch.Create: IMatch2;
+begin
+ Result := CreateComObject(CLASS_Match) as IMatch2;
+end;
+
+class function CoMatch.CreateRemote(const MachineName: string): IMatch2;
+begin
+ Result := CreateRemoteComObject(MachineName, CLASS_Match) as IMatch2;
+end;
+
+class function CoMatchCollection.Create: IMatchCollection2;
+begin
+ Result := CreateComObject(CLASS_MatchCollection) as IMatchCollection2;
+end;
+
+class function CoMatchCollection.CreateRemote(const MachineName: string): IMatchCollection2;
+begin
+ Result := CreateRemoteComObject(MachineName, CLASS_MatchCollection) as IMatchCollection2;
+end;
+
+class function CoSubMatches.Create: ISubMatches;
+begin
+ Result := CreateComObject(CLASS_SubMatches) as ISubMatches;
+end;
+
+class function CoSubMatches.CreateRemote(const MachineName: string): ISubMatches;
+begin
+ Result := CreateRemoteComObject(MachineName, CLASS_SubMatches) as ISubMatches;
+end;
+
+end.

0 comments on commit 821cf42

Please sign in to comment.