tvichw32.hpp

《Delphi5企业级解决方案及应用剖析》参考程序 DELPHI 资料集

//----------------------------------------------------------------------------
// TVICHW32.hpp - bcbdcc32 generated hdr (DO NOT EDIT) rev: 0
// From: TVICHW32.pas
//----------------------------------------------------------------------------
#ifndef TVICHW32HPP
#define TVICHW32HPP
//----------------------------------------------------------------------------
#include <Controls.hpp>
#include <OleCtrls.hpp>
#include <Graphics.hpp>
#include <Classes.hpp>
#include <OleCtl.hpp>
#include <OLE2.hpp>
#include <System.hpp>
namespace Tvichw32
{
//-- type declarations -------------------------------------------------------
typedef void __fastcall (__closure *TTVicHW32OnHwInterrupt)(System::TObject* Sender, int HwCounter, 
	short LPT_DataReg, short LPT_StatusReg, short ScanCode);

class __declspec(delphiclass) TTVicHW32;
class __declspec(pascalimplementation) TTVicHW32 : public Olectrls::TOleControl
{
	typedef Olectrls::TOleControl inherited;
	
private:
	TTVicHW32OnHwInterrupt FOnHwInterrupt;
	short __stdcall Get_Port(short PortAddr);
	void __stdcall Set_Port(short PortAddr, short Value);
	short __stdcall Get_PortW(short PortAddr);
	void __stdcall Set_PortW(short PortAddr, short Value);
	int __stdcall Get_PortL(short PortAddr);
	void __stdcall Set_PortL(short PortAddr, int Value);
	Word __stdcall Get_Pin(short nPin);
	void __stdcall Set_Pin(short nPin, Word Value);
	short __stdcall Get_Mem(int MappedAddr, int Offset);
	void __stdcall Set_Mem(int MappedAddr, int Offset, short Value);
	short __stdcall Get_MemW(int MappedAddr, int Offset);
	void __stdcall Set_MemW(int MappedAddr, int Offset, short Value);
	int __stdcall Get_MemL(int MappedAddr, int Offset);
	void __stdcall Set_MemL(int MappedAddr, int Offset, int Value);
	
protected:
	virtual void __fastcall InitControlData(void);
	
public:
	void __stdcall CloseDriver(void);
	Word __stdcall OpenDriver(void);
	int __stdcall MapPhysToLinear(int PhAddr, int PhSize);
	void __stdcall UnmapMemory(int PhAddr, int PhSize);
	void __stdcall LPTStrobe(void);
	void __stdcall LPTAutofd(Word Flag);
	void __stdcall LPTInit(void);
	void __stdcall LPTSlctIn(void);
	Word __stdcall LPTPrintChar(short ch);
	int __stdcall DebugCode(void);
	__property short Port[short PortAddr] = {read=Get_Port, write=Set_Port};
	__property short PortW[short PortAddr] = {read=Get_PortW, write=Set_PortW};
	__property int PortL[short PortAddr] = {read=Get_PortL, write=Set_PortL};
	__property Word Pin[short nPin] = {read=Get_Pin, write=Set_Pin};
	__property short Mem[int MappedAddr][int Offset] = {read=Get_Mem, write=Set_Mem};
	__property short MemW[int MappedAddr][int Offset] = {read=Get_MemW, write=Set_MemW};
	__property int MemL[int MappedAddr][int Offset] = {read=Get_MemL, write=Set_MemL};
	
__published:
	__property Word HardAccess = {read=GetOleBoolProp, write=SetOleBoolProp, stored=false, index=1, nodefault
		};
	__property short LPTNumber = {read=GetSmallintProp, write=SetSmallintProp, stored=false, index=2, nodefault
		};
	__property Word IRQMasked = {read=GetOleBoolProp, write=SetOleBoolProp, stored=false, index=3, nodefault
		};
	__property short IRQNumber = {read=GetSmallintProp, write=SetSmallintProp, stored=false, index=4, nodefault
		};
	__property short LPTNumPorts = {read=GetSmallintProp, write=SetSmallintProp, stored=false, index=5, 
		nodefault};
	__property short LPTBasePort = {read=GetSmallintProp, write=SetSmallintProp, stored=false, index=6, 
		nodefault};
	__property Word LPTAckwl = {read=GetOleBoolProp, write=SetOleBoolProp, stored=false, index=7, nodefault
		};
	__property Word LPTBusy = {read=GetOleBoolProp, write=SetOleBoolProp, stored=false, index=8, nodefault
		};
	__property Word LPTPaperEnd = {read=GetOleBoolProp, write=SetOleBoolProp, stored=false, index=9, nodefault
		};
	__property Word LPTSlct = {read=GetOleBoolProp, write=SetOleBoolProp, stored=false, index=10, nodefault
		};
	__property Word LPTError = {read=GetOleBoolProp, write=SetOleBoolProp, stored=false, index=11, nodefault
		};
	__property Word ActiveHW = {read=GetOleBoolProp, write=SetOleBoolProp, stored=false, index=12, nodefault
		};
	__property short MappedAreas = {read=GetSmallintProp, write=SetSmallintProp, stored=false, index=13
		, nodefault};
	__property TTVicHW32OnHwInterrupt OnHwInterrupt = {read=FOnHwInterrupt, write=FOnHwInterrupt};
public:
		
	/* TOleControl.Create */ __fastcall virtual TTVicHW32(Classes::TComponent* AOwner) : Olectrls::TOleControl(
		AOwner) { }
	/* TOleControl.Destroy */ __fastcall virtual ~TTVicHW32(void) { }
	
public:
	/* TWinControl.CreateParented */ __fastcall TTVicHW32(HWND ParentWindow) : Olectrls::TOleControl(ParentWindow
		) { }
	
};

//-- var, const, procedure ---------------------------------------------------
extern void __fastcall Register(void);

}	/* namespace Tvichw32 */
#if !defined(NO_IMPLICIT_NAMESPACE_USE)
using namespace Tvichw32;
#endif
//-- end unit ----------------------------------------------------------------
#endif	// TVICHW32