Images Tutorial Mengambil value Json dari webservie / API menggunakan NetHttpClient Delphi

Sebelumnya saya sudah membagikan cara menggunakan rest untuk mengambil value json dari webservice. nah kali ini saya akan membahas menggunakan komponen NethttpClient pada delphi untuk mengambil value json dari webservice.

berikut kelebihan dari NetHttpClient dibanding Komponen Rest di delphi
1. Penggunaan Coding lebih simple
2. Penggunaan Realtime dapat dilakukan dan lebih simple
3. Respon langsung di proses dan lebih cepat.

Berikut contoh code nya, oh iya untuk sampel kita pakai json webservice dari jsonplaceholder.typecode.com

1. Mengambil Json Array Method Get
Contoh Output Json

[ { "userId": 1, "id": 1, "title": "quidem molestiae enim" }, { "userId": 1, "id": 2, "title": "sunt qui excepturi placeat culpa" }, { "userId": 1, "id": 3, "title": "omnis laborum odio" }, { "userId": 1, "id": 4, "title": "non esse culpa molestiae omnis sed optio" }]

Code Delphi

procedure TForm1.Button1Click(Sender: TObject); var idh : TNetHTTPClient; params: TStringList; s, strjsn : string; httpresult : IHTTPResponse ; jo: TJSONObject; jv, jvl:TJSONValue; UserID, id, title : string; i : integer; begin idh := TNetHTTPClient.Create(self); try httpresult := idh.get('https://jsonplaceholder.typicode.com/albums'); finally idh.Free; end; strjsn:=httpresult.ContentAsString(); jvl := tjsonobject.ParseJSONValue(strjsn); If jvl is tjsonarray then for jv in (jvl as TJSONArray) do begin if jv is tjsonobject then begin jo := jv as tjsonobject; UserID := jo.GetValue<string>('userId'); id := jo.GetValue<string>('id'); title := jo.GetValue<string>('title'); Add_item(UserID, id, title); end; end; end; 2. Mengambil Json Object Method Get
Contoh Output Json

{ "userId": 1, "id": 1, "title": "sunt aut facere repellat provident occaecati excepturi optio reprehenderit", "body": "quia et suscipit\nsuscipit recusandae consequuntur expedita et cum\nreprehenderit molestiae ut ut quas totam\nnostrum rerum est autem sunt rem eveniet architecto"}

Code Delphi
procedure TForm1.Button3Click(Sender: TObject); var idh : TNetHTTPClient; params: TStringList; s, strjsn : string; httpresult : IHTTPResponse ; jo: TJSONObject; jv, jvl:TJSONValue; UserID, id, title : string; i : integer; begin Listview1.Items.Clear; idh := TNetHTTPClient.Create(self); try params:=tstringlist.Create; httpresult := idh.get('https://jsonplaceholder.typicode.com/posts/'+edit_id2.Text); finally idh.Free; end; strjsn:=httpresult.ContentAsString(); jo := tjsonobject.ParseJSONValue(strjsn) as TJSONObject; UserID := jo.GetValue<string>('userId'); id := jo.GetValue<string>('id'); title := jo.GetValue<string>('title'); Add_item(UserID, id, title); //<-- Function end; 3. Mengambil Json Object Method Post
Contoh Output Json (karna outputnya responnya di batasi kita pakai seadanya saja)

{ "userId": 1, "id": 1
}

Code Delphi
procedure TForm1.Button2Click(Sender: TObject); var idh : TNetHTTPClient; params: TStringList; s, strjsn : string; httpresult : IHTTPResponse ; jo: TJSONObject; jv, jvl:TJSONValue; UserID, id, title : string; i : integer; begin Listview1.Items.Clear; idh := TNetHTTPClient.Create(self); try params:=tstringlist.Create; params.AddPair('userId',edit_id.Text); httpresult := idh.Post('https://jsonplaceholder.typicode.com/posts',params); finally idh.Free; end; strjsn:=httpresult.ContentAsString(); jo := tjsonobject.ParseJSONValue(strjsn) as TJSONObject; UserID := jo.GetValue<string>('userId'); id := jo.GetValue<string>('id'); // title := jo.GetValue<string>('title'); // kosong Add_item(UserID, id, ''); end; 4. Mengambil Json Array menggunakan looping
Contoh Output Json

[ { "userId": 1, "id": 1, "title": "quidem molestiae enim" }, { "userId": 1, "id": 2, "title": "sunt qui excepturi placeat culpa" }, { "userId": 1, "id": 3, "title": "omnis laborum odio" }, { "userId": 1, "id": 4, "title": "non esse culpa molestiae omnis sed optio" }]

Code delphi
procedure TForm2.Image15Tap(Sender: TObject; const Point: TPointF); var JO: TJSONObject; JVL, JV : TJSONValue; JSNarry, JR : TJSONArray; S : string; i : integer; idh : TNetHTTPClient; httpresult : IHTTPResponse ; UserID, id, title : string; begin Listview1.Items.Clear; idh := TNetHTTPClient.Create(self); try httpresult := idh.get('https://jsonplaceholder.typicode.com/albums'); S := httpresult.ContentAsString(); JVL := tjsonobject.ParseJSONValue(S); JR := JVL AS TJSONArray; for i := 0 to JR.Size - 1 do begin JO := JR.Get(i) as TJsonObject; UserID := JO.Values['UserID'].Value; id := JO.Values['id'].Value; title := JO.Values['title'].Value; Add_item(UserID, id, title); end; except end; end; 5. Mengambil Json Object dan Array
Contoh Output Json

{"status":"informasi",
"message":"berhasil",
"data":[ { "userId": 1, "id": 1, "title": "quidem molestiae enim" }, { "userId": 1, "id": 2, "title": "sunt qui excepturi placeat culpa" }, { "userId": 1, "id": 3, "title": "omnis laborum odio" }, { "userId": 1, "id": 4, "title": "non esse culpa molestiae omnis sed optio" }]}

Code delphi
procedure TForm2.Image15Tap(Sender: TObject; const Point: TPointF); var JO: TJSONObject; JVL, JV : TJSONValue; JSNarry, JR : TJSONArray; jsPair := TJsonPair; S, status, pesan : string; i : integer; idh : TNetHTTPClient; httpresult : IHTTPResponse ; UserID, id, title : string; begin Listview1.Items.Clear; idh := TNetHTTPClient.Create(self); try httpresult := idh.get('https://jsonplaceholder.typicode.com/albums'); S := httpresult.ContentAsString(); JO := TjsonObject.ParseJsonValue(S) as TJsonObject; status := jo.GetValue<string>('status'); text1.text := status; pesan := jo.GetValue<string>('message'); text2.text := pesan jsPair := jo.Get('data'); JR := jsPair.jsonValue as TJsonArray; for i := 0 to JR.Size - 1 do begin JO := JR.Get(i) as TJsonObject; UserID := JO.Values['UserID'].Value; id := JO.Values['id'].Value; title := JO.Values['title'].Value; Add_item(UserID, id, title); end; except end; end;
Refrensi lain bisa liat disini
https://stackoverflow.com/questions/9608794/delphi-accessing-json-objects-within-a-json-array
https://gist.github.com/adilsoncarvalho/94e7d8bafe3821199993b2dda691beb3

Contoh Codenya disini : Download