.

[keramiozsoy]

.

[barisatalay]

JSON verinizin örneğini gösterme şansınız var mı ?

[keramiozsoy]

.

[barisatalay]

Örnek olarak şu şekilde bir bölümünü paylaşayım.Normalde bunun url den almalıyım fakat şimdilik çalışsa kafi
{
et_id: "6",
et_adi: "İş ve Meslek Danışmanlığı",
et_adi_seo: "is-ve-meslek-danismanligi",
et_bas_tarihi: "07 July",
et_icerik: "İş ve Meslek Danışmanlığı hizmeti

verilecektir. ",
et_bas: "2014-07-07"
}

Sanırım ben eksik yazdım JSON tamam peki bu tekrarlanan bir objemi ? yani Döngüye sokmak istediğiniz birşey mi? Tam olarak ne yapmak istiyorsunuz ? Daha açıklayıcı olursa hemen halledilebilir.

[keramiozsoy]

.

[barisatalay]

Aşağıdaki şekil en basit biçimde kullanımıdır örnek olarak 2 tane Obje ekleyip kendi hostingime attım dosyayı get etmeyide görmeniz için.

Kod: Tümünü seç

var
  T:string;
  X: ISuperObject;
  OElemani,
  AElemani: IMember;
begin
 with TIdHTTP.Create do
 begin
   try
     T := Get('http://mangakafe.com/Test.txt');
   finally
     Disconnect;
     Free;
   end;
 end;

 X := SO(T);

 for AElemani in X.A['Veriler'] do
 begin
   for OElemani in AElemani.AsObject do
     Memo1.Text := Memo1.Text + OElemani.Name + ' = ' + OElemani.ToString + #13+#10;

   Memo1.Text := Memo1.Text + '******************Obje değiştiriliyor******************' +#13+#10;
 end;

[SimaWB]

HATA :
Undeclared identifier 'TJSONObject'
Undeclated identifier 'TJOSNPair'

Projenize System.JSON unitini eklemelisiniz.

[keramiozsoy]

.

[keramiozsoy]

.

[barisatalay]

Bir video yükledim tam olarak sorun bu
https://vimeo.com/100088261

1. Olarak "http://brsatalay.blogspot.com.tr/2014/0 ... bject.html" burada sordugunuz soruyu baz alarak cevabımı yazmıştım kütüphaneleri tanımlamadıysanız "ISuperObject" nesnesini tabikide kullanamassınız.

2. TIDHttp kullanabilmek için Uses bloğuna "IDHTTP" eklemelisiniz.