一般的Delphi下的ORM工具都是在ADO组件之上实现,其实也就是在传统两层C/S的中间插入一层而已,这样的数据库实体对象并非是远程数据库实体,其功用相对于Delphi的RAD开发模式并不显著。在下在实现了QuickBurro分布式多层架构后,在该架构之上实现了远程数据库的对象化(即远程数据库实体类),编写了一个实用的实体类代码生成工具GetEntity.exe,经实际项目中的应用证实,较为实用。该工具支持“简单实体类、批量实体类、动态实体类、主从实体类”四种代码生成方式,能对任意远程节点上的数据库进行对象化转换,生成可在Delphi下直接编译通过的...
最近根据uPnP技术、用delphi写了一个进行自动端口映射的控件TAutoNAT,用于在自行开发的delphi软件中实现自动端口映射,使得中间件QuickBurro的安装软件具备了自动进行NAT设置的能力,大大简化了软件的安装。下面把TAutoNAT控件的使用说明贴一下,如哪位朋友需要,请联系我,100元/份,源码,带例子。
*************************************
TAutoNAT控件使用说明
***********...
3、运行结果
Build并运行上述程序,从Memo1里可以看到整个工作过程,可以看出,搜索设备、取控制页URL、增加端口映射项、查看映射项参数、删除映射项等关键步骤均符合我们预期的设想。因此,完全可以在您的应用中把本程序的有关内容集成进去。
--------------------------------------------------------------------------
(1)、以下是“搜索设备”的工作过程信息:
--------------------------------------------------------------------------...
//// 增加NAT项过程启动...procedure TForm1.Button3Click(Sender: TObject);begin controled:=false; controltype:=1; controlresponse:=''; controlsocket.host:=routerip; controlsocket.Port:=routerport; controlsocket.Active:=true; memo1.lines.add('向'+routerip+':'+inttostr(routerport)+'设备发起增加NAT项的连...
//// 连接根设备...procedure TForm1.Button2Click(Sender: TObject);begin requested:=false; response:=''; clientsocket.Host:=routerip; clientsocket.Port:=routerport; clientsocket.Active:=true; memo1.lines.add('向'+routerip+':'+inttostr(routerport)+'设备发起连接...'); memo1.lines.add('');end;
////...
//// 关闭程序...procedure TForm1.Button4Click(Sender: TObject);begin form1.close;end;
//// 搜索路由器设备...procedure TForm1.Button1Click(Sender: TObject);var tmpstr: string; buffer: array [0..4096] of char; j: integer;begin tmpstr:='M-SEARCH * HTTP/1.1'#13#10 +'HOST: 239.255.255.250:190...
自动NAT(端口映射)在Internet应用软件开发中有很广泛的用途,通过该技术,不仅软件的通信速度能得到有效提升、编程的复杂度减低,而且在软件的安装、维护等方面也变得更加省力。在BT、eMule等软件中,已成功应用了该技术,取得了较好的效果。
该技术一般基于UPnP协议进行实现。而网上有许多资料介绍其实现过程,有的也提供源代码,但是,我们发现这些资源都是概述性的介绍,或者又是基于C语言的为多,而用delphi进行实现的例子很难找到。为此,笔者专门使用delphi工具进行了技术实现,并将源代码公布于此,让各位delphi程序员共享,如有技术问题,请与我联系、交流。
1、程序界面...
晚上继续NetAdmin的开发,对最后的信息接收处理、我的信箱维护等进行具体代码编写。
因应用层协议前两天已经定下来,也不是很复杂,因此,程序写起来也比较轻松。唯一比较麻烦的是对聊天信息的Html显示,需要自动处理正文中的URL及表情符。
这两天的一些模块代码将成为后续嵌入应用程序的若干模块的重要来源,尽管界面上肯定要变化一下,但代码可以较少变动。
所谓“中间件”(middleware),是一种独立的系统软件或服务程序,分布式应用软件借助这种软件在不同的技术之间共享资源,中间件位于客户机服务器的操作系统之上,管理计算资源和网络通信。中间件是基础软件的一大类,属于可复用软件的范畴。顾名思义,中间件处于操作系统软件与用户的应用软件的中间。中间件在操作系统、网络和数据库之上,应用软件的下层,总的作用是为处于自己上层的应用软件提供运行与开发的环境,帮助用户灵活、高效地开发和集成复杂的应用软件。中间件大致可分为终端仿真/屏幕转换中间件、数据访问中间件、远程过程调用中间件、消息中间件、交易中间件、对象中间件等。
在下设计...
delphi也能开发中间件,在下就开发了一套,而且功能强大。您可以浏览www.quickburro.com网站了解更多的信息。这里我们将通过一个实际的远过程调用(RPC)应用开发案例,来说明使用快驴中间件进行应用开发的好处。而RPC,仅仅是快驴中间件的重要功能中的一个...
快驴中间件RPC开发案例
一、任务完成一个跨Internet的远程文件管理软件。通过在服务器端开发一个插件、客户端进行远过程调用(RPC)实现。
二、准备工作
1、 组网
如果没有固定IP的Internet服务器,可在局域网中进行模拟组网。
选一个固定IP的Internet服务器,安装S...
今天先对管理员与用户之间的信息交流问题进行了总体分析,然后进一步把用户之间点对点信息交换的应用协议给定了下来,按下面这样约定:
主类别号 说明 子类别号 说明 孙类别号 说明
-------------------------------------------------------
12 点对点 1 留言
------------------------------------
2 ...
开博的时候,正值快驴系统1.08版本发布、1.09版本的“超级管理员远程管理工具 NetAdmin”的开发接近尾声的时候,所以1.08及之前各版本的开发进度情况将不在本日志里记录。
因远程管理的需要,6月下旬及7月初已完成了远程文件存取插件、远程截屏插件、远程鼠标控制插件、以及远程Sql Server数据库管理插件的开发与测试。这两天应用这些插件顺利完成了远程节点控制、远程节点数据库管理等功能。
在进行远程插件的挂接与卸载时,碰到了原节点系统NetDNA不存在远程卸载功能的问题,因此,4日晚对NetDNA 1.08进行了修改,加入了本服务,5日开发NetAdmin时进行了调试,顺利通...