CODEWITHSUNDEEP
delphidatasnapfiredac
Zoe Tecnologia
Zoe Tecnologia

Reputation: 53

Delphi Tokyo 10.2 - 710 invalid binary storage format

I am working on firemonkey using REST/Jason, however, when I connect to my methods server through DataSnap Client Classes to get the return of my query, the following line throws an exception:

Result := TFDJSONDataSets(FUnMarshal.UnMarshal(FGetAlunoAutenticacaoCommand.Parameters[3].Value.GetJSONValue(True)));

enter image description here

Important:

It went without saying that the problem only occurs in the iOS simulator.

When I use ANDROID or WIN32 the problem does not happen.

enter image description here

Anyone have any suggestions?

Upvotes: 0

Views: 1745

Answers (1)

dustypup
dustypup

Reputation: 164

I've got the same error on iOS. After some investigation, I found the bug causing this error in Embarcadero's source code.

Unit Data.FireDACJSONReflect has function MemTableFromString(...). Inside this function the line (435) LMemoryStream.Seek(Longint(0), soFromBeginning); meant to set LMemoryStream.Position to 0. It does so on all platforms except for iOS (I've tested on Win32/64 and Android). On iOS it does nothing. (the actual parameters of Seek function call becomes 0 and soCurrent).

Just changed this line (435) in unit Data.FireDACJSONReflect 

LMemoryStream.Seek(Longint(0), soFromBeginning);

to the proper one

LMemoryStream.Seek(0, TSeekOrigin.soBeginning);

(You need to save corrected unit somewhere, add it to your project and replace old unit with the new one in uses clause of your source)

Upvotes: 1

Related Questions