CrossplatformJSON Exception Loading TSQLRecord with Reference

itSDS · 2015-02-18 14:58:44

Hi Arnaud,

XE7/8:

i get the following Exception loading a TSQLRecord derived Class A with Reference to TSQLRecord Class B

class B : TSQLRecord
value : RawUtf8;
...
end;

class A : TSQLRecord
value : RawUtf8;
FB : B;
...
end;

EJSONException mit Meldung 'JSONVariantData.Data(20<>JSONVariant)'. Prozess xyz.exe (896)

i use

var
LA : A;
begin
LA := A.Create(database, '*', 'value=?', ['test']); <- Exception;

The JSON which is parsed has the right TID at the right place.
Btu Resolving this Reference

  with TVarData(JSONVariant) do
    if VType=JSONVariantType.VarType then
      result := @JSONVariant else
    if VType=varByRef or varVariant then
      result := JSONVariantData(PVariant(VPointer)^) else
    raise EJSONException.CreateFmt('JSONVariantData.Data(%d<>JSONVariant)',[VType]);

raises the Exception. VType is 20 and JSONVariantType.VarType = 274

Last edited by itSDS (2015-02-18 15:01:50)

itSDS · 2015-02-18 15:10:00

As a workaround i modified JSONVariantData

function JSONVariantData(const JSONVariant: variant): PJSONVariantData;
begin
  with TVarData(JSONVariant) do
    if (VType=JSONVariantType.VarType) or (VType=20) then
      result := @JSONVariant else
    if VType=varByRef or varVariant then
      result := JSONVariantData(PVariant(VPointer)^) else
    raise EJSONException.CreateFmt('JSONVariantData.Data(%d<>JSONVariant)',[VType]);
end;

this worked - But i think there is another way ...

ab · 2015-02-18 15:11:48

Could you please create a ticket?
With a link to this forum thread.

Thanks!

itSDS · 2015-02-18 15:57:47

After some Debugging: my workaround does not fix the Problem. Only the Exception is gone. But the Reference is not filled with the TID, it is nil

Ticket http://synopse.info/fossil/tktview/0ebc … c73b904712 created

Last edited by itSDS (2015-02-18 15:59:55)

itSDS · 2015-02-21 11:06:14

Push - Hi Arnaud, i need this functionality. I can not load Data with CrossPlatform Client.

tyvm

itSDS · 2015-02-27 12:18:30

Hi Arnaud i can not load TSQLRecord with Reference to other TSQLRecord as Pointer.
I think the main Problem is ARC.

I tried a little list with AddObject('entry1', TObject(1)); This doesn't work on iOS / Android either. Cause ARC tries de decrease RefCount of the 1

In TSQLRecord there will be the same Problem...
I'm thinking about removing the TSQLRecord Reference and replace it with TID for iOS / Android. Than it should work again.

ab · 2015-02-27 12:39:59

I was not thinking about ARC, but you are right: it should be a true pointer, not an integer transtyped as fake pointer.

Yes, using TID should do the trick, at all levels: serialization (plain integer value), and ARC behavior.

itSDS · 2015-02-27 13:09:07

is it possible to change the record reference in CrossPlatformwrapper to TID ? I don't want to change my TSQLRecord cause on other Platforms i wan't to use the Pointer.
it could be surounded with
if defined(AUTOREFCOUNT) ...

something like :

{$if defined(AUTOREFCOUNT)}TID{$else}TSQLDFLRecord{$endif}

Last edited by itSDS (2015-02-27 13:18:25)

ab · 2015-02-27 13:18:19

Please try http://synopse.info/fossil/info/af10bf7303

No need to check for the compiler target: I just use TID for crossplatform clients, with a reference as comment to the original type declaration.
It is therefore up to the client code to use this TID as expected.

itSDS · 2015-02-27 14:23:57

ty - now i can work with it. (But the BUG in the ticket is not fixed yet) it's just a workaround

ab · 2015-02-27 14:45:33

I'm afraid that due to ARC expectations, we won't be able to do anything better.

Is not having the TID and work with ID not enough?

itSDS · 2015-02-27 15:31:42

In fact it is enough.
For the most cases i write interface functions.

ab · 2015-02-27 17:23:57

Yes, proper DTO over regular SOA interfaces sounds a cleaner approach to me.

mORMot Open Source

#1 2015-02-18 14:58:44

CrossplatformJSON Exception Loading TSQLRecord with Reference

#2 2015-02-18 15:10:00

Re: CrossplatformJSON Exception Loading TSQLRecord with Reference

#3 2015-02-18 15:11:48

Re: CrossplatformJSON Exception Loading TSQLRecord with Reference

#4 2015-02-18 15:57:47

Re: CrossplatformJSON Exception Loading TSQLRecord with Reference

#5 2015-02-21 11:06:14

Re: CrossplatformJSON Exception Loading TSQLRecord with Reference

#6 2015-02-27 12:18:30

Re: CrossplatformJSON Exception Loading TSQLRecord with Reference

#7 2015-02-27 12:39:59

Re: CrossplatformJSON Exception Loading TSQLRecord with Reference

#8 2015-02-27 13:09:07

Re: CrossplatformJSON Exception Loading TSQLRecord with Reference

#9 2015-02-27 13:18:19

Re: CrossplatformJSON Exception Loading TSQLRecord with Reference

#10 2015-02-27 14:23:57

Re: CrossplatformJSON Exception Loading TSQLRecord with Reference

#11 2015-02-27 14:45:33

Re: CrossplatformJSON Exception Loading TSQLRecord with Reference

#12 2015-02-27 15:31:42

Re: CrossplatformJSON Exception Loading TSQLRecord with Reference

#13 2015-02-27 17:23:57

Re: CrossplatformJSON Exception Loading TSQLRecord with Reference

Board footer