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

Correct SOAP Header namespace generation

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@1253 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
inoussa
2010-07-15 17:04:25 +00:00
parent c75480148f
commit 4c78816d50
1 changed files with 6 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
wst/trunk/base_soap_formatter.pas
View File

@ -1723,6 +1723,7 @@ var
ptyp : PTypeInfo; ptyp : PTypeInfo;
h : THeaderBlock; h : THeaderBlock;
i, c : Integer; i, c : Integer;
regItem : TTypeRegistryItem;
begin begin
Result := ACallContext.GetHeaderCount([hdOut]); Result := ACallContext.GetHeaderCount([hdOut]);
if ( Result > 0 ) then begin if ( Result > 0 ) then begin
@ -1733,8 +1734,12 @@ 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); ptyp := PTypeInfo(h.ClassInfo);
regItem := GetTypeRegistry().Find(ptyp,True);
//Put(GetTypeRegistry().ItemByTypeInfo[ptyp].DeclaredName,ptyp,h); //Put(GetTypeRegistry().ItemByTypeInfo[ptyp].DeclaredName,ptyp,h);
Put(h.Name,ptyp,h); if ( regItem <> nil) then
Put(regItem.NameSpace,h.Name,ptyp,h)
else
Put(h.Name,ptyp,h);
end; end;
end; end;
finally finally