/jcl/examples/windows/debug/stacktrack/StackTrackDLLsComLibrary_TLB.pas

https://github.com/the-Arioch/jcl · Pascal · 97 lines · 32 code · 17 blank · 48 comment · 0 complexity · aa895b643cdeca8005aacfe75180a291 MD5 · raw file

  1. unit StackTrackDLLsComLibrary_TLB;
  2. // ************************************************************************ //
  3. // WARNING
  4. // -------
  5. // The types declared in this file were generated from data read from a
  6. // Type Library. If this type library is explicitly or indirectly (via
  7. // another type library referring to this type library) re-imported, or the
  8. // 'Refresh' command of the Type Library Editor activated while editing the
  9. // Type Library, the contents of this file will be regenerated and all
  10. // manual modifications will be lost.
  11. // ************************************************************************ //
  12. // PASTLWTR : $Revision$
  13. // File generated on 1.8.2005 02:48:29 from Type Library described below.
  14. // ************************************************************************ //
  15. // Type Lib: D:\Quellen\jedi\jcl\examples\vcl\debug\stacktrack\StackTrackDLLsComLibrary.tlb (1)
  16. // IID\LCID: {D4935E5D-790E-48CA-B360-0165C1305153}\0
  17. // Helpfile:
  18. // DepndLst:
  19. // (1) v2.0 stdole, (F:\WINNT\system32\stdole2.tlb)
  20. // (2) v4.0 StdVCL, (F:\WINNT\system32\STDVCL40.DLL)
  21. // ************************************************************************ //
  22. {$TYPEDADDRESS OFF} // Unit must be compiled without type-checked pointers.
  23. interface
  24. uses Windows, ActiveX, Classes, Graphics, OleServer, OleCtrls, StdVCL;
  25. // *********************************************************************//
  26. // GUIDS declared in the TypeLibrary. Following prefixes are used:
  27. // Type Libraries : LIBID_xxxx
  28. // CoClasses : CLASS_xxxx
  29. // DISPInterfaces : DIID_xxxx
  30. // Non-DISP interfaces: IID_xxxx
  31. // *********************************************************************//
  32. const
  33. // TypeLibrary Major and minor versions
  34. StackTrackDLLsComLibraryMajorVersion = 1;
  35. StackTrackDLLsComLibraryMinorVersion = 0;
  36. LIBID_StackTrackDLLsComLibrary: TGUID = '{D4935E5D-790E-48CA-B360-0165C1305153}';
  37. IID_IStackTrackDllsTest: TGUID = '{26473046-CCEB-4671-9AB1-2216EF4D2164}';
  38. CLASS_StackTrackDllsTest: TGUID = '{DA3AEC52-1481-4119-B140-2157C7ADEC5B}';
  39. type
  40. // *********************************************************************//
  41. // Forward declaration of types defined in TypeLibrary
  42. // *********************************************************************//
  43. IStackTrackDllsTest = interface;
  44. // *********************************************************************//
  45. // Declaration of CoClasses defined in Type Library
  46. // (NOTE: Here we map each CoClass to its Default Interface)
  47. // *********************************************************************//
  48. StackTrackDllsTest = IStackTrackDllsTest;
  49. // *********************************************************************//
  50. // Interface: IStackTrackDllsTest
  51. // Flags: (256) OleAutomation
  52. // GUID: {26473046-CCEB-4671-9AB1-2216EF4D2164}
  53. // *********************************************************************//
  54. IStackTrackDllsTest = interface(IUnknown)
  55. ['{26473046-CCEB-4671-9AB1-2216EF4D2164}']
  56. function Error1: HResult; stdcall;
  57. function Error2: HResult; stdcall;
  58. end;
  59. // *********************************************************************//
  60. // The Class CoStackTrackDllsTest provides a Create and CreateRemote method to
  61. // create instances of the default interface IStackTrackDllsTest exposed by
  62. // the CoClass StackTrackDllsTest. The functions are intended to be used by
  63. // clients wishing to automate the CoClass objects exposed by the
  64. // server of this typelibrary.
  65. // *********************************************************************//
  66. CoStackTrackDllsTest = class
  67. class function Create: IStackTrackDllsTest;
  68. class function CreateRemote(const MachineName: string): IStackTrackDllsTest;
  69. end;
  70. implementation
  71. uses ComObj;
  72. class function CoStackTrackDllsTest.Create: IStackTrackDllsTest;
  73. begin
  74. Result := CreateComObject(CLASS_StackTrackDllsTest) as IStackTrackDllsTest;
  75. end;
  76. class function CoStackTrackDllsTest.CreateRemote(const MachineName: string): IStackTrackDllsTest;
  77. begin
  78. Result := CreateRemoteComObject(MachineName, CLASS_StackTrackDllsTest) as IStackTrackDllsTest;
  79. end;
  80. end.