てすとぶろぐ

WorkflowDesigner のコンテキストメニューに項目を追加する

2012-02-10T18:19:00.000+09:00

WorkflowDesigner のコンテキストメニュー（右クリックメニュー）には、独自に項目の追加を行う事が可能です。それを利用して標準で提供されていない機能の提供などを行う事ができます。

まずはソースから。

   1: 'メニュー項目の作成

   2: Dim buildContextMenu As New MenuItem With {

   3:     .Header = "ワークフローのビルド",

   4:     .IsEnabled = True

   5: }

   6: 'クリック時イベントの登録

   7: AddHandler buildContextMenu.Click, AddressOf BuildWorkflow

   8: 'デザイナのメニューへ反映

   9: designer.Context.Services.GetService(Of DesignerView).ContextMenu.Items.Add(buildContextMenu)

WorkflowDesigner のコンテキストメニューを操作する際には、DesignerView サービスを通して制御を行う必要があります。同名のクラスが WPF 関係で存在していますが、そちらとは別なので注意してください。

そこを除けば、コンテキストメニューを普通に操作する際のロジックとなんら変わりはありません。

実行するとこのような表示が行えます。

自作 WFDesignerExpress ではこのような形でワークフローのビルド機能を提供しています。

Microsoft Speech Platform 11.0 で音声認識させる

2012-02-06T18:22:00.000+09:00

前回の記事では Speech Platform 11.0 にて喋らせることを行いましたので、今回は音声認識を行ってみます。

音声認識を行うのは SpeechRecognitionEngine クラスです。そして利用するには認識させたい文字（または文章）を Grammar として生成、登録する必要があります。

   1: Imports Microsoft.Speech.Recognition

2:

   3: Module Module1

4:

   5:     Sub Main()

   6:         '認識エンジンの生成

   7:         Dim sre As New SpeechRecognitionEngine

   8:         ''認識用語句の作成

   9:         Dim words As New Choices

  10:         words.Add(New String() {"北兄者", "兄者", "弟者", "葉鍵兄者", "社長"})

  11:         '認識させたい文法の作成

  12:         Dim gb As New GrammarBuilder

  13:         gb.Append(words)

  14:         Dim gm As New Grammar(gb)

  15:         sre.LoadGrammar(gm)

16:

  17:         '認識処理のエミュレートテスト

  18:         Dim rRes = sre.EmulateRecognize("きたあにじゃ")

  19:         If (rRes IsNot Nothing) AndAlso (rRes.Text) IsNot Nothing Then

  20:             Console.WriteLine("認識しました :" + rRes.Text)

  21:         Else

  22:             Console.WriteLine("認識しませんでした(きたあにじゃ)")

  23:         End If

24:

  25:         rRes = sre.EmulateRecognize("北兄者")

  26:         If (rRes IsNot Nothing) AndAlso (rRes.Text) IsNot Nothing Then

  27:             Console.WriteLine("認識しました :" + rRes.Text)

  28:         Else

  29:             Console.WriteLine("認識しませんでした(北兄者)")

  30:         End If

31:

  32:         Console.ReadKey()

  33:     End Sub

34:

  35: End Module

このようなロジックで音声認識のテストが行えます。テスト、というのは後半にあるエミュレートテストの部分で、 EmulateRecognize メソッドを利用すると指定した文字列で喋った形で認識エンジンへと渡されます。Choices クラスは認識させたい文法（文章）において、複数パターンある場合に利用するクラスです。ここで登録した単語は、どれを喋っても認識される形になります。

実際に実行すると次のように動作しました。

最初「きたあにじゃ」とエミュレートした際は失敗で、「北兄者」とエミュレートした際に成功となっているのがわかると思います。これは喋らせる際にもあった読み方の問題が原因です。「北兄者」と設定してはいますが読まれ方が想定している「きたあにじゃ」ではなかったため、認識に失敗しています。

このような場合は、別途読みに対する文字列を設定する事で対応を行います。

   1: '別の読みを設定して文法の作成

   2: Dim words As New Choices

   3: words.Add(New SemanticResultValue("きたあにじゃ", "北兄者"))

   4: words.Add(New SemanticResultValue("あにじゃ", "兄者"))

   5: words.Add(New SemanticResultValue("おとうとじゃ", "弟者"))

   6: words.Add(New SemanticResultValue("はかぎあにじゃ", "葉鍵兄者"))

   7: words.Add(New SemanticResultValue("めんたろう", "社長"))

8:

   9: '認識させたい文法の作成

  10: Dim gb As New GrammarBuilder

  11: gb.Append(words)

12:

  13: Dim gm As New Grammar(gb)

  14: sre.LoadGrammar(gm)

15:

  16: '認識処理のエミュレートテスト

  17: Dim rRes = sre.EmulateRecognize("きたあにじゃ")

  18: If (rRes IsNot Nothing) AndAlso (rRes.Text) IsNot Nothing Then

  19:     Console.WriteLine("認識しました :" + rRes.Text)

  20:     If (rRes.Semantics IsNot Nothing) AndAlso

  21:         (rRes.Semantics.Value IsNot Nothing) Then

  22:         Console.WriteLine("  認識された語句 :" + rRes.Semantics.Value.ToString)

  23:     End If

  24: Else

  25:     Console.WriteLine("認識しませんでした(きたあにじゃ)")

  26: End If

27:

  28: rRes = sre.EmulateRecognize("北兄者")

  29: If (rRes IsNot Nothing) AndAlso (rRes.Text) IsNot Nothing Then

  30:     Console.WriteLine("認識しました :" + rRes.Text)

  31:     If (rRes.Semantics IsNot Nothing) AndAlso

  32:         (rRes.Semantics.Value IsNot Nothing) Then

  33:         Console.WriteLine("  認識された語句 :" + rRes.Semantics.Value.ToString)

  34:     End If

  35: Else

  36:     Console.WriteLine("認識しませんでした(北兄者)")

  37: End If

今度は Choices クラスに単語を追加する際に、SemantecResultValue クラスを利用して、読みと単語を与えています。このように書き換えて実行すると次のような結果になります。

今度は「きたあにじゃ」を認識し「北兄者」を認識しませんでした。そして「きたあにじゃ」を認識した際に、認識結果として SemantecResultValue クラスで登録した「北兄者」という単語が取得できています。

実際に利用する場合、認識処理を起動させ待機状態にし何かしら認識された場合にイベントを受取る事ができます。

   1: '認識処理

   2: AddHandler sre.SpeechRecognized, AddressOf SpeechRecognized

   3: sre.SetInputToDefaultAudioDevice()

   4: sre.RecognizeAsync()

   5: Console.WriteLine("認識処理開始・・・")

6:

7:

   8: ''' <summary>認識時のイベント</summary>

   9: Private Sub SpeechRecognized(ByVal sender As Object, ByVal e As SpeechRecognizedEventArgs)

  10:     Console.WriteLine("認識しました :" + e.Result.Text)

  11: End Sub

上記のように、SpeechRecognized イベントが発生しますので、それを利用して認識時の処理を行う事も可能です。

Microsoft Speech Platform 11.0 で喋らせてみる

2012-02-04T13:30:00.000+09:00

Kinect for WIndows も登場したので、少し前にリリースされていた Microsoft Speech Platform 11.0 を使った音声合成（しゃべらせる）や音声認識もこれから注目が集まっていくんじゃないかなー、などと思いながら触ってみました。既にサンプルを作られている方もたくさんいらっしゃるので細かい事は書きませんが、そこに至るまでで結構苦労したのでそのあたりについてまとめておきます。

今回の試行錯誤にあたって、かおるんダイアリーを参考にさせてもらいました。感謝！

まず必要になるのはランタイムです。これは x86 版と x64 版があります。x86 環境は特に気にせずいけるのですが、x64 環境の場合は両方入れておくことをお勧め、というか入れてください。アプリがどちらで動作しているかによって、必要となるランタイムが変わってしまうので、x64 環境では基本として両方のインストールを行う、という認識でいいと思います。

続いて必要になるのはランタイムランゲージと言われる各言語版の音声データみたいなものです。日本語であれば ja-JP とファイル名に付与されているものを利用します。MSSpeech_SR_ja-JP_TELE.msi が音声認識用、MSSpeech_TTS_ja-JP_Haruka.msi が音声合成用となっています。

そして SDK。環境に合わせて・・・というところですが、もし x64 環境で x86 アプリを作るかも、というなら迷わず両方インストールしていいと思います。

そこまでインストール出来たらようやく開発なのですが、Express Edition を利用している場合は注意が必要です。Microsoft Speech Platform を利用する場合、x86 用か x64 用かを明示的にしていしてビルドする必要があります。As Any がデフォルトなので、ライブラリを利用しようとした瞬間に BadImageFormatException が発生してしまいます。なお、Express Edition にてビルド構成を変更させるには次のように行います。

Visual Studio の「ツール」メニューの「オプション」をクリックすると上記のダイアログが表示されます。全ての設定を表示するようにダイアログ下部にチェックをつけ、プロジェクトとソリューションの全般、をクリックします。

そうすると上記のような表示になりますので、ビルド構成の詳細を表示、にチェックをつけOKをクリックします。

そうするとビルドのメニューに構成マネージャが追加されますので、それをクリック。

このようなものが表示されますので、プラットフォームのところを明示的に指定するようにしてください。ここで指定したプラットフォームと参照設定をおこなうライブラリは合わせる必要があります。x64 の場合は、Program Files\Microsoft SDKs\Speech\v11.0\Assembly フォルダに、x86 の場合は上記フォルダか、Program FIles(x86) 以下略なフォルダにライブラリが用意されています。

そして実際に喋らせるためのコードは次のようになります。

   1: Imports Microsoft.Speech.Synthesis

   2: Imports System.Media

   3: Imports System.IO

   4: Imports System.Xml

5:

   6: Module Module1

7:

   8:     Sub Main()

9:

  10:         'インストールされている言語から日本語を選択

  11:         Dim sp As New SpeechSynthesizer

  12:         For Each insVoice In sp.GetInstalledVoices

  13:             If insVoice.VoiceInfo.Culture.Name.Equals("ja-JP") Then

  14:                 sp.SelectVoice(insVoice.VoiceInfo.Name)

  15:                 Exit For

  16:             End If

  17:         Next

18:

  19:         Dim pb As New PromptBuilder

  20:         Dim spl As New SoundPlayer With {.Stream = New MemoryStream}

21:

  22:         pb.AppendText("これはサンプルプログラムです。")

  23:         pb.AppendText("PromptBuilder を利用しています。")

24:

  25:         sp.SetOutputToWaveStream(spl.Stream)

  26:         sp.Speak(pb)

  27:         spl.Stream.Position = 0

  28:         spl.PlaySync()

29:

  30:     End Sub

31:

  32: End Module

これだけで日本語で喋ってくれます。漢字もそのまま読み上げますし、途中に含まれている英文も読み上げてくれます。非常に簡単です。

また SSML（Speech Synthesis Markup Language）にも対応しており、XML 形式での文言指定も可能です。こちらを利用するとイントネーションの微調整や話す速度の調整もできるようですが、どこまで対応できているのかは調査しきれていません。

   1: pb.AppendSsmlMarkup("お前、生きて<sub alias=""ここ"">英国</sub>から")

   2: pb.AppendSsmlMarkup("<sub alias=""かえれる"">帰れる</sub>と思うなよ。")

   3: pb.AppendSsmlMarkup("<break time=""1s"" />")

   4: pb.AppendSsmlMarkup("ぶち<sub alias=""ころす"">殺す</sub>ぞ、<sub alias=""ヒューマン"">人間</sub>")

こんな感じで設定してあげると次のように話してくれます。

色々と手をこんだ SSML を作成してあげるともっと面白く使えそうです。

IValidationErrorService でワークフローのエラー情報を表示する

2012-02-03T12:10:00.000+09:00

Workflow Foundation の各種サービスの中に IValidationErrorService インターフェースで定義されるものがあります。これを利用すると、現在デザインしているワークフローで発生しているエラー情報を取得し何かしらの処理を行う事が可能です。

利用方法もかなり簡単です。まずは IValidationErrorService インターフェースを継承したクラスを用意します。このクラスはデザイナから受け取ったエラー情報を元に何かしらの処理を行うクラスとなります。

   1: Imports System.Collections.Generic

   2: Imports System.Activities.Presentation.Validation

3:

   4: Public Class ValidationErrorService

   5:     Implements IValidationErrorService

6:

   7:     Public Property DisplayObject As TextBox

8:

   9:     Public Sub ShowValidationErrors(errors As IList(Of ValidationErrorInfo)) Implements IValidationErrorService.ShowValidationErrors

  10:         DisplayObject.Clear()

  11:         errors.ToList.ForEach(Sub(ve)

  12:                                   DisplayObject.Text += String.Format("Error : {0}", ve.Message) + ControlChars.NewLine

  13:                               End Sub)

  14:     End Sub

  15: End Class

サンプルとして、受け取ったエラー情報を指定されたテキストボックスに全て表示する処理を行うものを作成しました。このサービスを利用するために、デザイナの実行時コンテキストに対してパブリッシュを行います。

   1: designer.Context.Services.Publish(Of IValidationErrorService)(

   2: 　　New ValidationErrorService With {

   3: 　　　　.DisplayObject = _traceTextBox})

このようにすることで、デザイナ上で発生しているアクティビティのエラー情報を表示できるようになります。

なお、ShowValidationErrors メソッドが呼び出されるタイミングですが、デザイナ上で何かしらの操作を行ったタイミングで都度発生します。

ValidationService.NavigateToError メソッドの挙動

2012-02-02T12:42:00.000+09:00

ValidationService というワークフローの検証を行うサービスクラスがあります。何気なく MSDN のリファレンスを見ていると NavigateToError メソッドという
「作業画面で、アクティビティのエラーの場所にキーボードフォーカスを移動します。」
と書かれたものがあったので試してみたところ、ちょっと動きがおかしかったので記録として残しておきます。

メソッドとしては引数として id を渡すようになっており、パラメータの説明としても「エラー ID 番号」と書かれていたので、恐らく「エラーが発生しているアクティビティの ID 値を渡せば、そこを表示するようにデザインビューが変化する」と考えていました。

そこで次のようなロジックを作って試してみました。

   1: Dim resultID As String = ""

2:

   3: designer.Flush()

   4: Dim vsv = designer.Context.Services.GetService(Of ValidationService)()

   5: Dim rootActivity As Activity = Nothing

   6: 'ModelService を利用してルートアクティビティを取得

   7: Dim mdlService = designer.Context.Services.GetService(Of ModelService)()

   8: Dim debugTree = TryCast(mdlService.Root.GetCurrentValue(), IDebuggableWorkflowTree)

   9: If (debugTree IsNot Nothing) Then

  10:     rootActivity = debugTree.GetWorkflowRoot()

  11: Else

  12:     rootActivity = mdlService.Root.GetCurrentValue()

  13: End If

  14: '検証を行いエラー情報を取得

  15: Dim validError = ActivityValidationServices.Validate(rootActivity)

  16: If validError.Errors.Count > 0 Then resultID = validError.Errors(validError.Errors.Count - 1).Id

17:

  18: If resultID <> "" Then

  19:     Dim vsv = designer.Context.Services.GetService(Of ValidationService)()

  20:     vsv.NavigateToError(resultID)

  21: End If

一部抜粋なので分かりにくいかも知れませんが、designer とは WorkflowDesigner クラスのインスタンスで画面上のデザイナそのものです。Workflow Foundation では、この WorkflowDesigner から実行時のコンテキストを通して各種サービスを取得、利用します。今回の ValidationService も同様に取得します。

このロジックを試してみるために次のようなワークフローを用意しました。

Delay アクティビティと Assign アクティビティを交互に並べたもので、必須項目を何も入力していない状態にしています。フォーカスが遷移するのを把握するために、親アクティビティをカレントにしておきます。

続いて検証ロジックを実行し、取得したエラー情報の中身を確認します。

今回は最後尾に存在しているエラー情報を元に NavigateToError メソッドを呼び出します。引き渡す ID 値は上記デバッグウィンドゥに表示されている 9 を渡します。

するとなぜか別のアクティビティにフォーカスが遷移します・・・。

というように謎の挙動を見せてくれますが、使い方が悪いのか、実は不具合で WF4.5 で直るものなのか、そのあたりまでは確認が取れていません。

アクティビティ拡張機能の利用

2012-02-01T12:21:00.000+09:00

Workflow Foundation ではワークフローランタイムを通して各アクティビティに拡張機能を提供する仕組みが用意されています。少々使いどころが難しい面がありますが、アクティビティ本来の処理ではないロジックを、拡張機能という形で全体的に提供することが可能です。

小難しい事は抜きにしてサンプルソースから。

   1: Public Class SampleExtension

2:

   3:     Friend executeList As New List(Of String)

4:

   5:     ''' <summary>実行履歴を登録する</summary>

   6:     Public Sub AddLog(ByVal description As String)

   7:         executeList.Add(description)

   8:     End Sub

9:

  10: End Class

まずは拡張機能として上記のように「アクティビティ実行時に何かしらの文字列を登録する」クラスを用意します。Workflow Foundation としては System.Activities.Hosting 名前空間に IWorkflowInstanceExtension インターフェースが用意されており、これを継承した上で拡張機能を作るのが本筋なのかも知れませんが、強制ではありません。

そしてアクティビティ側では実行時等で拡張機能を取得し、処理を行う事ができます。

   1: Imports System.Activities

2:

   3: Public Class UseExtensionActivity

   4:     Inherits CodeActivity(Of Integer)

5:

   6:     Public Property AVal As InArgument(Of Integer)

   7:     Public Property BVal As InArgument(Of Integer)

8:

   9:     Protected Overrides Function Execute(context As CodeActivityContext) As Integer

  10:         '拡張機能の取得

  11:         Dim ext = context.GetExtension(Of SampleExtension)()

  12:         If ext IsNot Nothing Then

  13:             '拡張機能を認識できた場合

  14:             ext.AddLog(Me.DisplayName + " を実行しました。")

  15:         Else

  16:             '拡張機能を認識できなかった場合

  17:             Console.WriteLine("拡張機能を認識できませんでした。")

  18:             Return 0

  19:         End If

20:

  21:         Console.WriteLine("計算結果 : " + (AVal.Get(context) * BVal.Get(context)).ToString)

  22:         Return AVal.Get(context) * BVal.Get(context)

  23:     End Function

  24: End Class

11 行目が拡張機能を取得している部分です。ワークフローランタイムは実行時コンテキストを通して拡張機能を提供してきますので、型指定したうえで取得します。

   1: Imports System.Activities

   2: Imports System.Activities.Statements

   3: Imports System.Activities.Expressions

4:

   5: Module Module1

6:

   7:     Sub Main()

8:

   9:         Dim sampAct As New UseExtensionActivity With {.AVal = 10, .BVal = 5}

  10:         Dim wfInv As New WorkflowInvoker(sampAct)

  11:         '拡張機能無しで実行

  12:         Console.WriteLine("(1) 拡張機能無しで実行")

  13:         wfInv.Invoke()

14:

  15:         '拡張機能ありで実行

  16:         Dim ext As New SampleExtension

  17:         wfInv.Extensions.Add(ext)

  18:         Console.WriteLine("(2) 拡張機能ありで実行")

  19:         wfInv.Invoke()

20:

  21:         Console.WriteLine("拡張機能の結果を表示")

  22:         ext.executeList.ToList.ForEach(Sub(desc)

  23:                                            Console.WriteLine(desc)

  24:                                        End Sub)

25:

  26:         Console.ReadKey()

27:

  28:     End Sub

29:

  30: End Module

そしてワークフローを実行するロジックはこのような形になります。 WorkfloInvoker を利用しての実行ですが、WorkflowApplication の場合でも同名の Extensions プロパティが用意されていますので同じように拡張機能を登録し利用します。実行すると次のような結果になります。

拡張機能を利用するもう一つの方法として、アクティビティ側で登録させる方法があります。

   1: Public Class UseExtensionActivity2

   2:     Inherits UseExtensionActivity

3:

   4:     Protected Overrides Sub CacheMetadata(metadata As CodeActivityMetadata)

   5:         MyBase.CacheMetadata(metadata)

   6:         metadata.AddDefaultExtensionProvider(Of SampleExtension)(Function() New SampleExtension)

   7:     End Sub

8:

   9: End Class

先程の UseExtensionActivity と同様の Execute メソッドを利用しますので継承した形にて実装します。そしてアクティビティ側から拡張機能を登録する場合は、CacheMetadata メソッドにて登録を行います。

このような形で実装し、次のようなロジックでワークフローを実行します。

   1: Dim sampAct2 As New UseExtensionActivity2 With {.AVal = 10, .BVal = 5}

   2: Dim wfInv2 As New WorkflowInvoker(sampAct2)

   3: Console.WriteLine("(３) アクティビティ側で拡張機能を設定")

   4: wfInv2.Invoke()

最初の例と異なり、こちらではそのまま WorkflowInvoker にてワークフローを実行している点に注意してください。実行結果は次のようになります。

このような形で拡張機能を利用する事ができます。

アクティビティ側で拡張機能の存在を把握していなければならないので、使いどころが難しい面はありますが、例えば簡易的なトレース機能や、利用制限を行う等、そのような使い道が考えられます。

DynamicActivity によるアクティビティの動的生成と実行

2012-01-30T12:19:00.000+09:00

Workflow Foundation では DynamicActivity クラスを利用して、動的にアクティビティを生成する機能が用意されています。利用するシーンとしては、プログラムのロジック内部でアクティビティの挙動を変更させたい場合とか、アクティビティの存在を表に出したくない場合などがあるかと思います。

まずはソースを。

   1: Imports System.Activities

   2: Imports System.Activities.Statements

   3: Imports System.Activities.Expressions

4:

   5: Module Module1

6:

   7:     Sub Main()

8:

   9:         Dim dyAct As New DynamicActivity

  10:         '引数・変数の作成

  11:         Dim addValue1 As New InArgument(Of Integer)

  12:         Dim addValue2 As New InArgument(Of Integer)

  13:         Dim resValue As New OutArgument(Of Integer)

  14:         dyAct.Properties.Add(New DynamicActivityProperty With {

  15:                              .Name = "AVal", .Type = GetType(InArgument(Of Integer)), .Value = addValue1})

  16:         dyAct.Properties.Add(New DynamicActivityProperty With {

  17:                              .Name = "BVal", .Type = GetType(InArgument(Of Integer)), .Value = addValue2})

  18:         dyAct.Properties.Add(New DynamicActivityProperty With {

  19:                              .Name = "ResVal", .Type = GetType(OutArgument(Of Integer)), .Value = resValue})

  20:         '実行するアクティビティの作成

  21:         dyAct.Implementation = New Func(Of Activity)(Function()

  22:                                                          Dim sqAct As New Sequence

  23:                                                          Dim asAct = New Assign(Of Integer) With {

  24:                                                              .Value = New InArgument(Of Integer)(Function(env) addValue1.Get(env) + addValue2.Get(env)),

  25:                                                              .To = New ArgumentReference(Of Integer) With {.ArgumentName = "ResVal"}

  26:                                                          }

  27:                                                          Dim wlAct As New WriteLine With {

  28:                                                              .Text = New InArgument(Of String)(Function(env) resValue.Get(env).ToString)}

  29:                                                          sqAct.Activities.Add(asAct)

  30:                                                          sqAct.Activities.Add(wlAct)

  31:                                                          Return sqAct

  32:                                                      End Function)

  33:         '引数の値を設定

  34:         Dim args As New Dictionary(Of String, Object)

  35:         args.Add("AVal", 10)

  36:         args.Add("BVal", 50)

  37:         '実行

  38:         WorkflowInvoker.Invoke(dyAct, args)

  39:         Console.ReadKey()

40:

  41:     End Sub

42:

  43: End Module

コメントを適宜挿入してあるので大まかな流れは把握できると思います。

まず最初にアクティビティのプロパティを DynamicActivityProperty クラスを用いて生成します。このあたりはアクティビティのカスタマイズの際にプロパティを追加している作業そのものです。

そして DynamicActivity.Implementation プロパティに対して、実行するロジック＝アクティビティを設定します。今回はラムダ式を利用していますが Addressof を利用して設定するのが見やすい事が多いと思います。

生成している実行されるアクティビティとしては、Sequence アクティビティをコンテナとして、変数 AVal と BVal を足し合わせ、変数 ResVal に設定し WriteLine アクティビティにて表示する、という簡単なものです。全てをコーディング上で行っているので、普段見慣れない記述が多くなります。なお、DynamicActivity に対して変数を追加しているので、当然その子供である Sequnce や Assign、WriteLine アクティビティの内部でも動的に追加した変数が利用できています。

このような形で DynamicActivity を利用する事で、プログラム実行時に動的にアクティビティを生成し、それを実行する事が出来ます。

［書評］Windows Azure Platform 開発入門

2012-01-27T18:30:00.000+09:00

縁あっていただいた書籍「Windows Azure Platform 開発入門」についてのレビューです。

全体を 6 章に分け WIndows Azure に限らずクラウドコンピューティングとは、という前提の説明から、SQL Azure や Azure AppFabric、VM ロールに Azure Market Place までと、開発入門の名前の通り、幅広い内容を読みやすい形で書かれています。個人的には Azure Storage へ REST API でごにょごにょする際に色々触っていましたが、ここのところかなりご無沙汰だったのもあり改めて勉強させてもらえました。

Windows Azure Platform開発入門 (MSDNプログラミングシリーズ) WINGSプロジェクト森島政人広瀬嘉久大和屋貴仁土井毅安東沙織

各章ではサンプルコードを用いて簡単な挙動を解説してくれており、非常に最初の一歩を踏み出すためにわかりやすい構成・内容になっていたと感じました。なかなか触れることがなかった Azure AppFabric 周りは特に参考になったと感じます。環境の都合もあり実際に試すことが難しい分野ですのでなおさら。

比較的触れることができていたストレージ周りや SQL Azure 関係も、細かく書かれた説明を読むことでより理解が深まった感じに。REST は利用できるけどライブラリに絞って利用方法が記載されているのもごもっともですｗ　まぁライブラリ利用すれば圧倒的に楽なのはわかっていつつも、REST API 利用する方に何かと惹かれてしまうのは悪いクセですねｗ

また PowerShell による管理（デプロイなど）も書かれていたのが目を引きました。昨年末に PowerShell Advent Calendar に参加させていただいたこともあり、少しずつ勉強中の PowerShell 。何かと管理を行うなどではやはり便利ですので、このあたりを勉強し PowerShell 3.0 が正式リリースされたあたりで Workflow Foundation 上で利用するサンプルを用意していきたいなぁ、と思います。

ボリューム感としては、ストレージ周りが最も多く他の機能と比較して大体倍くらいの内容が書かれています。だからといって、他の章が薄いかと言われるとそんなこともなく、書かれている内容は要点ばかりを押さえて分かりやすく書かれていました。アカウントの作成から書かれているので、この本に沿って試すことで、かなり容易に WIndows Azure での開発について感覚をつかめるのではないかと思います。

欲を言えば WF で開発した際のデプロイなども少しだけ扱ってもらえればなどと思いましたが、そんなことを書いてもらって喜ぶのは自分一人だけですので言いませんｗ

これから Windows Azure や SQL Azure を利用した開発を行う、または行ってみたいと考える人にとって最初に目を通しておくと大分楽になるのではないか、そう思わせる一冊だったと感じました。実際に開発する際にも、また開発する前の勉強としても読みやすい一冊だったと思います。

会社で、またはチームで一冊用意してもいいんじゃないですかね、これはｗ

ワークフローの実行結果を引数で受け取る

2012-01-25T18:19:00.000+09:00

前回ユニットテストの記事で少し関わっていましたが、ワークフローは引数を通して実行結果や何かしらの値を受取る事が可能です。

ワークフローの実行方法によって結果である引数の受け取り方が異なります。WorkflowInvoker の場合はユニットテストの記事と同様に、WorkflowInvoker.Invoke メソッドの戻り値として取得できます。

   1: '結果は IDictionary(Of String, Object) として受け取る

   2: Dim result = WorkflowInvoker.Invoke(execActrivity)

   3: Console.WriteLine(result("ResultsArgument").ToString)

もう一つ、WorkflowApplication.Run によって実行した場合は、Completed イベントに対する処理として結果を取得できます。

   1: Dim wfApps = New WorkflowApplication(execActivity)

   2: wfApps.Completed = Sub(e As WorkflowApplicationCompletedEventArgs)

   3:                      If (e.CompletionState <> ActivityInstanceState.Canceled) AndAlso

   4:                         (e.CompletionState <> ActivityInstanceState.Faulted) Then

   5:                        '結果を引数から取得

   6:                         Console.WriteLine(e.Outputs("ResultsArgument").ToString))

   7:                      End If

   8:                    End Sub

9:

  10: wfApps.Run

WorkflowInvoker を利用した場合と異なるのは、Completed イベントが発生する条件として「正常終了」「キャンセル」「異常終了」などを含めて「終了」した場合に発生するという点です。そのため正常終了かどうかを判断を行い結果から値を取得する必要があります。

Workflow Foundation におけるユニットテスト

2012-01-24T18:37:00.000+09:00

CodePlex にて Workflow Foundation 用のユニットテストライブラリ「Microsoft.Activities.UnitTesting」が公開されています。Workflow Foundation ではアクティビティの実行等、通常のロジック実行とは異なる部分もあり、そのまま NUnit 等のユニットテストを行うのは不便な状況でした。ですがユニットテスト用のこのライブラリを利用する事で、今までと同様にユニットテストを行う事ができます。

ライブラリ自身は CodePlex からダウンロードし適当なフォルダに展開する事もできますが、最近の流行りである NuGet 上でも提供されています。Visual Studio （または Visual Web Developer）から直接インストールさせることも可能です。なお、拡張機能マネージャコンソールから、インストールを行う場合には以下のコマンドを入力します。

   1: PM> install-package Microsoft.Activities.UnitTesting

NuGet からインストールを行った場合には、.NET 4 用と .NET 401（Platform Update 1 対応）用が双方インストールされます。

ライブラリ自身は Visual Studio 標準のテスト機能、または NUnit からも利用できます。もちろん Express 環境のみで開発されている場合は NUnit の利用に限定されます。ライブラリにより色々と機能が提供されているのですが、まずは最低限必要となるアクティビティのテストとワークフローのテストに絞った形で利用してみます。

アクティビティ用プロジェクトとテスト用プロジェクトを作成します。このあたりは Workflow Foundation に限った話ではなく、今までのユニットテストと全く同一の流れです。プロジェクトを作成しましたら、テスト用プロジェクトがアクティビティ用プロジェクトを参照するように設定し、また追加で Workflow Foundation 用アセンブリや、ユニットテスト用ライブラリを参照設定します。最低限必要な参照設定は次のようになります。

赤枠で囲んだ部分が「Microsoft.Activities.UnitTesting」で提供されるアセンブリと NUnit で提供されるアセンブリです。この状態からテストケースをコーディングしていきます。

まずはアクティビティのユニットテストです。今回作成してみようとしているのは、AVal、BVal 二つのプロパティ（InArgument）で値を受取り、演算を行った結果を Results プロパティ（OutArgument）で返却する、というものです。

   1: Imports NUnit.Framework

   2: Imports Microsoft.Activities.UnitTesting

   3: Imports WFApplicationSample

4:

   5: <TestFixture()>

   6: Public Class UnitTestWFSample

7:

   8:     <TestCase(1, 3, 3)>

   9:     <TestCase(2, 5, 10)>

  10:     <TestCase(3, Nothing, 0)>

  11:     <TestCase(Nothing, Nothing, 0)>

  12:     Public Sub TestActivity(ByVal a As Integer, ByVal b As Integer, ByVal res As Integer)

13:

  14:         Dim wfInvoker As WorkflowInvokerTest = Nothing

15:

  16:         'テスト用アクティビティの作成

  17:         Dim testActivity As New SampleActivity With {.AVal = a, .BVal = b}

  18:         wfInvoker = New WorkflowInvokerTest(testActivity)

  19:         wfInvoker.TestActivity()

20:

  21:         wfInvoker.AssertOutArgument.AreEqual("Results", res)

22:

  23:     End Sub

24:

  25: End Class

まだアクティビティを実装していませんので、ビルドは通らない状態です。そのためまずはアクティビティの枠だけは用意してしまいます。なお、上記テストロジックは最終形ですので、TestCase 属性を使用して複数パターンのテストを行うように記述しています。

ここで利用している「Microsoft.Activities.UnitTesting」ライブラリは WorkflowInvokerTest クラスです。これは WorkflowInvoker のユニットテスト用クラスで、AssertOutArgument プロパティなどユニットテストに必要なプロパティやメソッドが拡張されています。何かしらのユニットテストを行った事があるのであれば、プロパティやメソッドの名称を見ると大体掴めると思います。

   1: Imports System.Activities

2:

   3: Public Class SampleActivity

   4:     Inherits CodeActivity

5:

   6:     Public Property AVal As InArgument(Of Integer)

   7:     Public Property BVal As InArgument(Of Integer)

8:

   9:     Public Property Results As OutArgument(Of Integer)

10:

  11:     Protected Overrides Sub Execute(context As System.Activities.CodeActivityContext)

12:

  13:     End Sub

14:

  15: End Class

プロパティだけ実装された状態ですが、この状態であればビルドが通ります。ビルド後 NUnit にてテストを行うと当然失敗します。この状態をスタートとして、アクティビティの実装～テストを行っていく事になります。今回はサンプルですので、次のようにコーディングしました。

   1: Imports System.Activities

2:

   3: Public Class SampleActivity

   4:     Inherits CodeActivity

5:

   6:     Public Property AVal As InArgument(Of Integer)

   7:     Public Property BVal As InArgument(Of Integer)

8:

   9:     Public Property Results As OutArgument(Of Integer)

10:

  11:     Protected Overrides Sub Execute(context As System.Activities.CodeActivityContext)

12:

  13:         Dim a = context.GetValue(AVal)

  14:         Dim b = context.GetValue(BVal)

15:

  16:         Dim res = a * b

17:

  18:         context.SetValue(Results, res)

19:

  20:     End Sub

21:

  22: End Class

渡されたプロパティ二つを乗算して返却するというものです。このようにコーディングした後、テストを行うと全てのケースで正常終了します。

これに近い形でワークフローのテストを行います。アクティビティとワークフローのテストで異なるのは、引数の存在です。今回は次のようなワークフローを作成してテストを行ってみます。

Assign アクティビティにて引数二つを掛け合わせ、結果を引数として返却するものです。これをテストするロジックは次のようになります。

   1: <TestCase(1, 3, 3)>

   2: <TestCase(5, 9, 45)>

   3: Public Sub TestWorkflow(ByVal a As Integer, ByVal b As Integer, ByVal res As Integer)

4:

   5:     'テスト用引数の作成

   6:     Dim inArgs As New Dictionary(Of String, Object)

   7:     inArgs.Add("AArg", a)

   8:     inArgs.Add("BArg", b)

9:

  10:     'テスト用ワークフローの作成

  11:     Dim xamlInject As New XamlInjector("D:\WFTest.xaml")

  12:     Dim wfInvoker As New WorkflowInvokerTest(xamlInject.GetActivity)

13:

  14:     Dim resArgs = wfInvoker.TestActivity(inArgs)

  15:     For Each child In resArgs.ToList

  16:         Console.WriteLine(child.Key + " : " + child.Value.ToString)

  17:     Next

  18:     Assert.AreEqual(resArgs("Results"), res)

19:

  20: End Sub

引数自体の考え方は WorkflowInvoker を利用したワークフローの実行時と何ら変わりはありません。アクティビティの時と異なっているのは、「ワークフローの読み込み」「結果の受け取り」の部分です。

ワークフローの読み込みは XamlInjector クラスを利用して読み込みます。今回このクラスは読み込みにしか利用していませんが、読み込んだワークフローの xaml に対して置換を行うなど、他にも機能が用意されています。読み込んだワークフローは、XamlInjector.GetActivity メソッドにて Activity として取得できますので、この値を WorkflowInvokerTest クラスに引き渡します。

そして実行するのですが、出力される引数（方向が Out）の物がメソッド呼び出しの結果として受け取れますので、これに対して結果のチェックを行う形になります。

テストを実行するとこのように動作します。

以上のように Workflow Foundation の開発時におけるユニットテストを行う場合、「Microsoft.Activities.UnitTesting」ライブラリを利用する事でその他クラスのテストとほぼ同じように進める事ができます。属性を変化させれば Visual Studio の単体テスト用になりますので、NUnit 含めユニットテストを行う場合は是非利用してみてください。

GData API を利用して Google Blogger に投稿する

2012-01-23T12:21:00.000+09:00

スプレッドシート、カレンダーと来たので次は Blogger に投稿する、というのをやってみました。感覚としてはスプレッドシートやカレンダーと比較すると、かなり簡単に思えます。

今回は手っ取り早くコードから。

   1: Imports Google.GData.Client

2:

   3: Module Module1

4:

   5:     Sub Main()

6:

   7:         Const uid = "" 'アカウント

   8:         Const pwd = "" 'パスワード

   9:         Const blogID = "" 'Blogger の ID(管理画面上のアドレスに表示されています)

10:

  11:         'サービスインスタンスの作成

  12:         Dim bgService As New Service("blogger", "SampleBloggerApplication")

  13:         bgService.Credentials = New GDataCredentials(uid, pwd)

  14:         Dim bgFactory = TryCast(bgService.RequestFactory, GDataGAuthRequestFactory)

  15:         bgFactory.AccountType = "GOOGLE"

16:

  17:         '投稿する内容を作成

  18:         Dim newEntry As New AtomEntry

  19:         newEntry.Title.Text = "Google Blogger API によるサンプル投稿"

  20:         newEntry.Content = New AtomContent

  21:         newEntry.Content.Content = "<div xmlns='http://www.w3.org/1999/xhtml'>" _

  22:                                              + "<p>これはサンプルとして投稿した記事です。</p>" _

  23:                                              + "</div>"

  24:         newEntry.Content.Type = "xhtml"

  25:         newEntry.IsDraft = True ' 下書き時に True

26:

  27:         '投稿

  28:         Dim bgFeed As New Uri("http://www.blogger.com/feeds/" + blogID + "/posts/default")

  29:         Dim bgResultEntry = bgService.Insert(bgFeed, newEntry)

30:

  31:     End Sub

32:

  33: End Module

先の二つと比較しても、特に難しい点はないと思います。今回もクライアント認証を利用していますが、OAuth を利用する事も可能です。

実行するとこのような感じで投稿されます。

投稿された中を確認すると、ロジック上で作成した中身がそのまま来ているのがわかると思います。

なお、自分が管理している Blogger の一覧を取得する場合は次のようなロジックで可能です。

   1: 'Blog 情報を取得

   2: Dim bgQuery As New FeedQuery With {

   3:     .Uri = New Uri("http://www.blogger.com/feeds/default/blogs")}

   4: Dim bgResultFeed = bgService.Query(bgQuery)

   5: For Each resEntry In bgResultFeed.Entries

   6:     Console.WriteLine("Blog Title : " + resEntry.Title.Text)

   7: Next

このようなロジックで Blogger に投稿できますので、例えば何かしらの実行履歴などをまとめてポストする、といった使い方も可能だと思います。

SQL Server における既存テーブルへの項目追加処理時間

2012-01-20T00:01:00.000+09:00

実運用が始まった後でテーブルに項目追加とかはできるだけ避けたいところですが、のっぴきならない事情があったりして追加せざるを得ない事は多々あるかと思います。その際、どれくらい処理に時間がかかるかというのを事前に計測できれば、利用者に「このぐらいの間重くなるからー」とか「何時まで使えないですー」というアナウンスもできるのですが、実際にどれくらいの処理時間がかかるかを計測するのはかなり難しいところだとも思います。今回は、ある程度のデータ件数を持つテーブルに対して項目を追加し、どの程度の処理時間がかかるかを計測してみました。

実際に計測に用いた環境は次の通りです。

サーバー機スペック：CPU Xeon 2.80 GHz Memory 2GB HDD RAID5 SCSI
Windows 2003 Server SP2
SQL Server 2005 SP3
対象テーブルのレコード件数：約 260 万件

MSDN Blog でベストプラクティスが紹介されていますのでこちらも参考にしてください。（１）（２）

まずは最も早いと言われている「NULL 許可なカラムの追加」です。

クライアント統計の「サーバー応答の待機時間」を見てもらうと 77 ( ミリ秒 ) となっています。言われている通り、スキーマの変更だけに留まる場合はデータ件数の影響を受けないようです。

続いては計算列を追加してみます。今回追加する計算列は「同一レコードのある項目より算出する結果」が設定されるようにしています。具体的に言うと、レコード登録日時から年・月・日を設定するものです。

実行結果を見ると、先ほどの NULL 許可カラム追加時と殆ど差がありません。数値的には下がっていますが、これは誤差の範疇だと思います。

もう一つ比較するために、NULL 許可で初期値が特定の値、というケースも行ってみました。

若干処理時間が増えていますが、これも殆ど気にならないレベルです。

このような結果になりましたので、現地環境で恐る恐るカラム追加する際の参考にでもなれば、と思います。

Hyper-V ゲスト OS の動作イメージサムネイルを取得するアクティビティ

2012-01-19T12:44:00.000+09:00

以前 Hyper-V の管理とか操作を調べていて管理ツール上の動作イメージサムネイルをどうやって取得しているのかな、と思ったら WMI を利用して取得していることを教えてもらったので、ついでにアクティビティにしてみました。

PowerShell での方法はこちらの MSDN Blog に書いてありますが、これの WF アクティビティ化したものになります。やっている事としては、Msvm_ComputerSystem に対して該当するゲスト OS の情報を取得しにいき、結果から Msvm_VirtualSystemsettingData の情報を取得。その値を元に、再度 Msvm_ComputerSystem を取得、GetVirtualSystemThumbnailImage メソッドの情報を取得した上でメソッドを呼び出す。言葉で書くと非常にわかりずらいですが、大体このような感じで実行すれば、ゲスト OS のサムネイルが取得できます。

   1: Imports System.Activities

   2: Imports System.Management

3:

   4: Public MustInherit Class WMIExecuteActivityBase

   5:     Inherits AsyncCodeActivity

6:

   7:     Protected _target As String = ""

   8:     Protected _where As String = ""

   9:     Protected _service As String = ""

10:

  11:     Public Property Scope As InArgument(Of ManagementScope)

  12:     Public Property Results As OutArgument(Of List(Of Hashtable))

13:

  14:     Protected Delegate Function asyncExecuteWMIDelegate(ByVal target As String, ByVal whereCondition As String, ByVal wmScope As ManagementScope) As List(Of Hashtable)

15:

  16:     Protected Overrides Function BeginExecute(context As System.Activities.AsyncCodeActivityContext, callback As System.AsyncCallback, state As Object) As System.IAsyncResult

  17:         Dim currentScope = context.GetValue(Me.Scope)

18:

  19:         Dim asyncExecute = New asyncExecuteWMIDelegate(AddressOf ExecuteWMI)

  20:         context.UserState = asyncExecute

21:

  22:         Return asyncExecute.BeginInvoke(_target, _where, currentScope, callback, state)

  23:     End Function

24:

  25:     Protected Overrides Sub EndExecute(context As System.Activities.AsyncCodeActivityContext, result As System.IAsyncResult)

  26:         Dim asyncExecute = TryCast(context.UserState, asyncExecuteWMIDelegate)

  27:         Dim wmiResult = asyncExecute.EndInvoke(result)

28:

  29:         context.SetValue(Me.Results, wmiResult)

  30:     End Sub

31:

  32:     Protected Overridable Function ExecuteWMI(ByVal target As String, ByVal whereCondition As String, ByVal wmScope As ManagementScope) As List(Of Hashtable)

33:

  34:     End Function

35:

  36:     Protected Function CreateScope(ByVal wmScope As ManagementScope) As ManagementScope

  37:         If wmScope Is Nothing Then

  38:             wmScope = New ManagementScope("\\" + My.Computer.Name + "\root\" + _service)

  39:         End If

  40:         If Not wmScope.IsConnected Then wmScope.Connect()

  41:         Return wmScope

  42:     End Function

43:

  44: End Class

これがベースとなるアクティビティで、実際にはこれを継承した形で作成しました。

   1: Imports System.Activities

   2: Imports System.Management

   3: Imports System.Drawing

   4: Imports System.IO

5:

   6: Public Class WMIGetVMThumbnailActivity

   7:     Inherits WMIExecuteActivityBase

8:

   9:     Private _imageX As Integer = 320

  10:     Private _imageY As Integer = 240

  11:     Private _imageFile As String = ""

12:

  13:     Public Property VMName As InArgument(Of String)

  14:     Public Property ImageFileName As InArgument(Of String)

  15:     Public Property ImageSizeX As InArgument(Of Integer)

  16:     Public Property ImageSizeY As InArgument(Of Integer)

17:

  18:     Protected Overrides Function BeginExecute(ByVal context As System.Activities.AsyncCodeActivityContext, ByVal callback As System.AsyncCallback, ByVal state As Object) As System.IAsyncResult

  19:         MyBase._target = "Msvm_ComputerSystem "

  20:         MyBase._where = "Caption = '仮想マシン' and ElementName = '" + context.GetValue(Me.VMName) + "'"

  21:         MyBase._service = "virtualization"

22:

  23:         _imageX = context.GetValue(Me.ImageSizeX)

  24:         _imageY = context.GetValue(Me.ImageSizeY)

  25:         _imageFile = context.GetValue(Me.ImageFileName)

26:

  27:         Return MyBase.BeginExecute(context, callback, state)

  28:     End Function

29:

  30:     Protected Overrides Function ExecuteWMI(ByVal target As String, ByVal whereCondition As String, ByVal wmScope As System.Management.ManagementScope) As System.Collections.Generic.List(Of System.Collections.Hashtable)

  31:         Dim result As New List(Of Hashtable)

  32:         Try

  33:             wmScope = CreateScope(wmScope)

34:

  35:             Dim wmQuery As New ObjectQuery("SELECT * FROM " + target + " WHERE " + whereCondition)

  36:             Dim wmSearcher As New ManagementObjectSearcher(wmScope, wmQuery)

  37:             Dim wmVirtualSystem As ManagementObject = Nothing

  38:             For Each wmRes As ManagementObject In wmSearcher.Get

  39:                 For Each wmVir As ManagementObject In wmRes.GetRelated("Msvm_VirtualSystemsettingData")

  40:                     wmVirtualSystem = wmVir

  41:                     Exit For

  42:                 Next

  43:                 Exit For

  44:             Next

  45:             If wmVirtualSystem Is Nothing Then Return result

46:

  47:             Dim wmVsmsQuery As New ObjectQuery("SELECT * FROM " + target + " WHERE " + whereCondition)

  48:             Dim wmVsmsSearcher As New ManagementObjectSearcher(wmScope, wmVsmsQuery)

  49:             For Each wmVsms As ManagementObject In wmVsmsSearcher.Get

  50:                 Dim inParam = wmVsms.GetMethodParameters("GetVirtualSystemThumbnailImage")

  51:                 inParam("WidthPixels") = _imageX

  52:                 inParam("HeightPixels") = _imageY

  53:                 inParam("TargetSystem") = wmVirtualSystem.Path.Path

54:

  55:                 Dim wmMethodResult = wmVsms.InvokeMethod("GetVirtualSystemThumbnailImage", inParam, Nothing)

  56:                 Dim wmImage() = CType(wmMethodResult("ImageData"), Byte())

  57:                 My.Computer.FileSystem.WriteAllBytes(_imageFile, wmImage, False)

  58:                 Exit For

  59:             Next

60:

  61:         Catch ex As Exception

  62:             result.Clear()

  63:         End Try

  64:         Return result

  65:     End Function

66:

  67: End Class

このようなロジックになります。ただし、注意することが 1 点だけありまして、この方法で取得したイメージ（WriteAllBytes で保存している内容）は、画像の形式で言うと RAW となりますので、一般的な画像形式に変換してあげる必要があります。

Windows Server AppFabric と Workflow Foundation

2012-01-18T18:14:00.000+09:00

ワークフローをホスティングする環境の一つに Windows Server AppFabric を利用したホスティング方法があります。実際には IIS の拡張機能的なポジションなので、IIS でのホスティングと基本は変わりありませんが、AppFabric にて提供される機能にて Workflow Foundation に関わる設定を簡易に行えるようになります。言い換えると Windows Server AppFabric で拡張される機能は「各種設定ファイル（ *.config ) の設定用 UI を提供」する事と言えます。

AppFabric の導入により、ワークフローの永続化や追跡などが簡易に設定できるようになるのですが、一つ条件があります。Windows Server AppFabric にて実行を行えるワークフローはワークフローサービスのみで、通常のワークフローはホスティングできません。ここでいう、通常のワークフローとワークフローサービスの違いは
「メッセージングアクティビティを利用している」
かどうかになります。

AppFabric のインストールは非常に簡単です。ダウンロードしたインストーラーを実行すると、必要な機能の選択をするダイアログが表示されるのでそれに従うだけで済みます。このあたりは MSDN の記述を参考にするとよいでしょう。なお Workflow Foundation に関連する AppFabric の機能としては「ホスティングサービス」と「ホスティング管理」が当てはまりますので、この二つはインストールするようにしてください。

無事 Windows Server AppFabric がインストールできると IIS マネージャが拡張されます。

上記スクリーンショットにて AppFabric グループが増え、右部メニューに「WCF サービスと WF サービスの管理」というカテゴリが増えているのがわかると思います。AppFabric にてホスティングするワークフローの基本設定はこの管理メニューより行います。

まずはワークフローを動作させるためにサイトを新規に作成しますが、このあたりは IIS でホスティングさせる際と同様の手順ですので省略します。サイトを作成しましたら、次にバインドの設定を行います。単純にワークフローサービスを利用するだけであれば、http や https のバインドだけでよいのですが、Windows Server AppFabric を利用する場合にはワークフローの管理を行うために名前付きパイプが利用できる必要があります。

名前付きパイプのバインドは次のように設定します。

バインドを設定後、このサイトにおける WF の構成を設定します。右側メニューにある「WCF サービスと WF サービスの管理」カテゴリにある「構成」をクリックします。表示されるダイアログは「全般」「監視」「ワークフロー永続化」「ワークフローホスト管理」「スロットル」「セキュリティ」とグループ化されています。

全般グループはこのようになります。メタデータを提供するかどうかを設定します。

監視グループはこのようになります。ここでワークフローの監視について設定を行います。ワークフローで発生したイベントやエラーをデータベースに書き込むか、ログ出力をどのように行うか、という点での設定です。ここでのイベントやエラーはある程度レベル分けされており、一部を出力するか、または全て出力するかといった具合に選択が可能です。

永続化グループはこのようになります。ワークフローの永続化を行うか、行う際にはどこに保存するかという設定を行います。普段であれば設定ファイルやコードで指定した内容そのものです。

ホスト管理はこのようになります。先程の永続化と関わるのですが、どのようなタイミングでインスタンスの保存を行うか、を指定します。なお、設定として「アンロードする」と「保有する」がありますが、もしどちらも行うように設定し、かつタイムアウトを同値に設定した場合は、アンロードが有効になりインスタンスの保持は行われません。

スロットルはこのようになります。どれだけ同時に動作させるか、といった設定です。

セキュリティはこのようになります。このあたりはワークフロー特有ではない内容ですね。

なお、ホスト管理の設定画面にて「net.pipe バインドが～」と表示されている場合は、サイトに対して名前付きパイプのバインドが有効になっていませんので、その点を確認してください。

このような形で設定を行いワークフローサービスを動作させると、その稼働状況について AppFabric ダッシュボードから確認できるようになります。

この画面を表示させた際に、右側メニューには「永続的な WF インスタンス」「追跡対象 WF インスタンス」「追跡対象イベント」が選択できるようになり、ワークフローサービスの動作や発生しているイベントの確認、動作中のワークフローの停止や再起動などの事が行えるようになります。

このように Windows Server AppFabric を導入すると簡易にワークフローホスティングの環境が構築できます。またサーバーを増加させるなどのスケーリングを行いやすくなるという利点もありますので、ある程度以上の環境でワークフローサービスを利用する際には必須と考えていいかも知れません。

また、AppFabric を利用するためにワークフローに手を加える必要は全くない、というのも大きな利点ではないでしょうか。セルフホスト以外でワークフローサービスを利用しているのであれば、そのまま Windows Server AppFabric を利用した動作環境へと移行できることになります。

Google Calendar API v3 でカレンダーに予定を登録する

2012-01-05T18:13:00.000+09:00

前回の記事では GData API v2 を利用してカレンダーに予定を登録しました。ですが、v2 の API は 2014 年には廃止されることが決定しているため、できるだけ早期に v3 へと移行する必要があります。今回は v3 の API を利用して予定を登録してみます。

v3 の API はまだ GData API ライブラリとしては提供されていないため、Google APIs Client Library for .NET を利用します。v3 より認証方法が OAuth を利用する必要がありますので、前回までとは異なるロジックになります。

※データを参照するだけならば API Key を利用する方法も可能です。

OAuth で認証を行うためには事前準備としてプロジェクトを登録し、クライアント ID 等を取得しておく必要があります。

Google APIs Console にアクセスし、上記画面の青いボタンをクリックします。

このようなダイアログが表示されるので Project Names に適当なプロジェクト名を入力し、Next をクリックします。

続いてこのようなダイアログが表示されますので、アプリケーションの種別を Web アプリなのかクライアントアプリなのかを選択します。今回はクライアントアプリですので、下のラジオボタンを選択します。

選択するとダイアログが縮みますので、Create Client ID をクリックします。

クリックするとアプリケーション用のクライアント ID や秘密キーが作成されます。アプリケーションからアクセスする際に、これらの文言が必要になります。

続いてカレンダー API の利用ができるように設定します。

左側の Services タブをクリックすると API の一覧が表示されますので、Calendar API を選択、スイッチらしきところをクリックすると上記のように利用可能状態になります。ここまでが下準備となり、後はコードの実装です。

   1: Sub Main()

   2:     Const ClientID = "[クライアント ID]"

   3:     Const ClientSecret = "[クライアントシークレット]"

   4:     Const calendarID = "[カレンダーID]"

5:

   6:     '認証

   7:     Dim prov As New NativeApplicationClient(GoogleAuthenticationServer.Description) With {

   8:         .ClientIdentifier = ClientID,

   9:         .ClientSecret = ClientSecret

  10:     }

11:

  12:     Dim auth As New OAuth2Authenticator(Of NativeApplicationClient)(prov, Function(arg)

  13:                                                                               Dim state As New AuthorizationState({CalendarService.Scopes.Calendar.GetStringValue()})

14:

  15:                                                                               state.Callback = New Uri(NativeApplicationClient.OutOfBandCallbackUrl)

  16:                                                                               Dim authUri = arg.RequestUserAuthorization(state)

17:

  18:                                                                               Process.Start(authUri.ToString())

  19:                                                                               Dim authCode = Console.ReadLine()

20:

  21:                                                                               Return arg.ProcessUserAuthorization(authCode, state)

  22:                                                                           End Function)

23:

  24:     Dim cService As New CalendarService(auth)

  25:     Dim resultQuickEvent = cService.Events.QuickAdd(calendarID, "予定のタイトル").Fetch

26:

  27: End Sub

基本的なロジックは Developer’s Guide( v3 ) のものを参照しています。VB 用に少し書き直した程度です。また、本当であれば QuickAdd を利用した形ではなく、ちゃんとした形で予定登録できればよかったのですが、残念なことにまだ正常に登録できる実装が良くわかっていません。

QuickAdd を利用した場合、予定の日時は現在日時を利用するという制限がありますが、予定自体は登録されます。

なお、ロジック中ででてくるカレンダー ID ですが、各カレンダーごとに設定されています。値の確認方法は、ブラウザでカレンダーの設定を確認してもらうか、上記認証を行った後に cService.CalendarList.List.Fetch() と呼び出すことでカレンダー一覧が取得できます。その取得したエントリに ID プロパティがあるのでその値を参照することでも可能です。

   1: Dim cRes = cService.CalendarList.List.Fetch()

   2: For Each child In cRes.Items

   3:     Console.WriteLine(child.Summary + " : " + child.Id)

   4: Next

このような形でアプリケーションより Google カレンダーの操作を行う事ができます。GData API と比較するとやや認証回りが面倒になっていますが、認証後はクラス名の違いはあれどもそれほど大きくは変更していませんので、移行するにおいてもまだ楽なのではないでしょうか。

GData API を利用して Google カレンダーに予定を登録する

2011-12-29T11:43:00.001+09:00

前回は Google ドキュメントのスプレッドシートに対して操作してみたので、次はカレンダーに予定を登録してみます。

利用するライブラリは前回同様 ver 1.9 を利用します。参照設定を行うのは、

Google.GData.Client
Google.GData.Extensions
Google.GData.Calendar

の 3 つとなります。後でわかったのですが、今回のロジックでは API Ver 2 のものでしてそのうち利用できなくなるとのことです。Ver 3 は別エントリで書いてみます。

基本的なロジックの流れはスプレッドシートの時と同様で、利用するクラスが異なるくらいです。なのでいきなりロジックから掲載します。

   1: Const usr = "" 'アカウント

   2: Const pas = "" 'パスワード

   3: Const APP_NAME = "Sample Google Calendar"

   4: '自分のカレンダー取得用 Uri

   5: Const OWN_CALENDAR = "https://www.google.com/calendar/feeds/default/owncalendars/full"

   6: '自分のカレンダー設定用 Uri

   7: Const POST_CALENDAR = "https://www.google.com/calendar/feeds/" + usr + "/private/full"

8:

   9: 'ログイン認証を行う

  10: Dim clService As New CalendarService(APP_NAME)

  11: clService.setUserCredentials(usr, pas)

  12: '新規に予定を作成

  13: Dim newEntry As New EventEntry

  14: newEntry.Title.Text = "アプリからの予定登録"

  15: newEntry.Content.Content = "アプリから予定を登録してみる"

  16: '場所の設定

  17: Dim newWhere As New Where With {

  18:     .ValueString = "予定実施場所"

  19: }

  20: newEntry.Locations.Add(newWhere)

  21: '日時の設定

  22: Dim newTime As New [When] With {

  23:     .StartTime = DateTime.Parse("2012/1/1 12:00"),

  24:     .EndTime = DateTime.Parse("2012/1/1 14:00")

  25: }

  26: newEntry.Times.Add(newTime)

  27: 'カレンダーに予定を登録

  28: clService.Insert(New Uri(POST_CALENDAR), newEntry)

記載されているコメントをみていただけるとわかると思いますが、非常に簡単です。これを実行するとカレンダーに予定が追加されます。なお、実際には予定を登録する Insert メソッド呼び出しにて、処理ステータスが返却されますのでその値に基づいた処理が必要になります。

実行するとこのように予定が追加されます。

詳細情報を確認するとこのように、アプリにて設定された内容が確認できると思います。他にも EventEntry クラスのプロパティを操作する事で、終日の予定とかも設定できます。

このように非常に簡単に Google カレンダーも操作できますので、連携するアプリを作るのもかなり簡単にできるのではないでしょうか。

GData API を利用してスプレッドシートの値を取得する

2011-12-26T19:35:00.000+09:00

Google Document では多くの API が提供されており、それを用いる事で Google が提供しているサービスへのアクセスを比較的簡易に行う事ができるようになっています。今回は色々理由があったのもあり、スプレッドシートに書かれている値を取得する、というのを行ってみました。

まず Google Document も含めて、Google の各種サービスにアクセスするためには REST API でダイレクトにあれこれするか、多くの言語用に提供されているライブラリを利用するかのどちらかを選択する必要があります。まぁライブラリが用意されているので、REST を利用する必要性は若干薄くなるかと思われますので、ここではライブラリを利用します。

ライブラリは google-gdata というプロジェクトサイトが用意されており、そこからダウンロードできます。この記事を書いている時点では ver 1.9（Google_Data_API_Setup_1.9.0.0.msi）となっていました。ダウンロードしたセットアップを実行すると、ローカル環境にライブラリがインストールされ、アプリケーションから利用する事が可能になります。

新規に適当なプロジェクトを作成しライブラリへの参照設定を行います。

\Program Files\Google\Google Data API Sdk\Redist フォルダに必要となるライブラリが揃っています。この中から必要な物だけ参照設定を行います。今回スプレッドシートを扱うのに必要なライブラリは次の通りです。

Google.GData.Client
Google.GData.Extensions
Google.GData.SPreadsheets

上記 3 ファイルに参照を行います。

さて、今回は Google ドキュメントのスプレッドシートから値を抽出するのですが、サンプルとして昨日行われた CLR/H の申込み一覧を利用しています。受付フォームで登録した内容が、そのままスプレッドシートに反映するので非常に便利なシロモノです。

一部抜粋するとこのような感じで管理しています。今回はこのシートからメールアドレスの値だけ取得してみようと思います。なお、今回のサンプルについてはあらかじめ Imports にて先程の 3 ライブラリを指定してあるものとして、コードを読んでください。

ログイン・認証

まず必要なのはログインというか認証です。ここは複数方法が用意されていますが、今回は簡単なアカウント（メールアドレス）とパスワードによる認証を行ってみます。

   1: Dim usr = "kuma@gmail.com" 'アカウント用メールアドレス

   2: Dim pas = "turarenaikuma-" 'パスワード

   3: Const appName = "Sample Google Document Spreadsheet Search" '何らかのアプリ名

   4: Dim ssService As New SpreadsheetsService(appName)

   5: Try

   6:     ssService.setUserCredentials(usr, pas)

   7: Catch ex As Exception

   8:     MessageBox.Show(ex.Message, Me.Title, MessageBoxButton.OK, MessageBoxImage.Error)

   9:     Return

  10: End Try

ログイン・認証のロジックは上記の通りかなりシンプルです。実際にログインを行う箇所は Try ～ Catch にて囲まれている setUserCredentials メソッド呼び出し部分になります。また、そのメソッドが実装されているのは SpreadsheetsService クラスでスプレッドシート関係専用のクラスになっています。以後の処理はここで利用した SpreadsheetsService クラスのインスタンスを経由して行う形になります。

スプレッドシート（ブック）の取得

認証が行われた次は Excel っぽく言うとブックを取得します。Google Document の仕様上、同一名称のスプレッドシートを作成できるとのこと（試していません）なので、注意する点はそのあたりくらいです。

   1: 'シート取得

   2: Dim ssQuery As New SpreadsheetQuery()

   3: Dim ssFeed = ssService.Query(ssQuery)

4:

   5: Dim ssSheet = From x In ssFeed.Entries

   6:               Where x.Title.Text = SHEET_NAME 'シート名を指定

   7:               Select x

8:

   9: Dim ssSpreadSheet = TryCast(ssSheet.FirstOrDefault, SpreadsheetEntry)

  10: If ssSpreadSheet Is Nothing Then Return

最初に SpreadsheetQuery クラスのインスタンスを生成していますが、実際に利用する場合はこのクラスを用いて条件指定を行う形になります。上記サンプルでは「全てのスプレッドシート」を取得してきますので、あまり良いものでもありません。変なところにコメントが入っていますが、これは後付けで記述したものですので実際は構文エラーですｗ

ワークシートの取得

スプレッドシート（ブック）が取得できれば、次は対象となるワークシートを取得します。

   1: Dim ssWorksheetFeed = ssSpreadSheet.Links.FindService(GDataSpreadsheetsNameTable.WorksheetRel, Nothing)

   2: Dim ssWorksheetQuery As New WorksheetQuery(ssWorksheetFeed.HRef.ToString)

   3: Dim ssWorksheetEntry As WorksheetEntry = Nothing

   4: For Each ssWs As WorksheetEntry In ssService.Query(ssWorksheetQuery).Entries

   5:     ssWorksheetEntry = ssWs 'テスト的に最初のシートを取得

   6:     Exit For

   7: Next

   8: If ssWorksheetEntry Is Nothing Then Return

先程は SpreadsheetQuery クラスを利用した抽出を行いましたが、今回はワークシートが対象なので WorksheetQuery クラスを利用します。その部分を除けば、行っている内容は先程のスプレッドシートの取得とさほど違いはありません。

セルの検索

シートまで取得できれば後はセルを抽出するのみです。

   1: Dim ssCellFeedLink = ssWorksheetEntry.Links.FindService(GDataSpreadsheetsNameTable.CellRel, Nothing)

   2: Dim ssCellQuery As New CellQuery(ssCellFeedLink.HRef.ToString)

   3: For Each ssCell As CellEntry In ssService.Query(ssCellQuery).Entries

   4:     If ssCell.Column <> 3 OrElse ssCell.Row = 1 Then Continue For 'アドレス以外や見出しは不要

   5:     ListView1.Items.Add(New ListViewItem With {.Content = ssCell.Value}) '結果を ListView に表示

   6: Next

LINQ を使えばもう少しすっきりしますが、今回はサンプルということで。抽出した結果は CellEntry クラスとして現されます。セルの値は Value プロパティで、行列番号は Row や Column プロパティで参照できます。

このような形でアクセスすることができます。実際に実行した結果は次のようになります。

このようにかなり簡単に Google スプレッドシートにアクセスできます。Google Code ではサンプルソースも公開されており、そのあたりを見ていただければシートの更新や新規作成なども、かなり簡単に行える思います。