請教各位大大, 小弟剛學Indy的東東,以下是使用idTime 取得標準時間並且更改本機電腦的時間, 但是若本機電腦未連線上網或是無法連接Host 時, 會出現"Socket Error #10061"的錯誤, 要如何判斷連接host 正常時才去取得標準時間, 以避免無法連接時所跳出的錯誤訊息... 謝謝各位大大!!!! Try idTime := TidTime.Create (NIL); Try idTime.Host := 'time.nist.gov' ; DateTimeToSystemTime(idTime.DateTime - OffsetFromUTC , asystemtime); SetSystemTime(asystemtime); Except end ; Finally Try idTime.Disconnect ; idTime.Free; Except end ; end ;

begin
  idTime := TidTime.Create (NIL);
  try
    Try
      idTime.Host := 'time.nist.gov' ;
      idTime.Connect;
      if idTime.Connected then begin
        DateTimeToSystemTime(idTime.DateTime - OffsetFromUTC , asystemtime);
        SetSystemTime(asystemtime);
      end;
    Except
    end ;
  Finally
    idTime.Disconnect ;
    idTime.Free;
  end ;
end;

另外, 雖然使用了 try .. except, 但在 IDE 下若連不上仍會顯示預訂的錯誤訊息是正常的 可在 Tools -> Debug Options -> Language Exceptions 頁中 的 Stop on Delphi Exceptions 的核取方塊取消即可. --- Everything I say is a lie. @>---

引言:

begin
  idTime := TidTime.Create (NIL);
  try
    Try
      idTime.Host := 'time.nist.gov' ;
      idTime.Connect;
      if idTime.Connected then begin
        DateTimeToSystemTime(idTime.DateTime - OffsetFromUTC , asystemtime);
        SetSystemTime(asystemtime);
      end;
    Except
    end ;
  Finally
    idTime.Disconnect ;
    idTime.Free;
  end ;
end;

另外, 雖然使用了 try .. except, 但在 IDE 下若連不上仍會顯示預訂的錯誤訊息是正常的 可在 Tools -> Debug Options -> Language Exceptions 頁中 的 Stop on Delphi Exceptions 的核取方塊取消即可. --- Everything I say is a lie. @>---

謝謝hagar 我試過上面你加的方法, 可是執行到 DateTimeToSystemTime(idTime.DateTime - OffsetFromUTC , asystemtime); 這一行時, 會出現 already connected 的錯誤 並且這一行也沒有執行, 所以SetSystemTime 也沒用了

sorry! 小弟試了一下, 您原本寫的就可以了! 原來問題, 應該注意的: 雖然使用了 try .. except, 但在 IDE 下若連不上仍會顯示預訂的錯誤訊息是正常的 可在 Tools -> Debug Options -> Language Exceptions 頁中 的 Stop on Delphi Exceptions 的核取方塊取消即可. --- Everything I say is a lie. @>---