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

  • 主题发起人 wpy020327
  • 开始时间

渡鸦

Unregistered / Unconfirmed
GUEST, unregistred user!
关注啊,不过还是应该支持国内的这些企业,加油啊!
 
W

www.ynxbs.com

Unregistered / Unconfirmed
GUEST, unregistred user!
苍天当立,黄天当死!!把quickburro一起带到天堂去玩吧!
 
W

wpy020327

Unregistered / Unconfirmed
GUEST, unregistred user!
[:D]楼上的已经疯了,快拨120
 
W

wpy020327

Unregistered / Unconfirmed
GUEST, unregistred user!
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
 
W

www.ynxbs.com

Unregistered / Unconfirmed
GUEST, unregistred user!
粪草QuickBurro是解决什么问题的,我在电梯里,给你60秒回答?
 
W

whbest

Unregistered / Unconfirmed
GUEST, unregistred user!
用delphi的越来越少了,这个东西也不是必要的,看不到前景!
 
W

wpy020327

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

dengxh10

Unregistered / Unconfirmed
GUEST, unregistred user!
建议楼主用此组件开发商用产品那才是生财之道。
 
W

wpy020327

Unregistered / Unconfirmed
GUEST, unregistred user!
[:D]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、对“应用程序员开发指南”及“应用开发实例详解”两份资料进行内容增补、发布
 
W

wpy020327

Unregistered / Unconfirmed
GUEST, unregistred user!
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;
 
M

mosac

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

Similar threads

回复
0
查看
623
不得闲
D
回复
0
查看
760
DelphiTeacher的专栏
D
D
回复
0
查看
714
DelphiTeacher的专栏
D
D
回复
0
查看
705
DelphiTeacher的专栏
D
顶部