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;
==================
大伙帮我一下。。。。。。
代码:
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;
==================
大伙帮我一下。。。。。。