blog.shimix.jp

日々の雑感
<< カテゴリ追加 | main | NTFSの最終アクセス日時の更新を無効にする >>
【Delphi】ネット接続の確認
0
    Syslogサーバに(IdSysLogなどを使って)ログを吐くときに、接続自体が切れているとSocketエラーになります。tryでキャッチするにしてもなるべくエラーの発生(というかエラーメッセージのダイアログ)は抑えたい。で「ネットワークに繋がっているか」を確認したいときの書き方を検索していたら、こちらにありました。

    WinInetを使って
    function InternetConnected: Boolean;
    var
      Flags: DWORD; //not use
    begin
      Result := InternetGetConnectedState(@Flags, 0);
    end;
    接続を確認してOKならSyslogを書き出すようにしてしまえばノープロブレムですね。

    社内のプログラムでPC起動時に立ち上げているものがあるのですが、PCによって接続までの時間がかなり違う(無線接続はRADIUSの認証もある)ので「接続待ち」の待機を作るのにも使えます。
    | shimix | Delphi | 10:59 | comments(0) | trackbacks(0) | -









    http://blog.shimix.jp/trackback/797127
          1
    2345678
    9101112131415
    16171819202122
    23242526272829
    30      
    << September 2018 >>

    このページの先頭へ