通过客户端访问应用服务器并且取应用服务器的时间设置客户端的时间(客户端在WIN2000下可正常运行,W98不是。。请看代码)。。。。(100分)

  • 主题发起人 主题发起人 youou
  • 开始时间 开始时间
Y

youou

Unregistered / Unconfirmed
GUEST, unregistred user!
应用服务器用COM+的:
代码:
procedure TCpQcAlarm.GetServerTime(out SrvTime: OleVariant);
begin
SrvTime:=DateTimeToStr(Now);
//取时间。。。
end;

客户端:
procedure TForm1.ToolButton14Click(Sender: TObject);
var
oleSrvTime:OleVariant;
systmSrvTime:SystemTime;
begin
CpQcAlarm.GetServerTime(oleSrvTime);
//在WIN98下运行此句就会出错。。越界访问而W2000下不会有问题。。
DateTimeToSystemTime(StrToDateTime(VarToStr(oleSrvTime)),systmSrvTime);
if (not SetLocalTime(systmSrvTime)) then
begin
ShowMessage('设置本地时间失败!');
end;
end;
==================
大伙帮我一下。。。。。。
 
不会吧。。。
没人知道吗?
帮我UP。。。。。
 
SrvTime:=DateTimeToStr(Now);这句里的Now换成Date或Time试试
 
没奈何![:(]
UP!
 
不好意思,犯了低级错误了。。。
分就平分了。。。
 
后退
顶部