くろねこ研究所全ての話題

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

2012-03-28T23:43:26+09:00

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

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

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

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

LaunchボタンはExcelプロセスを作成し起動する。
CheckボタンはExcelプロセスの実行を確認する。
TermボタンはExcelプロセスを通常に終了させようと試みる。
ただし、この行為が失敗した場合には、強制終了を行う。

unit UXlsOpenTerm;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ComObj, StdCtrls;

type
  TForm1 = class(TForm)
    btnLaunch: TButton;
    btnCheck: TButton;
    btnKill: TButton;
    procedure btnLaunchClick(Sender: TObject);
    procedure btnCheckClick(Sender: TObject);
    procedure btnTermClick(Sender: TObject);
  private
  public
    FXls: OLEVariant;
    FXlshWnd: THandle;
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

uses
  Variants;

procedure TForm1.btnLaunchClick(Sender: TObject);
begin
  FXls := CreateOleObject('Excel.Application');
  FXls.Visible := true;
  FXls.WorkBooks.Add;
  FXls.WorkBooks.Close;
  FXlshWnd := FXls.hwnd;
end;

procedure TForm1.btnCheckClick(Sender: TObject);
var
  nRes: DWORD;
  nRet: longint;
begin
  nRet := SendMessageTimeout(FXlshWnd, WM_NULL, 0, 0,
    SMTO_ABORTIFHUNG OR SMTO_BLOCK, 1000, nRes);
  if (nRet > 0) then
    ShowMessage('正常処理中!!')
  else
    ShowMessage('返事がない、ただの屍のようだ...');
end;

procedure TForm1.btnTermClick(Sender: TObject);
var
  ProcessID: DWORD;
  Process: THandle;
  nRes: DWORD;
  nRet: longint;
begin
  GetWindowThreadProcessId(FXlshWnd, @ProcessID);
  FXls.Quit;
  FXls := unassigned;

  nRet := SendMessageTimeout(FXlshWnd, WM_NULL, 0, 0,
    SMTO_ABORTIFHUNG or SMTO_BLOCK, 1000, nRes);
  if (nRet > 0) then
  begin
    Process := OpenProcess(PROCESS_ALL_ACCESS, false, ProcessID);
    TerminateProcess(Process, 0);
  end;
end;

end. ...

03/20 HOME SPOT CUBEが届いた

2012-03-20T12:01:34+09:00

一昨日電話で注文したauのHOME SPOT CUBEが届いた。

超小型なWiFiルーターなのだが、事前にauお客様センターに確認したところ、性能はいまいち...

と言うか、auでも性能を把握していないという...
このルーターを借りるに当たってペナルティは発生しないので、とりあえず契約してもらって実機を見てもらうほうがわかりやすいと言うことで送ってもらうことになった。

事前に歩客様センターに問い合わせしたところでは、IEEE802.11 a/b/g/nで2.4GHz帯と5GHz帯に対応。nは2本束ねて150Mbpsまで。普通2本束ねたら200Mbpsなんだけど、auの担当者に半二重？って聞いたらそう。って答えてた。たぶん40MHz チャネルボンディングにしか対応してなくて、MIMOしてないだけかと...暗号化プロトコルはWPA2-PSK,暗号化アルゴリズムはAESに対応。

たぶん、BuffaloやNECあたりのWiFiルーターを買う方が性能的には確実に上かと。

HOME SPOT CUBE スペック
型番	PXH11
無線部仕様
対応規格	IEEE802.11b IEEE802.11g IEEE802.11gおよびIEEE802.11nテクノロジー(ただしMIMO機能のみを除く) IEEE802.11a IEEE802.11aおよびIEEE802.11nテクノロジー(ただしMIMO機能のみを除く)
周波数帯域チャネル	[W52]5.2GHz帯(5,180～5,240MHｚ)：36/40/44/48ｃｈ [W53]5.3GHz帯(5,260～5,320MHｚ)：52/56/60/64ｃｈ [W56]5.6GHz帯(5,500～5,700MHｚ)：100/104/108/112/116/120/124/128/132/136/140ｃｈ 2.4GHz (2,412～2,472Mz)：1~3ch
伝送速度	IEEE802.11n：最大150Mbps IEEE802.11a：54, 48, 36, 24, 18, 9, 6Mbps IEEE802.11g：54, 48, 36, 24, 18, 9, 6Mbps IEEE802.11b：11, 5.5, 2, 1Mbps
伝送方式	IEEE802.11n：直交波周波数分割多重変調（OFDM方式） IEEE802.11a：直交波周波数分割多重変調（OFDM方式） IEEE802.11g：直交波周波数分割多重変調（OFDM方式） IEEE802.11b：直接拡散型スペクトラム拡散（DSSS方式）
アンテナ	内蔵アンテナ2本(2.4GHz： 1T1R, 5GHz: 1T1R)
アクセス方式	インフラストラクチャモード
自動無線設定機能	かんたん接続、WPS
セキュリティ	暗号設定なし WEP 64bit, WEP 128bit WPA-PSK(AES) WPA2-PSK(AES)
有線部仕様
対応規格	IEEE802.3u（100BASE-TX） IEEE802.3i（10BASE-T）
インターフェイス	RJ-45ポート×2（WAN×1、LAN×1）
伝送速度	100/10Mbps（MDI/MDIX, オートネゴシエーション）
ネットワークケーブル	100BASE-TX：カテゴリ5以上 10BASE-T：カテゴリ3以上
ソフトウェア仕様
動作モード	「オートモード(AUTO)」、「アクセスポイントモード(AP)」、および「ルーターモード(ROUTER)」
対応プロトコル	TCP/IP(IPv4)
インターネット接続方法	DHCP, PPPoE認証(2セッション), 固定IPアドレス
WAN回線自動判別	WAN回線自動判別機能搭載
LAN設定	DHCPサーバ（有効/無効）
無線利用方式	IEEE802.11n/aと11n/g/bは同時利用可能
アドレス変換	NAPT
DMZ	対応可能
フィルタ機能	MACフィルタ、IPv4パケットフィルタ
IPv6関連	IPv6ブリッジ機能（IPv6パススルー）
VPN関連	IPsecパススルー、PPTPパススルー
省エネ設定	EEE
ハードウェア仕様
ハードウェアスイッチ	簡単接続(SETTING)ボタン、初期化(RESET)ボタン、モード切替スイッチ(AUTO/AP/ROUTER)
消費電力	最大3.4W
電源	DC5V 1A
外形寸法	約68(W) × 72(H) × 68(D) mm
質量	約199g
動作時環境	温度：0～40℃ 湿度：20～85%(結露しないこと)
保存時環境	温度：-20～60℃ 湿度：5～90%(結露しないこと)

※2012/03/20現在くろねこの手元に届いたマニュアルを転記。
転記ミスや製造時の誤植や仕様変更を含めくろねこは記載内容の正確性について一切の保証をしません。 ...

02/18 「ａｕスマートバリュー」受付中 by KDDI

2012-02-18T07:49:14+09:00

ただいま、auでは「ａｕスマートバリュー」を受付中。

スマートフォン利用中でかつ指定のキャリアで固定電話とネット回線を契約すると、auのスマートフォン利用料が1,480円安くなるらしい。

2/14から正式受付開始中。くろねこは発表された際にすでに申し込みを済ませました。条件に該当する方はデメリットは発生しないと思うのですぐ申し込んだほうがお得。

この件、auお客様サポートに聞くと固定電話とネット回線の契約が別会社（ともに指定企業）でも問題ないと案内される可能性があるが、固定電話とネット回線は同一でないと無理だということがわかっています。ご注意を！
（auがこういうサービスを開始する際には、いろんな方面から何度か確認をしないと正しい回答が得られないので注意。）

くろねこは、スマートフォン契約とauの固定電話・光回線であったので条件に該当していたのだが、グローバルIPを３つくれるQit光に変えることを検討していたため、この割引プランについて突っ込んで確認していたところめちゃくちゃな案内をされてまたauに惑わされていました。auはとても困った企業のひとつです。

□参考□

auスマートバリュー

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

2011-12-27T00:15:42+09:00

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

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

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

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

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

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

できあがったソース。
なお、このプログラムのコンパイルにはタイプライブラリの取り込みが必要です。
Microsoft WMI Scripting V1.2 Library を取り込み、作成されたユニットをプロジェクトと同じフォルダに置くことを前提に作成してある。
※取り込み方法：メニューの「コンポーネント｜コンポーネントのインポート」で、コンポーネントのインポートウィザードを表示し、次にタイプライブラリのインポートを選択し「次へ」、一覧からMicrosoft WMI Scripting V1.2 Library を選択し「次へ」、ユニットの作成を選択し「完了」ボタンをクリック。

program PingExec;

{$APPTYPE CONSOLE}

uses
  SysUtils,
  Variants,
  ComObj,
  ActiveX,
  WbemScripting_TLB in 'WbemScripting_TLB.pas';

type
// 参考
//  Win32_PingStatus = record
//    string  Address;
//    uint32  BufferSize = 32;
//    boolean NoFragmentation = FALSE;
//    uint32  PrimaryAddressResolutionStatus;
//    string  ProtocolAddress = "";
//    string  ProtocolAddressResolved = "";
//    uint32  RecordRoute = 0;
//    boolean ReplyInconsistency;
//    uint32  ReplySize;
//    boolean ResolveAddressNames = FALSE;
//    uint32  ResponseTime;
//    uint32  ResponseTimeToLive;
//    string  RouteRecord[];
//    string  RouteRecordResolved[];
//    String  SourceRoute = "";
//    uint32  SourceRouteType = 0;
//    uint32  StatusCode;
//    uint32  Timeout = 1000;
//    uint32  TimeStampRecord[];
//    string  TimeStampRecordAddress[];
//    string  TimeStampRecordAddressResolved[];
//    uint32  TimeStampRoute = 0;
//    uint32  TimeToLive = 80;
//    uint32  TypeofService = 0;
//  end;
  TPingResult = record
    BufferSize: cardinal;
    ProtocolAddress: string;
    ResponseTime: cardinal;
    ResponseTimeToLive: cardinal;
  end;

function SendPing(address: string; var pr: TPingResult): integer;
var
  Locator:  ISWbemLocator;
  Services: ISWbemServices;
  SObjSet:  ISWbemObjectSet;
  SObject:  ISWbemObject;
  Enum:     IEnumVariant;
  TempObj:  OleVariant;
  TempVal: Cardinal;
  Query: string;
begin
  Result := -1;

  if Failed(CoInitialize(nil)) then Exit;
  try
    Locator := CoSWbemLocator.Create;
    Services := Locator.ConnectServer('.', 'root\cimv2', '', '', '', '', 0, nil);
    Query := 'SELECT * FROM Win32_PingStatus WHERE address=' + QuotedStr(address);
    SObjSet := Services.ExecQuery(Query, 'WQL', wbemFlagReturnImmediately and wbemFlagForwardOnly , nil);
    TempVal := 0;
    Enum := (SObjSet._NewEnum) as IEnumVariant;
    if (Succeeded(Enum.Next(1, TempObj, TempVal)) and (TempVal > 0)) then
    begin
      try
        SObject := IUnknown(TempObj) as ISWBemObject;
        if (SObject <> nil) then
        begin
          if VarIsNull(SObject.Properties_.Item('StatusCode', 0).Get_Value) then exit;

          Result := (SObject.Properties_.Item('StatusCode', 0).Get_Value);

          if (Result = 0) then
          begin
            with SObject.Properties_ do
            begin
              pr.ProtocolAddress := VarToStr(Item('ProtocolAddress', 0).Get_Value);
              pr.BufferSize := StrToIntDef(VarToStr(Item('BufferSize', 0).Get_Value), 0);
              pr.ResponseTime := StrToIntDef(VarToStr(Item('ResponseTime', 0).Get_Value), 0);
              pr.ResponseTimeToLive := StrToIntDef(VarToStr(Item('ResponseTimeToLive', 0).Get_Value), 0);
            end;
          end;
        end;
      finally
        SObject := nil;
        VarClear(TempObj);
      end;
    end;
  finally
    Enum.Reset;
    SObjSet := nil;
    Services := nil;
    Locator := nil;
  end;
end;

(** Main **)
var
  pr: TPingResult;
begin
  if (SendPing(ParamStr(1), pr) = 0) then
  begin
    System.Writeln(Format('%s からの応答: バイト数 =%d 時間 =%dms TTL=%d', [
      pr.ProtocolAddress, pr.BufferSize, pr.ResponseTime, pr.ResponseTimeToLive]));
  end
  else
  begin
    System.Writeln(Format('%s からの応答: 宛先ホストに到達できません。', [ParamStr(1)]));
  end;
end.

RFC 791準拠.ちなみにパラメータはコンピュータ名でもIPアドレスでも実行可能。IPv6 and IPv4 Support in WMIということなのでIPアドレスはIPv4, IPv6 双方可能だと思われる。

■参考URI

...

12/18 サブノートPCが届く

2011-12-18T20:01:42+09:00

なんでほしくなったのか詳細は不明だが、とりあえず12/1にサブノートPCの注文をしてしまった。
ほしいなと感じたのは、その約1週間ほど前、docomoのタブレットへの興味が薄れ、後継に何を所有するか？と考えたときこの結論になったようだ。

やはり、アンドロイドごときでは窓の代わりにはなれない！

と言うことが最大の原因だったようだ。

しかし、今回のターゲットは所詮サブノートであるため、それほど高い性能は必要無い。とはいうもののAtomでは性能が心許ない。よってCPUはi3～i5とした。
また、通勤時間が長めなのでバッテリーの持ちは長めを希望する。おおむね6時間以上もってほしい。サイズも持ち運びに便利な13.3程度が望ましいと判断した。
が、昨今の主流は15.6インチ程度になってしまっており、このサイズはネットブック程度しか無い。サブノートの需要はそれほど多くなく、今は以前デスクトップがになっていたファースト機としての性能がノートPCに求められていることも有り、画面サイズもかなり大型化してきている。

そんななか、くろねこがチョイスしたのがLenovoのX220とマウスコンピュータのLuvBook手頃なサイズで性能もi3～i7まで選択可能なのだが...
X220は値段が高すぎて...と言うことでLuvBookとなってしまった。OSなどはすでにもっているので、購入する必要も無いのだが、SSDモデルなどいろんな観点から考えたところ、価格.com限定パッケージのLB-S210S-SSD-KKとなった。インテル製SSD 120GBに変更されているのでバッテリーも長持ちするはず、動作速度もHDDよりは速いだろうということを期待した。
まあ、まだあまり使ってないので、体感でそこそこ行けるかな？程度なのであるが...

とりあえず開封時の写真

しかし、昔に比べて箱の大きさがずいぶんと小さくなったな～。
マニアルの冊数とかもかなり減ってるんだけど。

しかし、このパッドはいつ使っても使いにくいな～。
Lenovoとか昔のTOSHIBA機のようなトラックポイントの方が個人的には使いやすい…

TOSHIBA機で復活しないかな～？ ...

11/29 使いやすいCMSを求めて…

2011-11-29T23:52:17+09:00

最近便利なCMSを求めてCMS比較サイトなどを眺めていました。

とりあえず個人で使ってみて良かったら、会社でも…と言うもくろみがあります。
今使っているCMSはGeeklogですが、正直高機能でも使いやすくもないと思います。
特にバージョンアップがめんどくさいです。でも、だいぶんマシになりました。昔はConfigをよけておいて、新しくインストールしたところに自分のコンフィグを足し込むことが必要でした。今でも一部のファイルはそんな感じです。

求めるCMSは、

デザインがよく
カスタマイズ可能であり
高機能で
メンテナンスが楽である
かつ低価格

と言うことで、今個人的に注目のCMSはbingo CMSです。
価格が2万円台でかつそれなりに高機能です。ただ、ユーザー数は未知数でフォーラムなどが充実してなさそうで、カスタマイズ方法などを公式サポートで確認しているとすぐに高価なCMSと同等になってしまう危険性がありますが、一応ほとんどの機能は網羅されていそうです。

ちょっと、メーカーに問い合わせなどして見ながら詳細を詰めていきたいなと考えているところです。 ...

11/27 SoftBankと契約してしまった…

2011-11-27T23:18:02+09:00

通勤時間の有効活用にサブノートPCとWifiルーターを検討し始めて1週間。
先週、ヤマダ電機で進められたイーモバイルのWifiルーターを購入しようかと、いつものケーズデンキへ。

パソコンコーナーで一番最初に声をかけてきたのはeoさん、eoさんはキャンペーンで入り口にもブースを広げていたけどかなりユーザーを獲得したいようです。そんなeoさんにeoモバイルについて質問してみたら、eoモバイルは遅いのでSoftBankさんのウルトラモバイルをお勧めされた。

ウルトラモバイルがキャンペーン中で結構安くて3,800/月。速度も下り42Mbps、上り10Mbpsで業界としては結構早い方。(現在1位はdocomoのxi。でもルータータイプの売りが今はないと言うことと、結構値段が高い。)
このキャンペーン11月末までと言うこと。と言うことは、くろねこ的には11月の最終土日の今日が最終日。今日決めないと、次来たときには4,980になっていると言うことなんですね。

仕方が無いのでノートパソコンが決まらない間にどんどん回線の契約だけが進んでしまいましたよ。
決め手は、3,880円/月が解約するまでずっと続くと言うこと、この金額が現在のdocomoでの契約と比べて若干安いと言うこと。(しかもdocomoのキャンペーン料金は契約の2年が過ぎると通常の値段に戻り、高くなる予定だった。)

速度が上がって、料金が安くなって言うこと無しなので契約したと言うことですね。
docomoの解除料が高いですけど...

肝心のノートPCはサイズとお値段がauのがケーズでは見つかりませんでした。
富士通のPCを取り寄せすると良い感じのがあったのですけど...
取り寄せすると値引きがほとんどないので、割高なんです。

と言うことで、今は下のどちらかと言う所なのかな？

ThinkPad Edge E420 CTO
マウスコンピュータ LuvBook S シリーズ LB-S210S(OSレス構成)

OSレスでOpen LicenseでL+SAで購入してみようかな？

...

11/27 docomoを解約

2011-11-27T23:02:48+09:00

本日docomoの回線を解約してきました。

定額データプランSバリューの解約違約金と、GALAXY TABの本体代の残りで33,000円ちょいだそうで、これが次月の請求分にプラスされて来るようです。

解約の理由の主なところとして...

回線のハンドオーバーがしっかり出来ていない。
電車での移動中にyoutubeを閲覧しようとすると、ずっとぐるぐる回り続けるところが多いです。
FXのアプリくらいの通信であれば特に問題は無いようです。
GALAXY TABの電源を入れることがほとんど無くなっていた。
IS04の頃はauのスマートフォンが非常に安定しないため、よく修理に出していたこともありサブとしての出動も多かったですが、最近はあんまりでした。
androidよりもやはりWindowsノートPCのほうが使い勝手が良い。
ノートPCと接続するには大きなTABよりも小さくて電池も長持ちする、Wifiルーターがほしくなってきていた。GALAXY TABもかなり電池は長持ちしますよ？

くろねこハウス建築中

2011-10-24T00:02:04+09:00

みなさま、おひさしぶりです。

くろねこです。

本日、MoE世界に自宅を作ることになりました。
住所はゲオ西の外れミニアルター5番付近です。

家を買うときにはやはり下見が大切。最初はソレスにしようかと考えていろいろ見て回ったんだけど、今は震災の影響でなのか腐るはずの家が腐らず、良い土地が少ないように思えます。

ソレスの中心部の家で2件ほど残り3日で腐敗がストップしている状況の物がありました。
この土地、表記とは異なり最も早くても11/1にならないと購入できません...

まあ、そんなソレスをおいといてゲオを見て回ると、アルターからの大通りに面した土地が空いていることに気づきました。ミニアルターもそれなりに近いので、結局そこに決めることになりました。

住む場所を決めたら、今度は上物です。維持費を稼ぎたいので店舗併設可能なスタイルとします。
と言う訳で、店舗ハウスの作成を進めます。
まず、石灰岩を掘って次に粘土岩を掘って… って掘ってばかりで結構疲れるんですね～。それに石灰岩は採掘だけど、粘土岩は収穫で掘るなんて聞いてないよ？

なーんておもいながら、さくさく作った自宅は3日と12時間ほど建設にようするようです。

SSもはっ付けようかと思いましたが、完成してから追加することにします～。 ...

ロリモア出る！

2011-09-21T23:04:24+09:00

回復魔法をもったペットがほしい！フィニュでも良いけど、飛んでる方が良い…。と言うことでロリモアを選定、ロリモアは光放つ魔道書からでると言うことで...
モエガチャ(D,E,P)を回すことになった。

モエガチャと言えば、今週はずっとラッキータイムで上位のアイテムが当たりやすくなっている(らしい)。
くろねこは、とりあえずエレメンタルプルルームがほしいのだが、今は魔フィニュが高く売れるので、動物ガチャシルバーを回して魔フィニュを当てて交換に持っていくか？(たぶんおつりがくる…)
もしくは、直接狙うか…
初日18日は(というか日付的には19日)300円ガチャだと1000円ずつきれいに使えないから、50円の動物ガチャシルバーを2回回して、次の日からもえガチャ300円を回すことにした。
初日は、魚籠となんか
2日目、箱入り染色液(黒)...
3日目(今朝)...
回してみたら、金色...

なんだろうと思って待ってると...

なんと！光放つ魔道書！

狙いどおりでしたよ。これで5M程度で買いチャネルを立てる必要がなくなってラッキーでした。

カオスでも結構レアアイテムが出てるほうらしいし、MoEでは結構運がいいのかな？ ...

くろねこ研究所 全ての話題