delphi中怎么获取服务器的时间

下面是公司的代码，调整成ADO控件，给你参考一下：

  function GetNetDate: TDateTime;
  begin
    with TADOQuery.Create(nil) do
    begin
      try
        Connection := ADOConnection1;  // 绑定数据库连接对象
        if Self.DBEService.DBType = dtMSSQL then // 这里你自己处理一下，公司代码的意思是，如果当前数据库是MSSQL Server
          SQL.Add('SELECT GETDATE() AS CURDATE ')
        else Self.DBEService.DBType = dtOracle then  // 如果当前数据库是Oracle
          SQL.Add('SELECT SysDate AS CURDATE FROM DUAL ');
        Open;
        Result := FieldByName('CURDATE').AsDateTime;
      finally
        Free;
      end;
    end;
  end;

简单的说，MSSQL数据库，使用“Select GetDate() ”这样的SQL语句获取数据库服务器时间，而Oracle则使用“Select SysDate”这样的SQL语句。