home *** CD-ROM | disk | FTP | other *** search
/ Chip 2002 November / Chip_2002-11_cd1.bin / zkuste / delphi / nastroje / DEBUGDEL.ZIP / DebugInterface.pas < prev    next >
Pascal/Delphi Source File  |  2002-04-07  |  735b  |  30 lines
  1. //PROFILE-NO
  2. {$A-,W-}
  3. UNIT DebugInterface;
  4.  
  5. INTERFACE
  6.  
  7. CONST
  8.   db_dll = 'DebugDel.DLL';
  9.   
  10. TYPE
  11.   TMinorChannels = Array[1..9] OF Text;
  12.  
  13. PROCEDURE OpenDebugChannels( VAR SC : Text; VAR MC : TMinorChannels); EXTERNAL db_dll;
  14. PROCEDURE CloseDebugChannels(VAR SC : Text; VAR MC : TMinorChannels); EXTERNAL db_dll;
  15. PROCEDURE OpenAuxDebugOutput( VAR AuxOutput : Text; ChannelNo : Integer); EXTERNAL db_dll;
  16. PROCEDURE CloseAuxDebugOutput(VAR AuxOutput : Text ); EXTERNAL db_dll;
  17. PROCEDURE DBDelphiVersion14; EXTERNAL db_dll;
  18.  
  19. VAR
  20.   DBChannel : TMinorChannels;
  21.  
  22. IMPLEMENTATION
  23.  
  24. INITIALIZATION
  25.   DBDelphiVersion14;
  26.   OpenDebugChannels(Output, DBChannel);
  27. FINALIZATION
  28.   CloseDebugChannels(Output, DBChannel);
  29. END.
  30.