てすとぶろぐ: LogicApps でカスタム ApiApps（VB製）を利用する 2016-06-01 スキーマ版

以前にカスタム ApiApps を LogicApps から利用したことがあるのですが、そこから大幅に構造が変わったこともあり、最近になってようやくあらためてやってみようと思った次第です。

通常の流れでは Azure ApiApps を作成して、それを LogicApps から呼び出すだけなのですが、表題にもある通り VB.NET でそれをやってみたものとなります。わざわざこう書いているので、なんとなくわかった方もいるでしょうが、VB.NET 用の ApiApps テンプレートはいまだに提供されていません。

（VS2015）

（VS2017)

実際のところ、WebApps も ApiApps もほぼほぼ同じものですので、技術的には可能というか、なぜできないようにしているのかがわからないレベルの話なのですが、現時点の仕様として VB を選択した場合に、ApiApps は新規作成できません。しかしデプロイすることはできたりしますので、今回は VB.NET 製の ApiApps を LogicApps から認識させてみようと思います。

まずは ApiApps を作成するためのテンプレートですが、以前に書いたエントリにて公開している VB.NET 向け ApiApps のテンプレートを利用することにします。これは既存の C# 用 ApiApps テンプレートを VB 向けにいろいろ書き直したものとなっています。なお、以前はこのテンプレートからデプロイすることで ApiApps の新規作成も行えていたのですが、現在ではそれもままならず、新規作成できるのは WebApps のみとなっています。

実際のトリガのソースとしては、MSDN にも記載があるように Github でサンプルが公開されています。しかしこれは当然 C# のみですので、これを VB 用に書き換えを行います。

	Imports System.Net
	Imports System.Web
	Imports System.Net.Http
	Imports System.Web.Http

	Namespace Controllers
	Public Class PollTriggerVBController
	Inherits ApiController

	Public Function [Get](Optional triggerState As String = "") As HttpResponseMessage

	If String.IsNullOrEmpty(triggerState) Then
	triggerState = Date.UtcNow.ToString()
	Return GenerateAsyncResponse(HttpStatusCode.Accepted, triggerState, "15")
	Else
	If Date.Parse(triggerState) < Date.UtcNow Then
	triggerState = Date.UtcNow.AddMinutes(2).ToString()
	Return GenerateAsyncResponse(HttpStatusCode.OK, triggerState, "15")
	End If
	End If

	End Function


	Private Function GenerateAsyncResponse(code As HttpStatusCode, triggerState As String, retryAfter As String) As HttpResponseMessage

	Dim responseMessage As HttpResponseMessage = Request.CreateResponse(code) 'Return a 200 to tell it to fire.
	responseMessage.Headers.Add("location", String.Format("{0}://{1}/api/polltrigger?triggerState={2}", Request.RequestUri.Scheme, Request.RequestUri.Host, HttpUtility.UrlEncode(triggerState))) 'Where the engine will poll to check status
	responseMessage.Headers.Add("retry-after", retryAfter) 'How many seconds it should wait. If multiple files are available you can return a 0 here and the engine will immediately come back and grab other triggers.
	Return responseMessage

	End Function

	End Class
	End Namespace

view raw PollTriggerVB.vb hosted with ❤ by GitHub

書き換えたものは上記のようになります。ここまでできると、次はデプロイ先を用意することになります。

先程書いたように、VB.NET の場合は、ApiApps の新規作成が行えません。どうするかというと、あらかじめポータル上で ApiApps を作成しておき、そこに対してデプロイする形を採ることになります。こうしないと、LogicApps 側で ApiApps と認識されないため、LogicFlow 上で呼び出すことができません。