Y
yihui
Unregistered / Unconfirmed
GUEST, unregistred user!
A 机 : win2000 server,在不同目录安装了Delphi6 和 Delphi 7
B 机 : win98
应用服务器中有提供一个服务,返回一个状态信息
procedure TYhAppSvr.DBChk(var IsReady: OleVariant);
begin
IsReady:=DbConnected;
end;
客户端
Ready:Variant;
...
frmClient.DCOMConn.Connected:=true;
...
frmClient.DCOMConn.AppServer.DBChk(Ready);
if (Not Ready) then
begin
Application.MessageBox('DBChk=false!', '提示信息', mb_iconInformation + mb_defbutton1);
exit;
end;
现在在 A 机上运行 server ,后运行 客户端,一切正常
在 B 机上运行 客户端 , DCOMConn连接正常,
但 DBChk(Ready);
总是返回 False ?
整了一上午,不知道是什么原因,?会不会和 midas.dll 文件有关?
B 机 : win98
应用服务器中有提供一个服务,返回一个状态信息
procedure TYhAppSvr.DBChk(var IsReady: OleVariant);
begin
IsReady:=DbConnected;
end;
客户端
Ready:Variant;
...
frmClient.DCOMConn.Connected:=true;
...
frmClient.DCOMConn.AppServer.DBChk(Ready);
if (Not Ready) then
begin
Application.MessageBox('DBChk=false!', '提示信息', mb_iconInformation + mb_defbutton1);
exit;
end;
现在在 A 机上运行 server ,后运行 客户端,一切正常
在 B 机上运行 客户端 , DCOMConn连接正常,
但 DBChk(Ready);
总是返回 False ?
整了一上午,不知道是什么原因,?会不会和 midas.dll 文件有关?