pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

Use "LocalName" and "NamespaceURI" to handle in-line name-space

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@2488 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
inoussa
2012-08-13 20:40:08 +00:00
parent 86ba7febad
commit 0cb1b33ac4
7 changed files with 79 additions and 16 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
wst/trunk/wst_delphi_xml.pas
View File

@ -26,10 +26,12 @@ type
function CreateDoc() : TXMLDocument ;
procedure WriteXML(Element: TDOMNode; const AFileName: String);overload;{$IFDEF USE_INLINE}inline;{$ENDIF}
procedure WriteXML(Element: TDOMNode; AStream: TStream); overload;{$IFDEF USE_INLINE}inline;{$ENDIF}
function ReadXMLFile(AStream : TStream) : TXMLDocument;overload;
procedure WriteXMLFile(doc: TXMLDocument; const AFileName: String); overload;
procedure WriteXMLFile(ADoc : TXMLDocument; AStream : TStream);overload;{$IFDEF USE_INLINE}inline;{$ENDIF}
procedure ReadXMLFile(out ADoc : TXMLDocument; AStream : TStream);overload;{$IFDEF USE_INLINE}inline;{$ENDIF}
procedure ReadXMLFile(out ADoc: TXMLDocument; const AFilename: String);overload;
function ReadXMLFile(const AFilename: String) : TXMLDocument;overload;
function NodeToBuffer(ANode : TDOMNode):string ;
function FilterList(const ALIst : IDOMNodeList; const ANodeName : DOMString):IDOMNodeList;overload;{$IFDEF USE_INLINE}inline;{$ENDIF}
@ -97,6 +99,11 @@ begin
(ADoc as IDOMPersist).loadFromStream(AStream);
end;
function ReadXMLFile(AStream : TStream) : TXMLDocument;
begin
ReadXMLFile(Result,AStream);
end;
procedure ReadXMLFile(out ADoc: TXMLDocument; const AFilename: String);
var
FileStream: TStream;
@ -110,6 +117,11 @@ begin
end;
end;
function ReadXMLFile(const AFilename: String) : TXMLDocument;
begin
ReadXMLFile(Result, AFilename);
end;
function GetNodeItemsCount(const ANode : TDOMNode): Integer;
begin
if ANode.HasChildNodes then begin