home *** CD-ROM | disk | FTP | other *** search
/ Chip 2002 June / Chip_2002-06_cd1.bin / zkuste / delphi / nastroje / d123456 / DEBUGDEL.ZIP / DebugInterface.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  2001-09-10  |  669 b   |  28 lines
  1. //PROFILE-NO
  2. {$A+,H-,O-}
  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.  
  18. VAR
  19.   DBChannel : TMinorChannels;
  20.  
  21. IMPLEMENTATION
  22.  
  23. INITIALIZATION
  24.   OpenDebugChannels(Output, DBChannel);
  25. FINALIZATION
  26.   CloseDebugChannels(Output, DBChannel);
  27. END.
  28.