記事カテゴリ

ユーザー機能


 2024年3月28日(木) 22:11 JST

[Delphi] 列挙型の値を文字列に変換

  • 記事を友だちにメール
  • 印刷用ページ
  • 投稿者:
  • 表示回数
    7,641

TBrushStyleやTPenStyleなどの列挙型の値を文字列に変換するには次のように行う。

uses TypInfo;
function GetBrushStyleName(Value: TBrushStyle): String;
begin
    Result := GetEnumName(TypeInfo(TBrushStyle), Ord(Value));
end;

逆に文字列から値に変換するには次のようにする。

uses TypInfo;
function GetBrushStyleValue(Name: String): TBrushStyle;
begin
    Result := TBrushStyle(GetEnumValue(TypeInfo(TBrushStyle), Name));
end;

[Delphi] ジェネリックのTListに格納したrecord型変数は解放する必要が無い

  • 記事を友だちにメール
  • 印刷用ページ
  • 投稿者:
  • 表示回数
    16,576

表題の通り、「ジェネリックのTListに格納したrecord型変数は解放する必要が無い」らしい。

[Delphi] CreateOleObjectで起動したプロセスの強制終了

  • 記事を友だちにメール
  • 印刷用ページ
  • 投稿者:
  • 表示回数
    9,670

DelphiでCreateOleObjecteにより起動したExcelが終了しないケースがあるかと思う。
くろねこの自宅ではExcel 2010を使用中であるが、幸いなことながらExcelが正常動作している際にはこのケースに遭遇したことは無い。しかしながら、勤務先のExcel 2003ではExcelの参照をもっている変数に対してunassignedを代入してもプロセスが解放されないと言うことが発生している。

このような際には、処理終了後Delphiの方からExcelプロセスの強制終了が必要になるかもしれない。
今回はこのようなときに役立つ処理を作成した。

また、この処理はハングアップしたExcelプロセスを強制終了する際にも役に立つだろう。
通常、ハングアプリケーション明確な定義ない。しかし、通常ハングアップという状態では、該当のプロセスはいくつかの処理が"ビジー"になっていて、ユーザーから見た際に応答を停止している状態であると思われる。

次の処理は、アプリケーションがまだ一定時間で応答する際には通常に処理を実行しているとみなし、そうで無い場合にはハングアップしていると見なすこととした。

[Delphi] マシンの稼動状況を確認する死活監視(Ping)

  • 記事を友だちにメール
  • 印刷用ページ
  • 投稿者:
  • 表示回数
    9,166

マシンの死活監視に欠かせないのがPing。

くろねこも社内でアプリケーションサーバーがDBサーバーに接続しに行く前に死活監視を...と言う話を切り出してからはなかなか実現できず、問題だけが積み上がっていた。
だって、それに集中する時間が無いんだもん...

すでに、社内のマネージャからは「ライフワーク」といわれ始めた...

そんな状況を打開するために、ちょっと気合いを入れて調査してみる。

よくあるPingのサンプルプログラムでは管理者権限が必要。
管理者権限が不要といわれているプログラムをいくつか試してみたが動かず暗礁に乗り上げていたが...

本日、先日買ったノートPCで帰宅中に、最悪.net Frameworkでもいいか~と調べていると...
やっぱり、Pingクラスってあるんですね。
さらに、Pingクラスを使っている例が無いかググってみると、WMIで実行する方法がある。
WMIはWin32でも実行できるので、今回はこちらでコーディングしてみることにした。

[Delphi] MainFormOnTaskBarとタスクバーボタン2

  • 記事を友だちにメール
  • 印刷用ページ
  • 投稿者:
  • 表示回数
    5,401

[Delphi] MainFormOnTaskBarとタスクバーボタンで完成できていなかったActiveFormOnTaskBarの動きがようやく完成です。
サポートの方にもご協力いただいて...実現しました。

最初 | 前へ | 1 234567| 次へ | 最後

サイトカレンダー

サイトカレンダーをスキップ

2018年 06月
«
»
1 2
3 4 5 6 7 8 9
10 11 12 13 14 15 16
17 18 19 20 21 22 23
24 25 26 27 28 29 30

新着情報

記事 新着(24時間)

-

コメント 新着(2日)

-

トラックバック 新着(2日)

-

リンク 新着(2週)

新しいリンクはありません

ファイル (14日)