Tüm Platformlar için Hızlı Uygulama Geliştirme Kitabı... Delphi
Ön Sipariş Talebinde Bulunan Üyelerimiz
Sipariş Talebinde Bulunan Üyelerimiz

Konuyu Paylaş : facebook gplus twitter

Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 1
  • 2
  • 3
  • 4
  • 5
Bu json formatı nasıl okunur?
#1
delphi 10.2 kullanıyorum.
[[1521640800000,9023,9026,9066.6,9005,336.64907933],[1521637200000,9018.8,9020,9080,8961.65350584,1049.84311013]]
Bu json formatı nasıl okunur yardımcı olabilir misiniz?
StrJson =
  '['+
  '{"EventType":49,"Code":"234","EventDate":"20050202", "Result":1},'+
  '{"EventType":48,"Code":"0120","EventDate":"20130201", "Group":"g1"}'+
  ']';
şu örnekteki gibi içteki parantezler {} olunca aşağıdaki kod ile veriler okunuyor, benim okumaya çalıştığım örnekteki gibi köşeli parantez olunca iç içe arrayı tanımlayamadım bir türlü.
procedure ParseJson;
var
  LJsonArr   : TJSONArray;
  LJsonValue : TJSONValue;
  LItem     : TJSONValue;
begin
   LJsonArr    := TJSONObject.ParseJSONValue(TEncoding.ASCII.GetBytes(StrJson),0) as TJSONArray;
   for LJsonValue in LJsonArr do
   begin
      for LItem in TJSONArray(LJsonValue) do
      begin
          form1.Memo2.lines.Add(Format('%s : %s',[TJSONPair(LItem).JsonString.Value, TJSONPair(LItem).JsonValue.Value]));
      end;

   end;
end;
Cevapla
#2
tam da bununla ilgili bir örnek açıkmış Smile

var
 TeklifList ,
 TeklifList2
 : TJSONArray;
 i,x:integer;
begin
 TeklifList   := TJSONObject.ParseJSONValue(TEncoding.ASCII.GetBytes('[[1521640800000,9023,9026,9066.6,9005,336.64907933],[1521637200000,9018.8,9020,9080,8961.65350584,1049.84311013]]'),0) as TJSONArray;
 for I := 0 to TeklifList.Size - 1 do
 begin
  TeklifList2   := TJSONObject.ParseJSONValue(TEncoding.ASCII.GetBytes(TeklifList.Get(i).ToString),0) as TJSONArray;
    for x := 0 to TeklifList2.Size - 1 do
     begin
         Memo1.Lines.Add(TeklifList2.Get(x).ToString );
     end;
 end;
end;



Memoya böyle çıktı verir...
Kod:
1521640800000
9023
9026
9066.6
9005
336.64907933
1521637200000
9018.8
9020
9080
8961.65350584
1049.84311013
Linkleri Görebilmeniz İçin Giriş yap veya Üye Ol
Kuvvete dayanamayan adalet aciz, 
Adalete dayanamayan kuvvet zalimdir.
WWW
Cevapla
#3
@yhackup yardımcı olduğunuz için teşekkür ederim.
Cevapla
#4
Linkleri Görebilmeniz İçin Giriş yap veya Üye Ol

Bu kütüphaneyide araştırabilirisiniz. Bir çok profesyonel projede kullanılmaktadır.
Yeni Nesil Yazılımcı
Linkedin: Linkleri Görebilmeniz İçin Giriş yap veya Üye Ol
Blog adresim: Linkleri Görebilmeniz İçin Giriş yap veya Üye Ol
WWW
Cevapla
#5
(22-03-2018, Saat: 11:36)barisatalay Adlı Kullanıcıdan Alıntı: Linkleri Görebilmeniz İçin Giriş yap veya Üye OlLinkleri Görebilmeniz İçin Giriş yap veya Üye Ol

Bu kütüphaneyide araştırabilirisiniz. Bir çok profesyonel projede kullanılmaktadır.

Tavsiyeniz için teşekkür ederim, biraz baktım. Türk geliştiricisi olması beni memnun etti. Json formatı ile tekrar işim olduğunda daha detaylı bir inceleme yaparım.
Cevapla
#6
(22-03-2018, Saat: 16:40)canbir Adlı Kullanıcıdan Alıntı: Linkleri Görebilmeniz İçin Giriş yap veya Üye Ol
(22-03-2018, Saat: 11:36)barisatalay Adlı Kullanıcıdan Alıntı: Linkleri Görebilmeniz İçin Giriş yap veya Üye OlLinkleri Görebilmeniz İçin Giriş yap veya Üye Ol

Bu kütüphaneyide araştırabilirisiniz. Bir çok profesyonel projede kullanılmaktadır.

Tavsiyeniz için teşekkür ederim, biraz baktım. Türk geliştiricisi olması beni memnun etti. Json formatı ile tekrar işim olduğunda daha detaylı bir inceleme yaparım.

Rica ederim o kütüphane hakkında yardıma ihtiyacınız olursa yazabilirsiniz Smile
Yeni Nesil Yazılımcı
Linkedin: Linkleri Görebilmeniz İçin Giriş yap veya Üye Ol
Blog adresim: Linkleri Görebilmeniz İçin Giriş yap veya Üye Ol
WWW
Cevapla

Konuyu Paylaş : facebook gplus twitter



Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
  TNetHttpClient post json ahmet_sinav 2 63 9 saat önce
Son Yorum: ahmet_sinav
  Comporttan veri bittiğini nasıl anlarız ? seci20 11 257 21-10-2018, Saat: 17:54
Son Yorum: arsl01
  Application Terminate Olayını Nasıl Yakalarım? 3ddark 17 300 18-10-2018, Saat: 21:25
Son Yorum: yhackup
  json parse PİRSUS23 13 567 14-10-2018, Saat: 01:57
Son Yorum: Halil Han Badem
  JSON Bilgi Talebi, RAD 10 Seattle Yeni JSON Özellikleri Hakkında eroniko 4 188 13-10-2018, Saat: 21:59
Son Yorum: eroniko



Konuyu Okuyanlar: 1 Ziyaretçi