wap.hpp

boomerang library 5.11 internet ed

class PASCALIMPLEMENTATION TXMLAttrib : public TXMLValue 
{
	typedef TXMLValue inherited;
	
private:
	AnsiString fName;
	int fOptions;
	TXMLElement* fOwner;
	virtual WideString __fastcall GetAsString();
	
public:
	__property AnsiString Name = {read=fName, write=fName};
	__property int Options = {read=fOptions, write=fOptions, nodefault};
	__property TXMLElement* Owner = {read=fOwner, write=fOwner};
public:
	#pragma option push -w-inl
	/* TObjectList.Create */ inline __fastcall TXMLAttrib(void)/* overload */ : TXMLValue() { }
	#pragma option pop
	
public:
	#pragma option push -w-inl
	/* TList.Destroy */ inline __fastcall virtual ~TXMLAttrib(void) { }
	#pragma option pop
	
};


class DELPHICLASS TXMLPI;
class PASCALIMPLEMENTATION TXMLPI : public TXMLAttrib 
{
	typedef TXMLAttrib inherited;
	
public:
	#pragma option push -w-inl
	/* TObjectList.Create */ inline __fastcall TXMLPI(void)/* overload */ : TXMLAttrib() { }
	#pragma option pop
	
public:
	#pragma option push -w-inl
	/* TList.Destroy */ inline __fastcall virtual ~TXMLPI(void) { }
	#pragma option pop
	
};


class DELPHICLASS TWapDocument;
class PASCALIMPLEMENTATION TWapDocument : public System::TObject 
{
	typedef System::TObject inherited;
	
private:
	Byte fVersion;
	AnsiString fPublicId;
	TStringTable* fStringTable;
	unsigned fCharSet;
	TXMLElement* fBody;
	Byte fTagCodeSpace;
	Byte fAttribCodeSpace;
	void __fastcall SetWBXMLData(const AnsiString Value);
	AnsiString __fastcall GetWBXMLData();
	AnsiString __fastcall GetXMLData();
	void __fastcall ReadWBXMLElement(Classes::TStream* St, TXMLElement* aParent, TWBXMLTagSpaceEnumeration const * aTagSpace, TWBXMLAttribSpaceEnumeration const * aAttribSpace, TWBXMLValueSpaceEnumeration const * aValueSpace);
	void __fastcall ReadWBXMLAttrib(Classes::TStream* St, TXMLAttrib* aAttr, TWBXMLAttribSpaceEnumeration const * aAttribSpace, TWBXMLValueSpaceEnumeration const * aValueSpace);
	bool __fastcall ReadWBXMLSwitchPage(Classes::TStream* St, Byte &aCodeSpace);
	bool __fastcall ReadWBXMLPI(Classes::TStream* St, TXMLElement* aParent, TWBXMLAttribSpaceEnumeration const * aAttribSpace, TWBXMLValueSpaceEnumeration const * aValueSpace);
	WideString __fastcall ReadWBXMLStringTableIndex(Classes::TStream* St);
	bool __fastcall ReadWBXMLContent(Classes::TStream* St, TXMLValue* aCont);
	void __fastcall WriteWBXMLElement(Classes::TStream* St, TXMLElement* aElem, TWBXMLTagSpaceEnumeration const * aTagSpace, TWBXMLAttribSpaceEnumeration const * aAttribSpace, TWBXMLValueSpaceEnumeration const * aValueSpace);
	void __fastcall WriteWBXMLAttrib(Classes::TStream* St, TXMLAttrib* aAttr, TWBXMLAttribSpaceEnumeration const * aAttribSpace, TWBXMLValueSpaceEnumeration const * aValueSpace);
	void __fastcall WriteWBXMLSwitchPage(Classes::TStream* St, Byte aCodeSpace, Byte &aCurCodeSpace);
	void __fastcall WriteWBXMLStringTableIndex(Classes::TStream* St, const WideString S);
	void __fastcall WriteWBXMLText(Classes::TStream* St, const WideString S);
	void __fastcall FindValueSpaces(TStringTable* St, const WideString S, TWBXMLValueSpaceEnumeration const * aValueSpace);
	void __fastcall PrepareStringTable(TWBXMLTagSpaceEnumeration const * aTagSpace, TWBXMLAttribSpaceEnumeration const * aAttribSpace, TWBXMLValueSpaceEnumeration const * aValueSpace);
	WideString __fastcall MB2WideString(unsigned MB);
	WideString __fastcall ReadWBXMLString(Classes::TStream* St);
	void __fastcall WriteWBXMLString(Classes::TStream* St, const WideString S);
	
public:
	__fastcall virtual TWapDocument(void);
	__fastcall virtual ~TWapDocument(void);
	void __fastcall Clear(void);
	__property Byte Version = {read=fVersion, write=fVersion, nodefault};
	__property AnsiString PublicId = {read=fPublicId, write=fPublicId};
	__property unsigned CharSet = {read=fCharSet, write=fCharSet, nodefault};
	__property TXMLElement* Body = {read=fBody};
	__property AnsiString WBXMLData = {read=GetWBXMLData, write=SetWBXMLData};
	__property AnsiString XMLData = {read=GetXMLData};
	void __fastcall ReadWBXMLFromStream(Classes::TStream* St);
	void __fastcall WriteWBXMLToStream(Classes::TStream* St);
	void __fastcall WriteXMLToStream(Classes::TStream* St);
	/*         class method */ static bool __fastcall TestByte(TMetaClass* vmt, Classes::TStream* St, Byte B);
	/*         class method */ static Byte __fastcall ReadByte(TMetaClass* vmt, Classes::TStream* S);
	/*         class method */ static unsigned __fastcall ReadMultiByte(TMetaClass* vmt, Classes::TStream* S);
	/*         class method */ static void __fastcall WriteByte(TMetaClass* vmt, Classes::TStream* S, Byte B);
	/*         class method */ static void __fastcall WriteMultiByte(TMetaClass* vmt, Classes::TStream* S, unsigned B);
	/*         class method */ static bool __fastcall Id2Str(TMetaClass* vmt, unsigned aId, TWAPEnumeration const * aTbl, const int aTbl_Size, AnsiString &aStr);
	/*         class method */ static bool __fastcall Str2Id(TMetaClass* vmt, const AnsiString aStr, TWAPEnumeration const * aTbl, const int aTbl_Size, unsigned &aId);
	/*         class method */ static AnsiString __fastcall FormatDateTime(TMetaClass* vmt, System::TDateTime aDT);
};


typedef TMetaClass* TWapServiceClass;

class DELPHICLASS TWapService;
class PASCALIMPLEMENTATION TWapService : public System::TObject 
{
	typedef System::TObject inherited;
	
protected:
	virtual void __fastcall ReadFromWapDocument(TWapDocument* aDoc) = 0 ;
	virtual void __fastcall WriteToWapDocument(TWapDocument* aDoc) = 0 ;
	
public:
	__fastcall virtual TWapService(void);
	/*         class method */ static TWapService* __fastcall CreateFrom(TMetaClass* vmt, TWapDocument* aDoc)/* overload */;
	void __fastcall AssignToWapDocument(TWapDocument* aDoc);
public:
	#pragma option push -w-inl
	/* TObject.Destroy */ inline __fastcall virtual ~TWapService(void) { }
	#pragma option pop
	
};


class DELPHICLASS TWapCacheOperation;
class PASCALIMPLEMENTATION TWapCacheOperation : public TWapService 
{
	typedef TWapService inherited;
	
private:
	Classes::TStrings* fObjectURLs;
	Classes::TStrings* fServiceURLs;
	
protected:
	virtual void __fastcall ReadFromWapDocument(TWapDocument* aDoc);
	virtual void __fastcall WriteToWapDocument(TWapDocument* aDoc);
	
public:
	__fastcall virtual TWapCacheOperation(void);
	__fastcall virtual ~TWapCacheOperation(void);
	__property Classes::TStrings* ServiceURLs = {read=fServiceURLs, write=fServiceURLs};
	__property Classes::TStrings* ObjectURLs = {read=fObjectURLs, write=fObjectURLs};
};


class DELPHICLASS TWapServiceIndication;
class PASCALIMPLEMENTATION TWapServiceIndication : public TWapService 
{
	typedef TWapService inherited;
	
private:
	WideString fCaption;
	AnsiString fHref;
	AnsiString fSIId;
	System::TDateTime fCreated;
	System::TDateTime fSIExpires;
	Byte fAction;
	
protected:
	virtual void __fastcall ReadFromWapDocument(TWapDocument* aDoc);
	virtual void __fastcall WriteToWapDocument(TWapDocument* aDoc);
	
public:
	__fastcall virtual TWapServiceIndication(void);
	__fastcall virtual ~TWapServiceIndication(void);
	__property WideString Caption = {read=fCaption, write=fCaption};
	__property AnsiString Href = {read=fHref, write=fHref};
	__property AnsiString SIId = {read=fSIId, write=fSIId};
	__property System::TDateTime Created = {read=fCreated, write=fCreated};
	__property System::TDateTime SIExpires = {read=fSIExpires, write=fSIExpires};
	__property Byte Action = {read=fAction, write=fAction, nodefault};
};


class DELPHICLASS TWapServiceLoad;
class PASCALIMPLEMENTATION TWapServiceLoad : public TWapService 
{
	typedef TWapService inherited;
	
private:
	AnsiString fHref;
	Byte fAction;
	
protected:
	virtual void __fastcall ReadFromWapDocument(TWapDocument* aDoc);
	virtual void __fastcall WriteToWapDocument(TWapDocument* aDoc);
	
public:
	__property AnsiString Href = {read=fHref, write=fHref};
	__property Byte Action = {read=fAction, write=fAction, nodefault};
public:
	#pragma option push -w-inl
	/* TWapService.Create */ inline __fastcall virtual TWapServiceLoad(void) : TWapService() { }
	#pragma option pop
	
public:
	#pragma option push -w-inl
	/* TObject.Destroy */ inline __fastcall virtual ~TWapServiceLoad(void) { }
	#pragma option pop
	
};


//-- var, const, procedure ---------------------------------------------------
static const Shortint TOKEN_SWITCH_PAGE = 0x0;
static const Shortint TOKEN_END = 0x1;
static const Shortint TOKEN_ENTITY = 0x2;
static const Shortint TOKEN_STR_I = 0x3;
static const Shortint TOKEN_LITERAL = 0x4;
static const Shortint TOKEN_EXT_I_0 = 0x40;
static const Shortint TOKEN_EXT_I_1 = 0x41;
static const Shortint TOKEN_EXT_I_2 = 0x42;
static const Shortint TOKEN_PI = 0x43;
static const Shortint TOKEN_LITERAL_C = 0x44;
static const Byte TOKEN_EXT_T_0 = 0x80;
static const Byte TOKEN_EXT_T_1 = 0x81;
static const Byte TOKEN_EXT_T_2 = 0x82;
static const Byte TOKEN_STR_T = 0x83;
static const Byte TOKEN_LITERAL_A = 0x84;
static const Byte TOKEN_EXT_0 = 0xc0;
static const Byte TOKEN_EXT_1 = 0xc1;
static const Byte TOKEN_EXT_2 = 0xc2;
static const Byte TOKEN_OPAQUE = 0xc3;
static const Byte TOKEN_LITERAL_AC = 0xc4;
extern PACKAGE TWAPEnumeration WSPContentTypes[93];
extern PACKAGE TWAPEnumeration WSPHeaderParameters[9];
extern PACKAGE TWAPEnumeration TWTPOptionTPINames[3];
extern PACKAGE TWAPEnumeration WBXMLPublicDocumentIds[32];
extern PACKAGE TWAPEnumeration WMLScriptLibraryIDs[8];
extern PACKAGE TWAPEnumeration OMNAPushApplicationIDs[29];
extern PACKAGE TWAPEnumeration OMNACharsets[2];
static const Shortint xmlaoDateTime = 0x1;
static const Shortint wapsiaSignalNone = 0x0;
static const Shortint wapsiaSignalLow = 0x1;
static const Shortint wapsiaSignalMedium = 0x2;
static const Shortint wapsiaSignalHigh = 0x3;
static const Shortint wapsiaDelete = 0x4;
static const Shortint wapslaExecuteLow = 0x0;
static const Shortint wapslaExecuteHigh = 0x1;
static const Shortint wapslaCache = 0x2;

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

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