Recent changes to bugs

#12 ts := '{"t5":"1\.\.\.\.\."}';

MtwStark — Mon, 03 Apr 2017 09:35:33 -0000

. is not a valid json string value

vJsonObj := TlkJSONstreamed.loadfromfile('Source.txt') as TlkJsonObject; does not work

Alfred — Mon, 03 Aug 2015 07:33:53 -0000

In the sample projects, vJsonObj := TlkJSONstreamed.loadfromfile('Source2.txt') as TlkJsonObject; does not work.

However, the following does work:

StringList1 := TStringList.Create;
StringList1.LoadFromFile('Source.txt');
jsText := StringList1.Text;
StringList1.Free;
vJsonObj := TlkJSON.ParseText(jsText) as TlkJSONobject;
vJsonStr := TlkJSON.GenerateText(vJsonObj);

I am using Delphi XE8

#13 Setting Extended ASCII Codes in Delphi

Paulo Alexandre — Fri, 26 Sep 2014 18:02:18 -0000

in line 1535 alter this

if obj is TlkJSONstring then
begin
// ws := UTF8Encode(TlkJSONstring(obj).FValue);
ws := TlkJSONstring(obj).FValue;
i := 1;
mem_ch('"');
while i <= length(ws) do
begin
case ws[i] of
'/', '\', '"':
begin
mem_ch('\');
mem_ch(ws[i]);
end;
#8: mem_write('\b');
#9: mem_write('\t');
#10: mem_write('\n');
#13: mem_write('\r');
#12: mem_write('\f');
else
// if (ord(ws[i]) < 32) then
if (ord(ws[i]) < 32) or (ord(ws[i]) > 122) then
mem_write('\u' + inttohex(ord(ws[i]), 4))
else
mem_ch(ws[i]);
end;
inc(i);
end;
mem_ch('"');
end

works for me

TlkJSONstreamed.SaveToStream does not work in unicode

Yann Papouin — Fri, 22 Nov 2013 15:04:27 -0000

SizeOf(Char) must be added in the computation:
SizeOf(Char) = 1 byte in ascii
SizeOf(Char) = 1 word in unicode

class procedure TlkJSONstreamed.SaveToStream(obj: TlkJSONbase;
dst: TStream);
var
ws: string;
begin
if not assigned(obj) then exit;
if not assigned(dst) then exit;
ws := GenerateText(obj);
dst.Write(pchar(ws)^, length(ws)* SizeOf(Char));
end;

bug in code2utf function

Anonymous — Wed, 06 Jul 2011 04:15:38 -0000

The **code2utf** function is not translating UTF8 chars correctly.
Try This:
[{"nombre": "Asociaci\u00f3n Interamericana"}] the unicode char U+00D3 correspond to Ó (LATIN CAPITAL LETTER O WITH ACUTE), but code2utf translate the number as Ã.

I quit using funcion **code2utf**, and start using **chr** function included in delphi. I suppose this fix is only available on Unicode versions of Delphi.

Setting Extended ASCII Codes in Delphi

Matthias Kretschmar — Mon, 12 Apr 2010 10:32:49 -0000

I'm setting the value of an JSON-String in Delphi (the String contains the extended ASCII Code ü (129)). At this time the value is correct inside the JSON-Object. When I use the GenerateText-function the Result does not contain the right value.

parameter := TlkJSONobject.Create(false);
ids := TlkJSONlist.Create();
ids.Add('Flurstück');
parameter.Add('IDS', ids);
TlkJSON.GenerateText(parameter):

'{"IDS":["Flurstück"]}' would be expected.
'{"IDS":["FlurstÃ¼ck"]}' is returned.

The value is switched to the wrong value in the following line in GenerateText:
ws := UTF8Encode(TlkJSONstring(obj).FValue);

ts := '{"t5":"1\.\.\.\.\."}';

ivvn benteng1979 — Fri, 12 Mar 2010 09:10:49 -0000

ts := '{"t5":"1\.\.\.\.\."}';
jso := TlkJSON.ParseText(ts) as TlkJSONobject;
ShowMessage(jso.Field['t5'].Value);

this is a bug, where jso.Field [ 't5']. Value The value should not be "1"

Problem with serialized null values

Anonymous — Mon, 04 Jan 2010 14:45:36 -0000

I get an EInvalidCast exception with message 'Invalid class typecast', in TlkJSONobject.getString(idx: Integer), when trying to get a string that has been serialized with null value. I think you might get the same error with other types too: getInt(), getDouble()...

I noticed that it handles nil but not null values. But my application communicates with a java application which serializes null values as null.

Code to reproduce problem (tested with LkJSON v1.07):

function TForm1.FromJSON(Json: String): String;
var
js : TlkJSONobject;
begin
Result := '';
js := nil;
try
js := TlkJSON.ParseText(Json) as TlkJSONobject;
if Assigned(js) then
Result := js.getString('description');
finally
js.Free;
end;
end;

The following calls works:
FromJSON('{"description":"Bla bla"}');
FromJSON('{"description":nil}');

This call fails:
FromJSON('{"description":null}');

unicode problem

Anonymous — Wed, 25 Nov 2009 09:02:41 -0000

Load from TStrings , GenerateText to string variant (vParams), and load from string variant (vParams).

Incorerct name detection, deletion or addition , with code e

SergeyNikitin — Tue, 17 Nov 2009 20:09:23 -0000

To addition to ticket below, I create a test code:

var
idx :Integer;
JsBase :TlkJSONobject; //TlkJSONbase;
begin
JsBase := TlkJSONstreamed.LoadFromFile('c:\start.json') as TlkJSONobject; //see attachments

idx := JsBase.IndexOfName('LASTUPDATE');
JsBase.Delete(idx);
JsBase.Add('LASTUPDATE', 0);

idx := JsBase.IndexOfName('CHECKDATE');
JsBase.Delete(idx);
JsBase.Add('CHECKDATE', 0);

//here state is:
// JsBase.NameOf[0] = 'LASTUPDATE'
// TlkJSON.GenerateText(JsBase.Child[0]) = '"LASTUPDATE":0'
// but
// JsBase.IndexOfName('TTODGAgent') also == 0 !!!
// TlkJSON.GenerateText(JsBase.FieldByIndex[0]) == '{"HOST":"127.0.0.1","PORT":8082,"LOGIN":"admin2..... i.e. text of 'TTODGAgent'
//for example

idx := JsBase.IndexOfName('TTODGAgent');
if idx>=0 then begin;
JsBase.Delete(idx);
FreeAndNil(JsBase);
end;

//here no 'TTODGAgent' but 'LASTUPDATE' will be deleted!!!
//see screenshot in previous ticket
end;