MongoDB Driver for Delphi/FreePascal

Автор внёс изменения и добавил условные операторы по исходному адресу: https://github.com/fabriciocolombo/mongo4delphi.

Промежуточная версия драйвера MongoDB для Delphi/FreePascal с удобным API на основе драйвера Java. Собственные типы Delphi отображаются на Variant, а более сложные типы (такие как ObjectId, Array и т. д.) имеют специфическую реализацию.

Драйвер протестирован с Delphi 7, Delphi XE и FreePascal (Lazarus 0.9.30.2/FPC 2.4.4) и, вероятно, будет работать нормально с другими версиями Delphi выше 7. Если кто-то захочет протестировать другие версии Delphi, дайте обратную связь, и я обновлю эту документацию. Для полного тестирования скомпилируйте исходный код, запустите модульные тесты и убедитесь, что демо работает.

Для совместимости с FreePascal можно использовать соединение TPC Delphi Sockets или Synapse.

Использование:

Есть два основных модуля для доступа к серверу mongodb: mongo.pas и BSONTypes.pas.

Пример кода:

var mongo: TMongo; db: TMongoDB; coll: TMongoCollection; bson: IBSONObject; item: IBSONArray; begin mongo := TMongo.Create; try mongo.Connect(${server.host}, ${server.port}); db := mongo.getDB('testdb'); coll := db.GetCollection('testcoll');

bson := TBSONObject.NewFrom('code', 123)
                   .Put('name', 'Fabricio')
                   .Put('LocalDate', Date);

item := TBSONArray.NewFrom('awesome')
                  .Put(43.29)
                  .Put(2012);

bson.Put('items', item);

coll.Insert(bson);

finally mongo.Free; end; end;

Определение классов:

В файле mongo.pas представлены классы:

• TMongo — представляет соединение с сервером mongo, с такими методами, как GetDB(const ADBname: String): TMongoDB.
• TMongoDB — представляет базу данных mongo, с методами вроде RunCommand и GetCollection.
• TMongoCollection — представляет коллекцию внутри базы данных и имеет такие методы, как Insert, Update, Remove, CreateIndex, Find и др.
• TMongoCursor — курсор для результатов запроса. Курсор позволяет подготовить запрос перед открытием, основные методы: Skip, Limit, BatchSize, Count, Size, Sort, Hint, Explain, Snapshot, а также для итерации по возвращаемым строкам: hasNext и Next.

Файл BSONTypes.ps содержит классы, представляющие документы или типы значений:

• IBSONObject — документ.
• IBSONArray — массив значений, который может содержать другие документы.
• IObjectId — специфическая реализация типа BSON objectId. Могут быть созданы и другие типы.