ほぼ業務日誌

何時の間にかお名前.comでGoogleAppsのDKIMが設定できるように

2011-06-13T10:57:00.000+09:00

2011年初め時点では、お名前.comでGoogleAppsのDKIM設定しようとすると
"_"が引っかかって設定失敗していたのですが、
いつの間にかできるようになっていたようですね。

情報公開してくださった方に感謝。早速設定しました。

【注意事項】ここに掲載されている内容について引用流用は自由ですが、内容やサンプルに基づくいかなる結果に関して一切の責任を負いません。自己の責任の上でご活用ください。

iPhone Developer Program 契約更新顛末

2010-05-31T06:59:00.000+09:00

iPhone Developer Program 契約更新するときの顛末を、自分のメモも兼ねて。
もしかすると、さくねんから少しは改善されているのかな?

1) 「更新15日前だよ～」みたいなメール(もちろん英語)が届く。

2) Appリリースしていないのに更新しようか悩む。
でもまぁ、実機でテストするにはiPhone Developer Program必要なので更新すること。

3) iPhone Developer Programサイトにログインし、表示されていた更新へのリンクをクリック。

4) 更新をカートに入れると、例の通り日本のAppleStoreサイトに飛ばされる。

5) ここで、寝ぼけてiPhone Developer Program登録している英語アカウントでなく、
日本のAppleStoreで購入している日本語アカウントでログインし決済してしまう。

6) 半日くらいしても音沙汰無いので、思い返してみると、
もしかして、日本語アカウントも昔SDKダウンロードするのにiPhone Developer Program
登録していたので、そっちの新規契約扱いになっていないか?
と、気がつき慌ててAppleStoreのお問い合わせメールで、日本語アカウントでの
購入手配をキャンセル依頼。 (ライセンス販売はNGと規約に書いてあるけど、ダメ元)

7) ググっると、iPhone Developer Program登録を英語アカウント、
決済を日本語アカウントにしたときでも、、うまく行ったり行かなかったりするケースがあるらしく、
ますます不安に。週明けになって音沙汰無ければまたADCサポートに問い合わせかな～
などと考える。
(昨年の新規登録時は、英語アカウントで決済して案の定引っかかり、
サポートに対応して頂きましたが。。。）

7) 週明け(今)になって、"Apple Developer Program Activation Code"というメール到着。
当然日本語アカウント側のメールに。
でも、メールの名前は文字化けしていない！

8) ダメもとで、 Activation Codeのリンクをクリック。
ログインページが表示されたので、iPhone Developer Program登録している英語アカウントで
ログインすると、Activation Codeの入力画面が表示。
でもActivation Codeは入力されておらず。

試しに、メールの Activation Codeを手入力したら。。うまく契約更新できたようです！
良かった～

英語アカウントで Apple Developer Program登録、
日本語アカウントで決済、
で、"Apple Developer Program Activation Code"のメール文字化けしていなければ
大丈夫なのかな？

さて、今年こそiPhone App取り組みたいです。。

サーバー移転の際、役立つかもしれないコマンドやtips

2010-01-18T09:10:00.000+09:00

今回、サーバーを移転した際にDNS設定変更が反映されたか確認する際のtips

（可能であれば）ルーターを再起動する。
ADSLや光でブロードバンドルーターを使用している場合、PCが参照するDNSサーバーはルーターのアドレスを指定している（参照している）ケースが多いと思います。
一定時間待っても反映されない場合は、一度再起動することで更新されるようです。
（可能であれば）PCを再起動する。
もしくは、DNSキャッシュをクリアする(Windows)
PCもまたDNSをキャッシュしているようです。
PCを再起動するか、Windowsであれば ipconfig /flushdns でクリアできるようです。
DNSレコードの状態を問い合わせる(Mac)
Mac(およびBINDツールが導入されたLinuxなど）で、 digコマンドを使うことでDNSレコードを問い合わせて反映されているか、まだ不安定状態かの様子を知ることができます。

例）dig example.com CNAME
とすると、安定していれば同じ値のINレコードを返しますが、不安定状態では問い合わせるたびに新しい値と古い値を返してきます。

[VB.NET] SerialPortクラスでUSBシリアルを使った場合

2010-01-18T08:59:00.000+09:00

自分の備忘録。
VB2005以降で対応した、SerialPortクラスでUSBシリアルを使った場合において、ポートオープン状態でUSBシリアルI/FのUSBポートを抜いた場合、抜かれた時点でイベントが発生せずに送受信を行った時点やしばらくして例外が発生し、アプリが終了してしまいます。
この例外は、try-catchで補足できない領域で起きているようで、通常のコーディングでは回避できません。

ネットで調べたところ、SerialPortクラスを利用してUSB接続する際の不具合についてで報告があがっているものの、現時点では回避は難しそうです。

[VC8] UNICODEでコンパイルする際、TRACE()マクロがエラー

2010-01-18T08:44:00.000+09:00

Visual Studio 2008で、MFCプロジェクトをUNICODEでコンパイルする際、TRACE()マクロのところでエラーになってしまう場合があります。

アプリの起動エントリ(InitInstance()など)で、
#include
をインクルードした上で、
_tsetlocale(LC_ALL, _T(""));
を追記することで回避できるようです。

[VB.NET]リモートオブジェクトでインタフェースと実装の分離手法の一案

2010-01-18T08:35:00.000+09:00

サーバー/クライアント間通信を実装するのはいつも面倒です。
前に作ったコードをベースに新たにサーバーを起こしてみたり。

.NETになって「.NETリモート処理」なるものが実装されました。
結構お手軽なのですが、ここで問題になるのが「クライアントにもリモート処理可能オブジェクト(DLL)」が必要なこと。

これは、コンパイル時に型を参照する為ばかりでなく、実行時にも必要です。
せっかくサーバ側とクライアント側を分離したはずなのに、リモート処理可能オブジェクトと共にサーバ側だけでしか必要の無いDLL等が必要なことを意味します。
また、クライアント側に実装の詳細が見えてしまいかねません。

これの解決策は、MSDNのNET Framework開発者ガイドに記載がありますが、
「別のライブラリでインターフェイスを宣言し、そのライブラリをクライアントと共に配置する方法。」
です。
でも、こんな方法もあるということで。
(一応、VB.NET 2003～2008まで使えています)

１）サーバーソリューションを作り、クラスライブラリのプロジェクトを作ります。
クラスライブラリプロジェクト内に下記のようにインタフェースだけを定義したクラスを作ります。
コンパイルすると、インタフェースクラスライブラリのDLLが出来上がります。


Public MustInherit Class ServerObject
    Inherits MarshalByRefObject

    Public MustOverride Function Func1(ByVal param) as Integer
End Class

２）サーバソリューション内にそのライブラリを参照したサーバープロジェクトを作ります。
サーバープロジェクト内に、インタフェースから派生したクラスとオブジェクトを登録するモジュールを作ります。
これらは同一実行モジュール内におくことが出来ます。
ポイントは、RemotingConfiguration.RegisterWellKnownServiceType()で登録するオブジェクトは、インタフェースクラスでなく、派生クラスの物を登録することです。


Imports System
Imports System.Threading
Imports System.Runtime.Remoting
Imports System.Runtime.Remoting.Channels
Imports System.Runtime.Remoting.Channels.Http

Public Class Server
    Inherits ServerObject

    Public Overrides Function Func1(ByVal param) as Integer
        Return param * 10    ' とリあえず簡単なもの^^;
    End Function
End Class


Module mdlMain

    Sub Main()
        Dim channel As HttpChannel = New HttpChannel(30000)
        ChannelServices.RegisterChannel(channel)

        ' サービスタイプを登録
        RemotingConfiguration.RegisterWellKnownServiceType(GetType(Server), _
            "Server", WellKnownObjectMode.SingleCall)

        ' ウィンドウが閉じられるまで待機
        Dim sync As Object = New Object
        SyncLock sync
            Monitor.Wait(sync)
        End SyncLock
    End Sub
End Module

３）クライアントは、別のソリューションを作ります。
先にサーバーで作成したインタフェースを定義したライブラリプロジェクトを追加し、(既存のプロジェクトの追加)
新たにクライアント本体のプロジェクトを作ります。
そして、以下のようにクライアントプロジェクトを記述します。
ポイントは、Activator.GetObject()でインタフェースのオブジェクトを取得するように記述することです。


Module mdlMain

    Sub Main()
        ' HTTPチャンネルを登録
        Dim chan as New HttpChannel

        ChannelServices.RegisterChannel(chan)

        ' GetTypeの引数 = "インタフェースDLLの名前空間.クラス名, インタフェースDLLのアセンブリ名" ← 混乱しやすいので注意!!!
        Dim obj as Object = Activator.GetObject(Type.GetType("SvrObj.ServerObject, SvrObj"), _
            "http://localhost:30000/Server")

        If Not (obj Is Nothing) Then
            Dim svr As ServerObject = CType(obj, ServerObject)
            Dim i as integer

            i = svr.Func1(10)
            Console.WriteLine("Server answer = " + i.ToString())
        Else
            Console.WriteLine("Object nothing.")
        End If
    End Sub
End Module

これで、クライアント側には、クライアントモジュールEXEとインタフェースDLLのみ配置すれば実行することができます。
欠点は、全てのインタフェースAPIをMustOverrideで定義しなければいけないことでしょうか。

[C++]キャスト

2010-01-18T08:26:00.000+09:00

これは、自分の備忘録^^
C/C++でプログラミングしているとキャストは避けられない物の一つです。
なるべく使わないほうがいいのですが、警告レベルを最大に上げてコンパイルしている場合どうしても発生してしまいます。
(無視するのはもっと気持ち悪い)
その場合はキャストすることになるのですが、最新版のC++ですと従来の(char)形式からstatic_cast()やreinterpret_cast()形式が採用されています。
無論従来形式も使えるのですが、従来形式だとあとでエディタで検索かけるときに、単なる変数や引数宣言と区別が付きにくいという欠点があります。
けど、新しい形式では'_cast'で検索すればOK!
古くからC++使っている人なんかだと、意外と知らないケースも多いのでは?
たまには最新版の文献も読みましょう...(と自己反省^^;)

[WIN]タスクバーを隠す

2010-01-18T08:23:00.000+09:00

一般的なことではありませんが、Windowsの画面下(普通)にあるタスクバーを強制的に隠してしまう方法です。ついでに出す方法も。
タスクバーのウィンドウハンドルをどうやって取得するかが勘所。
これの応用で、いろんなことが出来そうです...


void HideTaskBar(void)
{
    const char *pszTaskBar="Shell_TrayWnd";
    ::ShowWindow(::FindWindow(pszTaskBar , NULL),SW_HIDE);
}

void ShowTaskBar(void)
{
    const char *pszTaskBar="Shell_TrayWnd";
    ::ShowWindow(::FindWindow(pszTaskBar , NULL),SW_SHOW);
}

[WIN]NT系OSでシャットダウンする

2010-01-18T08:18:00.000+09:00

これも、定石の一種かもしれませんが...
制御系など、専用システムではOSの振る舞いを極力見せないのが肝要です。
起動は、スタートアップでアプリをダイレクトに起動するのでいいんだけど、終了が問題。
では、単純にExitWindowsEx()を使用してもシャットダウン出来ません。
ヘルプに書かれているように「シャットダウン特権」が必要なのです。
では、その特権をどうやったら得られるか...

それが、下記のコードです。下記コードを少し修正してDLL化してしまえば、VBからでも簡単にシャットダウンできるようになります。
(NT系(NT4.0、2000、XP)では確認済。Vistaや7は試したこと無いけど、UAE回避の手法が必要か?)


BOOL ShutDown(BOOL bReboot, UINT nShutdownTime)
{
    HANDLE hToken;
    TOKEN_PRIVILEGES tkp;
    BOOL fResult;

    // プロセストークンの取得
    if (!OpenProcessToken(GetCurrentProcess(),
        TOKEN_ADJUST_PRIVILEGES | TOKEN_QUERY, &hToken)) 
        return FALSE;
        
    // シャットダウン特権の取得
    LookupPrivilegeValue(NULL, SE_SHUTDOWN_NAME, &tkp.Privileges[0].Luid); 
 
    tkp.PrivilegeCount = 1;     // one privilege to set    
    tkp.Privileges[0].Attributes = SE_PRIVILEGE_ENABLED; 
 
    // このプロセスに対するシャットダウン特権を有効化する
    AdjustTokenPrivileges(hToken, FALSE, &tkp, 0, 
        (PTOKEN_PRIVILEGES) NULL, 0); 

    if (GetLastError() != ERROR_SUCCESS) 
        return FALSE;
 
    // シャットダウンを実行する
    fResult = InitiateSystemShutdown( 
        NULL,
        NULL,
        nShutdownTime,
        FALSE,
        bReboot);

    if (!fResult) 
        return FALSE;
    
    // シャットダウン特権を無効化する
    tkp.Privileges[0].Attributes = 0; 
    AdjustTokenPrivileges(hToken, FALSE, &tkp, 0, 
        (PTOKEN_PRIVILEGES) NULL, 0); 

    if (GetLastError() != ERROR_SUCCESS) 
        return FALSE;

    return TRUE;
}

[WIN]Visual C++ MFCでワーカースレッド関数をクラスメンバにする

2010-01-18T08:13:00.000+09:00

スレッドを使用する場合、スレッド化する関数は静的に宣言されている必要があります。
しかし、諸般の事情で動的に生成したり、スレッド内でクラスメンバーにアクセスしたい場合の手法の一つです。もっと楽な方法もあるかもしれませんが...

１）クラスヘッダで、スレッド化する関数をstatic宣言し、実際のスレッドプロセスをpublicで宣言する。
publicメンバーとして、static UINT ThreadProcStub(LPVOID pParam);とする。
また、publicメンバーとしてUINT ThreadProc();と宣言。

２）AfxBeginThread()でスレッド起動するときに、自分自身(this)を引数で渡す。
AfxBeginThread(ThreadProcStub, (LPVOID)this, nPriority);とする。

３）スタブスレッドで渡された引数をキャストし、実際のスレッド関数を呼び出す。
たとえば、次のように記述します。


UINT CThreadProc::ThreadProcStub(LPVOID pParam)
{
    CThreadProc* pProc = (CThreadProc*)pParam;

    if (pProc == NULL)
        return 0;

    return pProc ->ThreadProc();
}

[WIN]Visual C++ MFCで多重起動を防ぐ

2010-01-18T08:10:00.000+09:00

定番の処理ですが、備忘録として...
手法としてはミューテックスを使用し、派生したアプリケーションクラスのコンストラクタでミューテックスを定義、デストラクタで開放、InitInstance()内でロックされているかをチェックします。


// アプリケーションクラスヘッダのメンバ定義
    CMutex* m_mutexMultiExec; // 多重起動防止用ミューテックス
    CSingleLock* m_lockMultiExec;

//コンストラクタ
CMyApp::CMyApp()
{
    // 多重起動を防ぐ為のミューテックスの定義
    m_mutexMultiExec = new CMutex(FALSE, "MyAppMutex");
    m_lockMultiExec = new CSingleLock(m_mutexMultiExec);
}

// デストラクタ
CMyApp::~CMyApp()
{
    // 多重起動防止ミューテックスの解放
    if(m_lockMultiExec -> IsLocked())
        m_lockMultiExec -> Unlock();
    
    delete m_lockMultiExec;
    delete m_mutexMultiExec;
}

//　インスタンスの初期化処理
BOOL CMyApp::InitInstance()
{
    // すでに別のインスタンスが起動している場合には終了する

    if(!m_lockMultiExec -> Lock(IGNORE))
        return FALSE;

    // ...そのほかの初期化処理
}

[WIN]イベントビューアのログにメッセージを出す。

2010-01-18T08:00:00.001+09:00

イベントビューアにログを吐き出すだけなら、ReportEvent()を使えば出来るのですが、ただ何もせずにReportEvent()でメッセージを吐き出すと、イベントビューア上では下記のように言われてしまいます。

「イベント ID (0) (ソース ***内) に関する説明が見つかりませんでした。
リモートコンピュータからメッセージを表示するために必要なレジストリ情報またはメッセージ DLL ファイルがローカルコンピュータにない可能性があります。」

イベントビューアにMS製のやつみたいにちゃんとしたメッセージを出すには、次のような手順が必要です。

１）メッセージリソースを作る。
イベントログのメッセージは、イベントログがメッセージの実体を持っているわけではなく、レジストリが示しているリソース(EXE, DLL)から取得します。
その、メッセージリソースをまず作ります。
下記のような内容を、message.mc等のファイル名で保存し、コンパイルします。
コンパイルは、mc message.mc 等のように入力して行い、その結果 MSG00411.binとmessage.rc、message.hが生成されます。


    MessageIdTypedef=DWORD
    LanguageNames=(Japanese=0x411:MSG00411)

    MessageId=0x1
    SymbolicName=MSG_ERR_LOGFILEERR
    Language=Japanese
    ログファイルへの書き込み操作中にエラーが発生しました。
    .

    MessageId=0x2
    SymbolicName=MSG_ERR_LOGFILEOPENERR
    Language=Japanese
    ログファイルが開けません。
    .

２）メッセージリソースをリソースファイルに取り込む。
先に出来た、message.rcをアプリケーションのリソースファイルにインクルードします。
MFCベースなら、*.rc2に#include "message.rc"とするのが、よいでしょう。

３）プログラムを書く
下記のような、プログラムを作ります。ここで、InitEventLog()はアプリケーション起動時に1回だけ呼び出し、レジストリに登録します。
ReportEventLog()でイベントログを記録します。その際、dwIDEventにmessage.hにあるメッセージIDを指定することにより、イベントビューアで見たときにメッセージリソースのメッセージが表示されるようになります。


void InitEventLog()
{
    HKEY hk; 

    // レジストリキーの生成
    // MyApplicationNameは自分のアプリ名にすること（ReportEventLog()と同じアプリ名)
    RegCreateKey(HKEY_LOCAL_MACHINE,
        (LPCTSTR)"SYSTEM\\CurrentControlSet\\Services\\EventLog\\Application\\MyApplicationName",
        &hk);

    // メッセージリソースを入れたアプリのパスを取得(普通、自分自身)
    char szPath[_MAX_PATH];
    GetModuleFileName(AfxGetInstanceHandle(), szPath, _MAX_PATH);

    // イベントIDメッセージファイルをサブキーに登録する
    RegSetValueEx(hk, "EventMessageFile", 0, REG_EXPAND_SZ, 
        (LPBYTE)szPath,           // ここにメッセージリソースを入れたアプリのパスを登録
        strlen(szPath) + 1);
 
    // イベントログのサポートタイプを登録
    DWORD dwData; 
    dwData = EVENTLOG_ERROR_TYPE | EVENTLOG_WARNING_TYPE | 
             EVENTLOG_INFORMATION_TYPE; 
 
    RegSetValueEx(hk, "TypesSupported", 0, REG_DWORD,
        (LPBYTE) &dwData, sizeof(DWORD));
 
    RegCloseKey(hk); 
}

void ReportEventLog(WORD nType, WORD nCategory, DWORD dwIDEvent, LPVOID lpData, DWORD dwLen)
{
    HANDLE h = RegisterEventSource(NULL, AfxGetAppName());

    if (h != NULL)
    {
        ReportEvent(h, nType, nCategory, dwIDEvent, NULL, 0, dwLen, NULL, lpData);
        DeregisterEventSource(h); 
    }
}

サーバー移転のお知らせ

2010-01-18T07:42:00.001+09:00

2010/1/7より、メール&Webのホスティングサービスを引っ越ししました。
DNS設定の関係上、メールの遅延などが発生する可能性があります。
お取引先の方でお急ぎの方は、電話などでご連絡いただけると幸いです。

[WIN]定期的に起動するスレッド-CreateWaitableTimer()

2010-01-18T07:27:00.003+09:00

マルチスレッドプログラミングで、定期的に何か処理をしたいというケースがあります。

他にすること無ければSleep()で寝ていればいいんですが、一定時間内に通信が無かったら何か処理をする(状態問い合わせ)といった処理を実装する場合、Sleep()では困ってしまいます。

こういった場合、CreateWaitableTimer()でタイマイベントを生成し、SetWaitableTimer()で時間設定をした上で、WaitForMultipleObjects()で他のイベントと待つことが出来ます。

※(2002.9.25追記)とはいっても、Windowsですから、正確にms単位の時間待ちは出来ないものと思ったほうが正解です。

マウスを動かしたり、ディスクアクセスが入るだけで、0.1sec単位で平気でずれます。


 hTimerEventHandle = CreateWaitableTimer(NULL, FALSE, NULL);

 LARGE_INTEGER  largeTime;
 largeTime.LowPart = 0;
 largeTime.HighPart = 0;
 SetWaitableTimer(hTimerEventHandle, &largeTime, nInterval, NULL, NULL, FALSE);

ubuntu 9.04でarduino-0016を動かしたときに、メニューがつぶれて見えない

2009-07-04T21:17:00.006+09:00

DELL Mini9上で動かしているubuntu 9.04で、arduino-0016を動かそうとすると、

なぜかこんな感じにメニューがつぶれて見えない事象が発生。

ネット見ても解決策見つからなかったのですが、リリースノートに下記のようにあり
look-and-feelを指定できるようになったようです。

Moving selection of Linux look-and-feel into the arduino script so it can
be changed by users.

arduinoの起動スクリプトをエディタで開いてみると、

java -Dswing.defaultlaf=com.sun.java.swing.plaf.gtk.GTKLookAndFeel processing.app.Base

確かにGTKLookAndFeelを指定している様子。
試しに、下記のように指定を止めてみると、とりあえずメニューがちゃんと選べるようになりました。

#java -Dswing.defaultlaf=com.sun.java.swing.plaf.gtk.GTKLookAndFeel processing.app.Base
java processing.app.Base

こんな感じ。

とりあえず、これで回避してみようと思っています。

ブログ移行しました。

2008-01-17T12:01:00.001+09:00

先日あった、ホスティングサービスの長時間ダウン。
結局6時間くらいかかりました。

今日、ホスティング会社からお詫びと経緯説明の文書が郵便で届きました。
メールでもいいと思うけど、さすがなのか？？
冗長構成になっていても、うまくいかないことがあるものです。難しい。

で、今回のように長時間ダウンの場合単一サイトに全てホスティングしていると
音信不通になって困るので、殆ど稼働していない(?)本ブログを別サイトに移行することにしました。
(これを機に、更新頻度あげられればいいのですが(苦笑))

今後とも何卒よろしくお願いします。