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

Object Pascal "record" serialization ( first commit! )

Browse Source 
TTest_TIntfPoolItem
TTest_TSimpleItemFactory
TTest_XmlRpcFormatterExceptionBlock
TTest_SoapFormatterExceptionBlock
Record serialization test

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@243 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
inoussa
2007-08-19 00:29:43 +00:00
parent bbee29cb90
commit 11a897fc26
60 changed files with 4375 additions and 893 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
wst/trunk/wst_delphi_xml.pas
View File

@ -24,7 +24,7 @@ type
function CreateDoc() : TXMLDocument ;
procedure WriteXMLFile(ADoc : TXMLDocument; AStream : TStream);
procedure ReadXMLFile(ADoc : TXMLDocument; AStream : TStream);
procedure ReadXMLFile(out ADoc : TXMLDocument; AStream : TStream);
function NodeToBuffer(ANode : TDOMNode):string ;
function FilterList(const ALIst : IDOMNodeList; const ANodeName : widestring):IDOMNodeList ;
@ -55,8 +55,9 @@ begin
(ADoc as IDOMPersist).saveToStream(AStream);
end;
procedure ReadXMLFile(ADoc : TXMLDocument; AStream : TStream);
procedure ReadXMLFile(out ADoc : TXMLDocument; AStream : TStream);
begin
ADoc := CreateDoc();
(ADoc as IDOMPersist).loadFromStream(AStream);
end;