gsm.hpp

boomerang library 5.11 internet ed

	__property bool RP = {read=GetPDUTypeBit, write=SetPDUTypeBit, index=7, nodefault};
	__property bool UDHI = {read=GetPDUTypeBit, write=SetPDUTypeBit, index=6, nodefault};
	__property UD ;
	__property WideUD ;
public:
	#pragma option push -w-inl
	/* TObject.Destroy */ inline __fastcall virtual ~TSMSSubmit(void) { }
	#pragma option pop
	
};


typedef TSMSSubmit TMOSMS;
;

typedef TSMSDeliver TMTSMS;
;

class DELPHICLASS TSMSStatusReport;
class PASCALIMPLEMENTATION TSMSStatusReport : public TSMS2 
{
	typedef TSMS2 inherited;
	
private:
	Byte FMR;
	AnsiString FOA;
	System::TDateTime FSCTS;
	Shortint FSCTSTZ;
	System::TDateTime FDT;
	Shortint FDTTZ;
	Byte FStatus;
	
protected:
	virtual AnsiString __fastcall EncodePDU();
	virtual void __fastcall DecodePDU(const AnsiString Value);
	
public:
	__fastcall virtual TSMSStatusReport(void);
	__property bool SRQ = {read=GetPDUTypeBit, write=SetPDUTypeBit, index=5, nodefault};
	__property bool MMS = {read=GetPDUTypeBit, write=SetPDUTypeBit, index=2, nodefault};
	__property Byte MR = {read=FMR, write=FMR, nodefault};
	__property AnsiString OA = {read=FOA, write=FOA};
	__property System::TDateTime SCTS = {read=FSCTS, write=FSCTS};
	__property Shortint SCTSTZ = {read=FSCTSTZ, write=FSCTSTZ, nodefault};
	__property System::TDateTime DT = {read=FDT, write=FDT};
	__property Shortint DTSTZ = {read=FDTTZ, write=FDTTZ, nodefault};
	__property Byte Status = {read=FStatus, write=FStatus, nodefault};
public:
	#pragma option push -w-inl
	/* TObject.Destroy */ inline __fastcall virtual ~TSMSStatusReport(void) { }
	#pragma option pop
	
};


class DELPHICLASS TSMSCommand;
class PASCALIMPLEMENTATION TSMSCommand : public TSMS2 
{
	typedef TSMS2 inherited;
	
private:
	Byte FMR;
	Byte FPID;
	Byte FCT;
	Byte FMN;
	AnsiString FDA;
	
protected:
	virtual AnsiString __fastcall EncodePDU();
	virtual void __fastcall DecodePDU(const AnsiString Value);
	
public:
	__fastcall virtual TSMSCommand(void);
	__property bool SRR = {read=GetPDUTypeBit, write=SetPDUTypeBit, index=5, nodefault};
	__property Byte MR = {read=FMR, write=FMR, nodefault};
	__property Byte PID = {read=FPID, write=FPID, nodefault};
	__property Byte CT = {read=FCT, write=FCT, nodefault};
	__property Byte MN = {read=FMN, write=FMN, nodefault};
	__property AnsiString DA = {read=FDA, write=FDA};
	__property UD ;
	__property WideUD ;
public:
	#pragma option push -w-inl
	/* TObject.Destroy */ inline __fastcall virtual ~TSMSCommand(void) { }
	#pragma option pop
	
};


class DELPHICLASS TSMSDeliverReport;
class PASCALIMPLEMENTATION TSMSDeliverReport : public TSMS2 
{
	typedef TSMS2 inherited;
	
private:
	Byte FPresent;
	Byte FPID;
	bool __fastcall GetPresentBit(int Index);
	void __fastcall SetPresentBit(int Index, bool Value);
	
protected:
	virtual AnsiString __fastcall EncodePDU();
	virtual void __fastcall DecodePDU(const AnsiString Value);
	
public:
	__fastcall virtual TSMSDeliverReport(void);
	__property bool PIDPresent = {read=GetPresentBit, write=SetPresentBit, index=0, nodefault};
	__property bool DCSPresent = {read=GetPresentBit, write=SetPresentBit, index=1, nodefault};
	__property bool UDPresent = {read=GetPresentBit, write=SetPresentBit, index=1, nodefault};
	__property Byte PID = {read=FPID, write=FPID, nodefault};
	__property Byte DCS = {read=FDCS, write=FDCS, nodefault};
	__property UD ;
	__property WideUD ;
public:
	#pragma option push -w-inl
	/* TObject.Destroy */ inline __fastcall virtual ~TSMSDeliverReport(void) { }
	#pragma option pop
	
};


class DELPHICLASS TSMSSubmitReport;
class PASCALIMPLEMENTATION TSMSSubmitReport : public TSMSDeliverReport 
{
	typedef TSMSDeliverReport inherited;
	
private:
	System::TDateTime FSCTS;
	Shortint FSCTSTZ;
	
protected:
	virtual AnsiString __fastcall EncodePDU();
	virtual void __fastcall DecodePDU(const AnsiString Value);
	
public:
	__fastcall virtual TSMSSubmitReport(void);
	__property System::TDateTime SCTS = {read=FSCTS, write=FSCTS};
	__property Shortint SCTSTZ = {read=FSCTSTZ, write=FSCTSTZ, nodefault};
public:
	#pragma option push -w-inl
	/* TObject.Destroy */ inline __fastcall virtual ~TSMSSubmitReport(void) { }
	#pragma option pop
	
};


class DELPHICLASS TCellBroadcast;
class PASCALIMPLEMENTATION TCellBroadcast : public TSMS 
{
	typedef TSMS inherited;
	
private:
	Byte FMessageCode1;
	Byte FMessageCode2;
	Word FMessageId;
	Byte FDCS;
	Byte FPageNumber;
	AnsiString FUD;
	Byte __fastcall GetGeographicalScope(void);
	Word __fastcall GetMessageCode(void);
	void __fastcall SetGeographicalScope(const Byte Value);
	void __fastcall SetMessageCode(const Word Value);
	Byte __fastcall GetUpdateNumber(void);
	void __fastcall SetUpdateNumber(const Byte Value);
	Byte __fastcall GetPageNumber(const int Index);
	void __fastcall SetPageNumber(const int Index, const Byte Value);
	WideString __fastcall GetWideUD();
	void __fastcall SetWideUD(const WideString Value);
	
protected:
	virtual AnsiString __fastcall EncodePDU();
	virtual void __fastcall DecodePDU(const AnsiString Value);
	
public:
	__property Word MessageCode = {read=GetMessageCode, write=SetMessageCode, nodefault};
	__property Byte GeographicalScope = {read=GetGeographicalScope, write=SetGeographicalScope, nodefault};
	__property Byte UpdateNumber = {read=GetUpdateNumber, write=SetUpdateNumber, nodefault};
	__property Word MessageId = {read=FMessageId, write=FMessageId, nodefault};
	__property Byte DCS = {read=FDCS, write=FDCS, nodefault};
	__property Byte TotalPageNumber = {read=GetPageNumber, write=SetPageNumber, index=0, nodefault};
	__property Byte CurrentPageNumber = {read=GetPageNumber, write=SetPageNumber, index=4, nodefault};
	__property AnsiString UD = {read=FUD, write=FUD};
	__property WideString WideUD = {read=GetWideUD, write=SetWideUD};
public:
	#pragma option push -w-inl
	/* TObject.Create */ inline __fastcall TCellBroadcast(void) : TSMS() { }
	#pragma option pop
	#pragma option push -w-inl
	/* TObject.Destroy */ inline __fastcall virtual ~TCellBroadcast(void) { }
	#pragma option pop
	
};


typedef Set<TGSMEquipment, eqA1, eqZText>  TGSMEquipmentSet;

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


typedef AnsiString GSM__31[5];

typedef AnsiString GSM__41[14];

typedef AnsiString GSM__51[14];

//-- var, const, procedure ---------------------------------------------------
static const Shortint pdutsRP = 0x7;
static const Shortint pdutsUDHI = 0x6;
static const Shortint pdutsSRI = 0x5;
static const Shortint pdutsMMS = 0x2;
static const Shortint pdutsMTI = 0x0;
static const Shortint pdutsSRR = 0x5;
static const Shortint pdutsSRQ = 0x5;
static const Shortint pdutsVPF = 0x3;
static const Shortint pdutsRD = 0x2;
static const Byte pdutRP = 0x80;
static const Shortint pdutUDHI = 0x40;
static const Shortint pdutSRI = 0x20;
static const Shortint pdutMMS = 0x4;
static const Shortint pdutMTI = 0x3;
static const Shortint pdutSRR = 0x20;
static const Shortint pdutVPF = 0x18;
static const Shortint pdutRD = 0x4;
static const Shortint rppsPID = 0x0;
static const Shortint rppsDCS = 0x1;
static const Shortint rppsUD = 0x1;
static const Shortint rppPID = 0x1;
static const Shortint rppDCS = 0x2;
static const Shortint rppUD = 0x2;
static const Shortint vpfNone = 0x0;
static const Shortint vpfRelative = 0x2;
static const Shortint vpfAbsolute = 0x3;
static const Shortint atrCode = 0x1;
static const Shortint atrParams = 0x2;
static const Shortint atrBothNecessary = 0x4;
static const Shortint atrPDU = 0x8;
static const Shortint atrATResponse = 0x10;
static const Shortint atrCRLF = 0x20;
static const Shortint atrErrorCode = 0x40;
static const Shortint smsfPDU = 0x0;
static const Shortint smsfText = 0x1;
static const Shortint mtiSMSDeliverReport = 0x0;
static const Shortint mtiSMSSubmit = 0x1;
static const Shortint mtiSMSCommand = 0x2;
static const Shortint mtiSMSDeliver = 0x0;
static const Shortint mtiSMSSubmitReport = 0x1;
static const Shortint mtiSMSStatusReport = 0x2;
static const Shortint dcsCompressed = 0x20;
static const Byte dcsmCodingGroup = 0xf0;
static const Shortint dcssAlphabet = 0x2;
static const Shortint dcsmAplhabet = 0xc;
static const Shortint dcsAlphabetDefault = 0x0;
static const Shortint dcsAlphabet8 = 0x4;
static const Shortint dcsAlphabet16 = 0x8;
static const Shortint dcsAlphabetReserved = 0xc;
static const Shortint dcssMessageWaitingIndication = 0x6;
static const Byte dcsmMessageWaitingIndication = 0xc0;
static const Shortint dscVoiceMailMessageWaiting = 0x0;
static const Shortint dcsFaxMessageWaiting = 0x1;
static const Shortint dcsEmailMessageWaiting = 0x2;
static const Shortint dcsOtherMessageWaiting = 0x3;
static const Shortint cbgssGeographicalScope = 0x6;
static const Shortint cbgsmMessageCode = 0x3f;
static const Shortint cbgsCellWide = 0x0;
static const Shortint cbgsPLMNWide = 0x1;
static const Shortint cbgsLocationAreaWide = 0x2;
static const Shortint cbgsCellWide2 = 0x3;
static const Shortint cbdcslGerman = 0x0;
static const Shortint cbdcslEnglish = 0x1;
static const Shortint cbdcslItalian = 0x2;
static const Shortint cbdcslFrench = 0x3;
static const Shortint cbdcslSpanish = 0x4;
static const Shortint cbdcslDutch = 0x5;
static const Shortint cbdcslSwedish = 0x6;
static const Shortint cbdcslDanish = 0x7;
static const Shortint cbdcslPortuguese = 0x8;
static const Shortint cbdcslFinnish = 0x9;
static const Shortint cbdcslNorwegian = 0xa;
static const Shortint cbdcslGreek = 0xb;
static const Shortint cbdcslTurkish = 0xc;
extern PACKAGE AnsiString StatS[5];
extern PACKAGE AnsiString GSMEquipmentShortName[14];
extern PACKAGE AnsiString GSMEquipmentLongName[14];
extern PACKAGE AnsiString __fastcall ISOtoSMS(AnsiString ISOstring);
extern PACKAGE AnsiString __fastcall SMStoISO(AnsiString SMSstring);
extern PACKAGE void __fastcall GSMError(const AnsiString Msg);
extern PACKAGE void __fastcall Register(void);
extern PACKAGE Byte __fastcall DTToValPer(System::TDateTime DT);
extern PACKAGE System::TDateTime __fastcall ValPerToDT(Byte VP);
extern PACKAGE AnsiString __fastcall StripATResponse(const AnsiString S);
extern PACKAGE bool __fastcall IsATResponse(const AnsiString S);
extern PACKAGE AnsiString __fastcall ExtractParam(const AnsiString S, int &Pos);
extern PACKAGE TByteSet __fastcall ExtractParamSet(const AnsiString S, int &Pos);
extern PACKAGE AnsiString __fastcall TrimQuotes(const AnsiString S);
extern PACKAGE TGSMEquipment __fastcall Str2GMSEquipment(const AnsiString S);

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

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