22-12-2017, Saat: 16:54
Dataseti daha önce, DataSet To XML , DataSet To Excel olarak almıştık şimdi de Dataset To Json yapıyoruz.
Dikkat : Eğer ilgili field'ınız Null ise json objesi hiç oluşmaz, okumanız gereken yerlerde buna dikkat ediniz.
var JSONField,JSONVal : TJSONObject; JSONArray : TJSONArray; i:integer; begin try if Data.IsEmpty then begin Result := 'Dataset Boş'; end else begin JSONArray := TJSONArray.Create; try while not Data.Eof do begin JSONField := TJSONObject.Create; for I := 0 to Data.FieldCount - 1 do begin JSONField.AddPair(Data.Fields[i].FieldName , Data.FieldByName(Data.Fields[i].FieldName).AsString); end; JSONArray.Add(JSONField); Data.Next; end; Result := JSONArray.ToString; finally JSONArray.DisposeOf; end; end; except on E: Exception do Result := E.Message; end; end;
Dikkat : Eğer ilgili field'ınız Null ise json objesi hiç oluşmaz, okumanız gereken yerlerde buna dikkat ediniz.