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

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

#ifndef InidentHPP
#define InidentHPP

#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 <Classes.hpp>	// Pascal unit
#include <Inassignednumbers.hpp>	// Pascal unit
#include <Inexception.hpp>	// Pascal unit
#include <Intcpclient.hpp>	// Pascal unit
#include <Intcpconnection.hpp>	// Pascal unit
#include <Incomponent.hpp>	// Pascal unit
#include <Inbasecomponent.hpp>	// Pascal unit

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

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


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


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


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


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


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


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


class DELPHICLASS TInIdent;
class PASCALIMPLEMENTATION TInIdent : public Intcpclient::TInTCPClientCustom 
{
	typedef Intcpclient::TInTCPClientCustom inherited;
	
protected:
	int FQueryTimeOut;
	AnsiString FReplyString;
	AnsiString __fastcall GetReplyCharset();
	AnsiString __fastcall GetReplyOS();
	AnsiString __fastcall GetReplyOther();
	AnsiString __fastcall GetReplyUserName();
	AnsiString __fastcall FetchUserReply();
	AnsiString __fastcall FetchOS();
	void __fastcall ParseError(void);
	virtual void __fastcall InitComponent(void);
	
public:
	void __fastcall Query(Word APortOnServer, Word APortOnClient);
	__property AnsiString Reply = {read=FReplyString};
	__property AnsiString ReplyCharset = {read=GetReplyCharset};
	__property AnsiString ReplyOS = {read=GetReplyOS};
	__property AnsiString ReplyOther = {read=GetReplyOther};
	__property AnsiString ReplyUserName = {read=GetReplyUserName};
	
__published:
	__property int QueryTimeOut = {read=FQueryTimeOut, write=FQueryTimeOut, default=60000};
	__property Port  = {default=113};
	__property Host ;
public:
	#pragma option push -w-inl
	/* TInTCPConnection.Destroy */ inline __fastcall virtual ~TInIdent(void) { }
	#pragma option pop
	
public:
	#pragma option push -w-inl
	/* TInBaseComponent.Create */ inline __fastcall TInIdent(Classes::TComponent* AOwner)/* overload */ : Intcpclient::TInTCPClientCustom(AOwner) { }
	#pragma option pop
	
};


//-- var, const, procedure ---------------------------------------------------
static const Word InIdentQryTimeout = 0xea60;

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

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