absdecutil.hpp

Absolute Database 5.12 src. Absolute Database lets you forget the Borland Database Engine (BDE). Th

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

// (DO NOT EDIT: machine generated header) 'Absdecutil.pas' rev: 10.00

#ifndef AbsdecutilHPP
#define AbsdecutilHPP

#pragma delphiheader begin
#pragma option push
#pragma option -w-      // All warnings off
#pragma option -Vx      // Zero-length empty class member functions
#pragma pack(push,8)
#include <System.hpp>	// Pascal unit
#include <Sysinit.hpp>	// Pascal unit
#include <Sysutils.hpp>	// Pascal unit
#include <Classes.hpp>	// Pascal unit

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

namespace Absdecutil
{
//-- type declarations -------------------------------------------------------
typedef Byte *PByte;

typedef unsigned *PInteger;

typedef Word *PWord;

typedef unsigned TIntArray[1024];

typedef unsigned *PIntArray;

class DELPHICLASS EProtection;
class PASCALIMPLEMENTATION EProtection : public Sysutils::Exception 
{
	typedef Sysutils::Exception inherited;
	
public:
	#pragma option push -w-inl
	/* Exception.Create */ inline __fastcall EProtection(const AnsiString Msg) : Sysutils::Exception(Msg) { }
	#pragma option pop
	#pragma option push -w-inl
	/* Exception.CreateFmt */ inline __fastcall EProtection(const AnsiString Msg, System::TVarRec const * Args, const int Args_Size) : Sysutils::Exception(Msg, Args, Args_Size) { }
	#pragma option pop
	#pragma option push -w-inl
	/* Exception.CreateRes */ inline __fastcall EProtection(int Ident)/* overload */ : Sysutils::Exception(Ident) { }
	#pragma option pop
	#pragma option push -w-inl
	/* Exception.CreateResFmt */ inline __fastcall EProtection(int Ident, System::TVarRec const * Args, const int Args_Size)/* overload */ : Sysutils::Exception(Ident, Args, Args_Size) { }
	#pragma option pop
	#pragma option push -w-inl
	/* Exception.CreateHelp */ inline __fastcall EProtection(const AnsiString Msg, int AHelpContext) : Sysutils::Exception(Msg, AHelpContext) { }
	#pragma option pop
	#pragma option push -w-inl
	/* Exception.CreateFmtHelp */ inline __fastcall EProtection(const AnsiString Msg, System::TVarRec const * Args, const int Args_Size, int AHelpContext) : Sysutils::Exception(Msg, Args, Args_Size, AHelpContext) { }
	#pragma option pop
	#pragma option push -w-inl
	/* Exception.CreateResHelp */ inline __fastcall EProtection(int Ident, int AHelpContext)/* overload */ : Sysutils::Exception(Ident, AHelpContext) { }
	#pragma option pop
	#pragma option push -w-inl
	/* Exception.CreateResFmtHelp */ inline __fastcall EProtection(System::PResStringRec ResStringRec, System::TVarRec const * Args, const int Args_Size, int AHelpContext)/* overload */ : Sysutils::Exception(ResStringRec, Args, Args_Size, AHelpContext) { }
	#pragma option pop
	
public:
	#pragma option push -w-inl
	/* TObject.Destroy */ inline __fastcall virtual ~EProtection(void) { }
	#pragma option pop
	
};


class DELPHICLASS EStringFormat;
class PASCALIMPLEMENTATION EStringFormat : public Sysutils::Exception 
{
	typedef Sysutils::Exception inherited;
	
public:
	#pragma option push -w-inl
	/* Exception.Create */ inline __fastcall EStringFormat(const AnsiString Msg) : Sysutils::Exception(Msg) { }
	#pragma option pop
	#pragma option push -w-inl
	/* Exception.CreateFmt */ inline __fastcall EStringFormat(const AnsiString Msg, System::TVarRec const * Args, const int Args_Size) : Sysutils::Exception(Msg, Args, Args_Size) { }
	#pragma option pop
	#pragma option push -w-inl
	/* Exception.CreateRes */ inline __fastcall EStringFormat(int Ident)/* overload */ : Sysutils::Exception(Ident) { }
	#pragma option pop
	#pragma option push -w-inl
	/* Exception.CreateResFmt */ inline __fastcall EStringFormat(int Ident, System::TVarRec const * Args, const int Args_Size)/* overload */ : Sysutils::Exception(Ident, Args, Args_Size) { }
	#pragma option pop
	#pragma option push -w-inl
	/* Exception.CreateHelp */ inline __fastcall EStringFormat(const AnsiString Msg, int AHelpContext) : Sysutils::Exception(Msg, AHelpContext) { }
	#pragma option pop
	#pragma option push -w-inl
	/* Exception.CreateFmtHelp */ inline __fastcall EStringFormat(const AnsiString Msg, System::TVarRec const * Args, const int Args_Size, int AHelpContext) : Sysutils::Exception(Msg, Args, Args_Size, AHelpContext) { }
	#pragma option pop
	#pragma option push -w-inl
	/* Exception.CreateResHelp */ inline __fastcall EStringFormat(int Ident, int AHelpContext)/* overload */ : Sysutils::Exception(Ident, AHelpContext) { }
	#pragma option pop
	#pragma option push -w-inl
	/* Exception.CreateResFmtHelp */ inline __fastcall EStringFormat(System::PResStringRec ResStringRec, System::TVarRec const * Args, const int Args_Size, int AHelpContext)/* overload */ : Sysutils::Exception(ResStringRec, Args, Args_Size, AHelpContext) { }
	#pragma option pop
	
public:
	#pragma option push -w-inl
	/* TObject.Destroy */ inline __fastcall virtual ~EStringFormat(void) { }
	#pragma option pop
	
};


#pragma option push -b-
enum TPAction { paEncode, paDecode, paScramble, paCalc, paWipe };
#pragma option pop

typedef Set<TPAction, paEncode, paWipe>  TPActions;

class DELPHICLASS TProtection;
class PASCALIMPLEMENTATION TProtection : public System::TInterfacedObject 
{
	typedef System::TInterfacedObject inherited;
	
private:
	TProtection* FProtection;
	TPActions FActions;
	TProtection* __fastcall GetProtection(void);
	void __fastcall SetProtection(TProtection* Value);
	
protected:
	virtual void __fastcall CodeInit(TPAction Action);
	virtual void __fastcall CodeDone(TPAction Action);
	virtual void __fastcall CodeBuf(void *Buffer, const int BufferSize, TPAction Action);
	
public:
	__fastcall TProtection(TProtection* AProtection);
	__fastcall virtual ~TProtection(void);
	/*         class method */ static Word __fastcall Identity(TMetaClass* vmt);
	int __fastcall Release(void);
	int __fastcall AddRef(void);
	virtual void __fastcall CodeStream(Classes::TStream* Source, Classes::TStream* Dest, int DataSize, TPAction Action);
	virtual void __fastcall CodeFile(const AnsiString Source, const AnsiString Dest, TPAction Action);
	virtual AnsiString __fastcall CodeString(const AnsiString Source, TPAction Action, int Format);
	virtual int __fastcall CodeBuffer(void *Buffer, int BufferSize, TPAction Action);
	__property TProtection* Protection = {read=GetProtection, write=SetProtection};
	__property TPActions Actions = {read=FActions, write=FActions, default=31};
};


typedef TMetaClass* TStringFormatClass;

class DELPHICLASS TStringFormat;
class PASCALIMPLEMENTATION TStringFormat : public System::TObject 
{
	typedef System::TObject inherited;
	
public:
	#pragma option push -w-inl
	/* virtual class method */ virtual AnsiString __fastcall ToStr(char * Value, int Len) { return ToStr(__classid(TStringFormat), Value, Len); }
	#pragma option pop
	/*         class method */ static AnsiString __fastcall ToStr(TMetaClass* vmt, char * Value, int Len);
	#pragma option push -w-inl
	/* virtual class method */ virtual AnsiString __fastcall StrTo(char * Value, int Len) { return StrTo(__classid(TStringFormat), Value, Len); }
	#pragma option pop
	/*         class method */ static AnsiString __fastcall StrTo(TMetaClass* vmt, char * Value, int Len);
	#pragma option push -w-inl
	/* virtual class method */ virtual AnsiString __fastcall Name() { return Name(__classid(TStringFormat)); }
	#pragma option pop
	/*         class method */ static AnsiString __fastcall Name(TMetaClass* vmt);
	#pragma option push -w-inl
	/* virtual class method */ virtual int __fastcall Format() { return Format(__classid(TStringFormat)); }
	#pragma option pop
	/*         class method */ static int __fastcall Format(TMetaClass* vmt);
	#pragma option push -w-inl
	/* virtual class method */ virtual bool __fastcall IsValid(char * Value, int Len, bool ToStr) { return IsValid(__classid(TStringFormat), Value, Len, ToStr); }
	#pragma option pop
	/*         class method */ static bool __fastcall IsValid(TMetaClass* vmt, char * Value, int Len, bool ToStr);
public:
	#pragma option push -w-inl
	/* TObject.Create */ inline __fastcall TStringFormat(void) : System::TObject() { }
	#pragma option pop
	#pragma option push -w-inl
	/* TObject.Destroy */ inline __fastcall virtual ~TStringFormat(void) { }
	#pragma option pop
	
};


class DELPHICLASS TStringFormat_HEX;
class PASCALIMPLEMENTATION TStringFormat_HEX : public TStringFormat 
{
	typedef TStringFormat inherited;
	
public:
	#pragma option push -w-inl
	/* virtual class method */ virtual AnsiString __fastcall ToStr(char * Value, int Len) { return ToStr(__classid(TStringFormat_HEX), Value, Len); }
	#pragma option pop
	/*         class method */ static AnsiString __fastcall ToStr(TMetaClass* vmt, char * Value, int Len);
	#pragma option push -w-inl
	/* virtual class method */ virtual AnsiString __fastcall StrTo(char * Value, int Len) { return StrTo(__classid(TStringFormat_HEX), Value, Len); }
	#pragma option pop
	/*         class method */ static AnsiString __fastcall StrTo(TMetaClass* vmt, char * Value, int Len);
	#pragma option push -w-inl
	/* virtual class method */ virtual AnsiString __fastcall Name() { return Name(__classid(TStringFormat_HEX)); }
	#pragma option pop
	/*         class method */ static AnsiString __fastcall Name(TMetaClass* vmt);
	#pragma option push -w-inl
	/* virtual class method */ virtual int __fastcall Format() { return Format(__classid(TStringFormat_HEX)); }
	#pragma option pop
	/*         class method */ static int __fastcall Format(TMetaClass* vmt);
	#pragma option push -w-inl
	/* virtual class method */ virtual bool __fastcall IsValid(char * Value, int Len, bool ToStr) { return IsValid(__classid(TStringFormat_HEX), Value, Len, ToStr); }
	#pragma option pop
	/*         class method */ static bool __fastcall IsValid(TMetaClass* vmt, char * Value, int Len, bool ToStr);