From 55daa17ac377f3fc24a3155625b3dc0b50a66adf Mon Sep 17 00:00:00 2001
From: mattias <nc-gaertnma@netcologne.de>
Date: Tue, 25 Dec 2012 09:25:07 +0000
Subject: [PATCH] lazutils: laz_xmlstreaming: made GetPropertyElement
 protected, fixed reading vaBinary, bug #23534

git-svn-id: trunk@39651 -
---
 components/lazutils/laz_xmlstreaming.pas | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/components/lazutils/laz_xmlstreaming.pas b/components/lazutils/laz_xmlstreaming.pas
index 43c608a15e..c5a0af3a1e 100644
--- a/components/lazutils/laz_xmlstreaming.pas
+++ b/components/lazutils/laz_xmlstreaming.pas
@@ -51,6 +51,7 @@ type
     procedure StackPush(const Element: string = '';
                         ElementType: TXMLObjectWriterStackElType = elUnknown);
     procedure StackPop;
+  protected
     function GetPropertyElement(const TypeName: String): TDOMElement;
   public
     constructor Create(ADoc: TDOMDocument; const APath: string; Append: Boolean);
@@ -750,6 +751,8 @@ begin
         {$ENDIF}
         else if FElement.NodeName='collectionproperty' then
           Result:=vaCollection
+        else if FElement.NodeName='binary' then
+          Result:=vaBinary
         else
           RaiseUnknownNode(FElement);
         if not Stay then begin