REST.Json, TJSon.JsonToObject sorunsalı

[Gürcan]

(14-05-2019, Saat: 12:28)SimaWB Adlı Kullanıcıdan Alıntı: Siz sorununuzu çözmüşsünüz ama ileride konuyu okuyanlara yararı olabilir:
Ben bu tarz işlerde (farklı dillerde yazılmış 2 projede sınıf paylaşımı vs.) Google Protocol Buffers kullanıyorum. Tavsiye ederim.

İlginç bir konu. Paylaşım için teşekkürler.

"Protocol buffers currently support generated code in Java, Python, Objective-C, and C++. With our new proto3 language version, you can also work with Dart, Go, Ruby, and C#, with more languages to come."

Delphi' yi halihazırda destekliyor mu ?

[SimaWB]

Resmi desteği maalesef yok
Burayı deneyebilirsiniz:
https://github.com/kami-soft/ProtoBufGenerator

[Tuğrul HELVACI]

(16-05-2019, Saat: 23:08)SimaWB Adlı Kullanıcıdan Alıntı: Resmi desteği maalesef yok
Burayı deneyebilirsiniz:
https://github.com/kami-soft/ProtoBufGenerator

Küçük de olsa bir örnek verirmisin sevgili kardeşim. Sen nasıl kullanıyorsun Google’ın bu zımbırtısını ?

[SimaWB]

(18-05-2019, Saat: 00:38)Tuğrul HELVACI Adlı Kullanıcıdan Alıntı: Küçük de olsa bir örnek verirmisin sevgili kardeşim. Sen nasıl kullanıyorsun Google’ın bu zımbırtısını ?

Üstad, bu konu aslında tam makalelik. Vakit bulabilirsem bir şeyler karalayayım.

[SimaWB]

Şurada bununla ilgili bir şeyler karaladım:
http://www.delphican.com/showthread.php?...7&pid=2907

[3ddark]

İhtiyaç duyduğum için JSon tarafında çalışma fırsatım oldu. Katkısı olması adına F prefix zorunluluğu olmadan kullanıma örnek olması için şöyle kodlama yaparsanız sorun olmuyor.
Kritik nokta attribute tanımlama yapılması yeterli oluyor. Bunu denerken ilginç bir hata ile karşılaştım. Console uygulaması açtım ve TPerson aynı console uygulama unit içinde tanımladım ve 

TJson.JsonToObject<TPerson>(tmp);

şu işlemde dönüşümde exception hatası veriyor. Fakat farklı bir unit içinde kullanınca hata vermedi.

uses REST.Json.Types;

type
 TPerson = class
   [JSONName('xName')]
   Name: string;

   [JSONName('xAge')]
   Age: Integer;
 end;

uses Rest.Json, Unit6 in 'Unit6.pas';

var
 Lprs, Lprs2: TPerson;
 tmp: string;
begin
 try
   Lprs := TPerson.Create;
   Lprs.Name := 'Ali';
   Lprs.Age := 27;

   tmp := TJson.ObjectToJsonString(Lprs);

   Lprs2 := TJson.JsonToObject<TPerson>(tmp);