paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-15 04:49:31 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Allow to set the write buffer size (enlarged to 4k)

Browse Source 
git-svn-id: trunk@23468 -
This commit is contained in:
michael 2013-01-21 10:52:38 +00:00
parent 5d74e0578a
commit 58a6886ed3
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
packages/fcl-xml/src/htmwrite.pp
View File

@ -72,7 +72,7 @@ type
procedure VisitDocumentType(Node: TDOMNode); procedure VisitDocumentType(Node: TDOMNode);
procedure VisitPI(Node: TDOMNode); procedure VisitPI(Node: TDOMNode);
public public
constructor Create(AStream: TStream); constructor Create(AStream: TStream; ACapacity : Cardinal = 4096);
destructor Destroy; override; destructor Destroy; override;
end; end;
@ -111,14 +111,14 @@ end;
THTMLWriter THTMLWriter
---------------------------------------------------------------------} ---------------------------------------------------------------------}
constructor THTMLWriter.Create(AStream: TStream); constructor THTMLWriter.Create(AStream: TStream; ACapacity : Cardinal = 4096);
begin begin
inherited Create; inherited Create;
FStream := AStream; FStream := AStream;
// some overhead - always be able to write at least one extra UCS4 // some overhead - always be able to write at least one extra UCS4
FBuffer := AllocMem(512+32); FCapacity := ACapacity;
FBuffer := AllocMem(FCapacity+32);
FBufPos := FBuffer; FBufPos := FBuffer;
FCapacity := 512;
// Later on, this may be put under user control // Later on, this may be put under user control
// for now, take OS setting // for now, take OS setting
FLineBreak := sLineBreak; FLineBreak := sLineBreak;