酢酸のさっぱり日記

[日常][Visual SourceSafe]ディリービルド

CH3COOH — Wed, 08 Oct 2008 19:18:00 GMT

以前の職場では一般的なPCでリビルドに2時間程掛かっており、
VSSからの取得時間を含めると合計4時間程という環境でした。
1ファイルの差分ビルドでさえ、15分は掛かっていました。
(その後PCが改善されリビルド自体は1時間に短縮されました)

その為、深夜にディリービルドを走らせないと
最新バージョンのソースコードでお仕事出来ませんでした。

今の職場ではビルドに時間が掛かる事は無いためか、
ディリービルドの運用はやっていないみたいです。

話は繋がりませんが、
ユニットテストがしたいのでDaily Buildの雛形を引っ張り出してきました。

@echo off 
REM ##################################
REM ## 
REM ## Daily Build Batch
REM ## 
REM ##################################

REM #################
REM ## 設定などなど
REM #################

REM # ビルドしたり開発したりするディレクトリ
SET WORK_DIR=d:\develop\workdir

REM # Visual Source Safe設定
SET VSS_DIR="C:\Program Files\Microsoft Visual Studio\VSS\win32"

SET SSDIR=\\hoge_server\vss
SET SSUSER=ch3cooh_id
SET SSPWD=ch3cooh_password
SET PROJECT=$/project

REM # Visual Studio設定
SET VISUALSTUDIO_DIR="C:\Program Files\Microsoft Visual Studio .NET 2003\Common7\IDE"

REM #################
REM ## 前処理
REM #################
SET orgPath=%path%
SET path=%path%;%VSS_DIR%;%VISUALSTUDIO_DIR%

SET _DATE_=%date:~-10,4%%date:~-5,2%%date:~-2,2%
SET TIME_REPLACE=%time: =0%
SET _TIME_=%TIME_REPLACE:~0,2%%TIME_REPLACE:~3,2%
SET DEST_DIR=%WORK_DIR%_%_DATE_%_%_TIME_%

REM #################
REM ## コピーフェーズ
REM #################

echo コピーします...
echo 送り元： %WORK_DIR%\
echo 送り先： %DEST_DIR%\

mkdir %DEST_DIR%\
xcopy %WORK_DIR% %DEST_DIR% /S /Q /Y

REM #################
REM ## 削除フェーズ
REM #################

echo 削除します...
cd %WORK_DIR%
del /F /S /Q %WORK_DIR%\*.*

REM #################
REM ## VSS取得フェーズ
REM #################

echo VSSから最新の環境を取得します...
echo 取得先： %WORK_DIR%\

ss get "%PROJECT%" -R -I-Y -GL"%WORK_DIR%"

REM #################
REM ## ビルドフェーズ
REM #################

echo projectのビルド中...
devenv.exe %WORK_DIR%\project.sln /build Debug /out %WORK_DIR%\project.log

REM #################
REM ## 後処理
REM #################
SET path=%orgPath%

これにユニットテストフェーズを追加したいんだけど、
バッチってどうやって書くんだっけ……

[日常]VMware Server 2.0をインストールしてみたよ

CH3COOH — Wed, 08 Oct 2008 02:01:00 GMT

業務系に転向して、サーバ運用についての知識が無い事を痛感しています。
これを読んでおいた方がいいよ！って書籍無いでしょうか？

……と思ったけど、自分の場合手を動かした方が覚えが早いので、
サーバを構築して遊んでみようかと思います。

VMware Server - 無償のサーバ仮想化製品 ? VMware
で、VMware Server 2.0をダウンロードしてきました。

VMware Server 2.0のインストールが完了すると、
デスクトップにVMware Server Home Pageが出来ます。

どうやらクライアントはWebアプリケーションの形式で提供されている様です。
使用するにはLogin NameとPasswordを入力してログインしなければいけません。

2時間経過……

最終的にWindowsへログオンしているIDとPasswordが必要でした。
Passwordを設定していないIDではログイン出来ないのですね。

[VisualBasic]多重起動抑止

CH3COOH — Mon, 06 Oct 2008 23:24:00 GMT

アプリAからアプリBを起動します。
アプリBが起動中は、2つ目のアプリBは起動せず
既に起動中のアプリBを最前面へ移動させる仕様です。

アプリBの起動時に System.Threading.Mutex を使用すれば
アプリA以外のアプリから起動しても、多重起動が抑止する事が出来ます。

しかし、諸事情によりアプリBの変更は出来ませんので、
アプリAにて多重起動抑止の処理を入れ、お茶を濁しました。

    Public Declare Function SetForegroundWindow Lib "USER32" (ByVal hWnd As IntPtr) As Boolean
    Public Declare Function ShowWindowAsync Lib "USER32" (ByVal hWnd As IntPtr, _
                                                          ByVal nCmdShow As Integer) As Boolean
    Public Declare Function IsIconic Lib "USER32" (ByVal hWnd As IntPtr) As Boolean
    Private Const SW_RESTORE As Integer = 9

    ''' <summary>
    '''　指定したプロセスが実行中か判断します
    ''' </summary>
    ''' <param name="processName">プロセス名</param>
    ''' <returns>
    '''  プロセスが起動しているか？
    ''' </returns>
    Private Function IsRunningApplication(ByVal processName As String) As Boolean

        Dim isRunnning As Boolean = False

        ' プロセスが現在起動中かどうか
        Dim checkProcs() As System.Diagnostics.Process = _
            System.Diagnostics.Process.GetProcessesByName(processName)

        If (checkProcs.Length <> 0) Then
            isRunnning = True
        End If

        Return isRunnning
    End Function

    ''' <summary>
    '''　指定したプロセスを最前面へ移動させる
    ''' </summary>
    ''' <param name="processName">プロセス名</param>
    Private Sub SetForegroundApplication(ByVal processName As String)

        ' 起動中のプロセスを取得する
        Dim checkProcs() As System.Diagnostics.Process = _
            System.Diagnostics.Process.GetProcessesByName(processName)

        If (checkProcs.Length = 0) Then
            Return
        End If

        Dim hWnd As IntPtr = checkProcs(0).MainWindowHandle

        If (IsIconic(hWnd)) Then
            ShowWindowAsync(hWnd, SW_RESTORE)
        End If

        ' メイン・ウィンドウを最前面に表示する
        SetForegroundWindow(hWnd)
    End Sub

    ''' <summary>
    '''　アプリBを起動させる
    ''' </summary>
    Private Sub StartApplication()

        ' 多重起動のチェックを行う
        If (IsRunningApplication("AppB")) Then
            SetForegroundApplication("AppB")
            Return
        End If

        ' アプリBの起動処理
    End Sub

[WindowsMobile][VB]Tips: タスク(仕事)を取得する

CH3COOH — Mon, 06 Oct 2008 00:54:00 GMT

Windows Mobile端末は、Office Mobileが標準で搭載されています。
Windows Mobile 5.0以降にあるMicrosoft.WindowsMobile.PocketOutlook名前空間を使えば、
簡単にOfficeと連携の取れたアプリケーションの開発が可能です。

今回は、タスクを取得する方法をご紹介します。

PocketOutlookのタスクを取得し、ListBox1に表示させます。

        ' Outlookセッションの作成
        Dim outlook As New Microsoft.WindowsMobile.PocketOutlook.OutlookSession()

        ' Task数が1件だったら終了
        If (outlook.Tasks.Items.Count = 0) Then
            Return
        End If

        For Each itme As Microsoft.WindowsMobile.PocketOutlook.Task In outlook.Tasks.Items

            ' Taskの題名
            Dim subject As String = itme.Subject

            ' Taskの開始日時
            Dim startDate As Date = itme.StartDate

            ' Taskが達成したかどうか？
            Dim isComplete As Boolean = itme.Complete

            ' ListBoxへ挿入していく
            Dim taskInfo As String = String.Format("{0}：{1}：{2}", _
                                                   subject, _
                                                   startDate.ToString("yyyyMMdd"), _
                                                   isComplete)
            ListBox1.Items.Add(taskInfo)

        Next itme

        ' Outlookセッションの解放
        outlook.Dispose()

あらかじめ数件タスクを登録しておき、上記のコードを実行した結果です。

[日常]はてなスター設置しました

CH3COOH — Sun, 05 Oct 2008 13:13:00 GMT

るーごんさんがはてなスター好きと聞いて、Hirotowさんの
はてなブックマーク、はてなスターのボタン設置方法。を参考に設置してみました。

どうぞ、ぽちぽちしちゃってください。

[C/C++][日常]PSPはシンプルになりましたね

CH3COOH — Fri, 03 Oct 2008 21:59:00 GMT

[PSP]雛型の旅立ちで出水さんがPSP用の雛形を公開されていました。

僕がPSPで自作ゲームを作っていた時は、startup.sからmain()を呼び出してたものです。
PSPDevの現状をよく知らないのですが、PSPのSDKとかあるのかなぁ……

昔のブログのデータが残っているので、探した所それっぽいコードが出て来ました。多分C？

/*****************************************************/
/* @function : draw_rect()                           */
/* @note     : VRAMに矩形を描画する                  */
/*****************************************************/
void draw_rect(int startx, int starty, int targetx, int targety, int color)
{
	unsigned short *vram_ptr, *write_ptr;
	int loop_x, loop_y;

	pspDisplaySetFrameBuf(pg_vramtop, LINESIZE, PIXELSIZE, 1);

	/* 先頭画像を求める */
	vram_ptr = (unsigned short *)(pg_vramtop + 0x40000000 + ((starty * LINESIZE + startx) * 2));

	loop_y = targety;
	while (loop_y--)
	{
		write_ptr = vram_ptr;

		loop_x = targetx;
		while (loop_x--)
		{
			*write_ptr++ = color;
		}
		
		vram_ptr += (LINESIZE);
	}
}

このコードは確かダブルバッファを使わずに、VRAMに1ドットずつ書いていったので、
矩形が1行ずつ描画される様が見えて、興奮していた記憶があります。

ところでPSPって今どんなデバッグ環境で開発されているんだろう？
きっと出水さんは、PSP Remote みたいなハードを使ってデバッグしているに違いない。

[Web][VB]Tips: Twitter APIを使って投稿する

CH3COOH — Fri, 03 Oct 2008 21:30:00 GMT

Twitter APIを使ってPost出来ないという声を聞いたので、
自前のTwitterクライアントで使っているコードを貼り付けておきますね。
Windows Mobile（.NET compact Framwork）でも使えるコードです。

    ''' <summary>
    ''' Twitterへ投稿する
    ''' </summary>
    ''' <param name="status">Twitterへ投稿する文字列</param>
    ''' <returns>サーバーレスポンス(xmlフォーマット)</returns>
    Public Function Post(ByVal status As String) As System.IO.Stream

        Dim userId As String = "screenId"
        Dim password As String = "password"
        Dim url As String = "http://twitter.com/statuses/update.xml"

        ' URI 文字列をエスケープ表現へ変換
        Dim parm As String = "status=" & Uri.EscapeUriString(status)
        Dim data() As Byte = Encoding.ASCII.GetBytes(parm)

        ' POSTメソッドで送信する為のあれこれ
        Dim webReq As WebRequest = HttpWebRequest.Create(url)
        webReq.Method = "POST"
        webReq.ContentType = "application/x-www-form-urlencoded"
        webReq.ContentLength = data.Length

        ' BASIC認証用に関する情報をBase64でエンコード
        Dim basicData() As Byte = Encoding.UTF8.GetBytes(userId & ":" & password)
        Dim auth As String = System.Convert.ToBase64String(data)
        webReq.Headers.Add("Authorization: Basic " & auth)

        ' Postデータの書き込み
        Dim reqStream As System.IO.Stream = webReq.GetRequestStream()
        reqStream.Write(data, 0, data.Length)
        reqStream.Close()

        Dim strm As System.IO.Stream = Nothing
        Dim webRes As HttpWebResponse = Nothing
        Try
            webRes = CType(webReq.GetResponse(), HttpWebResponse)
            strm = webRes.GetResponseStream()
        Catch ex As Exception
            Throw ex
        Finally
            webRes.Close()

            webRes = Nothing
        End Try

        Return strm
    End Function

久しぶりに自作クライアントの改良をしようとしたら、
ソリューション毎全てのソースコードが消滅していました。

BOTを作った時に流用したTwitter APIを叩くClassだけが残っている感じです。
しっかりバックアップを取っておけばこんな事には成らずにすんだのに……

[SQL]SQL勉強中 COUNT句

CH3COOH — Thu, 02 Oct 2008 08:11:00 GMT

SQL勉強中です。

NAME       PERMISSION
---------- ------------
田中一郎   管理者
山田恵一   ゲスト
西中島南   ゲスト
山川絵里   ゲスト

上記の様なTABLEがあった場合、

SELECT * 
 FROM TABLE 
  WHERE PERMISSION = 'ゲスト'

で問合せを行うと、

NAME       PERMISSION
---------- ------------
山田恵一   ゲスト
西中島南   ゲスト
山川絵里   ゲスト

が得られます。

何件の検索結果が返ってくるのか、事前に知りたい場合があります。
COUNT句を使用すれば、何件返ってくるか調べる事が出来ます。

SELECT COUNT(*) 
 FROM TABLE 
  WHERE PERMISSION = 'ゲスト'

で問合せを行うと、

COUNT(*)
----------
3

が得られます。

[日常]7年前のインデックスから検索できる「Google 2001」

CH3COOH — Thu, 02 Oct 2008 07:57:00 GMT

2001年当時のウェブを検索できる『Google 2001』 | IDEA*IDEA

Googleの10周年記念の一環として「Google 2001」が公開中ですね。2001年1月当時のインデックスから検索できますよ。

もうGoogle開始から10周年も経つんですよ。
Google開始前のインターネットは色んな意味でカオスでした。

2001年、7年前の自分は中2病の一番強い時期で
政治思想について語っていたりと、ちょっと恥ずかしいです。
まさしくこれが若気の至りですね。

【急募】この恥ずかしさを共有してくれる方

[Visual Basic]Tips: VB.NETで人名生成させる方法

CH3COOH — Wed, 01 Oct 2008 02:28:00 GMT

テストの際に大量の人名が必要になります(なりました)。

第11回テスト用の名前データを自動生成する：ITpro
を参考にVB.NETで人名生成させる関数を作成しました。

    ''' <summary>
    '''　人名の生成を行う
    ''' </summary>
    ''' <param name="count">生成する人名数</param>
    ''' <returns>
    '''　人名が格納されたString型配列
    ''' </returns>
    Function CreateName(ByVal count As Integer) As String()
        Dim retNames(count) As String
        
        Dim fName1 As String() = {"", "山", "川", "谷", "田", "小", "石", "水", "大", "橋", "野", "池", "吉", "中"}
        Dim fName2 As String() = {"田", "本", "川", "口", "野", "村", "崎", "山", "島", "上", "浦", "内", "原"}
        
        Dim lName1 As String() = {"順", "優", "恵", "浩", "裕", "正", "昭", "真", "純", "清", "博", "孝", "幸"}
        Dim lName2 As String() = {"", "一", "二", "子", "美", "一郎", "実", "義", "夫", "雄", "太郎", "彦"}
        
        ' 再現性を持たせる為、種を固定しています
        Dim r As New System.Random(1000)
        '' ランダムにする場合
        'Dim r As New System.Random(Microsoft.VisualBasic.DateAndTime.Timer)

        For i As Integer = 0 To retNames.Length - 1
        
            Dim f1 As Integer = r.Next(0, fName1.Length - 1)
            Dim f2 As Integer = r.Next(0, fName2.Length - 1)
            Dim l1 As Integer = r.Next(0, lName1.Length - 1)
            Dim l2 As Integer = r.Next(0, lName2.Length - 1)
        
            Dim name As String = _
            String.Format("{0}{1}　{2}{3}", fName1(f1), fName2(f2), lName1(l1), lName2(l2))
        
            retNames(i) = name
        Next i
        
        Return retNames
    End Function

P.S.
もっと自然な人名生成(フリガナ込み)の手段があるよ！と、仰って頂けると非常に助かりやんす。

[日常]Visual Studio 2010と.NET 4.0がやってくるよー

CH3COOH — Wed, 01 Oct 2008 02:14:00 GMT

Microsoft、「Visual Studio 2010」と「.NET Framework 4.0」の概要を発表 - ITmedia エンタープライズ

これまで「Visual Studio 10」（VS10）と呼ばれていたVisual Studioの次期バージョンの正式名称は「Visual Studio 2010」になる予定という。.NET Frameworkは「.NET Framework 4.0」になる。

あ、VS10は仮称だったんだ。正式名称だとばかり。

.NET 4.0がバージョンアップするみたいで、どれだけ開発効率が上がるかが楽しみです。
今、仕事でVS2003を使っているのですけど、家でVS2008を使った場合と比べて効率が段違いです。
それ位開発効率が上がっていることが体感出来れば嬉しいですねー。

[Windows Mobile]Windows Mobile用のデバイスドライバの作り方を調べてみた

CH3COOH — Fri, 26 Sep 2008 01:14:00 GMT

せっかくUSBホストアダプタ買ってきたのに動かないっ！！
標準のシリアルドライバじゃ動かないよ。
自作するしかないかな？……でも難しそう。

……と泣いていたら、あんどちんさんとma2さんに、
「CE用のドライバはDLLだよー」と教えて頂き、
帰ってからちょこちょこっ調べていました。

日本人でドライバ作るぞー！！って人はあまり居ない様で
情報が少なくまた泣きそうになりました。

以下、参考になったサイトです。

USB device driver

CE用ドライバの作り方の説明をしてくださってます。

Che-ez! SPYZ開けちゃった

ADMTEK AN986 device driver, NDIS miniport driver on Sigmarion2

ダウンロード-コードギア株式会社-Windows Embedded　Windows Mobile　Windows CE　Windows CE.NET　Windows Embedded CE

で、公開されているCE用ドライバのソースコードを見ると、
なんとか自作できそうな気がしてきました。

あとは根気ですね……うーん。どうやってデバッグするんだろう？

↓明日読む。

Windows Embedded CE 6.0ドライバ開発の要点（1/3）－＠IT MONOist

STM32 - STM32F103VB microcontroller - documents and files download page