Web hosting üzerindeki MYSQL ve Android

[nehirnehir]

İhtiyaç duyanlar öncesini de takip edebilsinler diye buraya yazıyorum. Bu yüzden yeni konu açmadım.
Epey bir yol aldım yardımlarınızla. Ama tek bir şey kaldı JSON ile ihtiyaç duyacağım.

Ben PHP ile veritabanımdaki tablodan kayıtları JSON olarak alıyorum. Tablomun alanları id-fiyat-baslangic-bitis-not olsun.
Tablomda sorguma uygun olan 100 tane kayıt listelensin.
Ben bunları delphi içinde 2 boyutlu bir diziye yazdırmak istiyorum. Gerektiğinde kolaylıkla kullanabileyim diye. Mesela dataArray[4,1] dediğimde 4.kayıtın "fiyat" değerine ulaşmak istiyorum. Ya da mümkünse dataArray[4,'fiyat'] ile ulaşabilmek istiyorum. (Böyle bir dizi özelliğine ulaşamadım ben. Galiba hep rakam vermek gerekiyor.)

Aşağıdaki kod ile array ı doldurmaya çalıştım ama döngü farklı çalışıyor. Önce 1.for tamamlanıyor, sonra 2.for tamamlanıyor.

Kod: Tümünü seç

k:=-1;
    for AMember in frmPMain.X.A['dataPer1'] do
        begin
          k:=k+1;
          m:=-1;
          for OMember in AMember.AsObject do
          begin
          m:=m+1;
          frmPMain.Memo1.Lines.Add(OMember.ToString);
          frmPMain.dataArr[k,m]:=OMember.ToString;
          end;
          ShowMessage(frmPMain.dataArr[0,0]);  // Bunu dataArr[0,'id'] şeklinde elde edebilsem çok daha iyi olacaktı.

        end;

[barisatalay]

Dizilerle ugrasmak yerine Marshaling konusunu bir araştırırsanız X-SuperObject bu konuya destek vermektedir.

[nehirnehir]

O konuya çok yabancıyım. Baktım, çok da fazla kaynak yok zaten. Ben veri işlemlerinin tamamını PHP ile yaptığım için basit bir dizi mantığı benim işimi görecek.
Delphi tarafında pek bir veri işim kalmayacak. Dediğim gibi sadece "5.kayıtın 'fiyat' bilgisine ulaşabilsem bu bana yetecek.
Delphi ile taa Delphi4 filan varken uğraşmıştım. Bu yüzden herşeyi unutmuşum. Web programlamadan sonra delphiye geçiş biraz yordu beni.

[barisatalay]

Örnek bir JSON ve neyi napmak istediğinizi bir yazın bakalm dediğinize

[nehirnehir]

Aynı örnek olabilir. Sizin blog sayfanızda yayınladığınız örnek. Orada da 3 kayıt vardı.
Eğer ben tabloya yeni alanlar eklersem dataArray[0,5] gibi bir başvuru yanlış olacak. Bu yüzden dataArray[0,'id'] gibi bir başvuru işime çok yarayacak.
Yani örnekteki JSON verileri 2 boyutlu bir dataArray dizisine yazdırılacak.
Bu kadar kolay ama JSON alanında sıfır olduğum için for döngüsünde kullanamadım.

[barisatalay]

Örneğin bir buton koyun içerisine:

XML kullanmışsanız biraz benzetebilirsiniz node mantığına.

O[1] bu da JSON içerisindeki dizinizin hangi objesini istiyorsanız onun index numarasıdır.

Kod: Tümünü seç

var
  Deger: String;
begin             
  Deger := X.A['dataPer1'].O[1].S['id'];
  ShowMessage(Deger);

[nehirnehir]

Eğer çalıştırabilirsem istediğim şey tam olarak bu. Son bir soru.
JSON un kayıt sayısını nasıl bulabilirim?
X.Count.toString() denedim ama 2 kayıt varken tabloda 1 sonucunu döndürdü.

[barisatalay]

Cünkü içerisindeki en üst dizin Array ve orada 1 tane array var

Olayımış şöyle Eğer eleman sayısını alacağınız bir Obje ise yani "{ }" ise X.O['OBJE'].count şeklinde alabilirsiniz fakat sizin eleman sayısını almak istediğiniz şey bir dizidir. Diziyi ise X.A['dataPer1'].Length şeklinde alabilirsiniz.

[nehirnehir]

Teşekkürler.
Tam da ben yazıyordum X.A['dataPer1'].Length.ToString() şeklinde buldum diye.
JSON çok uğraştırdı beni. Benim için gerekli kısmı bu kadar.
Teşekkürler vakit ayırdığınız için, kolay gelsin...

[eyalin]

Arkadaşlar Merhaba,

Bende kendi sunucumdaki Firebird db'ye erişmeye çalışıyorum.Bunun DataSnap dışında doğrudan bir erişim yolu yokmu?Unidac ile deneğimde
"connection rejected" hatası alıyorum.Tüm ayarlar doğru yapıldı port açıldı db yolu doğru...

Teşekkürler.

[barisatalay]

Arkadaşlar Merhaba,

Bende kendi sunucumdaki Firebird db'ye erişmeye çalışıyorum.Bunun DataSnap dışında doğrudan bir erişim yolu yokmu?Unidac ile deneğimde
"connection rejected" hatası alıyorum.Tüm ayarlar doğru yapıldı port açıldı db yolu doğru...

Teşekkürler.

Yeni bir soru olarak sorsanız daha sağlıklı sonuç alırsınız.