You've already forked lazarus-ccr
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
This commit is contained in:
@ -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
|
||||||
|
Reference in New Issue
Block a user