服务器端
添加一方法
procedure Tkcserver1.Getsydate(out sysdate: OleVariant);
begin
Q_GetSysDate.close;
Q_GetSysDate.SQL.Text:='select getdate() as sysdate from xx_plan';
Q_GetSysDate.open;
if not Q_GetSysDate.IsEmpty then
begin
Sysdate:=Q_GetSysDate.fieldbyname('Sysdate').asstring;
end
else
begin
Sysdate:='';
end;
end;
客户端
var
datetime:variant;
date_str:datetime;
DM1.DCOMKC.AppServer.Getsydate(datetime);
date_str:=datetime;
