Delphi Object To JSON

Delphi ile JSON stringlerini parse etmek için 3. parti araçlar bulunmaktadır (superobject gibi). Bende bugüne kadar superobject yardımı ile JSON strinlerini parse ettim ve uygulamalarım da hep bu yöntemi kullandım. Fakat DBX  kütüphanelerini biraz karıştırdıktan sonra TJSONMarshal ve TJSONUnMarshal sınıfları ile tanıştım. Bu sınıflar yardımı ile çok kısa bir şekilde kendi sınıflarımızı(TObject) JSON strinlerine(TJSONValue) dönüştürebiliyor, JSON strinlerinide tekrar kendi sınıfımızın bir instance’ı haline getirebiliyoruz. Lafı fazla uzatmadan nasıl yapılacağını görelim…

Aşağıdaki örnek uygulamayı Delphi XE3 versiyonunda yazdım. 2010 ve sonrasında JSON sınıfları mevcuttur. 2009 ve alt versiyonlarda test yapmadığım için kesin birşey söyleyemiyorum ama Datasnap işlemleri 2010 ile birlikte geldiğinden dolayı, 2010’un alt sürümlerinde  bu sınıflar olmayabilir.

Uygulamanın ekran çıktısı