home *** CD-ROM | disk | FTP | other *** search
/ Chip 1999 March / Chip_1999-03_cd.bin / zkuste / delphi / INFO / DI9812RL.ZIP / AdoProj_TLB.pas < prev    next >
Pascal/Delphi Source File  |  1998-07-14  |  2KB  |  75 lines
  1. unit AdoProj_TLB;
  2.  
  3. { This file contains pascal declarations imported from a type library.
  4.   This file will be written during each import or refresh of the type
  5.   library editor.  Changes to this file will be discarded during the
  6.   refresh process. }
  7.  
  8. { AdoProj Library }
  9. { Version 1.0 }
  10.  
  11. interface
  12.  
  13. uses Windows, ActiveX, Classes, Graphics, OleCtrls, StdVCL;
  14.  
  15. const
  16.   LIBID_AdoProj: TGUID = '{D048AEC0-0C10-11D2-A5E7-0040053BA735}';
  17.  
  18. const
  19.  
  20. { Component class GUIDs }
  21.   Class_DelphiADO: TGUID = '{D048AEC2-0C10-11D2-A5E7-0040053BA735}';
  22.  
  23. type
  24.  
  25. { Forward declarations: Interfaces }
  26.   IDelphiADO = interface;
  27.   IDelphiADODisp = dispinterface;
  28.  
  29. { Forward declarations: CoClasses }
  30.   DelphiADO = IDelphiADO;
  31.  
  32. { Dispatch interface for DelphiADO Object }
  33.  
  34.   IDelphiADO = interface(IDispatch)
  35.     ['{D048AEC1-0C10-11D2-A5E7-0040053BA735}']
  36.     function Get_CustomerCount: Integer; safecall;
  37.     function Get_Version: WideString; safecall;
  38.     property CustomerCount: Integer read Get_CustomerCount;
  39.     property Version: WideString read Get_Version;
  40.   end;
  41.  
  42. { DispInterface declaration for Dual Interface IDelphiADO }
  43.  
  44.   IDelphiADODisp = dispinterface
  45.     ['{D048AEC1-0C10-11D2-A5E7-0040053BA735}']
  46.     property CustomerCount: Integer readonly dispid 1;
  47.     property Version: WideString readonly dispid 2;
  48.   end;
  49.  
  50. { DelphiADOObject }
  51.  
  52.   CoDelphiADO = class
  53.     class function Create: IDelphiADO;
  54.     class function CreateRemote(const MachineName: string): IDelphiADO;
  55.   end;
  56.  
  57.  
  58.  
  59. implementation
  60.  
  61. uses ComObj;
  62.  
  63. class function CoDelphiADO.Create: IDelphiADO;
  64. begin
  65.   Result := CreateComObject(Class_DelphiADO) as IDelphiADO;
  66. end;
  67.  
  68. class function CoDelphiADO.CreateRemote(const MachineName: string): IDelphiADO;
  69. begin
  70.   Result := CreateRemoteComObject(MachineName, Class_DelphiADO) as IDelphiADO;
  71. end;
  72.  
  73.  
  74. end.
  75.