pebongo是MongoDB数据库的Delphi驱动接口。
示例代码：
//example #2 on bsonspec.orgvar 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 interfacevar 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;
评论