kattunga / nativexml Goto Github PK

I change NativeXmlWin32Compat.pas,
CodecUtilsWin32, EncodingUtils--->>Xml.Internal.CodecUtilsWin32, Xml.Internal.EncodingUtils
and sdStreams will be Error of "[DCC Error] sdStreams.pas(269): E2037 Declaration of 'Read' differs from previous declaration".
I change Integer to longint, Compile is success, but I don't know if that would be a problem, is there anyone help me?

NativeXml_New.zip

Hi, there is a problem within the function tsdBufferWriter.write:

A tByteArray is used for the WriteChunk call but the tByteArray has a limit of 32k. In my case, I have disabled the ChunkWrites:

function TsdBufferWriter.Write(const Buffer; Count: Integer): Longint;
var
Idx, Siz: integer;
begin
// index in the source buffer
Idx := 0;
// remaining size
Siz := Count;

fSource.WriteBuffer(Buffer, Count); // write everything at once

{ // code starting from here makes problems with big content!
// surplus
while FRawPosition + Siz >= FChunkSize do
begin
Move(TByteArray(Buffer)[Idx], FRawBuffer[FRawPosition], FChunkSize - FRawPosition);
WriteChunk(FChunkSize);
dec(Siz, FChunkSize - FRawPosition);
inc(Idx, FChunkSize - FRawPosition);
FRawPosition := 0;
end;

// copy the raw buffer
Move(TByteArray(Buffer)[Idx], FRawBuffer[FRawPosition], Siz);
}

inc(FRawPosition, Siz);

Result := Count;
end;

I'm reading value of node. The value is in russian. The codepage of XML file is 1251, ANSI encoding. The output looks like this: '������ ���.'

for fix PreserveWhiteSpace on load from file you must change check before call sdRigthTrim()

Add support to Delphi 10.1 Berlin