home *** CD-ROM | disk | FTP | other *** search
/ io Programmo 81 / IOPROG_81.ISO / soft / Codice / SymmeticEncryption.ZIP / TSpuntoHardwarePortIO_unit.hpp < prev    next >
Encoding:
C/C++ Source or Header  |  2003-03-12  |  2.0 KB  |  63 lines
  1. // Borland C++ Builder
  2. // Copyright (c) 1995, 1999 by Borland International
  3. // All rights reserved
  4.  
  5. // (DO NOT EDIT: machine generated header) 'TSpuntoHardwarePortIO_unit.pas' rev: 4.00
  6.  
  7. #ifndef TSpuntoHardwarePortIO_unitHPP
  8. #define TSpuntoHardwarePortIO_unitHPP
  9.  
  10. #pragma delphiheader begin
  11. #pragma option push -w-
  12. #include <SpuntoLedComponent.hpp>    // Pascal unit
  13. #include <ExtCtrls.hpp>    // Pascal unit
  14. #include <Controls.hpp>    // Pascal unit
  15. #include <Classes.hpp>    // Pascal unit
  16. #include <SysUtils.hpp>    // Pascal unit
  17. #include <Messages.hpp>    // Pascal unit
  18. #include <Windows.hpp>    // Pascal unit
  19. #include <SysInit.hpp>    // Pascal unit
  20. #include <System.hpp>    // Pascal unit
  21.  
  22. //-- user supplied -----------------------------------------------------------
  23.  
  24. namespace Tspuntohardwareportio_unit
  25. {
  26. //-- type declarations -------------------------------------------------------
  27. class DELPHICLASS TSpuntoHardwarePortIO;
  28. #pragma pack(push, 4)
  29. class PASCALIMPLEMENTATION TSpuntoHardwarePortIO : public Spuntoledcomponent::TSpuntoLed 
  30. {
  31.     typedef Spuntoledcomponent::TSpuntoLed inherited;
  32.     
  33. public:
  34.     void __fastcall WritePort(Word PortAddress, Word PortData);
  35.     Word __fastcall ReadPort(Word PortAddress);
  36. public:
  37.     #pragma option push -w-inl
  38.     /* TSpuntoLed.Create */ inline __fastcall virtual TSpuntoHardwarePortIO(Classes::TComponent* AOwner
  39.         ) : Spuntoledcomponent::TSpuntoLed(AOwner) { }
  40.     #pragma option pop
  41.     
  42. public:
  43.     #pragma option push -w-inl
  44.     /* TShape.Destroy */ inline __fastcall virtual ~TSpuntoHardwarePortIO(void) { }
  45.     #pragma option pop
  46.     
  47. };
  48.  
  49. #pragma pack(pop)
  50.  
  51. //-- var, const, procedure ---------------------------------------------------
  52. extern PACKAGE void __fastcall Register(void);
  53.  
  54. }    /* namespace Tspuntohardwareportio_unit */
  55. #if !defined(NO_IMPLICIT_NAMESPACE_USE)
  56. using namespace Tspuntohardwareportio_unit;
  57. #endif
  58. #pragma option pop    // -w-
  59.  
  60. #pragma delphiheader end.
  61. //-- end unit ----------------------------------------------------------------
  62. #endif    // TSpuntoHardwarePortIO_unit
  63.