所有例子来自:https://github.com/stijnsanders/TMongoWire

Delphi MongoDB的驱动

一个Delphi的驱动程序来访问mongoDB的服务器。用jsonDoc.pas来存储JSON文档。ijsondocument将变量类型映射Delphi的多种变量,类似于 松散型的JavaScript。 主要有三个单位和两大类能够访问一个Mongo DB:

jsonDoc.pas

IJSONDocument

1)function JSON:IJSONDocument; //overload; //创建一个新的IJSONDocument实例:

 例子: d:=JSON;

2)function JSON(const x:array of Variant):IJSONDocument; //overload;//创建并填充一个新的IJSONDocument实例:

传递一个交替键和值的列表,
d:=JSON(['a',1,'b{','x','foo','}','c{','x','bar','}','d',VarArrayOf([JSON(['x','hello']),JSON(['y','world'])]),'e',true]);
{"a":1,"b":{"x":"foo"},"c":{"x":"bar"},"d":[{"x":"hello"},{"x":"world"}],"e":true}.
例子:

  d:=JSON([
    '_id',ListView1.Selected.SubItems[siiID],
    'name',ItemForm.txtName.Text,
    'address',ItemForm.txtAddress.Text,
    'phone',ItemForm.txtPhone.Text
    ]);

3)function JSON(const x: Variant): IJSONDocument; overload;//将一个变量转换成一个IJSONDocument引用。

例子:  dSelector:=JSON(['_id',ListView1.Selected.SubItems[siiID]]);

取决于论证的价值:

Null(或空或未赋值)返回nil,

将字符串类型解析为一个新的IJSONDocument实例

在所有其他情况下,该变量都被探测,以引用一个IJSONDocument instace。

4)     function ToString: WideString; stdcall;:展示出json数据

例子

mongoWire.pas

利用一个对象TMongoWire连接到MongoDB服务器。它支持获取单个项,执行插入、更新和删除。
利用一个类对象TMongoWireQuery 来查询mongoDB 服务器。它在需要时处理游标和服务器的后续请求,以获得更多的数据。

1)TMongoWire

方法

1)constructor TMongoWire.Create(const NameSpace: WideString);//创建

例子:

  procedure TMainForm.FormCreate(Sender: TObject);
  begin
    FMongoWire:=TMongoWire.Create(mwx1NameSpace);//mwx1NameSpace  数据库名
  end;

2)procedure TMongoWire.Open(const ServerName: string; Port: integer);//与mongoDB数据库连接

 例子:1)FMongoWire.Open(AnsiString(ConnectionForm.txtHost.Text),StrToInt(ConnectionForm.txtPort.Text))

    2)FDB.Open('192.168.0.68',27017);

3)procedure TMongoWire.Insert(const Collection: WideString;const Doc: IJSONDocument);

4)procedure TMongoWire.Insert(const Collection: WideString;const Docs: array of IJSONDocument);

3)procedure TMongoWire.Insert(const Collection: WideString;const Docs: IJSONDocArray);//增加

例子:FMongoWire.Insert(mwx1Collection,d);

4)function TMongoWire.Get(const Collection: WideString; const QryObj,ReturnFieldSelector: IJSONDocument): IJSONDocument;//获取单条

例子: d:=FMongoWire.Get(mwx1Collection,dSelector);

5)procedure TMongoWire.Update(const Collection: WideString; const Selector,Doc: IJSONDocument; Upsert, MultiUpdate: oolean);//更新

例子:   FMongoWire.Update(mwx1Collection,dSelector,d);

6)procedure TMongoWire.Delete(const Collection: WideString;const Selector: IJSONDocument; SingleRemove: boolean);

例子:FMongoWire.Delete(mwx1Collection,JSON(['_id',ListView1.Selected.SubItems[siiID]]));

2)TMongoWireQuery

方法

1)constructor TMongoWireQuery.Create(MongoWire: TMongoWire);//创建

例子:    q:=TMongoWireQuery.Create(FMongoWire);)

2)procedure TMongoWireQuery.Query(const Collection: WideString; const QryObj,ReturnFieldSelector: IJSONDocument; Flags: integer);//查询

例子:q.Query(mwx1Collection,nil);//查询集合中所有文档(数据)

3)function TMongoWireQuery.Next(const Doc: IJSONDocument): boolean;//下一条

例子:q.Next(d)

MongoStream

使用TMongoStream 来加载和存储文件。在内部.files和.chunks集合用于存储数据。

方法

1)constructor TMongoStream.Create(db: TMongoWire; const prefix: WideString;const filequery: IJSONDocument);

例子: m:=TMongoStream.Create(FDB,FilesCollection,li.SubItems[siID]);

2)class function TMongoStream.Add(db: TMongoWire; prefix: WideString;stream: TStream; const info: IJSONDocument): Variant;//添加上传文档信息

例子:

id:=TMongoStream.Add(FDB,FilesCollection,f,JSON([
'name',fn,
'contentType',contentType,
'created',VarFromDateTime(Now)
//more?
]));//将json数据添加到数据库里,返回mongoObjectId

3)class function TMongoStream.Add(db: TMongoWire; const prefix,filepath: WideString): Variant;

4)procedure TMongoStream.SaveToFile(const FileName: string);//另保存文件信息(下载)

二、实例

delphi xe----操作mongoDB驱动,TMongoWire(Delphi MongoDB Driver)的更多相关文章

  1. [转载]: delphi中XLSReadWrite控件的使用(2)---delphi XE下安装

    一.下载 官方下载网址: http://www.axolot.com/components/download.htm 从这里可以下载到从Delphi5到DelphiXE全部支持的版本. 二.软件安装 ...

  2. DELPHI XE MYSQL数据库操作类 MYSQLHELPER

    注: 无需odbc配置 {* * MySQL Helper v1.0 * 2015.6.19 * 说明: * 这是一个操作MySQL的类,该类必须和libmysql.dll,dbxmys.dll两个文 ...

  3. delphi xe 10.3 利用Git组群开发,Git服务器安装,Git 拉取,提交,推送相关设置操作

    1. Git服务器安装, 参考 https://blog.csdn.net/u012842630/article/details/97175397 Git服务器官方网站,要FQ. 2. 工具软件 gi ...

  4. MongoDB 驱动以及分布式集群读取优先级设置

    本文主要介绍使用MongoDB C驱动读取分布式MongoDB集群时遇到的坑,主要在读取优先级和匹配tag上:同时简单介绍Python驱动.Node.js驱动.Mongoose驱动如何使用读取优先级和 ...

  5. Java的MongoDB驱动及读写策略

    网上看见一篇博文,详细讲了MongoDB读写策略,将来生产会遇到类似的问题,转来备查. 指定新mongo实例: Mongo m = new Mongo(); Mongo m = new Mongo( ...

  6. Delphi XE中使用dbExpress连接MySQL数据库疑难问题解决(对三层的例子配置有帮助)

    Delphi IDE中包含一个Data Explorer的组件,如下图所示: 该组件基于dbExpress(包含TSQLConnection.TSQLDataSet.TSQLQuery.TSQLSto ...

  7. Delphi XE 10 跨平台三层数据库应用教程

    Delphi XE 10 跨平台三层数据库应用教程 前言: Delphi XE 开始越来越庞大,比经典的Delphi7难用,但依然是目前所有跨平台开发工具中开发效率最高.最容易上手的,其快速设计RAD ...

  8. Delphi XE Starter Essentials 中文目录

    Table of Contents1. Delphi XE Starter IDE 1Delphi and C++Builder ................................... ...

  9. 技术讨论]mongodb驱动的正确使用方法

    原文地址:http://cnodejs.org/topic/5190d61263e9f8a542acd83b mongo数据库在nodejs平台有2个常用驱动,mongodb和mongoose,mon ...

随机推荐

  1. android Volley 上传文件上传图片

    Volley不解释了吧, android 官方的一个网络请求库. 源码的地址在: git@github.com:com314159/VolleyMultiPartRequest.git 上面的是ssh ...

  2. HTTP Cache怎样计算Age

    这里的Age指的是响应头Age.以下内容有部分翻译,也有部分自己的理解.欢迎讨论. 我们用now表示当前主机的当前时间,用request_time表示缓存发起请求的时间,用response_time表 ...

  3. myeclipse的user library不自动部署到WEB-INF/lib目录下的解决办法

    右键进入项目属性 Properties 点进去 左边 MyEclipse -> Deployment Assembly 右边 Add -> JavaBuild Path Entries - ...

  4. Linux 系统 pptpd+radius+mysql 安装攻略

    分类: 原文地址:Linux 系统 pptpd+radius+mysql 安装攻略 作者:wfeng .你所需要的软件 内核最好能升级到2.6 如果你是centos的用户,可以通过yum update ...

  5. ubuntu下ssh设置firefox用的反向代理

    mark一下: ssh -D 127.0.0.1:8080 -l root MyIp

  6. c#各类型转byte[]或转回

    var tmp = BitConverter.ToInt32(new byte[]{...}); var bytes = BitConverter.GetBytes(tmp); 而String转byt ...

  7. excel增加上一列的数值(日期)

    =TEXT(D2-1,"m月d日") 有年的话就是 =TEXT(D2-1,"yyyy年m月d日") D2就是参照日期

  8. Verilog语言:还真的是人格分裂的语言

    人气腹语术师天愿在现场披露了被人偶搭档夺取灵魂的腹语术师将妻子杀害的表演节目.天愿真的陷入了多重人格,命令自己杀害妻子和子的人偶的人格出现了.为了不(让自己)杀害和弟子登川有外遇的妻子,天愿提出委托想 ...

  9. PHP命名空间规则解析及高级功能

    日前发布的PHP .3中,最重要的一个新特性就是命名空间的加入.本文介绍了PHP命名空间的一些术语,其解析规则,以及一些高级功能的应用,希望能够帮助读者在项目中真正使用命名空间. 在这里中我们介绍了P ...

  10. AxureRP_for_chorme的安装和使用方法

    1.下载AxureRP_for_chorme_version.crx 2.打开Chrome,右上角菜单图标->更多->扩展程序 3.将crx文件拖入,安装 4.选中AxureRP的“已启用 ...