blog.shimix.jp

日々の雑感
Delphi2009
0
    今期中は「Vista導入不可」になっているウチの会社ですが、来期はいよいよVistaモデルに切り替わります。XPとの混在環境になるので、開発だの検証だのをどうするか・・と悩んだ結果、社内アプリケーションの開発環境をDelphi2009に移行します。



    Delphi7があまりに使いやすかった(というかこの直前やこれより後のバージョンの評判があまりに良くない)ので、長々と引っ張ってしまいましたねぇ。

    とりあえずProfessional EditionのVer.UP版を翔泳社のオンラインショップに発注。Vista用は現在の開発環境と別環境で開発・検証したいので、VistaのBusiness版(基幹システムの検証はBusiness版で作業中との情報なので)のStudio15をDellに発注。合計で15万円を少し切るくらいの金額が飛んでいきました(涙)。
    続きを読む >>
    | shimix | Delphi | 14:14 | comments(0) | trackbacks(0) | -
    【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) | -
        12345
      6789101112
      13141516171819
      20212223242526
      2728293031  
      << August 2017 >>

      このページの先頭へ