S
skywin
Unregistered / Unconfirmed
GUEST, unregistred user!
最近,我在用DCOM开发鞋业ERP系统,遇到这样一个问题,在服务层不能动态选择服务器和SQL数据库,
现我是这样处理的,在远程模块(Rdata)中的Create事件中加入如下代码
procedure TRdata.RemoteDataModuleCreate(Sender: TObject);
var srvini: TIniFile;
srvstrs: TStrings;
begin
srvini := TIniFile.Create('../system/config.ini');
//一个ini配置文件。以便可以任选服务器和数据库,其内容职下
//[Server Config]
//SERVER Name=HUBIN
//DATA Name=whdb
srvstrs := TStringList.Create;
srvini.ReadSectionValues('Server Config', srvstrs);
if trim(srvstrs.Values['SERVER NAME']) <> '' then begin
if whdb.Connected = false then begin
whdb.Params.Values['SERVER NAME'] := srvstrs.Values['Server Name'];
whdb.Params.Values['DATA NAME'] := srvstrs.Values['DATA Name'];
end;
end;
if whdb.Connected = false then //whdb为Tdatabase
whdb.Connected :=True;
SrvIni.Free;
srvstrs.Free;
end;
但系统好象不读config.ini中的内容,只认whdb中的SERVER NAME、DATA NAME值,高手们,请问这是为何,有何良方?
并且我还跟踪不了这个事件,为何?????
高手们,我很急啊。。。。
现我是这样处理的,在远程模块(Rdata)中的Create事件中加入如下代码
procedure TRdata.RemoteDataModuleCreate(Sender: TObject);
var srvini: TIniFile;
srvstrs: TStrings;
begin
srvini := TIniFile.Create('../system/config.ini');
//一个ini配置文件。以便可以任选服务器和数据库,其内容职下
//[Server Config]
//SERVER Name=HUBIN
//DATA Name=whdb
srvstrs := TStringList.Create;
srvini.ReadSectionValues('Server Config', srvstrs);
if trim(srvstrs.Values['SERVER NAME']) <> '' then begin
if whdb.Connected = false then begin
whdb.Params.Values['SERVER NAME'] := srvstrs.Values['Server Name'];
whdb.Params.Values['DATA NAME'] := srvstrs.Values['DATA Name'];
end;
end;
if whdb.Connected = false then //whdb为Tdatabase
whdb.Connected :=True;
SrvIni.Free;
srvstrs.Free;
end;
但系统好象不读config.ini中的内容,只认whdb中的SERVER NAME、DATA NAME值,高手们,请问这是为何,有何良方?
并且我还跟踪不了这个事件,为何?????
高手们,我很急啊。。。。