AP server 對時監控

步驟

  1，把ntp.exe拷貝到盤

  2，配置net manager 服務名稱 test_65

  3，註冊啟動

     C:\Project1d.exe /install   //註冊
     C:\Project1d.exe /uninstall  //卸載

  4，啟動服務。

 

查詢語句：

 select t.*, ROUND(TO_NUMBER(t.checktime - to_date(t.clientdate||' '||t.clienttime,'yyyy/mm/dd hh24:mi:ss')) * 24 * 60 * 60) stime 
from ntptime t order by t.checktime ASC ;

 控件ADOCONNSTRING:

Provider=MSDAORA.1;Password=checkdb;User ID=oscheck;Data Source=test_65;Persist Security Info=True

 TIMETR控件          1000ms(1秒)。
delphi 代碼

new->server appliaction,

控件兩個 timer 和adoquery

timer 事件如下：

 

var
  sql_str, createdate ,creatime:string;

begin
  createdate:=FormatDateTime('YYYY/MM/DD',Now());
  creatime:=FormatDateTime('HH:MM:SS',Now());
  sql_str:='insert into ntptime(hostname,ip,clientdate,clienttime) ';
  sql_Str:=sql_Str+' values(SYS_CONTEXT(''USERENV'', ''HOST''),sys_context(''userenv'', ''ip_address''),'''+createdate+''','''+creatime+''') ' ;

  ADOQuery1.Close;
  ADOQuery1.SQL.Clear;
  ADOQuery1.SQL.Add(sql_str);
  //ADOQuery1.ExecSQL;
 // ADOQuery1.Free;
  // timer2.Enabled:=true;
  try
    ADOQuery1.ExecSQL;
  except

    ADOQuery1.Free;
  end;

 

 

来自 “ ITPUB博客 ” ，链接：http://blog.itpub.net/15187685/viewspace-753099/，如需转载，请注明出处，否则将追究法律责任。

转载于:http://blog.itpub.net/15187685/viewspace-753099/