From b25d0e271a79718bcd85495f6f26ca592a27c149 Mon Sep 17 00:00:00 2001
From: inoussa <inoussa@8e941d3f-bd1b-0410-a28a-d453659cc2b4>
Date: Fri, 16 Jul 2010 11:21:18 +0000
Subject: [PATCH] Correct SOAP Header namespace generation (THeaderBlockProxy
 case)

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@1254 8e941d3f-bd1b-0410-a28a-d453659cc2b4
---
 wst/trunk/base_soap_formatter.pas | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/wst/trunk/base_soap_formatter.pas b/wst/trunk/base_soap_formatter.pas
index 3bdc09f0e..42149c6c6 100644
--- a/wst/trunk/base_soap_formatter.pas
+++ b/wst/trunk/base_soap_formatter.pas
@@ -1733,7 +1733,10 @@ begin
       for i := 0 to Pred(c) do begin
         h := ACallContext.GetHeader(i);
         if ( h.Direction = hdOut ) then begin
-          ptyp := PTypeInfo(h.ClassInfo);
+          if h.InheritsFrom(THeaderBlockProxy) then
+            ptyp := PTypeInfo(THeaderBlockProxy(h).ActualObject.ClassInfo)
+          else  
+            ptyp := PTypeInfo(h.ClassInfo);
           regItem := GetTypeRegistry().Find(ptyp,True);
           //Put(GetTypeRegistry().ItemByTypeInfo[ptyp].DeclaredName,ptyp,h);
           if ( regItem <> nil) then