pebogo是MogoDB数据库的Delphi驱动接口。
示例代码：
//example #2 o bsospec.orgvar bso : TBSONDocumet; item : TBSONArrayItem;begi bso := TBSONDocumet.Create; item := TBSONArrayItem.Create; item.Items[0] := TBSONStrigItem.Create( 'awesome' ); item.Items[1] := TBSONDoubleItem.Create( 5.05 ); item.Items[2] := TBSONItItem.Create( 1986 ); bso.Values['BSON'] := item; bso.SaveToFile( ExtractFilePath( Applicatio.ExeName ) + 'hello.bso' ); bso.Free;//prelimiary driver iterfacevar mogo : TMogoCoectio; coll : TMogoCollectio; cursor : TMogoCursor; i : iteger;begi mogo := TMogoCoectio.Create; memo1.lies.add( booltostr( mogo.Coected, true ) ); mogo.GetDatabase( 'tesdb' ); coll := mogo.GetCollectio( 'thigs' ); cursor := coll.fid( ); memo1.lies.add( ittostr( cursor.Cout ) ); for i := 0 to cursor.Cout - 1 do memo1.lies.add( cursor.Result[i].ToStrig );//prit as JSON cursor.Free; coll.Free; mogo.Free;ed;
评论