Software

XAMPP 1.7.4インストール

ゆーち — Sun, 24 Jul 2011 01:47:00 GMT

64bit Windows 7 な環境でXAMPP 1.7.4をインストールしたら、コンパネ起動時に
XAMPP Component Status Check failure [3]
ってエラーがでてました。

ぐぐった結果レジストリを次のように編集したらうまくいったので、メモ。

[HKEY_LOCAL_MACHINE\SOFTWARE\Wow6432Node\xampp]
Install_Dir=C:\\xampp

（c:\xamppとなっているところを、C:\\xamppに変更しました）

Windowのサブクラス化

ゆーち — Sat, 18 Jun 2011 23:39:00 GMT

お久しぶりのWIN32ですｗ。

とあるプログラムで、ウィンドウハンドルをサブクラス化してたんですな。
サブクラスといっても、オブジェクト指向的な用語ではなく、Windows独特なので、知らない人も多いかもｗ

ウィンドウのメッセージを処理するプロシージャを置き換えて別の挙動をさせたいときに使うワザとでもいいましょうか。

こんな実装です。

WNDPROC oldProc = ::GetWindowLong( WinHandle, GWL_WNDPROC );
::SetWindowLong( WinHandle, GWL_WNDPROC, (WNDPROC)&MyProc );

その後、GetWindowLongPtr とか SetWindowLongPtr を使いましょうなどという別名みたいな推奨があったんですが、キャストが少なくなる程度でそれほど便利だとは思ってませんでした。
自前のプロシージャでは、自分が処理するメッセージ以外を元のウィンドウに処理させます。

LRESULT CALLBACK MyProc( HWND Wnd, UINT Msg, WPARAM wParam, LPARAM lParam)
{
 if(Msg==自前処理)
 {
   return foo();
 }
 return ::CallWindowProc( oldProc, Wnd, Msg, wParam lParam );
}

こんな具合です。

処理が必要なくなったときは、同様に SetWindowLong を使って、ウィンドウプロシージャを元に戻しておきます。
::SetWindowLong( WinHandle, GWL_WNDPROC, oldProc );

と、そこに問題が。
アプリケーションの起動後にサブクラスした状態で、別の常駐プロセスが同様にサブクラス化をするんです。

本来、プロシージャのチェインは、
「MyProc」－「oldProc」
のつながりになっているわけで、このまま終了時に戻せば問題なかったわけです。

別のプロセスが同様にサブクラス化をすると、プロシージャのチェインがこうなります。
「別プロセス」－「MyProc」－「oldProc」

この状態で自前部分の終了処理が実施されてしまうと、別プロセスは ::CallWindowProc で MyProc を呼び出してしまい、アクセス違反で異常終了してしまいます。

サブクラス化を実施する手順と解除する手順が正しくないと必ずこうなってしまうわけです。
こりゃ困ったよ。

で、結論。
SetWindowSubclass
RemoveWindowSubclass
DefSubclassProc
というAPIが追加されてました。

Windows 2000 SP4 以降にしか対応してませんが、十分でしょうｗ

ま、苦労しましたよ（笑

ソフトの導入は男性主導なのかな？

ゆーち — Tue, 07 Jun 2011 11:02:00 GMT

メールソフト Becky!で、メールの宛先に敬称をつけたりできるプラグインを公開してます
過去にもここに書いたけど、BkReplyer ってんです。
いちおう、「ここ」にリンク貼っときます。よろぴこ。

たくさんの方々に使っていただいていますが、ちょっと気づいたことがあります。
登録された方の９５％の方が男性なんですなぁ。
ビジネスメール中心で使われるプラグインだからなのかな？
とも思うけど、なんとなく Becky! そのものを使う人に女性が少ないのではないかと・・・

ダウンロードしてユーザー登録して使う必要のあるソフトウエアが、女性に敬遠されがちなのではないだろうか、と思ったのでした。

考えてみると、あちきも女性のＰＣにいろいろソフトを導入してあげることが多いような気がするなぁ。
どんなソフトが便利だっつう情報は男性から手に入れることが、はるかに多いし・・・

ということで。
世の男性諸君。使ってる便利なソフトをお隣の女性に教えて差し上げましょうね。

久しぶりに書いたら、またとりとめのない内容になっちまった。orz

SVNリポジトリが壊れちゃってるんですが・・・

ゆーち — Thu, 02 Dec 2010 12:50:00 GMT

SVNクライアント側で更新しようとすると
REPORT(URL:******):Could not read chunk size:
Secure connection truncated(https://****)
ってなエラーで更新できません。

SVNサーバにある、VisualSVN Server Manager を起動して、問題となっているリポジトリのフォルダをクリックすると、Server Manager が固まってしまいます。
ＷＥＢで調べてみると、Linuxサーバのお話ばっかりのようで。
ＳＶＮサーバは Windows マシン(Win7)なんですなぁ。

むーん・・・このリポジトリを復活させることはできないものだろうか・・・
こまったぞー・・・

ＣｕｔｅにＱｔ

ゆーち — Wed, 18 Aug 2010 14:38:00 GMT

福岡でＱｔ勉強会を開催します。

２０１０年９月４日（土曜日）
１５：００～１８：００

今後の進め方も含めた、第０回勉強会です。

あちきが参加する＝宴会も実施する。
ってことで、どぞ興味のある方はご参加ください。

こちらで募集してます。
http://atnd.org/events/7338

SendInput API でマルチバイト文字

ゆーち — Mon, 26 Jul 2010 12:43:00 GMT

keybd_event 使って２バイト系文字列を処理するのって、結構大変だったんだよね・・・
いつの間にか、SendInput なるＡＰＩができているらしく、UNICODEで処理できるようになってました。

つうことで、書き上げたモジュールをさらしておきます。

#include <windows.h>
#include <vector>
#include <string>

// マルチバイト文字用(CP_ACP固定ｗ)
void KeyInput( const char *Text_ )
{
  std::wstring  wstr;
  int length = ::MultiByteToWideChar( CP_ACP, 0, Text_, -1, NULL, 0 );
  if( length == 0 )
  {
    return;
  }
  else
  {
    wstr.resize( length );
    ::MultiByteToWideChar( CP_ACP, 0, Text_, -1, &wstr[ 0 ], length );
  }
  std::vector<INPUT>  inputs;
  for( int i = 0; i < length; i++ )
  {
    for( int j = 0; j < 2; j++ )
    {
      INPUT input;
      input.type        = INPUT_KEYBOARD;
      input.ki.wVk      = 0;
      input.ki.wScan      = wstr[ i ];
      input.ki.time     = 0;
      input.ki.dwExtraInfo  = 0;
      input.ki.dwFlags    = KEYEVENTF_UNICODE;
      if( j != 0 )
      {
        input.ki.dwFlags  |= KEYEVENTF_KEYUP;
      }
      inputs.push_back( input );
    }
  }
  ::SendInput( length * 2, &inputs[ 0 ], sizeof( INPUT ) );
  return;
}

// VK_xxx 用
void VKeyInput( int *VKeys_, int Count_ )
{
  std::vector<INPUT>  inputs;
  for( int i = 0; i < Count_; i++, VKeys_++ )
  {
    for( int j = 0; j < 2; j++ )
    {
      INPUT input;
      input.type        = INPUT_KEYBOARD;
      input.ki.wVk      = *VKeys_;
      input.ki.wScan    = ::MapVirtualKey( *VKeys_, 0 );
      input.ki.time     = 0;
      input.ki.dwExtraInfo  = 0;
      input.ki.dwFlags    = KEYEVENTF_SCANCODE;
      if( j != 0 )
      {
        input.ki.dwFlags  |= KEYEVENTF_KEYUP;
      }
      inputs.push_back( input );
    }
  }
  ::SendInput( Count_ * 2, &inputs[ 0 ], sizeof( INPUT ) );
  return;
}

動作検証するとき、デバッガでブレークポイントを貼ると、フォーカスがソース上に移るので、ソースが書き変わっちゃって困った（笑）

スタックとヒープ

ゆーち — Sat, 24 Jul 2010 13:42:00 GMT

一時的に使用する文字列のための領域を new TCHAR[n] delete []とか、malloc(n), free() を繰り返し使うのは処理効率が落ちると思ってしまいます。
せせこましい時代を過ごしてしまったものだから（笑）

最近、よくこんな書き方をします。

void foo( size_t Length_ )
{
  char buffer[ 512 ];
  char *data = ( Length_ < sizeof( buffer ) ) ? buffer : new char[ Length_ ];

  // data について処理

  if( data != buffer )
  {
    delete [] data;
  }
}

わずかな領域のために確保と解放を繰り返すってのを避けられるはずだ、って思ってしまうんですなぁ。
（笑）

【C++】dynamic_cast でポインタの安全性を確認できる？

ゆーち — Fri, 11 Jun 2010 10:49:00 GMT

こんなコードばっかりあるわけですよ。

int Foo( SomeClass *Src_ ){
  int value;
  if( Src_ != NULL ){
    value = Src_->Value;
  }else{
    value = -1;
  }
  return value;
}

Src_ が NULL かどうかはチェックできてるけど、妙な値だったりするとアウトですよね。
そこでこんな風に書いてみた。

int Foo( SomeClass *Src_ ){
  int value;
  SomeClass *src = dynamic_cast＜SomeClass *＞( Src_ );
  if( src != NULL ){
    value = src->Value;
  }else{
    value = -1;
  }
  return value;
}

こうすると、もうちょっとましなチェックができることになるのかな？

＃もちろん RTTI 有効でコンパイルっての前提です。

SUBST って Substance の略なのかな？

ゆーち — Mon, 31 May 2010 18:16:00 GMT

_MAX_PATH ってのが 260 で定義されてるんだけど、ご存じの通り今のファイルシステムはそれ以上の長さのパス名が利用できます。
日本語のファイル名などが使われてるとよけいに長くなったりします。

広く利用されている圧縮解凍のＤＬＬを使ってみると、パス名の領域に _MAX_PATH を使っているらしく、長いパス名が使われるとスタックを破壊したりするものがあるようです。
バグとして指摘されました(´･ω･`)
セキュリティホールとも言えますな・・・

もちろん、カレントディレクトリを変更し、相対パスをつかって処理するという方法もありますが、複数のドライブ間に関わるケースとか後始末とかがややこしすぐる。
ってことで、SUBST コマンドと同様に動作するプログラムを作って対応しますた。
作業用に作ったフォルダを、単一ドライブとして割り当てておいて、ファイルを処理した後割り当てを解除するってな方法です
それはそれで妙なんだけどね（笑）

とりあえず、うまく行くようになりましたので、書き上げたモジュールをさらしておきます。
どこかのだれかが重宝してくれるかもしれないしね・・・ｗ

//=========================================================================
//  Substance Drive
//=========================================================================
#include 
#include "TChar.h"
#include "SubstanceDrive.h" // プロトタイプの宣言
#pragma warning( disable : 4996  )
//=========================================================================
// 空きのドライブを取得する(-1=なし,0=A,1=B,...)
int  GetUsableDrive( int StartDrive_ )
{
    // 使用可能なドライブマップを取得 
    DWORD map = ::GetLogicalDrives();
    // 利用可能マップの後段からドライブNoを取得 
    int drive = StartDrive_;
    DWORD mask = ( 0x01 << drive );
    for( ; mask != 0; mask >>= 1, drive-- )
    {
        if( ( map & mask ) == 0 )
        {
            break;
        }
    }
    return ( drive < 0 ) ? -1 : drive;
}
// 任意ドライブの割り当て
int Substance( const TCHAR *Path_ )
{
    int drive;
    int startDrive = 25;    // Z:
    // 空きドライブを見つけて割り当ててみる
    while( ( drive = GetUsableDrive( startDrive ) ) != -1 )
    {
        if( Substance( drive, Path_ ) == true )
        {
            return drive;
        }
        // エラーなら利用可能なドライブまで探し続ける
        startDrive = drive - 1;
    }
    return -1;
}
// 指定ドライブの割り当て
bool Substance( const int Drive_, const TCHAR *Path_ )
{
    TCHAR   drv[ 4 ];
    drv[ 0 ] = Drive_ + 'A';
    drv[ 1 ] = ':';
    drv[ 2 ] = '\0';
    BOOL rc = ::DefineDosDevice( 0, drv, Path_ ); 
    return rc != FALSE;
}
// 割り当てドライブの解除
bool RemoveSubstance( const int Drive_ )
{
    TCHAR   drv[ 4 ];
    drv[ 0 ] = Drive_ + 'A';
    drv[ 1 ] = ':';
    drv[ 2 ] = '\0';
    TCHAR   path[ _MAX_PATH ];
    BOOL rc = ::QueryDosDevice( drv, path, sizeof( path ) );
    if( rc == FALSE )
    {
        return false;
    }
    rc = ::DefineDosDevice( DDD_REMOVE_DEFINITION | DDD_EXACT_MATCH_ON_REMOVE | DDD_RAW_TARGET_PATH, drv, path );
    return rc != FALSE;
}
// ドライブ名に割り当てられているパス名を取得する
bool GetSubstancePath( const int Drive_, TCHAR *Path_, int Length_ )
{
    TCHAR   drv[ 4 ];
    drv[ 0 ] = Drive_ + 'A';
    drv[ 1 ] = ':';
    drv[ 2 ] = '\0';
    TCHAR   path[ _MAX_PATH ];
    BOOL rc = ::QueryDosDevice( drv, path, sizeof( path ) );
    if( rc == FALSE )
    {
        return false;
    }
    // 割り当てドライブの先頭に "\??\" などが付加されるので、取り除く
    TCHAR   *dvp = _tcschr( path, ':' );
    if( dvp != NULL )
    {
        _tcsncpy( Path_, dvp - 1, Length_ );
    }
    else
    {
        _tcsncpy( Path_, path, Length_ );
    }
    return true;
}
// パス名で割り当てられているドライブを取得する(-1=なし,0=A,1=B,...)
int  GetSubstance( const TCHAR *Path_ )
{
    if( Path_ == NULL )
    {
        return -1;
    }
    // Path_ の終端が '\\' の場合、比較の長さが変わるので変更する
    size_t  cmpLength = _tcslen( Path_ );
    if( cmpLength == 0 )
    {
        return -1;
    }
    if( Path_[ cmpLength -1 ] == '\\' )
    {
        cmpLength--;
    }
    // 使用可能なドライブマップを取得
    DWORD map = GetLogicalDrives();
    int   drive = 25;
    for( DWORD mask = ( 0x011 << drive ); mask != 0; mask >>= 1, drive-- )
    {
        TCHAR   path[ _MAX_PATH ];
        if( GetSubstancePath( drive, path, sizeof( path ) ) == true )
        {
            size_t  len = _tcslen( path );
            if( 0 < len )
            {
                if( path[ len -1 ] == '\\' )
                {
                    path[ len -1 ] = '\0';
                }
            }
            if( _tcsncmp( path, Path_, max( cmpLength, len ) ) == 0 )
            {
                return drive;
            }
        }
    }
    return -1;
}

DialogBoxをクラス化してみたところ

ゆーち — Sun, 30 May 2010 17:19:00 GMT

WIN32のダイアログボックスでメッセージマップを実現してみるってことで次のようなクラスをこさえたんですな。

class SDialog : public SWinControl  // SWinControl は HWND のラッパークラスね。
{
protected:
    static SDialog  *Self; // ※ここ。
    const HMODULE   Module;
    const UINT  ResourceId;
private:
    SDialog();
    static  BOOL CALLBACK SDialogProc( HWND Handle_, UINT Message_, WPARAM Wparam_, LPARAM Lparam_ );
    virtual BOOL DialogProc( HWND Handle_, UINT Message_, WPARAM Wparam_, LPARAM Lparam_ );

// 派生クラスでメッセージマップ
#define BEGIN_DLG_MESSAGE_MAP   \
    virtual BOOL DialogProc( HWND Handle_, UINT Message_, WPARAM Wparam_, LPARAM Lparam_ ) \
    {   \
        switch( Message_ ){ \
//
#define DLG_MESSAGE_HANDLER( message, proc ) \
            case (message):{    \
                return (proc)( Handle_, Message_, Wparam_, Lparam_ );   \
            } \
            break;  \
//
#define END_DLG_MESSAGE_MAP \
            default:    \
                break;  \
        }   \
        return 0; \
    }
//
public:
    SDialog( HMODULE Handle_, HWND Parent_, UINT ResourceId_ );
    virtual ~SDialog();
    int  ShowModal();
};

んでもって、実装はこんな感じ

// ダイアログプロシージャのエントリポイント
BOOL CALLBACK SDialog::SDialogProc( HWND Handle_, UINT Message_, WPARAM Wparam_, LPARAM Lparam_ )
{
    SDialog *userdata   = (SDialog *)::GetWindowLong( Handle_, GWL_USERDATA );
    if( userdata == NULL )
    {
        userdata        = SDialog::Self;
        ::SetWindowLong( Handle_, GWL_USERDATA, (LONG)SDialog::Self );
        SDialog::Self   = NULL; //　ねんのためｗ
    }
    SDialog *self       = dynamic_cast＜SDialog *＞( userdata );
    if( self != NULL )
    {
        return self->DialogProc( Handle_, Message_, Wparam_, Lparam_ );
    }
    return FALSE;
}

BOOL SDialog::DialogProc( HWND Handle_, UINT Message_, WPARAM Wparam_, LPARAM Lparam_)
{
    return FALSE;
}
int  SDialog::ShowModal()
{
    SDialog::Self   = this; // ※ここ。
    return ::DialogBox( Module, MAKEINTRESOURCE( ResourceId ), Parent, (DLGPROC)&SDialogProc );
}

※ここ。って書いているところが苦肉の策（笑）
派生クラスに virtual BOOL DialogProc(); が実装できるようにするのが目的なんですが、DialogBox API で渡せるのが static なメソッドなため、オブジェクトを示す位置を渡せないんですなぁ。

とりあえず、動いてるけど、なんとまぁみっともない・・・（笑）
複数の派生ダイアログが動作するようにしたいってところがミソです。

ほかに良い方法ないかなぁ・・・と。