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
  pascal script ile QuickReport nesnelerine nasıl erişim yapılır theSinan 2 107 04-07-2018, Saat: 11:16
Son Yorum: hi_selamlar
  Delphi Json Parse yhackup 8 193 27-06-2018, Saat: 02:15
Son Yorum: canbir
  delphi ile json parseleme arsl01 25 712 26-06-2018, Saat: 15:15
Son Yorum: arsl01
  webden json okuma hatası arsl01 3 103 25-06-2018, Saat: 15:17
Son Yorum: arsl01
  JSON Veri Okuma elixir84 12 408 12-06-2018, Saat: 13:50
Son Yorum: elixir84



Konuyu Okuyanlar: 1 Ziyaretçi