MIDAS的问题,请帮忙,急!!!
tob 2001-08-10 09:01:24 为什么我在用ClientDataSet的属性providername连接远程的datasetprovider时发现死机
提示服务器运行失败,我仔细看了一下我的交换服务器程序,觉得没有错。我用的是
DCOM连接,请问各位高手我的错误在哪。
datasetprivider=>query=>database=>session
其中设置了iappserver接口的两个方法,getdb,setdb:
function Tmyserver.getdb(const pwd: WideString): OleVariant;
var i:integer;
dbn:tstrings;
begin
dbn:=tstringlist.create;
try
session1.GetDatabaseNames(dbn);
result:=vararraycreate([0,dbn.count-1],varolestr);
for i:=0 to dbn.count-1 do
result[i]:=dbn[i];
finally
dbn.free;
end;
end;
procedure Tmyserver.setdb(const dbn, pwd: WideString);
begin
try
database1.close;
database1.aliasname:=dbn;
if pwd<>'' then
database1.Params.values['password']:=pwd;
database1.open;
except
on E: edbengineerror do
if (pwd='') then
raise exception.create('请输入密码');
else
raise;
end;
end;