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

(XSD's) ElementFormDefault and AttributeFormDefault, group and attributeGroup, parsing and runtime handling.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@4209 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
inoussa
2015-07-15 16:02:12 +00:00
parent e0b25c8f51
commit 20a4f70c7f
51 changed files with 3122 additions and 112 deletions
Download Patch File Download Diff File Expand all files Collapse all files

11
wst/trunk/soap_formatter.pas
View File

@ -71,12 +71,17 @@ procedure TSOAPFormatter.BeginCall(
ATarget : string;
ACallContext : ICallContext
);
var
locOldStyle : TSOAPDocumentStyle;
begin
Prepare();
WriteHeaders(ACallContext);
BeginScope('Body',sSOAP_ENV,'',stObject,asNone);
if ( Style = RPC ) then
BeginScope(AProcName,ATarget,'',stObject,asNone);
locOldStyle := Style;
Style := Document;
BeginScope('Body',sSOAP_ENV,'',stObject,asNone);
if (locOldStyle = RPC) then
BeginScope(AProcName,ATarget,'',stObject,asNone);
Style := locOldStyle;
FCallTarget := ATarget;
FCallProcedureName := AProcName;