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

Correct SOAP Header namespace generation (THeaderBlockProxy case)

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@1254 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
inoussa
2010-07-16 11:21:18 +00:00
parent 4c78816d50
commit b25d0e271a
1 changed files with 4 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
wst/trunk/base_soap_formatter.pas
View File

@ -1733,7 +1733,10 @@ begin
for i := 0 to Pred(c) do begin for i := 0 to Pred(c) do begin
h := ACallContext.GetHeader(i); h := ACallContext.GetHeader(i);
if ( h.Direction = hdOut ) then begin 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); regItem := GetTypeRegistry().Find(ptyp,True);
//Put(GetTypeRegistry().ItemByTypeInfo[ptyp].DeclaredName,ptyp,h); //Put(GetTypeRegistry().ItemByTypeInfo[ptyp].DeclaredName,ptyp,h);
if ( regItem <> nil) then if ( regItem <> nil) then