home *** CD-ROM | disk | FTP | other *** search
/ QBasic & Borland Pascal & C / Delphi5.iso / Runimage / Delphi50 / Source / Vcl / SMINTF.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1999-08-11  |  902 b   |  31 lines
  1.  
  2. {*******************************************************}
  3. {                                                       }
  4. {       Borland Delphi Visual Component Library         }
  5. {       SQL Monitor Client Library Interface, V1.0      }
  6. {                                                       }
  7. {       Copyright (c) 1997,99 Inprise Corporation       }
  8. {                                                       }
  9. {*******************************************************}
  10.  
  11. unit SMIntf;
  12.  
  13. interface
  14.  
  15. const
  16.  
  17.   Class_SMClient: TGUID = '{CB9879E2-4395-11D0-9FFC-00A0248E4B9A}';
  18.  
  19. type
  20.  
  21.   ISMClient = interface(IUnknown)
  22.     ['{CB9879E1-4395-11D0-9FFC-00A0248E4B9A}']
  23.     function RegisterClient(ID: Integer; Name: PChar;
  24.       Instance, SignalProc: Pointer): WordBool; stdcall;
  25.     function AddStatement(Statement: PChar; Len: Integer): WordBool; stdcall;
  26.   end;
  27.  
  28. implementation
  29.  
  30. end.
  31.