unit uiCCdriverSupportEnvironment;
interface
uses
Classes,
SysUtils,
Dialogs,
Controls,
ConTools,
afnBase,
ActiveX,
uiBaseFormComboSelect,
buCCBaseApplicationIntf,
buCCbaseScriptHostIntf,
buCCmsgIntf,
Variants,
Contnrs,
msxml;
{$METHODINFO ON}
type
TListContainer = class;
TXMLBufferEncoding = ( beUnknown, beUTF8, beISO88591 );
TXMLBufferCreateNode = ( cnFirst, cnAppend );
TXmlBuffer = class
private
FPI : String;
FGarbageContainer : TObjectList;
FXMLDOMDocument: IXMLDOMDocument;
function GetXMLStr: String;
procedure SetXMLStr(const Value: String);
function GetValue( Node : IXMLDOMNode ) : String;
procedure SetValue( Node : IXMLDOMElement; Value : String );
function IsAttribute( Value : String ) : boolean;
public
constructor Create( AEncoding : TXMLBufferEncoding = beUTF8 );
destructor Destroy(); override;
function GetXPath(
Query: String): String;
function GetXpathList(
Query : String ) : TListContainer;
function XPathExist(
Query: String): boolean;
function NodeCount(
Query: String): integer;
function SetXpath(
Query: String; Value : String ) : boolean;
function GetElement(
Query : String ) : IXMLDOMNode;
function DeleteElement(
Query : String ) : boolean;
function InternalCreateNode(
Query : String; CreateNode : TXMLBufferCreateNode ) : IXMLDOMElement;
function CreateNode(
Query : String; ACreateNodeInt : integer ) : IXMLDOMElement;
function Encoding: TXMLBufferEncoding;
procedure Save( Filename : String );
procedure Load( Filename : String );
function AppendNode() : integer;
function CreateFirst() : integer;
property
XML: String read GetXMLStr write SetXMLStr;
end;