【说明】

这个例子答应大家很久了,一直没有时间弄,现在正式结合MyBean插件可以很方便的在客户端共享操作连接,执行数据库的各项工作,屏蔽了底层的通信解码器编码等工作,直接传递Variant,给了开发者足够的领活和自由。

【服务端使用技术】

diocp3:担当底层的通信任务。

qworker/iocpTask:担当业务逻辑的处理工作,diocp3接受数据解码后用qworker/iocpTask将数据包投递出来,这样不用占用通信线程。

qmsgpack:负责将传递的将variant数据打包到流,从流中解码成variant

dataModule:对应连接的对象,方便进行开发。

【客户端】

myBean:制作基于MyBean框架的插件,可以在MyBean的框架模块中直接使用。

RawTcpClient:用于和服务端进行通信,阻塞的tcp客户端,类似IdTcpClient的精简版本,操作容易。

【DEMO使用】

说 明:客户端依赖diocp_bean.dll插件与服务器进行数据交换,DIOCP_DBDEMO.dll是演示窗体插件的宿主。

存放路径:MyBean\samples\diocp-DBDEMO

启动服务:SERVER_EXE\diocp3Server.exe  <点击start按钮启动服务>

服务器是基于DIOCP3的。可以在DIOCP3项目中找到源码[diocp3\samples\socket-Coder\DataModuleDEMO]

启动客户端:打开 [simpleConsole.exe], 依次点击下面的按钮就可以看到效果了

【DEMO说明】

服务端处理:

服务端基于DIOCP3通信,该DEMO做了简单的封装,使用户可以专注于逻辑的实现,和客户端交互使用variant类型进行。

dmMain,是和客户端连接想对应的一个对象[和客户端的连接是一对一的关系]。

我在里面稍微做了下逻辑处理的演示:

function TdmMain.Execute(pvCmdIndex: Integer; var vData: OleVariant): Boolean;
begin
case pvCmdIndex of
:
begin
// 返回服务端时间给客户端
vData := Now();
Result := true;
end;
: // 查询数据
begin
// vData 认为是传入的SQL语句
// 执行后, vData为查询的数据,可以用于对ClientData.Data的赋值 qryMain.Close;
qryMain.SQL.Clear;
qryMain.SQL.Add(vData);
qryMain.Open; vData := dspMain.Data;
Result := true;
qryMain.Close;
end;
:
begin
// vData 为执行的语句
conMain.BeginTrans;
try
qryMain.Close;
qryMain.SQL.Clear;
qryMain.SQL.Add(vData);
qryMain.ExecSQL;
conMain.CommitTrans; VarClear(vData); Result := true; except
conMain.RollbackTrans;
raise;
end;
end;
end;
end;

vData,是客户端传递过来的参数,也是返回给客户端的数据。vData是OleVariant可以容纳任何的数据<配合qmsgPack可以达到任何的数据格式要求>, 如果还达不到你的格式要求,你可以在MyClientContext的dataReceived函数做些修改,下面代码的处理过程依次是:

解压收到的数据->QmsgPack解包->取出客户端传入的参数->调用dmMain.Execute处理逻辑->qmsgPack编码数据->压缩数据->回传数据到客户端

procedure TMyClientContext.dataReceived(const pvDataObject: TObject);
var
lvMsgPack:TQMsgPack;
lvStream :TStream;
lvStream2:TMemoryStream;
vData:OleVariant;
lvResult:Boolean;
begin
lvMsgPack := TQMsgPack.Create;
try
try
if FdmMain = nil then FdmMain := TdmMain.Create(nil); lvStream := TStream(pvDataObject);
lvStream.Position := ; // upZip
TZipTools.unCompressStreamEX(lvStream); lvStream.Position := ; // unpack
lvMsgPack.LoadFromStream(lvStream); // get param
vData := lvMsgPack.ForcePath('cmd.data').AsVariant; // invoke dataModule function
lvResult := FdmMain.Execute(lvMsgPack.ForcePath('cmd.index').AsInteger, vData); // write result info
lvMsgPack.Clear;
lvMsgPack.ForcePath('__result.result').AsBoolean := lvResult;
lvMsgPack.ForcePath('__result.data').AsVariant := vData;
except
on E:Exception do
begin
lvMsgPack.Clear;
lvMsgPack.ForcePath('__result.result').AsBoolean := false;
lvMsgPack.ForcePath('__result.msg').AsString := e.Message;
end;
end; lvStream.Size := ;
lvMsgPack.SaveToStream(lvStream); lvStream.Position := ; // zipStream
TZipTools.compressStreamEX(lvStream);
lvStream.Position := ; // send to client
self.writeObject(lvStream);
finally
lvMsgPack.Free;
end; end;

客户端处理:

编译的 DLL 放到和EXE同一个目录下面就可以进行自动加载。

客户端diocp_bean工程中

library diocp_bean;

uses
SysUtils,
Classes,
mybean.core.beanFactoryForNoVcl,
uRemoteServerDIOCPImpl in 'Service\uRemoteServerDIOCPImpl.pas'; {$R *.res} begin
beanFactory.RegisterBean('diocpRemoteSvr', TRemoteServerDIOCPImpl).Singleton := true;
end.

注册的diocpRemoteSvr插件实现了IRemoteServer接口和IRemoteServerConnector接口,而且该插件为单件模式。其他任何地方调用都只会产生一个连接实例。

type
IRemoteServer = interface(IInterface)
['{20B5F070-461C-41F4-AA0C-E500A36E18E4}'] /// <summary>
/// 执行远程动作
/// </summary>
function Execute(pvCmdIndex: Integer; var vData: OleVariant): Boolean; stdcall;
end; IRemoteServerConnector = interface(IInterface)
['{65931F56-07BA-42F8-BD5C-7409053F5B2C}']
procedure setHost(pvHost: PAnsiChar);
procedure setPort(pvPort:Integer);
procedure open;
end;

演示操作窗体:<服务端是13K的成语记录>

相应按钮代码:

constructor TfrmMain.Create(AOwner: TComponent);
begin
inherited;
// 通过注册的插件ID获取单实例的远程连接操作接口
FRemoteSvr := TMyBeanFactoryTools.getBean('diocpRemoteSvr') as IRemoteServer;
end; procedure TfrmMain.btnConnectClick(Sender: TObject);
begin
// 打开远程连接,如果打开过可以不用打开,其他插件中可以直接使用
(FRemoteSvr as IRemoteServerConnector).setHost(PAnsiChar(AnsiString(edtHost.Text)));
(FRemoteSvr as IRemoteServerConnector).setPort(StrToInt(edtPort.Text));
(FRemoteSvr as IRemoteServerConnector).open;
ShowMessage('open succ!');
end; procedure TfrmMain.btnOpenClick(Sender: TObject);
var
vData:OleVariant;
l : Cardinal;
begin
vData := mmoSQL.Lines.Text; l := GetTickCount; // 在远程打开SQL
if FRemoteSvr.Execute(, vData) then
begin
self.cdsMain.Data := vData;
Self.Caption := Format('query: count:%d, time:%d',
[self.cdsMain.RecordCount, GetTickCount - l]);
end;
end;

PS: 其他功能大家自己去实现,该文章写了好几个中午,希望对大家有用。

由于qdac开源项目 >=D2007,所以D7下面不能编译服务端,和diocp_bean.项目(你可以在D2007中编译好diocp_bean和服务端工程,其他插件可以在d7中完成)

-----------------------------------------------------------------------------------------------------

MyBean 轻量级配置开源框架 开源地址

https://git.oschina.net/ymofen/delphi-framework-MyBean

DIOCP3开源地址

https://github.com/ymofen/diocp3

qdac项目信息

官方网站:http://www.qdac.cc

官方QQ群:250530692

QDAC项目网址:http://sourceforge.net/p/qdac3

在线源码浏览:http://sourceforge.net/p/qdac3/code/HEAD/tree/

SVN检出地址:

http://svn.code.sf.net/p/qdac3/code/
svn://svn.code.sf.net/p/qdac3/code/

[DIOCP3/MyBean/QDAC开源项目] DataModule-DB例子基于MyBean的插件实例<三层数据库方案>的更多相关文章

  1. 【Github开源项目体验】- ZFile 基于 Java 的在线网盘

    [Github开源项目体验]- ZFile 基于 Java 的在线网盘 在线云盘.网盘.OneDrive.云存储.私有云.对象存储.h5ai.上传.下载 date: 2022-08-02 addres ...

  2. BootCDN 开源项目免费 CDN 加速服务,Jquery插件库

    2017-11-17  19:38:32 免费好用的在线 css js 文件引用 BootCDN - Bootstrap 中文网开源项目免费 CDN 加速服务 Jquery插件库 .

  3. 基于EasyDarwin开源流媒体服务器框架实现EasyNVR H5无插件直播流媒体服务器方案

    背景分析 在之前的一篇博客<web无插件播放RTSP摄像机方案,拒绝插件,拥抱H5!>中,描述了实现一套H5无插件直播方案的各个组件的参考建议,又在博客<EasyNVR H5流媒体服 ...

  4. 开源项目kcws代码分析--基于深度学习的分词技术

    http://blog.csdn.net/pirage/article/details/53424544 分词原理 本小节内容参考待字闺中的两篇博文: 97.5%准确率的深度学习中文分词(字嵌入+Bi ...

  5. 【开源项目系列】如何基于 Spring Cache 实现多级缓存(同时整合本地缓存 Ehcache 和分布式缓存 Redis)

    一.缓存 当系统的并发量上来了,如果我们频繁地去访问数据库,那么会使数据库的压力不断增大,在高峰时甚至可以出现数据库崩溃的现象.所以一般我们会使用缓存来解决这个数据库并发访问问题,用户访问进来,会先从 ...

  6. 又一开源项目爆火于GitHub,Android高级插件化强化实战

    一.插件化起源 插件化技术最初源于免安装运行 Apk的想法,这个免安装的 Apk 就可以理解为插件,而支持插件的 app 我们一般叫 宿主. 想必大家都知道,在 Android 系统中,应用是以 Ap ...

  7. (2)从实际项目谈起,基于MEF的插件框架之总体设计

    文章版权由作者李晓晖和博客园共有,若转载请于明显处标明出处:http://www.cnblogs.com/naaoveGIS/. 1.MEF框架简介 MEF的全称是Managed Extensibil ...

  8. DIOCP开源项目-高效稳定的服务端解决方案(DIOCP + 无锁队列 + ZeroMQ + QWorkers) 出炉了

    [概述] 自从上次发布了[DIOCP开源项目-利用队列+0MQ+多进程逻辑处理,搭建稳定,高效,分布式的服务端]文章后,得到了很多朋友的支持和肯定.这加大了我的开发动力,经过几个晚上的熬夜,终于在昨天 ...

  9. [转]Android开源项目收藏分享

    转自:http://blog.csdn.net/dianyueneo/article/details/40683285 Android开源项目分类汇总 如果你也对开源实现库的实现原理感兴趣,欢迎 St ...

随机推荐

  1. [转]VUE优秀UI组件库合集

    原文链接 随着SPA.前后端分离的技术架构在业界越来越流行,前端的业务复杂度也越来越高,导致前端开发者需要管理的内容,承担的职责越来越多,这一切,使得业界对前端开发方案的思考多了很多,以react.v ...

  2. 【经验总结】 fisheye 3.1.5 安装、破解全过程 图文教程(2.0以上版本均可成功!)

    声明:此破解仅为个人娱乐,如果你有钱,请支持正版! 重要说明,只要把fisheye先关掉即可,然后执行下面的破解步骤,一样可以破解!本人已测试通过. 一.安装.破解fisheye最新版3.1.5 所需 ...

  3. 【struts2】值栈(前篇)

    1 值栈是什么? 简单的说:值栈是对应每一个请求对象的轻量级的内存数据中心. Struts2中一个很激动人心的特性就是引入了值栈,在这里统一管理着数据,供Action.Result.Intercept ...

  4. 【Linux】双向重导向命令tee

    想个简单的东西,我们知道 > 会将数据流整个传送给文件或装置,因此我们除非去读取该文件或装置, 否则就无法继续利用这个数据流.万一我想要将这个数据流的处理过程中将某段信息存下来,应该怎么做? 利 ...

  5. TOP字句加SQL变量的相关问题

    SQL Server数据库中的变量可以加载TOP字句之后,下文将对TOP字句加SQL变量的相关问题进行讨论,供您参考,希望对您学习SQL数据库有所帮助. SQL Server2005开始,TOP子句后 ...

  6. java多线程学习--java.util.concurrent (转载)

    题记:util和concurrent 包是后续重点先看的和学习的模块 原文地址:http://www.cnblogs.com/sunhan/p/3817806.html CountDownLatch, ...

  7. 【iOS开发-36】Bundle Identifier的中文字符变成-的问题

    在创建新项目时,Bundle Identifier=Organization Identifier+Product Name.可是它们对中文的识别统一变成短横线 - . 所以在创建多个项目的时候,须要 ...

  8. CListCtrl自适应宽度

    原文链接: http://blog.csdn.net/benny5609/article/details/1967084 void CListCtrlExDlg::AdjustColumnWidth( ...

  9. Java 9 揭秘(1. 入门介绍)

    文 by / 林本托 在第一部分中,主要讲解如下内容: JDK 9 包含了哪些内容 运行代码的系统要求 如何安装 NetBeans 1 JDK 介绍 JDK 9是Java开发工具包的第九个主要版本,计 ...

  10. 怎样让HTML 表格中内容自动换行??

    <table style="word-break:break-all; word-wrap:break-all;">