pebongoMongoDB 的 Delphi 驱动
pebongo 是 MongoDB 数据库的 Delphi 驱动接口。
示例代码:
//example #2 on bsonspec.org var bson : TBSONDocument; item : TBSONArrayItem; begin bson := TBSONDocument.Create; item := TBSONArrayItem.Create; item.Items[0] := TBSONStringItem.Create( 'awesome' ); item.Items[1] := TBSONDoubleItem.Create( 5.05 ); item.Items[2] := TBSONIntItem.Create( 1986 ); bson.Values['BSON'] := item; bson.SaveToFile( ExtractFilePath( Application.ExeName ) + 'hello.bson' ); bson.Free; //preliminary driver interface var mongo : TMongoConnection; coll : TMongoCollection; cursor : TMongoCursor; i : integer; begin mongo := TMongoConnection.Create; memo1.lines.add( booltostr( mongo.Connected, true ) ); mongo.GetDatabase( 'tesdb' ); coll := mongo.GetCollection( 'things' ); cursor := coll.find( ); memo1.lines.add( inttostr( cursor.Count ) ); for i := 0 to cursor.Count - 1 do memo1.lines.add( cursor.Result[i].ToString );//print as JSON cursor.Free; coll.Free; mongo.Free; end;
评论