String

[michoux]

Hello,

I am trying to parse a big JSON string.

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

1. data := TJSONArray(GetJSON(rawJson));

above gives me an error.
"string exceeds end of line 1"

I do not know what above error points to.

[Thaddy]

This error means usually that the underlying rawJson string is not properly closed.
In the case of the jsonparser it may be that the json is malformed, although I expect an exception in that case.
Another remote possibility is that the code is compiled with string = shortstring, so make sure the compiler is in {$H+} state.

[michoux]

Hi,

Json looks ok.
I have  {$mode objfpc}{$H+}

It is possible that string is just to big for parser?
inside Json I have a base64 decoded picture, which is really long one ...

If I remove some part of base64 string then it is good.

Regards Mitch

[loaded]

You can parse your json data at https://jsoneditoronline.org/
If there is no problem during this process, it will probably be fine on Lazarus as well.

[michoux]

It parses ok in web page.

LIke I said if I remove let say 1/3 of the image string inside the json data, then it works also in lazarus.
It really looks like the string is to big for the parser.

[loaded]

If I remember correctly, I parsed json strings of about ~50 - 80MB without any problems. I think it might be a character issue, not a dimensional one.

[Thaddy]

Without Json to test. It is a string close.

[michoux]

It is possible yes that there is some strange char inside the picture attribute, but it is really long one and hard to find it.
Any way to debug where all crashes?

[michoux]

I am attaching the json.

[paweld]

json is correct and fpjson don't show any errors

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

1. uses
2.   fpjson, LazUTF8;
3.  
4. procedure TForm1.FormCreate(Sender: TObject);
5. var
6.   jd: TJSONData;
7.   sl: TSTringList;
8.   i: Integer;
9.  
10.   procedure GetObject(jo: TJSONObject);
11.   var
12.     j: Integer;
13.     s: String;
14.   begin
15.     for j := 0 to jo.Count - 1 do
16.     begin
17.       if jo.Items[j].IsNull then
18.         s := 'NULL'
19.       else
20.       begin
21.         s := jo.Items[j].AsString;
22.         if UTF8Length(s) > 50 then
23.           s := UTF8Copy(s, 1, 50) + '  ...';
24.       end;
25.       Memo1.Lines.Add(Format('Name: %s Value: %s', [jo.Names[j], s]));
26.     end;
27.     Memo1.Lines.Add('---------');
28.   end;
29.  
30. begin
31.   sl := TStringList.Create;
32.   sl.LoadFromFile('test.txt');
33.   jd := GetJSON(sl.Text);
34.   if jd.JSONType = jtArray then
35.   begin
36.     for i := 0 to TJSONArray(jd).Count - 1 do
37.       GetObject(TJSONArray(jd).Objects[i]);
38.   end
39.   else
40.     GetObject(TJSONObject(jd));
41.   jd.Free;
42.   sl.Free;
43. end;

[loaded]

It's ok to read the json, probably something wrong with the way you read the txt file.
The working example and its view are attached.

[michoux]

Hi

I managed to get things working and parse the json.
Thank you very much.

Now I have a new issue.
I read the picture with following command.
 slika:= person.FindPath('figure').AsString;

This is original part of data in Json
data:image\/jpeg;base64,\/9j\/4AA .........."

But when I read the figure to string I get  following

data:image/jpeg;base64,/9j/4AA

So missing all the "\" chars

[michoux]

Solved by replacing \ with \\ in json.

[dseligo]

Hi

I managed to get things working and parse the json.
Thank you very much.

Now I have a new issue.
I read the picture with following command.
 slika:= person.FindPath('figure').AsString;

This is original part of data in Json
data:image\/jpeg;base64,\/9j\/4AA .........."

But when I read the figure to string I get  following

data:image/jpeg;base64,/9j/4AA

So missing all the "\" chars

loaded showed in post #10 how to read picture from base64 (you don't have to replace \ with \\).