Parsing atau Reading JSON di Delphi

Pada delphi terbaru untuk membaca dan menulis data JSON sudah disertakan dalam unit yang berawalan System.JSON. Sedangkan untuk versi Delphi 7 kebawah anda bisa menggunakan unit dari lkjson atau unit lainnya.

Untuk unit lkjson dapat anda unduh di situs sourceforge dengan alamat url sini https://sourceforge.net/projects/lkjson/

Contoh kasus :
Mencoba mendapatkan detail no porsi haji dari situs resmi haji di kemenag, yaitu https://haji.kemenag.go.id/v3/, dengan memanfaatkan google apps script (GAS), anda bisa membuat API cek porsi. Hasil request cek porsi dari situs haji bisa di olah dengan GAS dan output bisa disesuaikan dengan kebutuhan dan format sendiri. Adapaun output dari API tersebut seperti dibawah ini

 

{"success":true,"msg":{"hasil":true,"data":{"No":"1300748649","Nama":"MUNIROH","Kabko":"KAB.GRESIK","Propinsi":"JAWA TIMUR","Kuoto":"35034","Posisi":"253717","Hijrah":"1447","Masehi":"2026"}}}

Bagaimana caranya agar anda bisa parsing output diatas, kemudian hasil parsingnya anda masukkan kedalam texbox yang sudah di tentukan, seperti gambar dibawah ini.

Berikut script untuk parsing output API cek porse dengan ulksjon:

var data:string;
var js,jc,jh: TlkJSONobject;

data:='{"success":true,"msg":{"hasil":true,"data":{"No":"1300748649","Nama":"MUNIROH","Kabko":"KAB. GRESIK","Propinsi":"JAWA TIMUR","Kuoto":"35034","Posisi":"253717","Hijrah":"1447","Masehi":"2026"}}}';

js := TlkJSON.ParseText(hasilnya) as TlkJSONobject;
jc:=js.Field['msg'] as  TlkJSONobject;
jh:=jc.Field['data'] as  TlkJSONobject;

edit2.text:=jh.Field['Masehi'].Value + ' M/'+jh.Field['Hijrah'].Value+' H';
edit3.text:=(jh.Field['Nama'].Value);
edit4.text:=(jh.Field['Kabko'].Value);
edit5.text:=(jh.Field['Propinsi'].Value);
edit6.text:=(jh.Field['Kuoto'].Value);
edit7.text:=(jh.Field['Posisi'].Value);

Untuk API cek porsi haji, akan saya bahas di postingan selanjutnya. Saya akan membahas bagaimana cara membuat API di google apps script, dengan contoh kasus cek porsi haji ini.

Delphi Programming November 12, 2018