RealICQClient/COM/RealICQCOMInterfaces/ASPTypeLibrary_TLB.pas

unit ASPTypeLibrary_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 2006-10-11 11:57:57 from Type Library described below.

// ************************************************************************  //
// Type Lib: C:\WINDOWS\system32\inetsrv\asp.dll (1)
// LIBID: {D97A6DA0-A85C-11CF-83AE-00A0C90C2BD8}
// LCID: 0
// Helpfile: 
// HelpString: Microsoft Active Server Pages Object Library
// DepndLst: 
//   (1) v2.0 stdole, (C:\WINDOWS\system32\stdole2.tlb)
// Errors:
//   Hint: Parameter 'Var' of IRequestDictionary.Item changed to 'Var_'
//   Hint: Parameter 'Var' of IReadCookie.Item changed to 'Var_'
//   Hint: Member 'End' of 'IResponse' changed to 'End_'
//   Hint: Member 'File' of 'IASPError' changed to 'File_'
// ************************************************************************ //
// *************************************************************************//
// 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, 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
  ASPTypeLibraryMajorVersion = 3;
  ASPTypeLibraryMinorVersion = 0;

  LIBID_ASPTypeLibrary: TGUID = '{D97A6DA0-A85C-11CF-83AE-00A0C90C2BD8}';

  IID_IStringList: TGUID = '{D97A6DA0-A85D-11CF-83AE-00A0C90C2BD8}';
  IID_IRequestDictionary: TGUID = '{D97A6DA0-A85F-11DF-83AE-00A0C90C2BD8}';
  IID_IRequest: TGUID = '{D97A6DA0-A861-11CF-93AE-00A0C90C2BD8}';
  CLASS_Request: TGUID = '{920C25D0-25D9-11D0-A55F-00A0C90C2091}';
  IID_IReadCookie: TGUID = '{71EAF260-0CE0-11D0-A53E-00A0C90C2091}';
  IID_IWriteCookie: TGUID = '{D97A6DA0-A862-11CF-84AE-00A0C90C2BD8}';
  IID_IResponse: TGUID = '{D97A6DA0-A864-11CF-83BE-00A0C90C2BD8}';
  CLASS_Response: TGUID = '{46E19BA0-25DD-11D0-A55F-00A0C90C2091}';
  IID_IVariantDictionary: TGUID = '{4A7DEB90-B069-11D0-B373-00A0C90C2BD8}';
  IID_ISessionObject: TGUID = '{D97A6DA0-A865-11CF-83AF-00A0C90C2BD8}';
  CLASS_Session: TGUID = '{509F8F20-25DE-11D0-A55F-00A0C90C2091}';
  IID_IApplicationObject: TGUID = '{D97A6DA0-A866-11CF-83AE-10A0C90C2BD8}';
  CLASS_Application: TGUID = '{7C3BAF00-25DE-11D0-A55F-00A0C90C2091}';
  IID_IASPError: TGUID = '{F5A6893E-A0F5-11D1-8C4B-00C04FC324A4}';
  IID_IServer: TGUID = '{D97A6DA0-A867-11CF-83AE-01A0C90C2BD8}';
  CLASS_Server: TGUID = '{A506D160-25E0-11D0-A55F-00A0C90C2091}';
  IID_IScriptingContext: TGUID = '{D97A6DA0-A868-11CF-83AE-00B0C90C2BD8}';
  CLASS_ScriptingContext: TGUID = '{D97A6DA0-A868-11CF-83AE-11B0C90C2BD8}';
type

// *********************************************************************//
// Forward declaration of types defined in TypeLibrary                    
// *********************************************************************//
  IStringList = interface;
  IStringListDisp = dispinterface;
  IRequestDictionary = interface;
  IRequestDictionaryDisp = dispinterface;
  IRequest = interface;
  IRequestDisp = dispinterface;
  IReadCookie = interface;
  IReadCookieDisp = dispinterface;
  IWriteCookie = interface;
  IWriteCookieDisp = dispinterface;
  IResponse = interface;
  IResponseDisp = dispinterface;
  IVariantDictionary = interface;
  IVariantDictionaryDisp = dispinterface;
  ISessionObject = interface;
  ISessionObjectDisp = dispinterface;
  IApplicationObject = interface;
  IApplicationObjectDisp = dispinterface;
  IASPError = interface;
  IASPErrorDisp = dispinterface;
  IServer = interface;
  IServerDisp = dispinterface;
  IScriptingContext = interface;
  IScriptingContextDisp = dispinterface;

// *********************************************************************//
// Declaration of CoClasses defined in Type Library                       
// (NOTE: Here we map each CoClass to its Default Interface)              
// *********************************************************************//
  Request = IRequest;
  Response = IResponse;
  Session = ISessionObject;
  Application = IApplicationObject;
  Server = IServer;
  ScriptingContext = IScriptingContext;


// *********************************************************************//
// Interface: IStringList
// Flags:     (4432) Hidden Dual OleAutomation Dispatchable
// GUID:      {D97A6DA0-A85D-11CF-83AE-00A0C90C2BD8}
// *********************************************************************//
  IStringList = interface(IDispatch)
    ['{D97A6DA0-A85D-11CF-83AE-00A0C90C2BD8}']
    function Get_Item(i: OleVariant): OleVariant; safecall;
    function Get_Count: SYSINT; safecall;
    function Get__NewEnum: IUnknown; safecall;
    property Item[i: OleVariant]: OleVariant read Get_Item; default;
    property Count: SYSINT read Get_Count;
    property _NewEnum: IUnknown read Get__NewEnum;
  end;

// *********************************************************************//
// DispIntf:  IStringListDisp
// Flags:     (4432) Hidden Dual OleAutomation Dispatchable
// GUID:      {D97A6DA0-A85D-11CF-83AE-00A0C90C2BD8}
// *********************************************************************//
  IStringListDisp = dispinterface
    ['{D97A6DA0-A85D-11CF-83AE-00A0C90C2BD8}']
    property Item[i: OleVariant]: OleVariant readonly dispid 0; default;
    property Count: SYSINT readonly dispid 1610743809;
    property _NewEnum: IUnknown readonly dispid -4;
  end;

// *********************************************************************//
// Interface: IRequestDictionary
// Flags:     (4432) Hidden Dual OleAutomation Dispatchable
// GUID:      {D97A6DA0-A85F-11DF-83AE-00A0C90C2BD8}
// *********************************************************************//
  IRequestDictionary = interface(IDispatch)
    ['{D97A6DA0-A85F-11DF-83AE-00A0C90C2BD8}']
    function Get_Item(Var_: OleVariant): OleVariant; safecall;
    function Get__NewEnum: IUnknown; safecall;
    function Get_Count: SYSINT; safecall;
    function Get_Key(VarKey: OleVariant): OleVariant; safecall;
    property Item[Var_: OleVariant]: OleVariant read Get_Item; default;
    property _NewEnum: IUnknown read Get__NewEnum;
    property Count: SYSINT read Get_Count;
    property Key[VarKey: OleVariant]: OleVariant read Get_Key;
  end;

// *********************************************************************//
// DispIntf:  IRequestDictionaryDisp
// Flags:     (4432) Hidden Dual OleAutomation Dispatchable
// GUID:      {D97A6DA0-A85F-11DF-83AE-00A0C90C2BD8}
// *********************************************************************//
  IRequestDictionaryDisp = dispinterface
    ['{D97A6DA0-A85F-11DF-83AE-00A0C90C2BD8}']
    property Item[Var_: OleVariant]: OleVariant readonly dispid 0; default;
    property _NewEnum: IUnknown readonly dispid -4;
    property Count: SYSINT readonly dispid 1610743810;
    property Key[VarKey: OleVariant]: OleVariant readonly dispid 1610743811;
  end;

// *********************************************************************//
// Interface: IRequest
// Flags:     (4432) Hidden Dual OleAutomation Dispatchable
// GUID:      {D97A6DA0-A861-11CF-93AE-00A0C90C2BD8}
// *********************************************************************//
  IRequest = interface(IDispatch)
    ['{D97A6DA0-A861-11CF-93AE-00A0C90C2BD8}']
    function Get_Item(const bstrVar: WideString): IDispatch; safecall;
    function Get_QueryString: IRequestDictionary; safecall;
    function Get_Form: IRequestDictionary; safecall;
    function Get_Body: IRequestDictionary; safecall;
    function Get_ServerVariables: IRequestDictionary; safecall;
    function Get_ClientCertificate: IRequestDictionary; safecall;
    function Get_Cookies: IRequestDictionary; safecall;
    function Get_TotalBytes: Integer; safecall;
    function BinaryRead(var pvarCountToRead: OleVariant): OleVariant; safecall;
    property Item[const bstrVar: WideString]: IDispatch read Get_Item; default;
    property QueryString: IRequestDictionary read Get_QueryString;
    property Form: IRequestDictionary read Get_Form;
    property Body: IRequestDictionary read Get_Body;
    property ServerVariables: IRequestDictionary read Get_ServerVariables;
    property ClientCertificate: IRequestDictionary read Get_ClientCertificate;
    property Cookies: IRequestDictionary read Get_Cookies;
    property TotalBytes: Integer read Get_TotalBytes;
  end;

// *********************************************************************//
// DispIntf:  IRequestDisp
// Flags:     (4432) Hidden Dual OleAutomation Dispatchable
// GUID:      {D97A6DA0-A861-11CF-93AE-00A0C90C2BD8}
// *********************************************************************//
  IRequestDisp = dispinterface
    ['{D97A6DA0-A861-11CF-93AE-00A0C90C2BD8}']
    property Item[const bstrVar: WideString]: IDispatch readonly dispid 0; default;
    property QueryString: IRequestDictionary readonly dispid 1610743809;
    property Form: IRequestDictionary readonly dispid 1610743810;
    property Body: IRequestDictionary readonly dispid 1610743811;
    property ServerVariables: IRequestDictionary readonly dispid 1610743812;
    property ClientCertificate: IRequestDictionary readonly dispid 1610743813;
    property Cookies: IRequestDictionary readonly dispid 1610743814;
    property TotalBytes: Integer readonly dispid 1610743815;
    function BinaryRead(var pvarCountToRead: OleVariant): OleVariant; dispid 1610743816;
  end;

// *********************************************************************//
// Interface: IReadCookie
// Flags:     (4432) Hidden Dual OleAutomation Dispatchable
// GUID:      {71EAF260-0CE0-11D0-A53E-00A0C90C2091}
// *********************************************************************//
  IReadCookie = interface(IDispatch)
    ['{71EAF260-0CE0-11D0-A53E-00A0C90C2091}']
    function Get_Item(Var_: OleVariant): OleVariant; safecall;
    function Get_HasKeys: WordBool; safecall;
    function Get__NewEnum: IUnknown; safecall;
    function Get_Count: SYSINT; safecall;
    function Get_Key(VarKey: OleVariant): OleVariant; safecall;
    property Item[Var_: OleVariant]: OleVariant read Get_Item; default;
    property HasKeys: WordBool read Get_HasKeys;
    property _NewEnum: IUnknown read Get__NewEnum;
    property Count: SYSINT read Get_Count;
    property Key[VarKey: OleVariant]: OleVariant read Get_Key;
  end;

// *********************************************************************//
// DispIntf:  IReadCookieDisp
// Flags:     (4432) Hidden Dual OleAutomation Dispatchable
// GUID:      {71EAF260-0CE0-11D0-A53E-00A0C90C2091}
// *********************************************************************//
  IReadCookieDisp = dispinterface
    ['{71EAF260-0CE0-11D0-A53E-00A0C90C2091}']
    property Item[Var_: OleVariant]: OleVariant readonly dispid 0; default;
    property HasKeys: WordBool readonly dispid 1610743809;
    property _NewEnum: IUnknown readonly dispid -4;
    property Count: SYSINT readonly dispid 1610743811;
    property Key[VarKey: OleVariant]: OleVariant readonly dispid 1610743812;
  end;

// *********************************************************************//
// Interface: IWriteCookie
// Flags:     (4432) Hidden Dual OleAutomation Dispatchable
// GUID:      {D97A6DA0-A862-11CF-84AE-00A0C90C2BD8}
// *********************************************************************//
  IWriteCookie = interface(IDispatch)
    ['{D97A6DA0-A862-11CF-84AE-00A0C90C2BD8}']
    procedure Set_Item(Key: OleVariant; const Param2: WideString); safecall;
    procedure Set_Expires(Param1: TDateTime); safecall;
    procedure Set_Domain(const Param1: WideString); safecall;
    procedure Set_Path(const Param1: WideString); safecall;
    procedure Set_Secure(Param1: WordBool); safecall;
    function Get_HasKeys: WordBool; safecall;
    function Get__NewEnum: IUnknown; safecall;
    property Item[Key: OleVariant]: WideString write Set_Item; default;
    property Expires: TDateTime write Set_Expires;
    property Domain: WideString write Set_Domain;
    property Path: WideString write Set_Path;
    property Secure: WordBool write Set_Secure;
    property HasKeys: WordBool read Get_HasKeys;
    property _NewEnum: IUnknown read Get__NewEnum;
  end;

// *********************************************************************//
// DispIntf:  IWriteCookieDisp
// Flags:     (4432) Hidden Dual OleAutomation Dispatchable
// GUID:      {D97A6DA0-A862-11CF-84AE-00A0C90C2BD8}
// *********************************************************************//
  IWriteCookieDisp = dispinterface
    ['{D97A6DA0-A862-11CF-84AE-00A0C90C2BD8}']
    property Item[Key: OleVariant]: WideString writeonly dispid 0; default;
    property Expires: TDateTime writeonly dispid 1610743809;
    property Domain: WideString writeonly dispid 1610743810;
    property Path: WideString writeonly dispid 1610743811;
    property Secure: WordBool writeonly dispid 1610743812;
    property HasKeys: WordBool readonly dispid 1610743813;
    property _NewEnum: IUnknown readonly dispid -4;
  end;

// *********************************************************************//
// Interface: IResponse
// Flags:     (4432) Hidden Dual OleAutomation Dispatchable
// GUID:      {D97A6DA0-A864-11CF-83BE-00A0C90C2BD8}
// *********************************************************************//
  IResponse = interface(IDispatch)
    ['{D97A6DA0-A864-11CF-83BE-00A0C90C2BD8}']
    function Get_Buffer: WordBool; safecall;
    procedure Set_Buffer(fIsBuffering: WordBool); safecall;
    function Get_ContentType: WideString; safecall;
    procedure Set_ContentType(const pbstrContentTypeRet: WideString); safecall;
    function Get_Expires: OleVariant; safecall;
    procedure Set_Expires(pvarExpiresMinutesRet: Integer); safecall;
    function Get_ExpiresAbsolute: OleVariant; safecall;
    procedure Set_ExpiresAbsolute(pvarExpiresRet: TDateTime); safecall;
    function Get_Cookies: IRequestDictionary; safecall;
    function Get_Status: WideString; safecall;
    procedure Set_Status(const pbstrStatusRet: WideString); safecall;
    procedure Add(const bstrHeaderValue: WideString; const bstrHeaderName: WideString); safecall;
    procedure AddHeader(const bstrHeaderName: WideString; const bstrHeaderValue: WideString); safecall;
    procedure AppendToLog(const bstrLogEntry: WideString); safecall;
    procedure BinaryWrite(varInput: OleVariant); safecall;
    procedure Clear; safecall;
    procedure End_; safecall;
    procedure Flush; safecall;
    procedure Redirect(const bstrURL: WideString); safecall;
    procedure Write(varText: OleVariant); safecall;
    procedure WriteBlock(iBlockNumber: Smallint); safecall;
    function IsClientConnected: WordBool; safecall;
    function Get_CharSet: WideString; safecall;
    procedure Set_CharSet(const pbstrCharSetRet: WideString); safecall;
    procedure Pics(const bstrHeaderValue: WideString); safecall;
    function Get_CacheControl: WideString; safecall;
    procedure Set_CacheControl(const pbstrCacheControl: WideString); safecall;
    function Get_CodePage: Integer; safecall;
    procedure Set_CodePage(plvar: Integer); safecall;
    function Get_LCID: Integer; safecall;
    procedure Set_LCID(plvar: Integer); safecall;
    property Buffer: WordBool read Get_Buffer write Set_Buffer;
    property ContentType: WideString read Get_ContentType write Set_ContentType;
    property Cookies: IRequestDictionary read Get_Cookies;
    property Status: WideString read Get_Status write Set_Status;
    property CharSet: WideString read Get_CharSet write Set_CharSet;
    property CacheControl: WideString read Get_CacheControl write Set_CacheControl;
    property CodePage: Integer read Get_CodePage write Set_CodePage;
    property LCID: Integer read Get_LCID write Set_LCID;
  end;

// *********************************************************************//
// DispIntf:  IResponseDisp
// Flags:     (4432) Hidden Dual OleAutomation Dispatchable
// GUID:      {D97A6DA0-A864-11CF-83BE-00A0C90C2BD8}
// *********************************************************************//
  IResponseDisp = dispinterface
    ['{D97A6DA0-A864-11CF-83BE-00A0C90C2BD8}']
    property Buffer: WordBool dispid 1610743808;
    property ContentType: WideString dispid 1610743810;
    function Expires: OleVariant; dispid 1610743812;
    function ExpiresAbsolute: OleVariant; dispid 1610743814;
    property Cookies: IRequestDictionary readonly dispid 1610743816;
    property Status: WideString dispid 1610743817;
    procedure Add(const bstrHeaderValue: WideString; const bstrHeaderName: WideString); dispid 1610743819;
    procedure AddHeader(const bstrHeaderName: WideString; const bstrHeaderValue: WideString); dispid 1610743820;
    procedure AppendToLog(const bstrLogEntry: WideString); dispid 1610743821;
    procedure BinaryWrite(varInput: OleVariant); dispid 1610743822;
    procedure Clear; dispid 1610743823;
    procedure End_; dispid 1610743824;
    procedure Flush; dispid 1610743825;
    procedure Redirect(const bstrURL: WideString); dispid 1610743826;
    procedure Write(varText: OleVariant); dispid 1610743827;
    procedure WriteBlock(iBlockNumber: Smallint); dispid 1610743828;
    function IsClientConnected: WordBool; dispid 1610743829;
    property CharSet: WideString dispid 1610743830;
    procedure Pics(const bstrHeaderValue: WideString); dispid 1610743832;
    property CacheControl: WideString dispid 1610743833;
    property CodePage: Integer dispid 1610743835;
    property LCID: Integer dispid 1610743837;
  end;

// *********************************************************************//
// Interface: IVariantDictionary
// Flags:     (4432) Hidden Dual OleAutomation Dispatchable
// GUID:      {4A7DEB90-B069-11D0-B373-00A0C90C2BD8}
// *********************************************************************//
  IVariantDictionary = interface(IDispatch)
    ['{4A7DEB90-B069-11D0-B373-00A0C90C2BD8}']
    function Get_Item(VarKey: OleVariant): OleVariant; safecall;
    procedure Set_Item(VarKey: OleVariant; pvar: OleVariant); safecall;
    procedure _Set_Item(VarKey: OleVariant; pvar: OleVariant); safecall;
    function Get_Key(VarKey: OleVariant): OleVariant; safecall;
    function Get_Count: SYSINT; safecall;
    function Get__NewEnum: IUnknown; safecall;
    procedure Remove(VarKey: OleVariant); safecall;
    procedure RemoveAll; safecall;
    property Item[VarKey: OleVariant]: OleVariant read Get_Item write Set_Item; default;
    property Key[VarKey: OleVariant]: OleVariant read Get_Key;
    property Count: SYSINT read Get_Count;
    property _NewEnum: IUnknown read Get__NewEnum;
  end;

// *********************************************************************//
// DispIntf:  IVariantDictionaryDisp
// Flags:     (4432) Hidden Dual OleAutomation Dispatchable
// GUID:      {4A7DEB90-B069-11D0-B373-00A0C90C2BD8}
// *********************************************************************//
  IVariantDictionaryDisp = dispinterface
    ['{4A7DEB90-B069-11D0-B373-00A0C90C2BD8}']
    property Item[VarKey: OleVariant]: OleVariant dispid 0; default;
    property Key[VarKey: OleVariant]: OleVariant readonly dispid 1610743811;
    property Count: SYSINT readonly dispid 1610743812;
    property _NewEnum: IUnknown readonly dispid -4;
    procedure Remove(VarKey: OleVariant); dispid 1610743814;
    procedure RemoveAll; dispid 1610743815;
  end;

// *********************************************************************//
// Interface: ISessionObject
// Flags:     (4432) Hidden Dual OleAutomation Dispatchable
// GUID:      {D97A6DA0-A865-11CF-83AF-00A0C90C2BD8}
// *********************************************************************//
  ISessionObject = interface(IDispatch)
    ['{D97A6DA0-A865-11CF-83AF-00A0C90C2BD8}']
    function Get_SessionID: WideString; safecall;
    function Get_Value(const bstrValue: WideString): OleVariant; safecall;
    procedure Set_Value(const bstrValue: WideString; pvar: OleVariant); safecall;
    procedure _Set_Value(const bstrValue: WideString; pvar: OleVariant); safecall;
    function Get_Timeout: Integer; safecall;
    procedure Set_Timeout(plvar: Integer); safecall;
    procedure Abandon; safecall;
    function Get_CodePage: Integer; safecall;
    procedure Set_CodePage(plvar: Integer); safecall;
    function Get_LCID: Integer; safecall;
    procedure Set_LCID(plvar: Integer); safecall;
    function Get_StaticObjects: IVariantDictionary; safecall;
    function Get_Contents: IVariantDictionary; safecall;
    property SessionID: WideString read Get_SessionID;
    property Value[const bstrValue: WideString]: OleVariant read Get_Value write Set_Value; default;
    property Timeout: Integer read Get_Timeout write Set_Timeout;
    property CodePage: Integer read Get_CodePage write Set_CodePage;
    property LCID: Integer read Get_LCID write Set_LCID;
    property StaticObjects: IVariantDictionary read Get_StaticObjects;
    property Contents: IVariantDictionary read Get_Contents;
  end;

// *********************************************************************//
// DispIntf:  ISessionObjectDisp
// Flags:     (4432) Hidden Dual OleAutomation Dispatchable
// GUID:      {D97A6DA0-A865-11CF-83AF-00A0C90C2BD8}
// *********************************************************************//
  ISessionObjectDisp = dispinterface
    ['{D97A6DA0-A865-11CF-83AF-00A0C90C2BD8}']
    property SessionID: WideString readonly dispid 1610743808;
    property Value[const bstrValue: WideString]: OleVariant dispid 0; default;
    property Timeout: Integer dispid 1610743812;
    procedure Abandon; dispid 1610743814;
    property CodePage: Integer dispid 1610743815;
    property LCID: Integer dispid 1610743817;
    property StaticObjects: IVariantDictionary readonly dispid 1610743819;
    property Contents: IVariantDictionary readonly dispid 1610743820;
  end;

// *********************************************************************//
// Interface: IApplicationObject
// Flags:     (4432) Hidden Dual OleAutomation Dispatchable
// GUID:      {D97A6DA0-A866-11CF-83AE-10A0C90C2BD8}
// *********************************************************************//
  IApplicationObject = interface(IDispatch)
    ['{D97A6DA0-A866-11CF-83AE-10A0C90C2BD8}']
    function Get_Value(const bstrValue: WideString): OleVariant; safecall;
    procedure Set_Value(const bstrValue: WideString; pvar: OleVariant); safecall;
    procedure _Set_Value(const bstrValue: WideString; pvar: OleVariant); safecall;
    procedure Lock; safecall;
    procedure UnLock; safecall;
    function Get_StaticObjects: IVariantDictionary; safecall;
    function Get_Contents: IVariantDictionary; safecall;
    property Value[const bstrValue: WideString]: OleVariant read Get_Value write Set_Value; default;
    property StaticObjects: IVariantDictionary read Get_StaticObjects;
    property Contents: IVariantDictionary read Get_Contents;
  end;

// *********************************************************************//
// DispIntf:  IApplicationObjectDisp
// Flags:     (4432) Hidden Dual OleAutomation Dispatchable
// GUID:      {D97A6DA0-A866-11CF-83AE-10A0C90C2BD8}
// *********************************************************************//
  IApplicationObjectDisp = dispinterface
    ['{D97A6DA0-A866-11CF-83AE-10A0C90C2BD8}']
    property Value[const bstrValue: WideString]: OleVariant dispid 0; default;
    procedure Lock; dispid 1610743811;
    procedure UnLock; dispid 1610743812;
    property StaticObjects: IVariantDictionary readonly dispid 1610743813;
    property Contents: IVariantDictionary readonly dispid 1610743814;
  end;

// *********************************************************************//
// Interface: IASPError
// Flags:     (4432) Hidden Dual OleAutomation Dispatchable
// GUID:      {F5A6893E-A0F5-11D1-8C4B-00C04FC324A4}
// *********************************************************************//
  IASPError = interface(IDispatch)
    ['{F5A6893E-A0F5-11D1-8C4B-00C04FC324A4}']
    function Get_ASPCode: WideString; safecall;
    function Get_Number: Integer; safecall;
    function Get_Category: WideString; safecall;
    function Get_File_: WideString; safecall;
    function Get_Line: Integer; safecall;
    function Get_Description: WideString; safecall;
    function Get_ASPDescription: WideString; safecall;
    function Get_Column: Integer; safecall;
    function Get_Source: WideString; safecall;
    property ASPCode: WideString read Get_ASPCode;
    property Number: Integer read Get_Number;
    property Category: WideString read Get_Category;
    property File_: WideString read Get_File_;
    property Line: Integer read Get_Line;
    property Description: WideString read Get_Description;
    property ASPDescription: WideString read Get_ASPDescription;
    property Column: Integer read Get_Column;
    property Source: WideString read Get_Source;
  end;

// *********************************************************************//
// DispIntf:  IASPErrorDisp
// Flags:     (4432) Hidden Dual OleAutomation Dispatchable
// GUID:      {F5A6893E-A0F5-11D1-8C4B-00C04FC324A4}
// *********************************************************************//
  IASPErrorDisp = dispinterface
    ['{F5A6893E-A0F5-11D1-8C4B-00C04FC324A4}']
    property ASPCode: WideString readonly dispid 1610743808;
    property Number: Integer readonly dispid 1610743809;
    property Category: WideString readonly dispid 1610743810;
    property File_: WideString readonly dispid 1610743811;
    property Line: Integer readonly dispid 1610743812;
    property Description: WideString readonly dispid 1610743813;
    property ASPDescription: WideString readonly dispid 1610743814;
    property Column: Integer readonly dispid 1610743815;
    property Source: WideString readonly dispid 1610743816;
  end;

// *********************************************************************//
// Interface: IServer
// Flags:     (4432) Hidden Dual OleAutomation Dispatchable
// GUID:      {D97A6DA0-A867-11CF-83AE-01A0C90C2BD8}
// *********************************************************************//
  IServer = interface(IDispatch)
    ['{D97A6DA0-A867-11CF-83AE-01A0C90C2BD8}']
    function Get_ScriptTimeout: Integer; safecall;
    procedure Set_ScriptTimeout(plTimeoutSeconds: Integer); safecall;
    function CreateObject(const bstrProgID: WideString): IDispatch; safecall;
    function HTMLEncode(const bstrIn: WideString): WideString; safecall;
    function MapPath(const bstrLogicalPath: WideString): WideString; safecall;
    function URLEncode(const bstrIn: WideString): WideString; safecall;
    function URLPathEncode(const bstrIn: WideString): WideString; safecall;
    procedure Execute(const bstrLogicalPath: WideString); safecall;
    procedure Transfer(const bstrLogicalPath: WideString); safecall;
    function GetLastError: IASPError; safecall;
    property ScriptTimeout: Integer read Get_ScriptTimeout write Set_ScriptTimeout;
  end;

// *********************************************************************//
// DispIntf:  IServerDisp
// Flags:     (4432) Hidden Dual OleAutomation Dispatchable
// GUID:      {D97A6DA0-A867-11CF-83AE-01A0C90C2BD8}
// *********************************************************************//
  IServerDisp = dispinterface
    ['{D97A6DA0-A867-11CF-83AE-01A0C90C2BD8}']
    property ScriptTimeout: Integer dispid 1610743808;
    function CreateObject(const bstrProgID: WideString): IDispatch; dispid 1610743810;
    function HTMLEncode(const bstrIn: WideString): WideString; dispid 1610743811;
    function MapPath(const bstrLogicalPath: WideString): WideString; dispid 1610743812;
    function URLEncode(const bstrIn: WideString): WideString; dispid 1610743813;
    function URLPathEncode(const bstrIn: WideString): WideString; dispid 1610743814;
    procedure Execute(const bstrLogicalPath: WideString); dispid 1610743815;
    procedure Transfer(const bstrLogicalPath: WideString); dispid 1610743816;
    function GetLastError: IASPError; dispid 1610743817;
  end;

// *********************************************************************//
// Interface: IScriptingContext
// Flags:     (4432) Hidden Dual OleAutomation Dispatchable
// GUID:      {D97A6DA0-A868-11CF-83AE-00B0C90C2BD8}
// *********************************************************************//
  IScriptingContext = interface(IDispatch)
    ['{D97A6DA0-A868-11CF-83AE-00B0C90C2BD8}']
    function Get_Request: IRequest; safecall;
    function Get_Response: IResponse; safecall;
    function Get_Server: IServer; safecall;
    function Get_Session: ISessionObject; safecall;
    function Get_Application: IApplicationObject; safecall;
    property Request: IRequest read Get_Request;
    property Response: IResponse read Get_Response;
    property Server: IServer read Get_Server;
    property Session: ISessionObject read Get_Session;
    property Application: IApplicationObject read Get_Application;
  end;

// *********************************************************************//
// DispIntf:  IScriptingContextDisp
// Flags:     (4432) Hidden Dual OleAutomation Dispatchable
// GUID:      {D97A6DA0-A868-11CF-83AE-00B0C90C2BD8}
// *********************************************************************//
  IScriptingContextDisp = dispinterface
    ['{D97A6DA0-A868-11CF-83AE-00B0C90C2BD8}']
    property Request: IRequest readonly dispid 1610743808;
    property Response: IResponse readonly dispid 1610743809;
    property Server: IServer readonly dispid 1610743810;
    property Session: ISessionObject readonly dispid 1610743811;
    property Application: IApplicationObject readonly dispid 1610743812;
  end;

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

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

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

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

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

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

implementation

uses ComObj;

class function CoRequest.Create: IRequest;
begin
  Result := CreateComObject(CLASS_Request) as IRequest;
end;

class function CoRequest.CreateRemote(const MachineName: string): IRequest;
begin
  Result := CreateRemoteComObject(MachineName, CLASS_Request) as IRequest;
end;

class function CoResponse.Create: IResponse;
begin
  Result := CreateComObject(CLASS_Response) as IResponse;
end;

class function CoResponse.CreateRemote(const MachineName: string): IResponse;
begin
  Result := CreateRemoteComObject(MachineName, CLASS_Response) as IResponse;
end;

class function CoSession.Create: ISessionObject;
begin
  Result := CreateComObject(CLASS_Session) as ISessionObject;
end;

class function CoSession.CreateRemote(const MachineName: string): ISessionObject;
begin
  Result := CreateRemoteComObject(MachineName, CLASS_Session) as ISessionObject;
end;

class function CoApplication.Create: IApplicationObject;
begin
  Result := CreateComObject(CLASS_Application) as IApplicationObject;
end;

class function CoApplication.CreateRemote(const MachineName: string): IApplicationObject;
begin
  Result := CreateRemoteComObject(MachineName, CLASS_Application) as IApplicationObject;
end;

class function CoServer.Create: IServer;
begin
  Result := CreateComObject(CLASS_Server) as IServer;
end;

class function CoServer.CreateRemote(const MachineName: string): IServer;
begin
  Result := CreateRemoteComObject(MachineName, CLASS_Server) as IServer;
end;

class function CoScriptingContext.Create: IScriptingContext;
begin
  Result := CreateComObject(CLASS_ScriptingContext) as IScriptingContext;
end;

class function CoScriptingContext.CreateRemote(const MachineName: string): IScriptingContext;
begin
  Result := CreateRemoteComObject(MachineName, CLASS_ScriptingContext) as IScriptingContext;
end;

end.