vraudio.hpp

wimax bs simulator对应的GUI程序

// Borland C++ Builder
// Copyright (c) 1995, 1999 by Borland International
// All rights reserved

// (DO NOT EDIT: machine generated header) 'VrAudio.pas' rev: 5.00

#ifndef VrAudioHPP
#define VrAudioHPP

#pragma delphiheader begin
#pragma option push -w-
#pragma option push -Vx
#include <VrControls.hpp>	// Pascal unit
#include <Dialogs.hpp>	// Pascal unit
#include <Forms.hpp>	// Pascal unit
#include <Controls.hpp>	// Pascal unit
#include <Graphics.hpp>	// Pascal unit
#include <Classes.hpp>	// Pascal unit
#include <SysUtils.hpp>	// Pascal unit
#include <Messages.hpp>	// Pascal unit
#include <Windows.hpp>	// Pascal unit
#include <SysInit.hpp>	// Pascal unit
#include <System.hpp>	// Pascal unit

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

namespace Vraudio
{
//-- type declarations -------------------------------------------------------
class DELPHICLASS TVrAudioData;
class PASCALIMPLEMENTATION TVrAudioData : public Classes::TPersistent 
{
	typedef Classes::TPersistent inherited;
	
private:
	int FSize;
	void *FData;
	void __fastcall SetSize(int Value);
	virtual void __fastcall WriteStream(Classes::TStream* Stream, bool WriteSize);
	virtual void __fastcall LoadStream(Classes::TStream* Stream, bool ReadSize);
	
protected:
	virtual void __fastcall DefineProperties(Classes::TFiler* Filer);
	
public:
	__fastcall virtual ~TVrAudioData(void);
	virtual void __fastcall Assign(Classes::TPersistent* Source);
	bool __fastcall Empty(void);
	virtual void __fastcall Clear(void);
	virtual void __fastcall LoadFromStream(Classes::TStream* Stream);
	virtual void __fastcall SaveToStream(Classes::TStream* Stream);
	virtual void __fastcall LoadFromFile(const AnsiString FileName);
	virtual void __fastcall SaveToFile(const AnsiString FileName);
	__property int Size = {read=FSize, write=SetSize, nodefault};
	__property void * Data = {read=FData};
public:
	#pragma option push -w-inl
	/* TObject.Create */ inline __fastcall TVrAudioData(void) : Classes::TPersistent() { }
	#pragma option pop
	
};


#pragma option push -b-
enum TVrWaveOption { vwoAsync, vwoNoDefault, vwoLoop, vwoNoStop, vwoNoWait };
#pragma option pop

typedef Set<TVrWaveOption, vwoAsync, vwoNoWait>  TVrWaveOptions;

class DELPHICLASS TVrWave;
class PASCALIMPLEMENTATION TVrWave : public Vrcontrols::TVrComponent 
{
	typedef Vrcontrols::TVrComponent inherited;
	
private:
	TVrAudioData* FSound;
	int FFlags;
	TVrWaveOptions FOptions;
	void __fastcall SetSound(TVrAudioData* Value);
	void __fastcall SetOptions(TVrWaveOptions Value);
	
protected:
	void __fastcall UpdatePlayOptions(void);
	
public:
	__fastcall virtual TVrWave(Classes::TComponent* AOwner);
	__fastcall virtual ~TVrWave(void);
	void __fastcall Play(void);
	void __fastcall Stop(void);
	
__published:
	__property TVrAudioData* Sound = {read=FSound, write=SetSound};
	__property TVrWaveOptions Options = {read=FOptions, write=SetOptions, default=3};
};


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

}	/* namespace Vraudio */
#if !defined(NO_IMPLICIT_NAMESPACE_USE)
using namespace Vraudio;
#endif
#pragma option pop	// -w-
#pragma option pop	// -Vx

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