JSON VERİSİNİ GRİDE AKTARMA

Delphi'de kod yazma ile ilgili sorularınızı bu foruma yazabilirsiniz.
Cevapla
arbe
Üye
Mesajlar: 6
Kayıt: 26 Oca 2017 10:15

JSON VERİSİNİ GRİDE AKTARMA

Mesaj gönderen arbe »

JSON VERİSİ:
{"State":1,"Message":"Başarıyla gerçekleştirildi","Result":{"Puan":4,"Mesaj":"Ampirik antibiyotik ver. (3 gün içerisinde antimikrobiyal tedaviye rağmen düzelme olmaz ise kültür al.) GAS için hızlı antijen testi tanıyı kesinleştirmek adına yapılabilir.","Durum":1,"Antibiyotikler":[{"AntibiyotikAdi":"Penisilin V","KullanimDozu":"Çocuk: 250 mg, günde 2-3 doz. Yetişkin: 250 mg, günde 3-4 doz veya 500 mg, günde 2-3 doz.","KullanimSuresi":"10 gün"},{"AntibiyotikAdi":"Amoksisilin","KullanimDozu":"50 mg/kg günde 1 doz (maksimum 1000 mg doz) veya 25mg/kg günde 2 doz (maksimum 500 mg doz)","KullanimSuresi":"10 gün"},{"AntibiyotikAdi":"Benzatin Pen G","KullanimDozu":"< 27 kg 600 000 U, > 27 kg 1,2 MU","KullanimSuresi":"1 doz"}]}}

BU JSON VERİSİNİ BİR GİDE NASIL ALABİLİRİM. YARDIMLARINIZI BEKLİYORUM
ertank
Kıdemli Üye
Mesajlar: 1657
Kayıt: 12 Eyl 2015 12:45

Re: JSON VERİSİNİ GRİDE AKTARMA

Mesaj gönderen ertank »

Merhaba,

Kullandığınız delphi sürümünü bildirmemişsiniz. Ekteki örnek Delphi 10.1 Update 2 ile çalışmaktadır.

- Bu uygulama için gerekli ücretsiz Synopse (mORMot) framework içinden sadece json kullanımı için gerekli dosyalarda uygulama ile birliktedir.
- Grid içindeki verilerin gösterilmesi için ClientDataSet memory table kullanılmıştır.
- Site sınırlamaları sebebi ile uygulama WinRAR 5 ile 200KB dosyalar halinde sıkıştırılmıştır.

Farklı bir Json kütüphanesi kullanmak isterseniz gerekli düzenlemeleri yapabilirsiniz.
Dosya ekleri
jsontodb.part03.rar
(38.88 KiB) 64 kere indirildi
jsontodb.part02.rar
(199.27 KiB) 70 kere indirildi
jsontodb.part01.rar
(199.24 KiB) 75 kere indirildi
arbe
Üye
Mesajlar: 6
Kayıt: 26 Oca 2017 10:15

Re: JSON VERİSİNİ GRİDE AKTARMA

Mesaj gönderen arbe »

{
"durum": 1,
"sonuc": [
{
"hasta": {
"hastaTC": "12312312312",
"adSoyad": "TEST USER"
},
"gebelikBildirim": [
{
"sysTakipNo": "",
"hekimAdSoyad": "TEST HEKİM",
"kurumAdi": "TEST AİLE HEKİMLİĞİ BİRİMİ",
"kangrubu": 2,
"islemzamani": "2016-12-13T12:00:00",
"sonadettarihi": "2016-10-29T12:00:00",
"gonderimZamani": "0001-01-01T00:00:00"
}
]
},
{
"hasta": {
"hastaTC": "31232132132",
"adSoyad": "TEST USER"
},
"gebelikBildirim": [
{
"sysTakipNo": "",
"hekimAdSoyad": "TEST HEKİM",
"kurumAdi": "TEST AİLE HEKİMLĞİ BİRİMİ",
"kangrubu": 5,
"islemzamani": "2016-09-08T11:02:00",
"sonadettarihi": "2016-06-14T12:00:00",
"gonderimZamani": "0001-01-01T00:00:00"
}
]
}
],
"mesaj": null
}

birde bunu için yardımınızı bekliyorum delphi sürümü xe2
ertank
Kıdemli Üye
Mesajlar: 1657
Kayıt: 12 Eyl 2015 12:45

Re: JSON VERİSİNİ GRİDE AKTARMA

Mesaj gönderen ertank »

Merhaba,

Normal olarak daha önce gönderdiğim örnek üzerinden çalışarak bu ikinci talebinizi kendinizin yapması mümkün. Üzerinde çalıştığınız takdirde siz öğreneceksiniz ve faydasını göreceksiniz. Forumun kullanım amacı da bu diye düşünüyorum.

Ekte ikinci örneğe uyarlanmış Delphi 10.1 Update 2 ile çalışan örnek projeyi bulabilirsiniz.
Dosya ekleri
json_to_db.part02.rar
(165.72 KiB) 67 kere indirildi
json_to_db.part01.rar
(199.24 KiB) 64 kere indirildi
arbe
Üye
Mesajlar: 6
Kayıt: 26 Oca 2017 10:15

Re: JSON VERİSİNİ GRİDE AKTARMA

Mesaj gönderen arbe »

hocam merhabalar dediğiniz şekilde yaptım oldu ancak gereöek ortamdan veri sorgulayınca Json ayıklanamadı diyor.
rica etsem yardım edermisiniz;

gerek ortam json verisi:
{
"durum": 1,
"sonuc": [
{
"hasta": {
"hastaTC": "xx",
"adSoyad": "xx",
"birimeAtanmaTarihi": null
},
"gebelikBildirim": [ {
"sysTakipNo": "xx",
"hekimAdSoyad": "xx",
"kurumAdi": "xx",
"kangrubu": 4,
"islemzamani": "2017-01-11T16:08:00",
"sonadettarihi": "2016-08-29T00:00:00",
"gonderimZamani": "0001-01-01T00:00:00"
}]
},
{
"hasta": {
"hastaTC": "xx",
"adSoyad": "xx",
"birimeAtanmaTarihi": null
},
"gebelikBildirim": [ {
"sysTakipNo": "xx",
"hekimAdSoyad": "xx",
"kurumAdi": "xx",
"kangrubu": 1,
"islemzamani": "2016-12-21T10:36:39",
"sonadettarihi": "2016-12-09T12:00:00",
"gonderimZamani": "0001-01-01T00:00:00"
}]
},
{
"hasta": {
"hastaTC": "xx",
"adSoyad": "xx",
"birimeAtanmaTarihi": null
},
"gebelikBildirim": [ {
"sysTakipNo": "xx",
"hekimAdSoyad": "xx",
"kurumAdi": "xx",
"kangrubu": 1,
"islemzamani": "2016-10-17T05:22:27",
"sonadettarihi": "2016-08-17T12:00:00",
"gonderimZamani": "0001-01-01T00:00:00"
}]
},
{
"hasta": {
"hastaTC": "xx",
"adSoyad": "xx",
"birimeAtanmaTarihi": null
},
"gebelikBildirim": [ {
"sysTakipNo": "xx",
"hekimAdSoyad": "xxx",
"kurumAdi": "xxx",
"kangrubu": 3,
"islemzamani": "2016-09-26T05:29:39",
"sonadettarihi": "2016-07-03T12:00:00",
"gonderimZamani": "0001-01-01T00:00:00"
}]
},
{
"hasta": {
"hastaTC": "xx",
"adSoyad": "xx",
"birimeAtanmaTarihi": null
},
"gebelikBildirim": [ {
"sysTakipNo": "xx",
"hekimAdSoyad": "xxx",
"kurumAdi": "xxx",
"kangrubu": 4,
"islemzamani": "2016-12-14T03:12:32",
"sonadettarihi": "2016-11-20T12:00:00",
"gonderimZamani": "0001-01-01T00:00:00"
}]
},
{
"hasta": {
"hastaTC": "xx",
"adSoyad": "ELÇİN GÖKSEL",
"birimeAtanmaTarihi": null
},
"gebelikBildirim": [ {
"sysTakipNo": "52588098537",
"hekimAdSoyad": "xxx",
"kurumAdi": "xxx",
"kangrubu": 4,
"islemzamani": "2016-08-10T03:06:16",
"sonadettarihi": "2016-06-24T12:00:00",
"gonderimZamani": "0001-01-01T00:00:00"
}]
},
{
"hasta": {
"hastaTC": "xx",
"adSoyad": "SATI ATASOY",
"birimeAtanmaTarihi": null
},
"gebelikBildirim": [ {
"sysTakipNo": "53842182628",
"hekimAdSoyad": "xxx",
"kurumAdi": "xxx",
"kangrubu": 2,
"islemzamani": "2016-09-26T09:25:08",
"sonadettarihi": "2016-08-01T12:00:00",
"gonderimZamani": "0001-01-01T00:00:00"
}]
},
{
"hasta": {
"hastaTC": "xx",
"adSoyad": "HALİME YÖYEN",
"birimeAtanmaTarihi": null
},
"gebelikBildirim": [ {
"sysTakipNo": "1CUF6LUC0VM38ER",
"hekimAdSoyad": "xxx",
"kurumAdi": "xxx",
"kangrubu": 1,
"islemzamani": "2017-01-20T11:24:00",
"sonadettarihi": "2016-11-12T00:00:00",
"gonderimZamani": "0001-01-01T00:00:00"
}]
},
{
"hasta": {
"hastaTC": "xx",
"adSoyad": "PINAR OĞUZCAN",
"birimeAtanmaTarihi": null
},
"gebelikBildirim": [ {
"sysTakipNo": "53841413225",
"hekimAdSoyad": "xxx",
"kurumAdi": "xxx",
"kangrubu": 4,
"islemzamani": "2016-09-21T10:28:14",
"sonadettarihi": "2016-07-18T12:00:00",
"gonderimZamani": "0001-01-01T00:00:00"
}]
},
{
"hasta": {
"hastaTC": "xx",
"adSoyad": "MELEK AKSOY",
"birimeAtanmaTarihi": null
},
"gebelikBildirim": [ {
"sysTakipNo": "54068892672",
"hekimAdSoyad": "xxx",
"kurumAdi": "xxx",
"kangrubu": 1,
"islemzamani": "2016-10-31T05:28:54",
"sonadettarihi": "2016-08-31T12:00:00",
"gonderimZamani": "0001-01-01T00:00:00"
}]
},
{
"hasta": {
"hastaTC": "xx",
"adSoyad": "DİLARA YAZAN",
"birimeAtanmaTarihi": null
},
"gebelikBildirim": [ {
"sysTakipNo": "DFZNCQ1QHU13I5C",
"hekimAdSoyad": "xxx",
"kurumAdi": "xxx",
"kangrubu": 2,
"islemzamani": "2017-01-11T16:14:00",
"sonadettarihi": "2016-08-11T00:00:00",
"gonderimZamani": "0001-01-01T00:00:00"
}]
},
{
"hasta": {
"hastaTC": "xx",
"adSoyad": "ŞERİFE BİŞGİN",
"birimeAtanmaTarihi": null
},
"gebelikBildirim": [ {
"sysTakipNo": "DEURMHMH5FFN07C",
"hekimAdSoyad": "xxx",
"kurumAdi": "xxx",
"kangrubu": 4,
"islemzamani": "2017-01-06T13:28:00",
"sonadettarihi": "2016-10-29T00:00:00",
"gonderimZamani": "0001-01-01T00:00:00"
}]
},
{
"hasta": {
"hastaTC": "xx",
"adSoyad": "KADER ATABEY",
"birimeAtanmaTarihi": null
},
"gebelikBildirim": [ {
"sysTakipNo": "53948724610",
"hekimAdSoyad": "xxx",
"kurumAdi": "xxx",
"kangrubu": 1,
"islemzamani": "2016-08-29T10:59:42",
"sonadettarihi": "2016-06-08T12:00:00",
"gonderimZamani": "0001-01-01T00:00:00"
}]
},
{
"hasta": {
"hastaTC": "xx",
"adSoyad": "YASEMİN TEMEL",
"birimeAtanmaTarihi": null
},
"gebelikBildirim": [ {
"sysTakipNo": "3VDBMOUD7HE6SNKX",
"hekimAdSoyad": "xxx",
"kurumAdi": "xxx",
"kangrubu": 1,
"islemzamani": "2017-02-15T16:51:00",
"sonadettarihi": "2016-12-01T00:00:00",
"gonderimZamani": "0001-01-01T00:00:00"
}]
},
{
"hasta": {
"hastaTC": "xx",
"adSoyad": "ZEHRA AKPOLAT",
"birimeAtanmaTarihi": null
},
"gebelikBildirim": [ {
"sysTakipNo": "53890696839",
"hekimAdSoyad": "xxx",
"kurumAdi": "xxx",
"kangrubu": 1,
"islemzamani": "2016-09-30T10:21:42",
"sonadettarihi": "2016-08-04T12:00:00",
"gonderimZamani": "0001-01-01T00:00:00"
}]
},
{
"hasta": {
"hastaTC": "xx",
"adSoyad": "DİLAN YILMAZ",
"birimeAtanmaTarihi": null
},
"gebelikBildirim": [ {
"sysTakipNo": "53995634924",
"hekimAdSoyad": "xxx",
"kurumAdi": "xxx",
"kangrubu": 7,
"islemzamani": "2016-09-22T11:31:04",
"sonadettarihi": "2016-08-08T12:00:00",
"gonderimZamani": "0001-01-01T00:00:00"
}]
},
{
"hasta": {
"hastaTC": "xx",
"adSoyad": "ESRA AKIN",
"birimeAtanmaTarihi": null
},
"gebelikBildirim": [ {
"sysTakipNo": "DCYOF09MIG9MGE6",
"hekimAdSoyad": "xxx",
"kurumAdi": "xxx",
"kangrubu": 6,
"islemzamani": "2017-01-05T16:38:00",
"sonadettarihi": "2016-11-08T00:00:00",
"gonderimZamani": "0001-01-01T00:00:00"
}]
},
{
"hasta": {
"hastaTC": "xx",
"adSoyad": "HİLAL MEŞE",
"birimeAtanmaTarihi": null
},
"gebelikBildirim": [ {
"sysTakipNo": "54034596360",
"hekimAdSoyad": "xxx",
"kurumAdi": "xxx",
"kangrubu": 1,
"islemzamani": "2016-10-20T11:22:26",
"sonadettarihi": "2016-08-24T12:00:00",
"gonderimZamani": "0001-01-01T00:00:00"
}]
},
{
"hasta": {
"hastaTC": "xx",
"adSoyad": "HACER ARSLAN",
"birimeAtanmaTarihi": null
},
"gebelikBildirim": [ {
"sysTakipNo": "53996557422",
"hekimAdSoyad": "xxx",
"kurumAdi": "xxx",
"kangrubu": 1,
"islemzamani": "2016-09-26T06:23:34",
"sonadettarihi": "2016-07-25T12:00:00",
"gonderimZamani": "0001-01-01T00:00:00"
}]
},
{
"hasta": {
"hastaTC": "xx",
"adSoyad": "SEVDA ÇELİK",
"birimeAtanmaTarihi": null
},
"gebelikBildirim": [ {
"sysTakipNo": "53899619959",
"hekimAdSoyad": "xxx",
"kurumAdi": "xxx",
"kangrubu": 1,
"islemzamani": "2016-09-02T10:39:35",
"sonadettarihi": "2016-07-23T12:00:00",
"gonderimZamani": "0001-01-01T00:00:00"
}]
},
{
"hasta": {
"hastaTC": "xx",
"adSoyad": "SEMRA DOĞAN",
"birimeAtanmaTarihi": null
},
"gebelikBildirim": [ {
"sysTakipNo": "3Y0WWLQ3GPLLEBBL",
"hekimAdSoyad": "xxx",
"kurumAdi": "xxx",
"kangrubu": 3,
"islemzamani": "2017-03-06T13:54:00",
"sonadettarihi": "2017-01-29T00:00:00",
"gonderimZamani": "0001-01-01T00:00:00"
}]
},
{
"hasta": {
"hastaTC": "xx",
"adSoyad": "DERYA ÇAM",
"birimeAtanmaTarihi": null
},
"gebelikBildirim": [ {
"sysTakipNo": "54021068671",
"hekimAdSoyad": "xxx",
"kurumAdi": "xxx",
"kangrubu": 1,
"islemzamani": "2016-10-31T06:15:25",
"sonadettarihi": "2016-09-01T12:00:00",
"gonderimZamani": "0001-01-01T00:00:00"
}]
},
{
"hasta": {
"hastaTC": "xx",
"adSoyad": "AYÇA AKÇA",
"birimeAtanmaTarihi": null
},
"gebelikBildirim": [ {
"sysTakipNo": "54001690003",
"hekimAdSoyad": "xxx",
"kurumAdi": "xxx",
"kangrubu": 1,
"islemzamani": "2016-10-17T04:47:08",
"sonadettarihi": "2016-08-13T12:00:00",
"gonderimZamani": "0001-01-01T00:00:00"
}]
},
{
"hasta": {
"hastaTC": "xx",
"adSoyad": "CEMİLE KAYNAR",
"birimeAtanmaTarihi": null
},
"gebelikBildirim": [ {
"sysTakipNo": "DEY2R1ZDRW83BU8",
"hekimAdSoyad": "xxx",
"kurumAdi": "xxx",
"kangrubu": 2,
"islemzamani": "2017-01-09T13:39:00",
"sonadettarihi": "2016-11-28T00:00:00",
"gonderimZamani": "0001-01-01T00:00:00"
}]
},
{
"hasta": {
"hastaTC": "xx",
"adSoyad": "SEDA YILMAZ",
"birimeAtanmaTarihi": null
},
"gebelikBildirim": [ {
"sysTakipNo": "53851856800",
"hekimAdSoyad": "xxx",
"kurumAdi": "xxx",
"kangrubu": 4,
"islemzamani": "2016-08-15T03:44:05",
"sonadettarihi": "2016-06-20T12:00:00",
"gonderimZamani": "0001-01-01T00:00:00"
}]
},
{
"hasta": {
"hastaTC": "xx",
"adSoyad": "ZEYNEP ÇAVUNT",
"birimeAtanmaTarihi": null
},
"gebelikBildirim": [ {
"sysTakipNo": "53948709691",
"hekimAdSoyad": "xxx",
"kurumAdi": "xxx",
"kangrubu": 4,
"islemzamani": "2016-09-23T09:55:30",
"sonadettarihi": "2016-07-15T12:00:00",
"gonderimZamani": "0001-01-01T00:00:00"
}]
},
{
"hasta": {
"hastaTC": "xx",
"adSoyad": "GÜLÜSTAN GÜNDÜZ",
"birimeAtanmaTarihi": null
},
"gebelikBildirim": [ {
"sysTakipNo": "3PPKPS3NJWUUY27G",
"hekimAdSoyad": "xxx",
"kurumAdi": "xxx",
"kangrubu": 1,
"islemzamani": "2017-01-06T11:03:00",
"sonadettarihi": "2016-10-30T00:00:00",
"gonderimZamani": "0001-01-01T00:00:00"
}]
},
{
"hasta": {
"hastaTC": "xx",
"adSoyad": "TUBA YÜCE",
"birimeAtanmaTarihi": null
},
"gebelikBildirim": [ {
"sysTakipNo": "3VDT0F5U5PF8PH8K",
"hekimAdSoyad": "xxx",
"kurumAdi": "xxx",
"kangrubu": 4,
"islemzamani": "2017-02-15T16:47:00",
"sonadettarihi": "2016-11-15T00:00:00",
"gonderimZamani": "0001-01-01T00:00:00"
}]
},
{
"hasta": {
"hastaTC": "xx",
"adSoyad": "ÖZLEM CAN YAŞAR",
"birimeAtanmaTarihi": null
},
"gebelikBildirim": [ {
"sysTakipNo": "3Y1EVZR6Y8603H2J",
"hekimAdSoyad": "xxx",
"kurumAdi": "xxx",
"kangrubu": 4,
"islemzamani": "2017-03-03T16:11:00",
"sonadettarihi": "2016-12-22T00:00:00",
"gonderimZamani": "0001-01-01T00:00:00"
}]
},
{
"hasta": {
"hastaTC": "xx",
"adSoyad": "MELEK BİLGİN",
"birimeAtanmaTarihi": null
},
"gebelikBildirim": [ {
"sysTakipNo": "DGE8PSOVTP5ROLS",
"hekimAdSoyad": "xxx",
"kurumAdi": "xxx",
"kangrubu": 4,
"islemzamani": "2017-01-12T11:25:00",
"sonadettarihi": "2016-11-02T00:00:00",
"gonderimZamani": "0001-01-01T00:00:00"
}]
},
{
"hasta": {
"hastaTC": "xx",
"adSoyad": "NURDAN ÇALIŞKAN",
"birimeAtanmaTarihi": null
},
"gebelikBildirim": [ {
"sysTakipNo": "54050088110",
"hekimAdSoyad": "xxx",
"kurumAdi": "xxx",
"kangrubu": 1,
"islemzamani": "2016-12-21T01:51:03",
"sonadettarihi": "2016-11-10T12:00:00",
"gonderimZamani": "0001-01-01T00:00:00"
}]
},
{
"hasta": {
"hastaTC": "xx",
"adSoyad": "RAİFE GEÇİRGEN",
"birimeAtanmaTarihi": null
},
"gebelikBildirim": [ {
"sysTakipNo": "DFZIISWQF6Y05JC",
"hekimAdSoyad": "xxx",
"kurumAdi": "xxx",
"kangrubu": 4,
"islemzamani": "2017-01-11T16:00:00",
"sonadettarihi": "2016-11-18T00:00:00",
"gonderimZamani": "0001-01-01T00:00:00"
}]
},
{
"hasta": {
"hastaTC": "xx",
"adSoyad": "AYCAN TAŞTEKİN",
"birimeAtanmaTarihi": null
},
"gebelikBildirim": [ {
"sysTakipNo": "3XC8K0VZIC8LAW4Q",
"hekimAdSoyad": "xxx",
"kurumAdi": "xxx",
"kangrubu": 1,
"islemzamani": "2017-03-01T16:55:00",
"sonadettarihi": "2016-12-13T00:00:00",
"gonderimZamani": "0001-01-01T00:00:00"
}]
},
{
"hasta": {
"hastaTC": "xx",
"adSoyad": "HASRET ARSLAN",
"birimeAtanmaTarihi": null
},
"gebelikBildirim": [ {
"sysTakipNo": "3VCIHB13I7BXJF59",
"hekimAdSoyad": "KERIM EVRIM POLAT",
"kurumAdi": "KOCAELİ ÇAYIROVA 015 NOLU AİLE HEKİMLİĞİ BİRİMİ",
"kangrubu": 1,
"islemzamani": "2017-02-13T00:00:00",
"sonadettarihi": "2016-12-02T00:00:00",
"gonderimZamani": "0001-01-01T00:00:00"
}]
},
{
"hasta": {
"hastaTC": "xx",
"adSoyad": "ASİYE ÇAKMAK",
"birimeAtanmaTarihi": null
},
"gebelikBildirim": [ {
"sysTakipNo": "52488364733",
"hekimAdSoyad": "MEHMET CAK",
"kurumAdi": "İSTANBUL KAĞITHANE 033 NOLU AİLE HEKİMLİĞİ BİRİMİ",
"kangrubu": 1,
"islemzamani": "2016-04-21T02:59:32",
"sonadettarihi": "2016-01-30T12:00:00",
"gonderimZamani": "0001-01-01T00:00:00"
}]
}
],
"mesaj": null
}
ertank
Kıdemli Üye
Mesajlar: 1657
Kayıt: 12 Eyl 2015 12:45

Re: JSON VERİSİNİ GRİDE AKTARMA

Mesaj gönderen ertank »

Daha önce verdiğiniz örnekte hasta bilgileri içinde "birimeAtanmaTarihi" alanı yoktu. Son gönderdiğiniz örnekte ise bu bilgi var. Dolayısı ile json de-serialize edilemiyor çünkü json verisini açmak istediğiniz record tanımı birebir uyumlu değil. THasta record tipi için aşağıdaki değişikliği yaparsanız çalışacaktır.

Kod: Tümünü seç

 THasta = packed record
   hastaTC: string;
   adSoyad: string;
   birimeAtanmaTarihi: string; // eklenmesi gereken satır
 end;
Cevapla