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

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

#ifndef IdftpservercontextbaseHPP
#define IdftpservercontextbaseHPP

#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 <Idcontext.hpp>	// Pascal unit
#include <Idtask.hpp>	// Pascal unit

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

namespace Idftpservercontextbase
{
//-- type declarations -------------------------------------------------------
#pragma option push -b-
enum TIdFTPUserType { utNone, utAnonymousUser, utNormalUser };
#pragma option pop

class DELPHICLASS TIdFTPServerContextBase;
class PASCALIMPLEMENTATION TIdFTPServerContextBase : public Idcontext::TIdContext 
{
	typedef Idcontext::TIdContext inherited;
	
protected:
	TIdFTPUserType FUserType;
	bool FAuthenticated;
	int FALLOSize;
	AnsiString FCurrentDir;
	AnsiString FHomeDir;
	AnsiString FUsername;
	AnsiString FPassword;
	int FRESTPos;
	AnsiString FRNFR;
	virtual void __fastcall ReInitialize(void);
	
public:
	__property bool Authenticated = {read=FAuthenticated, write=FAuthenticated, nodefault};
	__property int ALLOSize = {read=FALLOSize, write=FALLOSize, nodefault};
	__property AnsiString CurrentDir = {read=FCurrentDir, write=FCurrentDir};
	__property AnsiString HomeDir = {read=FHomeDir, write=FHomeDir};
	__property AnsiString Password = {read=FPassword, write=FPassword};
	__property AnsiString Username = {read=FUsername, write=FUsername};
	__property TIdFTPUserType UserType = {read=FUserType, write=FUserType, nodefault};
	__property int RESTPos = {read=FRESTPos, write=FRESTPos, nodefault};
	__property AnsiString RNFR = {read=FRNFR, write=FRNFR};
public:
	#pragma option push -w-inl
	/* TIdContext.Create */ inline __fastcall virtual TIdFTPServerContextBase(Idtcpconnection::TIdTCPConnection* AConnection, Idyarn::TIdYarn* AYarn, Classes::TThreadList* AList) : Idcontext::TIdContext(AConnection, AYarn, AList) { }
	#pragma option pop
	#pragma option push -w-inl
	/* TIdContext.Destroy */ inline __fastcall virtual ~TIdFTPServerContextBase(void) { }
	#pragma option pop
	
};


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

}	/* namespace Idftpservercontextbase */
using namespace Idftpservercontextbase;
#pragma pack(pop)
#pragma option pop

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