home *** CD-ROM | disk | FTP | other *** search
- //PROFILE-NO
- {$A+,H-,O-}
- UNIT DebugInterface;
-
- INTERFACE
-
- CONST
- db_dll = 'DebugDel.DLL';
-
- TYPE
- TMinorChannels = Array[1..9] OF Text;
-
- PROCEDURE OpenDebugChannels( VAR SC : Text; VAR MC : TMinorChannels); EXTERNAL db_dll;
- PROCEDURE CloseDebugChannels(VAR SC : Text; VAR MC : TMinorChannels); EXTERNAL db_dll;
- PROCEDURE OpenAuxDebugOutput( VAR AuxOutput : Text; ChannelNo : Integer); EXTERNAL db_dll;
- PROCEDURE CloseAuxDebugOutput(VAR AuxOutput : Text ); EXTERNAL db_dll;
-
- VAR
- DBChannel : TMinorChannels;
-
- IMPLEMENTATION
-
- INITIALIZATION
- OpenDebugChannels(Output, DBChannel);
- FINALIZATION
- CloseDebugChannels(Output, DBChannel);
- END.
-