VB.netでMicrosoft Cognitive ServicesのOCR API を使ってみました。

「さわってわかるクラウドAI Microsoft Cognitive Services実践ガイド」という本を購入しました。

Google ChromeにPostmanという拡張機能をインストールすることで、好きなデータをPOSTできるというような事が書いてあり、その例として、Microsoft Cognitive ServicesのOCR API を使っていました。

結局、HTTPリクエストを送ることができれば良いので、VB.netでコードを書いてみて、試しました。

        Dim webReq As Net.HttpWebRequest
        Dim webRes As Net.HttpWebResponse
        Dim reqStream As System.IO.Stream
        Dim resStream As System.IO.Stream
        Dim resStreamReader As System.IO.StreamReader
        Dim fsFile As System.IO.FileStream
        Dim byData As Byte()
        Dim sエンドポイント As String
        Dim sキー As String
        Dim sFilePath As String
        Dim sJSON As String

        Try
            'エンドポイントはリソースの場所によって変わります。
            sエンドポイント = "https://westus.api.cognitive.microsoft.com/vision/v1.0"
            'visualFeaturesは必要な項目だけで良いです。
            'このコードでは全部取得しています。
            sエンドポイント &= "/ocr?language=ja&detectOrientation=true"
            sエンドポイント &= "&subscription-key="
            sキー = "<APIキー>"
            sエンドポイント &= sキー
            '画像ファイルを読み込みます。
            sFilePath = "<画像ファイルのパス>"
            fsFile = New System.IO.FileStream(sFilePath, System.IO.FileMode.Open, System.IO.FileAccess.Read)
            ReDim byData(fsFile.Length - 1)
            fsFile.Read(byData, 0, byData.Length)
            fsFile.Close()

            webReq = DirectCast(System.Net.WebRequest.Create(sエンドポイント), System.Net.HttpWebRequest)
            webReq.Method = "POST"
            webReq.ContentType = "application/octet-stream"

            webReq.ContentLength = byData.Length
            'RequestStreamを取得
            reqStream = webReq.GetRequestStream()
            reqStream.Write(byData, 0, byData.Length)
            reqStream.Close()
            'RequestStreamを取得
            webRes = webReq.GetResponse()
            resStream = webRes.GetResponseStream()
            resStreamReader = New System.IO.StreamReader(resStream, System.Text.Encoding.UTF8)
            'レスポンスはJSON形式です。
            sJSON = resStreamReader.ReadToEnd
            'RichTextBox1に結果を表示するようにしました。
            RichTextBox1.Text = sJSON

        Catch ex As Net.WebException

            'エラーが発生した場合、こうすると内容がわかります。
            If Not ex.Response Is Nothing Then
                Dim errorResponse As Net.HttpWebResponse
                errorResponse = ex.Response
                Dim reader As New IO.StreamReader(errorResponse.GetResponseStream())
                Dim sError As String
                sError = reader.ReadToEnd()
                MessageBox.Show(sError)
            End If

        End Try

Dim webReq As Net.HttpWebRequest

Dim webRes As Net.HttpWebResponse

Dim reqStream As System.IO.Stream

Dim resStream As System.IO.Stream

Dim resStreamReader As System.IO.StreamReader

Dim fsFile As System.IO.FileStream

Dim byData As Byte()

Dim sエンドポイント As String

Dim sキー As String

Dim sFilePath As String

Dim sJSON As String

Try

'エンドポイントはリソースの場所によって変わります。

sエンドポイント = "https://westus.api.cognitive.microsoft.com/vision/v1.0"

'visualFeaturesは必要な項目だけで良いです。

'このコードでは全部取得しています。

sエンドポイント &= "/ocr?language=ja&detectOrientation=true"

sエンドポイント &= "&subscription-key="

sキー = "<APIキー>"

sエンドポイント &= sキー

'画像ファイルを読み込みます。

sFilePath = "<画像ファイルのパス>"

fsFile = New System.IO.FileStream(sFilePath, System.IO.FileMode.Open, System.IO.FileAccess.Read)

ReDim byData(fsFile.Length - 1)

fsFile.Read(byData, 0, byData.Length)

fsFile.Close()

webReq = DirectCast(System.Net.WebRequest.Create(sエンドポイント), System.Net.HttpWebRequest)

webReq.Method = "POST"

webReq.ContentType = "application/octet-stream"

webReq.ContentLength = byData.Length

'RequestStreamを取得

reqStream = webReq.GetRequestStream()

reqStream.Write(byData, 0, byData.Length)

reqStream.Close()

'RequestStreamを取得

webRes = webReq.GetResponse()

resStream = webRes.GetResponseStream()

resStreamReader = New System.IO.StreamReader(resStream, System.Text.Encoding.UTF8)

'レスポンスはJSON形式です。

sJSON = resStreamReader.ReadToEnd

'RichTextBox1に結果を表示するようにしました。

RichTextBox1.Text = sJSON

Catch ex As Net.WebException

'エラーが発生した場合、こうすると内容がわかります。

If Not ex.Response Is Nothing Then

Dim errorResponse As Net.HttpWebResponse

errorResponse = ex.Response

Dim reader As New IO.StreamReader(errorResponse.GetResponseStream())

Dim sError As String

sError = reader.ReadToEnd()

MessageBox.Show(sError)

End If

End Try

今回は、ローカルの画像ファイルを参照しているので、
ContentType を「application/octet-stream」として、画像をバイナリデータとして読み込み渡しています。

URLを指定する場合は、ContentType を「application/json」とします。
データは、{"url":"<画像のURL>"} というようにJSON形式にします。

Computer Vision APIに関しては、こちらを参考にしてください。
→VB.netでComputer Vision APIを使ってみました。

次の画像で試してみました。

結果は以下です。
どの程度正しいのかよくわかりませんが、なんとなく、本の表紙と同じ文字が表示されているのがわかります。
レスポンスを解析して、再配置するプログラムを書けば、どの程度正しいのかわかるのですが、今回はやめておきます。