[SOLVED] MemoryStream creates bad JSON file

[JD]

Hi there everyone,

I am using Visual Planit and its VpJSONDataStore to create a JSON agenda. VpJSONDataStore reads the JSON file from the disk but since my data comes from a remote server, I am compelled to save it to disk first before the VpJSONDataStore can read it.

Here is the code I use to create the data.json file:

Code: Pascal  [Select][+][-]

1. //
2. AStream     := TMemoryStream.Create;
3. //
4. try
5.   AStream.WriteAnsiString(Trim(AData)));
6.   AStream.Position := 0;
7.   AStream.SaveToFile('data.json');
8. finally
9.   AStream.Free;
10. end;
11.  

The problem is that the data.json file created has some extra characters at the beginning of the file (see RED ARROW in the screenshot). I am certain that the JSON is correct in the AData string variable.

Does anyone know how I can correct this problem?

Thanks,

JD

[fred]

WriteString first writes the string length "The ansistring is written as a 4 byte length specifier, followed by the ansistring's content."

https://www.freepascal.org/docs-html/rtl/classes/tstream.writeansistring.html

I suppose you need WriteBuffer(AData[1], Length(AData))

[JD]

WriteString first writes the string length "The ansistring is written as a 4 byte length specifier, followed by the ansistring's content."

https://www.freepascal.org/docs-html/rtl/classes/tstream.writeansistring.html

I suppose you need WriteBuffer(AData[1], Length(AData))

Perfect. Thanks a lot 

JD