mORMot Delphi/꿀팁 [mORMot] MongoDB의 Aggregate 사용하기 var Coll: TMongoCollection; sTemp: string;begin Coll := DB.CollectionOrCreate['Collection']; sTemp := '{$match:{..}, $group:{..}, $..}'; Showmessage(Coll.AggregateJSONFromJson(sTemp));end; Delphi/꿀팁 [mORMot] MongoDB에서 Random으로 Document 가져오기 mORMot 설정 developist.tistory.com/2 참조 mORMot의 synMongoDB 추가uses synMongoDB; Random으로 가져오기procedure getRandomDoc;var Coll: TMongoCollection; doc : Variant;begin Coll := DB.CollectionOrCreate['myCollection']; doc := Coll.AggregateDocFromJson('{$sample:{size:1}}');end; Delphi/꿀팁 [mORMot] FMX에서 Json을 VariantDynArray로 변환하기 mORMot 다운 및 설정법은 developist.tistory.com/17 참조 mORMot의 SynCrossPlatformJSON을 추가합니다.uses SynCrossPlatformJSON;Json을 VariantDynArray로 변환합니다.function JsonToVariantDynArray(Json : string) : TVariantDynArray;var temp : TJSONVariantData;begin temp.Init; temp.FromJSON(Json); Result := temp.Values;end; 이전 1 2 3 4 5 다음