【delphi开源代码栏目提醒】:文章导读:在新的一年中,各位网友都进入紧张的学习或是工作阶段。网学会员整理了delphi开源代码-AppASPServer_TLB.pas的相关内容供大家参考,祝大家在新的一年里工作和学习顺利!
unit AppASPServer_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 2001-10-14 22:22:56 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:\来信目录\ASP\AppASP\AppASPServer.tlb (1)
// IID\LCID: {A720C21F-1816-48C9-8AB0-9BA8F8270396}\0
// Helpfile:
// DepndLst:
// (1) v2.0 stdole, (D:\WINNT\System32\stdole2.tlb)
// (2) v4.0 StdVCL, (D:\WINNT\System32\STDVCL40.DLL)
// (3) v1.0 Midas, (D:\WINNT\System32\midas.dll)
// ************************************************************************ //
{$TYPEDADDRESS OFF} // Unit must be compiled without type-checked pointers.
interface
uses Windows, ActiveX, Classes, Graphics, OleServer, OleCtrls, StdVCL,
MIDAS;
// *********************************************************************//
// 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
AppASPServerMajorVersion = 1;
AppASPServerMinorVersion = 0;
LIBID_AppASPServer: TGUID = '{A720C21F-1816-48C9-8AB0-9BA8F8270396}';
IID_IMyASP: TGUID = '{0D7C07E2-502D-41AE-981D-61EB39BC3CFB}';
CLASS_MyASP: TGUID = '{970FE2FF-4019-41F7-8BE2-B510FE818981}';
type
// *********************************************************************//
// Forward declaration of types defined in TypeLibrary
// *********************************************************************//
IMyASP = interface;
IMyASPDisp = dispinterface;
// *********************************************************************//
// Declaration of CoClasses defined in Type Library
// (NOTE: Here we map each CoClass to its Default Interface)
// *********************************************************************//
MyASP = IMyASP;
// *********************************************************************//
// Interface: IMyASP
// Flags: (4416) Dual OleAutomation Dispatchable
// GUID: {0D7C07E2-502D-41AE-981D-61EB39BC3CFB}
// *********************************************************************//
IMyASP = interface(IAppServer)
['{0D7C07E2-502D-41AE