Correct SOAP Header namespace generation (THeaderBlockProxy case) 2

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@1255 8e941d3f-bd1b-0410-a28a-d453659cc2b4

wst/trunk/base_soap_formatter.pas

@@ -1740,7 +1740,7 @@ begin
           regItem := GetTypeRegistry().Find(ptyp,True);
           //Put(GetTypeRegistry().ItemByTypeInfo[ptyp].DeclaredName,ptyp,h);
           if ( regItem <> nil) then
-            Put(regItem.NameSpace,h.Name,ptyp,h)
+            Put(regItem.NameSpace,h.Name,PTypeInfo(h.ClassInfo),h)
           else
             Put(h.Name,ptyp,h);
         end;