Delphi中间件QuickBurro越来越强大！(100)

Delphi中间件QuickBurro平均一个月升级一次，向下保持兼容，功能不断加强、完善，目前已经很成熟可靠，用户量也在不断增加。各位delphi同道不妨来看看资料、试用对比一下，相信不会让你失望！不要认为RO、Datasnap、Asta这些老外做的才是可信赖的，国产的也许更强！产品网站：http://www.quickburro.com/超级QQ群：33286656

我们目前用的ASTA,是应该支持国产产品

多层我也一向ASTA,因为不要钱[],现在我自己整了个ASP框架,也挺好用的.

QuickBurro V3.19正式发布啦！V3.19版本升级内容如下：（2010年3月27日完成）a、核心服务中增加一个远程检测数据库连接参数的服务、一个查询远程节点所有运行状态的服务b、开发包的TDBManager控件里增加一个TestDB方法，用来进行远程节点上的数据库连接测试c、开发包的TNodeManager控件里增加了一个QueryStatus方法，用来远程查询某节点的当前各方面的运行状态d、开发包的TSyncBurro控件里增加了与上两个更新对应的TestDB和QueryStatus方法e、修改了RemoteFiles插件，增加了相对路径的支持、相对路径与绝对路径的转换等，使远程文件读写更加灵活方便f、修改了核心服务程序相对路径转绝对路径的算法，处理路径回溯更合理、正确g、应用开发包中新增两个简单方便的UDP编程控件，TUDPClient/TUDPServer，可用来进行LAN组播编程h、QBCommon.pas和QBMisc.pas单元再次增加若干个基本实用函数i、核心服务中增加了一个进行本地消息组播的方法，用于节点向本地应用程序间的通信j、在TLocalBroad和TSyncBurro控件中各增加一个MulticastToLocal方法，用于进行本地消息组播k、核心服务程序中增加了公用内存块注册机制，使业务逻辑部件、外部计划任务程序等可以通过公用内存来交换数据l、在服务管理器程序中的基本状态监测页面，增加了对当前公用内存块数量指标的监测m、在应用开发包中增加一个读写公用数据区的类TQBMemory（QBMemory.pas单元），用于方便编写插件或计划任务程序n、对自带的数据库进行了升级，数据库文件大小不再有2GB限制，使之可直接作为应用数据库平台o、修改了核心服务中的TCP任务处理线程，增加了对“是否允许注册子节点”开关项的检测和控制p、修改了各UDP服务线程和TCP任务处理线程，对各任务的可能出现的错误信息进行了规范化返回处理q、修改了应用开发包，各异步控件和TSyncBurro控件都增加了读最后一次错误信息的方法GetLastErrorr、RemoteFiles.dll插件中增加了一个获取文件版本号的功能，并在TRpcRemoteFiles控件中增加GetFileVersion方法s、开发包中增加了一个QBMemoryExec.pas单元，可借此加载内存中的可执行程序t、开发包中增加了一个TQBClientUpgrade控件，用来实现客户端程序的自动升级编程，控件使用简单方便u、TPsvReceiver控件中增加了一个ReadDataToString方法，用来将U2Utransfer送来的数据度取出到String变量v、增加了TestUpgrade、TestQBMemory等几个演示程序，用以对最新功能的编程示范、修正补充了技术资料

刚到QB主页看了一下,发现这个产品文档齐全说明很详细,功能方面除了数据库操作,另外消息和文件传输等都具备,应该是多层开发的一个不错的选择吧,唯一遗憾是尚未支持2010(主要是Unicode).目前没有新的项目,待有项目也许可以试试看吧,我也挺喜欢尝试新东西的[].

asta 不要钱么?盗版用多了吧..

[]目前QuickBurro已经升级到V3.22版本了，修正了用户反馈的全部Bug，并完善了核心服务程序及ORM等周边工具，增加了一系列的实用插件。 目前版本的开发包已经有70个左右的控件（类）了，功能确实是非常强大，并且，在下还在继续开发实用的插件，力求将本产品做成一套著名的国产Delphi中间件产品。目前本产品对个人及小公司免费，无任何功能限制。我们也希望有一定经济基础的公司购买企业版、OEM版等，从经济上支持在下。谢谢！

正在下载，准备研究一下。

[]V3.22版本在完善ORM的同时，也完善了Delta提交方式的远程数据库交互功能，使习惯于DBGrid形式编程的应用程序员也能方便地进行远程数据库访问。下面是示例代码：//// 读远程数据...procedure TForm1.Button2Click(Sender: TObject);
begin
syncburro1.TargetDatabase:='smartsales';
if qbclientdataset1.ReadFromRemote(qbconnection1.NodeId,'select * from material order by materialid') then
// if qbclientdataset1.ReadFromRemote(qbconnection1.NodeId,'select MaterialId,MaterialName,Model,MUnit,PUnit,PScale,BuyPrice,SalePrice,MemberPrice,CostPrice,Number from material order by materialid') then
begin
qbclientdataset1.Last;
materialid:=trim(qbclientdataset1.fieldbyname('MaterialId').asstring);
memo1.lines.Add('从远程读数据列表成功！');
end else
memo1.lines.Add('从远程读数据列表失败啦！');
end;
//// 新增一个记录...procedure TForm1.Button7Click(Sender: TObject);
begin
//// 得到一个新的ID... materialid:=inttostr(strtoint(materialid)+1);
while length(materialid)<8do
materialid:='0'+materialid;//// 写入一个记录... qbclientdataset1.Append;
qbclientdataset1.FieldValues['MaterialId']:=materialid;
qbclientdataset1.FieldValues['MaterialName']:='飞快牌柴刀'+materialid+'号';
qbclientdataset1.FieldValues['Model']:='木柄地';
qbclientdataset1.FieldValues['MUnit']:='把';
qbclientdataset1.FieldValues['PUnit']:='捆';
qbclientdataset1.FieldValues['PScale']:=10;
qbclientdataset1.FieldValues['BuyPrice']:=20;
qbclientdataset1.FieldValues['SalePrice']:=28;
qbclientdataset1.FieldValues['MemberPrice']:=26;
qbclientdataset1.FieldValues['CostPrice']:=25;
qbclientdataset1.FieldValues['Number']:=10;
qbclientdataset1.post;
end;
//// 修改当前记录...procedure TForm1.Button3Click(Sender: TObject);
begin
//// 修改一个记录... qbclientdataset1.edit;
qbclientdataset1.FieldValues['MaterialName']:='飞快牌菜刀';
qbclientdataset1.FieldValues['Model']:='木柄';
qbclientdataset1.FieldValues['MUnit']:='柄';
qbclientdataset1.FieldValues['PUnit']:='捆';
qbclientdataset1.FieldValues['PScale']:=100;
qbclientdataset1.FieldValues['BuyPrice']:=200;
qbclientdataset1.FieldValues['SalePrice']:=280;
qbclientdataset1.FieldValues['MemberPrice']:=260;
qbclientdataset1.FieldValues['CostPrice']:=250;
qbclientdataset1.FieldValues['Number']:=100;
qbclientdataset1.post;
end;
//// 删除当前选中记录...procedure TForm1.Button6Click(Sender: TObject);
begin
qbclientdataset1.Delete;
end;
//// 提交测试...procedure TForm1.Button4Click(Sender: TObject);var code,err: string;
begin
memo1.Lines.Add('QBClientDataset的数据有'+inttostr(qbclientdataset1.ChangeCount)+'处变化！');
DeltaCds.Data:=qbclientdataset1.Delta;
deltacds.SaveToFile('c:/delta.xml',dfxml);
memo1.Lines.Add('Delta数据已经保存到c:/delta.xml，请检查！');// if qbclientdataset1.CommitToRemote(qbconnection1.NodeId,'Material','MaterialId') then
memo1.lines.Add('数据已经提交到远程数据库！') else
begin
memo1.lines.Add('数据提交失败喽！');
syncburro1.GetLastError(code,err);
memo1.Lines.Add('Code='+code+' Error='+err);
end;
end;

运行提示：用户admin登录成功！从远程读数据列表成功！QBClientDataset的数据有3处变化！Delta数据已经保存到c:/delta.xml，请检查！数据已经提交到远程数据库！QBClientDataset的数据有2处变化！Delta数据已经保存到c:/delta.xml，请检查！数据已经提交到远程数据库！

国内的软件公司连delphi都是盗版怎么会掏钱买组件呢

to delphi2011有道理！

不一定。并不是所有的公司都这样。再说只要有自己的产品，赚钱的途径很多。

V3.23版本升级内容如下：（2010年6月30日完成）a、在Windows7 x86环境下，进行了一遍核心服务程序及几个客户端程序的运行测试，结果全部正确b、修正了批量执行SQL语句时，最后一句不带分隔符#9而出现失败的Bugc、修正了远程数据库事务处理上的缺陷，使得不包含任何事务内容的空事务提交时，也返回成功d、修正了SDK中异步任务提交各控件中TaskTimeout属性未用上的Bug，使超时参数发挥应有的作用e、修正了繁体中文Windows 2003版本下启动节点服务器时的“Could not open SQLEVN70.RLL”异常的Bugf、修改了应用开发包中的TCP通信线程代码，使TCP传输的可靠性、带宽适应性等进一步得到提高g、修改了应用开发包控件中互相关联控件在实例释放时的代码，排除了应用程序关闭时偶尔出现AV错的Bugh、增加了一个通用的ID生成服务、一个未用ID值归还服务（归还后下次会分配给其他用户）i、TRemoteADO及TSyncBurro空间中增加了GenerateId、FreeId两个方法，用于生成ID、归还IDj、增加了一个本地用户寻址服务，TU2UTransfer和TSyncBurro中各增加一个LocateLocalUser方法k、增加了消息分组转发服务，消息群发过程启用分组转发算法，使在线对象很多时的群发速度提高近10倍l、系统数据库中增加了QBurro_MsgSources、QBurro_UserGroups两个表，分别用于保存消息源及用户群定义数据m、SDK中增加了一个TMsgSourcePropBlock类、一个TUserGroupPropBlock类，分别用于描述消息源、用户群属性n、SDK中新增了一个TMSManager控件，用于进行远程消息源（Message Sources）对象管理o、SDK中新增了一个TUGManager控件，用于进行远程用户群（User Groups）对象管理p、SDK的TSyncBurro控件中增加了TMSManager和TUGManager两个异步编程控件对应的一系列对象管理方法q、核心服务程序中增加了远程消息源消息订阅/订退/发布/取订阅者列表信息等服务r、SDK中增加了TRemoteMessage控件，用于进行远程消息源消息订阅/订退/发布/取订阅者列表信息等s、核心服务中增加了远程用户群的加入/退出/发布消息/踢除/取群用户列表信息等服务t、SDK中增加了TRemoteGroup控件，用于进行远程用户群的加入/退出/发布消息/踢除/取群用户列表信息等u、核心服务中增加了消息源更新、撤消、消息到达等消息投递服务v、在SDK的TPsvReceiver控件中增加了消息源更新、撤消、消息到达等事件w、核心服务中增加了用户群更新、解散、群消息送达、用户入群、用户退群等群消息投递服务x、在SDK的TPsvReceiver控件中增加了用户群更新、解散、群消息送达、用户入群、用户退群等事件y、在TSyncBurro控件中增加了TRemoteMessage和TRemoteGroup两个异步控件对应的一系列消息处理方法z、在服务管理器BurroControl中增加了消息源和用户组数量情况查询z1、在服务管理器BurroControl中增加了本节点消息源对象配置管理页面z2、在服务管理器BurroControl中增加了本节点用户群对象配置管理页面z3、演示开发包中增加了消息源编程的两个Demo程序、用户群编程的两个Demo程序

V3.3版本升级内容如下：（2010年7月12日完成）a、SDK去掉了有内存泄露的CodeMounter单元，修改了依赖此单元的有关单元，使系统更加稳健b、修改了SDK中各异步任务提交控件的Destroy过程，加入了事件清空的代码，用以防止应用程序退出时偶尔报错的现象c、修改了SDK，去掉了某些类单元的Published关键字，将内容归入Public一节中d、修改了SDK，将String类型全部改成了AnsiString、Char改成了AnsiChar等，使SDK也可在D2009及之后版本下安装使用e、修改了SDK，排除了文件传输控件中的一个Bug，使该控件在传输大文件时，更加稳定可靠f、修改了系统数据库中有密码字段的四个表，将密码字段加长，并采用了密码加密存储方法g、修改了核心服务程序中系统数据库读写方面的代码，开始支持节点、用户、插件、计划任务四种对象的密码加密存储h、修改了BurroControl程序，使之支持系统对象密码的加密存储i、修改了BurroControl程序，修正了系统库迁移时注册默认系统插件上的缺陷，增加了新增的插件j、修改了SDK中的TcpRequest单元，排除了Delphi IDE运行QB应用程序时的QBurroCoding.dll文件创建失败异常k、新增了一个For Delphi2009的中间件版本、一个For Delphi2010的中间件版本，使系统适应性更高l、修改了中间层所有的公用插件，增加了for D2010、for D2009的插件版本。其中RemoteORM插件改动较多。-----------------------------------因为从本版本起，QuickBurro开始支持Delphi 2009、Delphi2010版本，具有里程碑式的意义，故版本号上上升到“V3.3”。

QuickBurro V3.31发布，开始全面支持Unicode！ 本版本起开始支持Delphi新版本的Unicode字符集，方便地进行多国语言远程交互编程，同时，百分百与原有版本兼容，并且，能实现应用程序透明的不同版本中间件之间的信息交换、非Unicode客户端与Unicode中间件（或相反）的信息交换等等，同一套组件代码就可适应Delphi5--Delphi2010的任意版本。 本版本对原有的近20万行代码作了全面盘点、优化，修正了几个Bug；对TCP通信过程的可靠性及通信速度进行了重要的改进。

晕,怎么三天两头发布版本的,谁敢用在项目中啊?免费的好用不?

升级别太多…老升级，有点怕…

因V3.3版本正处于向Delphi高版本演变的过程，故紧接着升V3.31，目的是用最快的速度支持Unicode，免得用户使用时有断层。V3.31之后，就不会这么快了

QuickBurro功能盘点：===================1、无须编程组建高弹性专用网2、独特、易于记忆的对象命名规则3、应用程序透明的寻址、路由、数据交换能力4、无状态中间层服务5、对象远程注册/注销、软总线机制6、自动维持节点间连接、断线重连7、无丢包UDP通信技术8、快速通信加解密算法，自定义密钥9、压缩传输10、消息优先级机制11、消息分组快速投递机制12、Ansi字符与Unicode字符共存的传输通道，防乱码13、二进制、字段不定长的数据容器、消息容器14、BinaryRPC接口，功能封装、扩展简单高效15、丰富的数据库远程存取功能16、远程数据库事务支持17、大数据集分页查询支持18、多层分布式架构下的ORM、实体类代码自动生成19、分块并行的文件传输，支持断点续传20、中间层计划任务程序扩展支持21、群发消息给节点（及其下属节点）用户22、群发消息给地区（及其下辖地区）用户23、远程UDP广播24、远程UDP组播25、远程消息源及消息订阅/投递服务26、逻辑用户群及群消息服务27、用户对用户（点对点）的传输服务28、Unicode字符集支持29、不断增加增强的公用插件30、客户端自动升级支持产品网站：http://www.quickburro.com/