有没有人真正用过COM+做过完整的项目,我也想用它做一个项目,但书看了不少可是还是没有一个比较好的思路。(分错了应该是300分,我会另开贴给分) 在线等待 (高

  • 主题发起人 HeXiang Lee
  • 开始时间
H

HeXiang Lee

Unregistered / Unconfirmed
GUEST, unregistred user!
有没有人真正用过COM+做过完整的项目,我也想用它做一个项目,但书看了不少可是还是没有一个比较好的思路。(分错了应该是300分,我会另开贴给分) 在线等待 (高手都去哪里了呀﹐大富翁們都放假了嗎?) (100分)<br />有没有人真正用过COM+做过完整的项目,我也想用它做一个项目,但上书看了不少可
是还是没有一个比较好的思路。
不知道怎么做好,想看看大家的做法. 给我发个Demo 只要简简单的的,中间层入客户端
每个每个50分。前6位大侠有效,以后的如果给我的启发大我另开贴上分。
谢绝灌水!
Email:lhxsz@21cn.com
MSN:lhxsz@21cn.com
 
都兩天了都沒有一個人有一個完整的解決方案呀﹗
高手都去哪里了呀﹗
 
看用的是什么数据库,若是sql server的话,会使用ado做com+,支持pool.
否则,是用midas.连接非微软数据库时,不使用ado.
注意后台应支持多县城的问题。慢慢来吧,应注意的问题太多。
若是公司项目,最好找个高手做,自己跟着雪。若是自己玩,就多看书多斯巴
 
To:一生中最爱
是呀﹐現在試驗測試時都是用的Ado呀﹐數據庫是Sql Server.自已想了許多方法﹐便總覺
得不是太好。所以想看一下大家是怎么做的。
To:All 大家快點呀﹐過兩天我就要開始寫的個新的程序了﹐如果沒有一個好的方案又只好
用兩層的了.
鳴嗚嗚......
 
我做过midas方面的三层,已经比较成熟,目前有700个客户在使用。
后台用的是sybase,使用bde连接,也还比较稳定。
远程连接使用的http协议,连接后台的isapi/nsapi的dll服务,由dll调用midas,在midas
中连接数据库.
目前有个项目,使用的是sql server,结构通上,打算将midas改为com+,已进行了测试,
但还没正式挂上
 
你主要是学习以下midas结构就可以了
 
TO:一生中最爱
可不可以煩你給我一個Com+例子呀﹗我是Com+方面的采鳥呀!
就假設"部門資料維護"一個功能﹐字段就只用兩個"部門編號,部門名稱"給我一個例子
好嗎?或者給我一些代碼
還有就是你如何保証各模塊安全的?也就是:
1.權限管理及認証模塊
2.部門資料管理
.......
如何使得﹐如果沒有通過身份驗証就不允許調用其它的模塊.你可能會說是通過前台菜
單控制﹐但如果試圖闖入系統的人他也會Delphi,他就可以編程不調用身份驗証直接調用
"部門資料管理"該怎么辦.
 
安全问题就是在前台控制。对于其他试图登陆的人,你可以使用数据库登陆的密码控制呀,
把密码加密后放在配置文件中,别人怎么进来?
当时测过后,程序没有保留。若做过midas或多县城下连接数据库,就应该知道注意些什么
 
可不可以给我个例子呀!最简单的给我写一个好!
我的email不知怎么了,收不到Delphibbs的邮件了.
 
unit main;
{$WARN SYMBOL_PLATFORM OFF}
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
ComServ, ComObj, VCLCom, StdVcl, bdemts, DataBkr, DBClient,
MtsRdm, Mtx, hsjmts_TLB, DBXpress, FMTBcd, DB, SqlExpr, DBTables, ADODB,
activex;
type
Thsjtest = class(TMtsDataModule, Ihsjtest)
db: TADOConnection;
qry: TADOQuery;
qry1: TADOQuery;
procedure MtsDataModuleActivate(Sender: TObject);
procedure MtsDataModuleDeactivate(Sender: TObject);
private
{ Private declarations }
protected
class procedure UpdateRegistry(Register: Boolean;
const ClassID, ProgID: string);
override;
functiondo
test(const data: WideString): WideString;
safecall;
public
{ Public declarations }
end;

var
hsjtest: Thsjtest;
implementation
{$R *.DFM}
class procedure Thsjtest.UpdateRegistry(Register: Boolean;
const ClassID, ProgID: string);
begin
if Register then
begin
inherited UpdateRegistry(Register, ClassID, ProgID);
EnableSocketTransport(ClassID);
EnableWebTransport(ClassID);
end else
begin
DisableSocketTransport(ClassID);
DisableWebTransport(ClassID);
inherited UpdateRegistry(Register, ClassID, ProgID);
end;
end;

procedure Thsjtest.MtsDataModuleActivate(Sender: TObject);
begin
try
CoInitializeex(nil,COINIT_MULTITHREADED);
db.Connected:=true;
except
end;
end;

procedure Thsjtest.MtsDataModuleDeactivate(Sender: TObject);
begin
qry.close;
//qry1.close;
db.Connected:=false;
end;

function Thsjtest.dotest(const data: WideString): WideString;
var i:integer;
lsh_zb,lsh_mx:string;
begin
// TD.TransactionID := 1;
//TD.IsolationLevel := xilREADCOMMITTED;
i:=pos(',',data);
lsh_zb:=copy(data,1,i-1);
lsh_mx:=copy(data,i+1,length(data));
try
qry.close;
qry.SQL.Clear;
qry.SQL.Text:='select * from sbls ';
qry.Open;
qry.close;
qry.SQL.clear;
qry.SQL.Text:='insert sbls(lsh,swdm,sblx) '+
'select '+lsh_zb+',''aaaaa'',''1''';
qry.ExecSQL();
qry1.close;
qry1.SQL.Clear;
qry1.SQL.Text:='select * from sbls ';
qry1.Open;
qry.close;
qry.SQL.clear;
qry.SQL.Text:='insert smls(lsh,xh,xmdm,je) '+
'select '+lsh_mx+',1,''001'',1';
qry.ExecSQL();
self.SetComplete;
result:='ok';
except
on e:exceptiondo
begin
result:=e.Message;
self.SetAbort;
end;
end;

end;

initialization
CoInitialize(nil);
TComponentFactory.Create(ComServer, Thsjtest,
Class_hsjtest, ciMultiInstance, tmApartment);
finalization
CoUninitialize();
end.
 
还要吗 我给你发最简单的例子
 
To idon:
不好意思,我好几天都没有顾得上来看一下。
要呀!我的Email: Lhxsz@21cn.com
 
做成COM+注册就行了,没什么特别啊!
 
To Richard3000:
注册我也知道呀,也会做。我就是想看看大家是怎么做的,总觉得自已做的不对,太烦。
你可不可以给我一个例子呀!(不是要你把你整个程序源代码都发给我 :( )。

lhxsz@21cn.com
 
我也做了一个啊不过目前为止只有我一个人在用的.
 
To:dedema
可不可以告诉我你是怎么做的呀。我不想用Midas做,全部用Com+做。
 
找李维的书看看吧。这方面的书很少。不过,如果你做出了一个模板,剩下的就是套用了。
 
利用的com+技术和web技术,最好采用xml技术,这样系统的com+使用的资源很好,我们利用这个技术
成功开发了,手机维修关系系统,目前最少用几千个用户使用,数据库的占硬盘空间是2G以上。
不包括log文件,系统的速度非常可以
 
我也要例子,大伙谁能给我一分啊。
email: fengchi610@yeah.net
 

Similar threads

回复
0
查看
855
不得闲
D
回复
0
查看
734
DelphiTeacher的专栏
D
D
回复
0
查看
705
DelphiTeacher的专栏
D
顶部