Delphi多层开发方案比较
标题
Delphi多层开发方案比较 （转载）
关键字
Delphi多层开发方案比较
出处
方案->
Midas
DCOM
COM+
ASTA
RemoteObject
.NET
提供者
Borland
微软
微软
http://www.astatech.com
http://www.remobjects.com
微软
核心技术
COM
COM
COM
ASTA自己的，类同Midas，
但不依赖于COM
RemObjects自己的WebService技术，
不依赖于COM
WebService
开发工具
Delphi7
Delphi7
Delphi7
Delphi7
Delphi7
Visual Studio/Delphi8,9
与现有开发模式兼容程度
★★★★★
★★★★
★★★★
★★
(很不同的开发模式)
★★★★
(支持Delphi的Prvider/ClientDataSet)
★
部署容易程度
★★★
★★
★
★★★★
(集成server、不需要类似socket server、midas.dll的东西)
★★★★★
(集成server、不需要类似socket server、midas.dll的东西)
★
可伸缩性
★★★★
★★★★
★★★★★★
★★★★
★★★★★
（支持自带服务器，或者使用Apache/IIS等容器)
★★★★
性能(效率)
★★★
★★★★
★★★★
★★★★★
(二进制传输，支持压缩)
★★★★
(二进制传输，支持压缩)
★★
(文本的XML消息传输)
消息传输格式
二进制COM消息
二进制COM消息
二进制COM消息
二进制流
二进制流或文本的XML SOAP消息
XML SOAP消息
源程序
不全
无
无
有
有
无
购买价格
$0
$0
$0
$299 － $7,500
EUR 299
$0
与.NET集成
不可以
可以
可以
不可以
可以
(直接基于webservice并提供.NET客户端开发包，并可以使用二进制消息格式)
可以
中间件跨平台
有可能
不可能
不可能
有可能
可以
（支持Kylix开发，支持Apache做容器）
可能吧
总体评价
★★★
★★
★
★★★★
★★★★★
★★
速度与效率测试：
测试项目 *
计算1000次1+1=2 *
传输10000条100字节记录 *
所花时间(ms) *
传输字节数 *
所花时间
传输字节数
Midas (Socket Connection)
26,047
366,000
2,359
1047,000
Midas (DCOM Connection)
812
933
2,047
1047,000
ADO直连数据库 （两层）
297
1046,000
Asta 3 压缩
1,578
1100,000
RemoteObject2 HTTP 二进制 压缩
8,641
791,000
2,515
104
相关文档：
Ctrl+PageUp 将光标移至本屏的第一行，屏幕不滚动。
Ctrl+PageDown 将光标移至本屏的最后一行，屏幕不滚动。
Ctrl+↓ 向下滚动屏幕，光标跟随滚动不出本屏。
Ctrl+↑ &nb ......
//参考地址：http://www.wangchao.net.cn/bbsdetail_41190.html
一、微软RegExp
1. 下载并安装最新版的"Microsoft(r) Windows(r) Script"
2. RegExp包含在vbscript.dll中所以我们必须先注册regsvr32 vbscript.dll
注(安装了Ie5后默认已经包含该控件)
3.在Delph ......
Rem Delete Delphi temporary file
Rem ****************************
@echo Delete Delphi temporary file
@dir/w/s *.~*
@echo 以上为当前目录及子目录临时文件,请按任意键确认删除!
@pause
@for /r . %%a in (.) do @if exist "%%a\*.~*" del "%%a\*.~*"
@echo 删除成功!
@pause
Rem ************************* ......
unit unitMain;
interface
uses
Registry, shlobj,
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls;
type
TExtForm = class(TForm)
ledExtension: TLabeledEdit;
ledAssocApp: TLabeledEdit;
GetAssocApp: TButton;
AssocTh ......
delphi中application.processmessages的作用
procedure TForm1.Button2Click(Sender: TObject);
var
I, J, X, Y: Word;
begin
I := 0;
J := 0;
while I < 64000 do
begin
Randomize;
& ......
