kattunga / nativexml Goto Github PK

Add support to Delphi 10.1 Berlin

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: '������ ���.'

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 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

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