AP server 對時監控

aishu521發表於2013-01-23
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/，如需轉載，請註明出處，否則將追究法律責任。

相關文章