wavctrl.hpp

漏洞扫描系列中HB Network Scanner 测试用练习代码

// Borland C++ Builder
// Copyright (c) 1995, 2002 by Borland Software Corporation
// All rights reserved

// (DO NOT EDIT: machine generated header) 'wavctrl.pas' rev: 6.00

#ifndef wavctrlHPP
#define wavctrlHPP

#pragma delphiheader begin
#pragma option push -w-
#pragma option push -Vx
#include <Windows.hpp>	// Pascal unit
#include <SysUtils.hpp>	// Pascal unit
#include <Classes.hpp>	// Pascal unit
#include <SysInit.hpp>	// Pascal unit
#include <System.hpp>	// Pascal unit

//-- user supplied -----------------------------------------------------------

namespace Wavctrl
{
//-- type declarations -------------------------------------------------------
class DELPHICLASS TepWave;
class PASCALIMPLEMENTATION TepWave : public Classes::TPersistent 
{
	typedef Classes::TPersistent inherited;
	
private:
	bool FModified;
	Classes::TMemoryStream* FWaveData;
	Classes::TNotifyEvent FOnChange;
	bool __fastcall GetEmpty(void);
	void __fastcall SetModified(bool Value);
	
protected:
	virtual void __fastcall ReadData(Classes::TStream* Stream);
	virtual void __fastcall WriteData(Classes::TStream* Stream);
	void __fastcall Changed(System::TObject* Sender);
	virtual void __fastcall DefineProperties(Classes::TFiler* Filer);
	
public:
	__fastcall virtual TepWave(void);
	__fastcall virtual ~TepWave(void);
	virtual void __fastcall Assign(Classes::TPersistent* Source);
	virtual void __fastcall LoadFromFile(const AnsiString Filename);
	virtual void __fastcall SaveToFile(const AnsiString Filename);
	void __fastcall LoadFromStream(Classes::TStream* Stream);
	void __fastcall SaveToStream(Classes::TStream* Stream);
	__property bool Empty = {read=GetEmpty, nodefault};
	__property Classes::TMemoryStream* WaveData = {read=FWaveData};
	__property bool Modified = {read=FModified, write=SetModified, nodefault};
	__property Classes::TNotifyEvent OnChange = {read=FOnChange, write=FOnChange};
};


#pragma option push -b-
enum TepWavePlayOpt { wpoSync, wpoAsync, wpoNoDefault, wpoLoop, wpoNoStop };
#pragma option pop

typedef Set<TepWavePlayOpt, wpoSync, wpoNoStop>  TOptionsSet;

class DELPHICLASS TepWavePlayer;
class PASCALIMPLEMENTATION TepWavePlayer : public Classes::TComponent 
{
	typedef Classes::TComponent inherited;
	
private:
	bool FEnabled;
	TOptionsSet FOptions;
	Word FFlags;
	TepWave* FWave;
	Classes::TNotifyEvent FBeforePlay;
	Classes::TNotifyEvent FAfterPlay;
	void __fastcall SetOptions(TOptionsSet NewValue);
	void __fastcall SeTepWave(TepWave* AWave);
	void __fastcall SetBeforePlay(Classes::TNotifyEvent Value);
	void __fastcall SetAfterPlay(Classes::TNotifyEvent Value);
	
public:
	__fastcall virtual TepWavePlayer(Classes::TComponent* AOwner);
	__fastcall virtual ~TepWavePlayer(void);
	void __fastcall Play(void);
	void __fastcall Abort(void);
	__property Word Flags = {read=FFlags, write=FFlags, nodefault};
	
__published:
	__property bool Enabled = {read=FEnabled, write=FEnabled, nodefault};
	__property TOptionsSet Options = {read=FOptions, write=SetOptions, default=1};
	__property TepWave* Wave = {read=FWave, write=SeTepWave};
	__property Classes::TNotifyEvent BeforePlay = {read=FBeforePlay, write=SetBeforePlay};
	__property Classes::TNotifyEvent AfterPlay = {read=FAfterPlay, write=SetAfterPlay};
};


//-- var, const, procedure ---------------------------------------------------

}	/* namespace Wavctrl */
using namespace Wavctrl;
#pragma option pop	// -w-
#pragma option pop	// -Vx

#pragma delphiheader end.
//-- end unit ----------------------------------------------------------------
#endif	// wavctrl