[mORMot] MongoDB 조회 후 JSON을 DataSet으로 변환하기

MongoDB접속 및 DB연결은 developist.tistory.com/2 참조

TDataSource 생성

type
  ds : TDataSource;
  ...
end;

JSON을 DataSet으로 변환

var
  Coll : TMongoCollection;
  Json : RawUTF8;
begin
  Json := Coll.FindJSON(null, null);
  ds.DataSet := JSONToDataSet(Self, Json);
end;

※DataSet으로 변환 후 Grid에 Binding하여 간단하게 데이터를 표현할 수 있으나 JSON형이 그대로 드러나 지저분해 보이는 단점이 있습니다.

Developist Gallery