Çok Yakında Yeni Bir Arayüzle karşınızdayız! http://yeni.delphican.com/

Konuyu Oyla:
  • Derecelendirme: 5/5 - 2 oy
  • 1
  • 2
  • 3
  • 4
  • 5
Delphi & Firebase Database Entegrasyonu Nasıl Sağlanır ?
#11
ekran.png

(03-11-2019, Saat: 23:19)hozlem Adlı Kullanıcıdan Alıntı: Linkleri Görebilmeniz İçin Üye Olmanız Gerekiyor. Üye Olabilmek İçin Lütfen Buraya Tıklayınız.BULDUM ARKADAŞLAR 1 HAFTA UGRASTIM AMA TÜM DELPHİ 7 JSON YAPISINI COZDÜM.  DatabaseId:=TlkJSONobjectmethod(item).Name; BU ŞEKİLDE OLACAKMIŞ KISACA. İYİCE ANLADIM JSON MANTIGINI IYICE KAVRADIM.  DELPHİ 7 İLE İLGİLİ SORUN YASAYAN OLURSA YARDIMCI OLURUM. ESKİ BİR DİL GERCI PEK KULLANAN YOKTUR. TSK EDERIM.

var
 ListObject: TlkJSONbase;
 item,items,Itemk: TlkJSONbase;
 JsonValue, DatabaseId, deger: String;
 i,j: integer;
begin
 dxMemData1.DisableControls;
 ListObject := TlkJSON.ParseText(ResponseBody2.text);
   for I := 0 to ListObject.Count - 1 do
   begin
        item:=TlkJSONObject(ListObject).child[I];
        DatabaseId:=TlkJSONobjectmethod(item).Name;
        Items := ListObject.Field[DatabaseId];
        if not dxMemData1.Active then
        dxMemData1.Open;
        dxMemData1.Edit;
        dxMemData1.Append;
        dxMemData1.FieldByName('DatabaseId').Value := DatabaseId;
        dxMemData1.FieldByName('Product').Value := VarToStr(items.Field['Product'].Value);
        dxMemData1.FieldByName('ProductVersion').Value := VarToStr(items.Field['ProductVersion'].Value);
        dxMemData1.FieldByName('PackageVersion').Value := VarToStr(items.Field['PackageVersion'].Value);
        dxMemData1.FieldByName('CompilerVersion').Value := VarToStr(items.Field['CompilerVersion'].Value);
        dxMemData1.Post;
  end;

 dxMemData1.EnableControls;

end;

lutfen yardım edın
Cevapla


Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
  DBeaver : Free Universal Database Manager (SQL Client) mad85 8 2.050 21-11-2017, Saat: 22:04
Son Yorum: mad85



Konuyu Okuyanlar: 1 Ziyaretçi