paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-12 10:26:06 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Use exposed TDOMWriter to create reduced XML (non-humanreadable)

Browse Source 
git-svn-id: trunk@41664 -
This commit is contained in:
michael 2019-03-09 20:01:27 +00:00
parent 4dd27d4d03
commit 492c0d58d8
3 changed files with 44 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
packages/fcl-web/src/restbridge/sqldbrestado.pp
View File

@ -195,7 +195,21 @@ end;
procedure TADOOutputStreamer.FinalizeOutput; procedure TADOOutputStreamer.FinalizeOutput;
begin begin
xmlwrite.WriteXML(FXML,Stream); {$IFNDEF VER3_0}
if Not (ooHumanReadable in OutputOptions) then
begin
With TDOMWriter.Create(Stream,FXML) do
try
LineBreak:='';
IndentSize:=0;
WriteNode(FXML);
finally
Free;
end;
end
else
{$ENDIF}
xmlwrite.WriteXML(FXML,Stream);
FreeAndNil(FXML); FreeAndNil(FXML);
end; end;

14
packages/fcl-web/src/restbridge/sqldbrestcds.pp
View File

@ -241,6 +241,20 @@ end;
procedure TCDSOutputStreamer.FinalizeOutput; procedure TCDSOutputStreamer.FinalizeOutput;
begin begin
{$IFNDEF VER3_0}
if Not (ooHumanReadable in OutputOptions) then
begin
With TDOMWriter.Create(Stream,FXML) do
try
LineBreak:='';
IndentSize:=0;
WriteNode(FXML);
finally
Free;
end;
end
else
{$ENDIF}
xmlwrite.WriteXML(FXML,Stream); xmlwrite.WriteXML(FXML,Stream);
FreeAndNil(FXML); FreeAndNil(FXML);
end; end;

16
packages/fcl-web/src/restbridge/sqldbrestxml.pp
View File

@ -198,7 +198,21 @@ end;
procedure TXMLOutputStreamer.FinalizeOutput; procedure TXMLOutputStreamer.FinalizeOutput;
begin begin
xmlwrite.WriteXML(FXML,Stream); {$IFNDEF VER3_0}
if Not (ooHumanReadable in OutputOptions) then
begin
With TDOMWriter.Create(Stream,FXML) do
try
LineBreak:='';
IndentSize:=0;
WriteNode(FXML);
finally
Free;
end;
end
else
{$ENDIF}
xmlwrite.WriteXML(FXML,Stream);
FreeAndNil(FXML); FreeAndNil(FXML);
end; end;