the first mongodb driver for delphi/FPC
Pascal
Switch branches/tags
Nothing to show
Latest commit 676dc90 Mar 2, 2014 @pebbie Update README.md
fix markdown
Permalink
Failed to load latest commit information.
MongoDB.pas fix memory leak error by igugin Jul 18, 2013
README.md Update README.md Mar 2, 2014
_bson.pas sync with svn repo Aug 6, 2012
_json.pas sync with svn repo Aug 6, 2012

README.md

pebongo

the first mongodb driver for delphi/FPC

MongoDB driver for delphi and freepascal. Synapse (blocking TCP Socket) is used for compatibility with freepascal.

Current

  • JSON Parser
  • BSON I/O (done)
  • Wire Protocol Implementation (in progress)

TODO

ordered by priority

  • create test code and code examples (always)
  • implement mongodb protocol (in progress)
  • create tool to convert BSON-JSON and vice versa (BSON->JSON ok)
  • create documentation (tutorial, reference)
  • create db navigator app

Code Example

//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;