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

关注啊，不过还是应该支持国内的这些企业，加油啊！

苍天当立，黄天当死！！把quickburro一起带到天堂去玩吧！

[]楼上的已经疯了，快拨120

V3.32版本升级内容如下：（2010年8月10日完成）============================================a、去掉了业务逻辑部件表中的DllFileBody字段，业务逻辑部件文件改成统一保存于plugin文件夹下b、修改了核心服务程序的业务逻辑部件注册管理及BinaryRPC部分的代码c、修正了核心服务程序在Delphi2010下偶然发生读地址错的Bug（发现D2010的动态连接库调用机制有特殊性）d、对Unicode版本重点进行了全面的再测试、修正，使本版本开始较完善地支持Delphi2009、Delphi2010e、修改了服务管理器程序BurroControl程序，使之适应去掉DllFileBody字段后的模块注册f、对核心服务程序的事务表功能进行重新定位，将子节点登录事务从中剥离出来，提高了节点互联的可靠性g、同时对各公用插件进行了Build，与新版主程序一起打包发布h、修正了SysTable.sql文件中的脚本与实际新版本的数据库结构不一致的Bug

粪草QuickBurro是解决什么问题的，我在电梯里，给你60秒回答？

用delphi的越来越少了，这个东西也不是必要的，看不到前景！

[][]好凉的水啊。不过咱还要继续升级开发，直到Delphi彻底退出历史舞台。不过到那时，咱这玩意早移植到另一个流行的平台下了。

建议楼主用此组件开发商用产品那才是生财之道。

[]V3.33版本2010年8月30日完成升级，本次更新内容如下：==================================================a、在QBurro_DllModules表中增加了一个ExecuteMode字段，用于区别插件加载方式是常驻内存还是普通加载b、在核心服务程序的插件管理服务及RPC服务中，增加支持驻留式插件的注册管理及远过程功能调用的代码c、在SDK中的TRPPropBlock类、TRPManager控件中增加ExecuteMode属性，使之支持驻留式插件的注册管理及远过程功能调用d、在服务管理器程序BurroControl的插件注册界面增加了一个运行模式设定控件，适应新的插件属性编辑e、在开发包的DllSpread单元中增加了Mem2Stream、Stream2Mem函数，用于方便进行DLL模块与主程序间交换流数据f、在核心服务程序中增加开放连接池管理的代码、增加开放消息传输等二十余个公用过程接口的代码，以方便插件开发g、在节点服务程序中增加了一个寻址Cache，用以提高远程节点寻址的速度、减少网络通信量h、在各公用插件上增加了安全性控制代码，防止QuickBurro的公用插件被其他外部程序直接调用i、所有单元的数据压缩算法改用Delphi自带的组件进行重新实现，尽量小地减少本系统代码对环境的依赖j、修改了应用开发包，去掉了所有核心控件中的fDirectConnect属性和老的TCP任务提交方式相关代码k、核心服务中增加了一个从结果缓存表取结果数据的TCP服务，用以取代原来的客户端直接读结果缓存表功能l、修改了应用开发包中的TPsvReceiver类中的ReadDataTo??方法，改用调用TCP通信方式读从节点读结果m、修改了应用开发包中的TRPCaller、TSyncBurro类，去除了TCP代理访问所需的事件及一系列ReadDataTo??方法n、将核心服务程序中原有的系统事务控制表、主动TCP传输相关对象等去除，彻底将TCP任务的节点代理功能剥离出去，进一步减轻了核心服务主线程在对象管理、调度上的负荷，提高了系统运行效率o、修改了服务管理器BurroControl程序，去除了系统事务表、TCP主动传输等相关的状态检测项、参数配置项等内容p、在SDK的TQBConnection类中增加了RemoteConnect、SyncRemoteConnect方法，使客户端程序能直接登录到远程节点上，单机或少量客户端环境不再需要部署子节点，应用发布更简单q、在TPsvReceiver控件中增加一个将收到的数据导出为QBMessage消息体的方法r、在TLocalBroad、TRemoteBroad、TU2uTransfer及TSyncBurro控件中，增加发送QBMessage消息体的方法s、在公用插件RemoteFiles.dll中增加了一个取某文件夹下对象明细列表的服务，对原创建文件夹服务略作修改t、在TRpcRemoteFiles控件中增加文件夹上传与文件夹下载的四个方法、两个属性、两个进度事件u、去除了应用开发包中的TActTransChecker类，去掉了TTcpConfig类中关于废弃了的主动TCP传输的几个属性v、Demo包及技术资料中增加驻留式插件编写，以及插件内周期性任务、公共数据区访问等的若干模板单元、示范程序w、对“应用程序员开发指南”及“应用开发实例详解”两份资料进行内容增补、发布

V3.33新增的文件夹远程上传/下载功能很简单、好用，举例：//// 上传文件夹...procedure TForm1.Button2Click(Sender: TObject);
begin
if RpcRemoteFiles1.UploadFolder(qbconnection1.NodeId,edit1.text,edit2.text,5,0) then
memo1.lines.add('上传文件夹成功！UploadOkIndex='+inttostr(RpcRemoteFiles1.UploadOkIndex)) else
memo1.lines.add('上传文件夹失败！UploadOkIndex='+inttostr(RpcRemoteFiles1.UploadOkIndex));
end;
//// 上传文件夹续传测试...procedure TForm1.Button1Click(Sender: TObject);
begin
if RpcRemoteFiles1.UploadFolder(qbconnection1.NodeId,edit1.text,edit2.text,5,100) then
memo1.lines.add('上传文件夹（续传）成功！') else
memo1.lines.add('上传文件夹（续传）失败！');
end;
//// 下载文件夹...procedure TForm1.Button3Click(Sender: TObject);
begin
if RpcRemoteFiles1.DownloadFolder(qbconnection1.NodeId,edit2.text,edit1.text,5,0) then
memo1.lines.add('下载文件夹成功！DownloadOkIndex='+inttostr(RpcRemoteFiles1.DownloadOkIndex)) else
memo1.lines.add('下载文件夹失败！DownloadOkIndex='+inttostr(RpcRemoteFiles1.DownloadOkIndex));
end;
//// 下载文件夹续传测试...procedure TForm1.Button5Click(Sender: TObject);
begin
if RpcRemoteFiles1.DownloadFolder(qbconnection1.NodeId,edit2.text,edit1.text,5,100) then
memo1.lines.add('下载文件夹（续传）成功！') else
memo1.lines.add('下载文件夹（续传）失败！');
end;
//// 总下载进度...procedure TForm1.RpcRemoteFiles1AllDownloadProgress(Sender: TObject;
AllObjects, OkObjects: Integer);
begin
ProgressBar1.Max:=AllObjects;
ProgressBar1.Position:=OkObjects;
edit3.text:=inttostr(AllObjects);
edit4.text:=inttostr(OkObjects);
end;
//// 总上传进度...procedure TForm1.RpcRemoteFiles1AllUploadProgress(Sender: TObject;
AllObjects, OkObjects: Integer);
begin
ProgressBar1.Max:=AllObjects;
ProgressBar1.Position:=OkObjects;
edit3.text:=inttostr(AllObjects);
edit4.text:=inttostr(OkObjects);
end;
//// 文件下载进度...procedure TForm1.SyncBurro1FileReadProgress(Sender: TObject;
AllBlocks, CurrentBlock: Integer);
begin
ProgressBar2.Max:=AllBlocks;
ProgressBar2.Position:=CurrentBlock;
end;
//// 文件上传进度...procedure TForm1.SyncBurro1FileWriteProgress(Sender: TObject;
AllBlocks, CurrentBlock: Integer);
begin
ProgressBar2.Max:=AllBlocks;
ProgressBar2.Position:=CurrentBlock;
end;

做国产中间件很难，因为用的人不多，放到国外去可能没那个实力，所以建议以这个中间件为基础，做些应用系统的开发，卖应用软件岂不更好