Images Tutorial Mengambil value Json dari webservice / API menggunakan idhttp pada Delphi 7

Ok, kali ini saya akan berbagi cara mengambil data dari json jika menggunakan delphi jadul, yaitu delphi 7, meski jadul hampir setiap programmer delphi masih menggunakan delphi 7 sebagai dasar pengembangan project2nya. ok tanpa basa basi berikut penggalan coding untuk delphi 7

Jangan lupa gunakan unit dan uses dari

IdHTTP,uLkJSON;

1. Mengambil Json Array
Contoh Output json

[

{
"id_user": "19",
"NAMA": "Risman Arisandi",
"NIP": "198907252020101001"
},
{
"id_user": "18",
"NAMA": "Vivi",
"NIP": "198907252020101002"
},
{
"id_user": "17",
"NAMA": "Aidan",
"NIP": "198907252020101003"
},
{
"id_user": "16",
"NAMA": "Ulan",
"NIP": "198907252020101004"
}

]

Code Delphi
var i : Integer; ht : TidHTTP; jarray:TlkJSONlist; get_url: string; js: TlkJSONobject; begin ht := TidHTTP.Create(nil); try get_url := ht.Get(url); except //jika gagal exit; end; ht.Free; try jarray:=TlkJSONlist(TlkJSON.ParseText(get_url)); except //jika gagal exit; end; Grid.RowCount := jarray.Count + 1; for i := 0 to jarray.Count - 1 do begin jobject:=TlkJSONObject(jarray.field[i]); Grid.Cells[0,i+1] := IntToStr(i+1)+'.'; Grid.Cells[1, i + 1] := jobject.getString('id_user'); Grid.Cells[2, i + 1] := jobject.getString('NAMA'); Grid.Cells[3, i + 1] := jobject.getString('NIP'); end; jarray.Free; 2. Mengambil Json Object dan Object berarray
 Contoh Output json

{
"sukses": "1",
"data":[{"id_user": "19","NAMA": "Risman Arisandi","NIP": "198907252020101001"},{"id_user": "18","NAMA": "Vivi","NIP": "198907252020101002"},{"id_user": "17","NAMA": "Aidan","NIP": "198907252020101003"},{"id_user": "16","NAMA": "Ulan","NIP": "198907252020101004"}] }

Code Delphi
var i : Integer; ht : TidHTTP; get_url: string; js: TlkJSONobject; begin ht := TidHTTP.Create(nil); try get_url := ht.Get(url); except //jika gagal exit; end; ht.Free; try js := TlkJSON.ParseText(get_url) as TlkJSONObject; except //jika gagal end; edit1.text := VarToStr(js.Field['sukses'].Value); js := TlkJSONObject(js.Field['data']); Grid.RowCount := js.Count + 1; for i := 0 to js.Count - 1 do begin //Load Data Ke Grid Grid.Cells[0,i+1] := IntToStr(i+1)+'.'; Grid.Cells[1, i + 1] := VarToStr(js.Child[i].Field['id_user'].Value); Grid.Cells[2, i + 1] := VarToStr(js.Child[i].Field['NAMA'].Value); Grid.Cells[3, i + 1] := VarToStr(js.Child[i].Field['NIP'].Value); end; js.Free; end;