【delphi开源代码栏目提醒】：网学会员鉴于大家对delphi开源代码十分关注，论文会员在此为大家搜集整理了“MIDAS_Test_TLB.pas”一文，供大家参考学习

    unit MIDAS_Test_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.130  $
    // File generated on 2001-5-12 23:51:52 from Type Library described below.
    
    // ************************************************************************  //
    // Type Lib: F:\来信目录\14\程序\MIDAS测试\MIDAS_Test.tlb (1)
    // LIBID: {4FEA5D3C-0EB0-4A4B-ADCF-5CCB32FDA4E5}
    // LCID: 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. 
    {$WARN SYMBOL_PLATFORM OFF}
    {$WRITEABLECONST ON}
    
    interface
    
    uses ActiveX, Classes, Graphics, Midas, StdVCL, Variants, Windows;
      
    
    
    // *********************************************************************//
    // 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
      MIDAS_TestMajorVersion = 1;
      MIDAS_TestMinorVersion = 0;
    
      LIBID_MIDAS_Test: TGUID = '{4FEA5D3C-0EB0-4A4B-ADCF-5CCB32FDA4E5}';
    
      IID_IMIDAS_Test: TGUID = '{969988C6-F42F-482C-9262-E38DCAFE1215}';
      DIID_IMIDAS_TestEvents: TGUID = '{AAB443DE-A92E-4C63-B0FC-050689F906EE}';
      CLASS_MIDAS_Test: TGUID = '{CCA45731-B142-45FF-AB6C-B1683B90AFED}';
      IID_IMIDAS_Appserver: TGUID = '{497007A8-FAF7-40F8-9F37-76F6FE31EB6C}';
      CLASS_MIDAS_Appserver: TGUID = '{364D7DEC-9FBA-43A5-A8D1-DC9C94E5A776}';
    type
    
    // *********************************************************************//
    // Forward declaration of types defined in TypeLibrary                    
    // *********************************************************************//
      IMIDAS_Test = interface;
      IMIDAS_TestDisp = dispinterface;
      IMIDAS_TestEvents = dispinterface;
      IMIDAS_Appserver = interface;
      IMIDAS_AppserverDisp = dispinterface;
    
    // *********************************************************************//
    // Declaration of CoClasses defined in Type Library                       
    // (NOTE: Here we map each CoClass to its Default Interface)              
    // *********************************************************************//
      MIDAS_Test = IMIDAS_Test;
      MIDAS_Appserver = IMIDAS_Appserver;
    
    
    // *********************************************************************//
    // Interface: IMIDAS_Test
    // Flags:     (4416) Dual OleAutomation Dispatchable
    // GUID:      {969988C6-F42F-482C-9262-E38DCAFE1215}
    // *********************************************************************//
      IMIDAS_Test = interface(IDispatch)
        ['{969988C6-F42F-482C-9262-E38DCAFE1215}']
      end;
    
    // *********************************************************************//
    // DispIntf:  IMIDAS_TestDisp
    // Flags:     (4416) Dual OleAutomation Dispatchable
    // GUID:      {969988C6-F42F-482C-9262-E38DCAFE1215}
    // *********************************************************************//
      IMIDAS_TestDisp = dispinterface
        ['{969988C6-F42F-482C-9262-E38DCAFE1215}']
      end;
    
    // *********************************************************************//
    // DispIntf:  IMIDAS_TestEvents
    // Flags:     (0)
    // GUID:      {AAB443DE-A92E-4C63-B0FC-050689F906EE}
    // *********************************************************************//
      IMIDAS_TestEvents = dispinterface
        ['{AAB443DE-A92E-4C63-B0FC-050689F906EE}']
      end;
    
    // *********************************************************************//
    // Interface: IMIDAS_Appserver
    // Flags:     (4416) Dual Ole