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

SOAP : the "Body" element must be namespace qualified.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@4247 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
inoussa
2015-08-04 13:14:54 +00:00
parent 4bea59601f
commit 9af4fbd355
1 changed files with 6 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
wst/trunk/server_service_soap.pas
View File

@ -76,13 +76,18 @@ end;
{ TSOAPFormatter } { TSOAPFormatter }
procedure TSOAPFormatter.BeginCallResponse(Const AProcName,ATarget:string); procedure TSOAPFormatter.BeginCallResponse(Const AProcName,ATarget:string);
var
locOldStyle : TSOAPDocumentStyle;
begin begin
if ( FCallContext = nil ) then if ( FCallContext = nil ) then
FCallContext := TSimpleCallContext.Create(); FCallContext := TSimpleCallContext.Create();
Clear(); Clear();
Prepare(); Prepare();
WriteHeaders(FCallContext); WriteHeaders(FCallContext);
locOldStyle := Style;
Style := Document;
BeginScope('Body',sSOAP_ENV,'',stObject,asNone); BeginScope('Body',sSOAP_ENV,'',stObject,asNone);
Style := locOldStyle;
BeginScope(AProcName + 'Response',ATarget,'',stObject,asNone); BeginScope(AProcName + 'Response',ATarget,'',stObject,asNone);
end; end;