[Pythianproject-cvsmail] CVS: PythianProject/Source/Units XDOM.dcr,NONE,1.1 XDOM.pas,1.1,1.2

[Kamil K. <kkr...@us...>]

Update of /cvsroot/pythianproject/PythianProject/Source/Units
In directory slayer.i.sourceforge.net:/tmp/cvs-serv11804

Modified Files:
	XDOM.pas 
Added Files:
	XDOM.dcr 
Log Message:
new xdom 2.2.12 - kk

--- NEW FILE ---

Index: XDOM.pas
===================================================================
RCS file: /cvsroot/pythianproject/PythianProject/Source/Units/XDOM.pas,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -r1.1 -r1.2
*** XDOM.pas	2000/08/31 17:29:42	1.1
--- XDOM.pas	2000/11/30 20:26:30	1.2
***************
*** 1,6 ****
  unit XDOM;
  
! // XDOM 2.2.5
! // Extended Document Object Model 2.2.5
  // Delphi 3 Implementation
  //
--- 1,6 ----
  unit XDOM;
  
! // XDOM 2.2.12
[...10854 lines suppressed...]
+     then  Str:= concat(wideString(#$feff),Str);
+   Ptr:= Pointer(Str);
+   Size:= length(Str)*2;
+   oldRefDoc:= FReferenceDocument;
+   MStream:= TXmlMemoryStream.create;
+   try
+     MStream.SetPointer(Ptr,Size);
      try
!       ErrorHandler.clearErrorList;
!       docStreamToDom(MStream,'','',FReferenceDocument);
      except
!       if FReferenceDocument <> oldRefDoc
!         then DOMImpl.FreeDocument(FReferenceDocument);
        raise;
      end;
+     Result:= FReferenceDocument;
    finally
+     FReferenceDocument:= oldRefDoc;
      MStream.free;
    end; {try}