内容へ移動
nabezo wiki
ユーザ用ツール
ログイン
サイト用ツール
検索
ツール
文書の表示
以前のリビジョン
バックリンク
最近の変更
メディアマネージャー
サイトマップ
ログイン
>
最近の変更
メディアマネージャー
サイトマップ
トレース:
ocr
この文書は読取専用です。文書のソースを閲覧することは可能ですが、変更はできません。もし変更したい場合は管理者に連絡してください。
====== MS Vision API ====== 参考 [[tesseract-ocr]] vision api を使ったサンプル、vb.net(framework4.5)exe Imports System Imports System.Net.Http.Headers Imports System.Text Imports System.Net.Http Imports System.Web Module Module2 Sub mainrtn() Call MakeRequest() End Sub Async Sub MakeRequest() Dim client = New HttpClient() 'Dim queryString = HttpUtility.ParseQueryString(String.Empty) '---------------------------------------- '呼び出しURIの設定 '---------------------------------------- Dim queryString = HttpUtility.ParseQueryString("language=unk") ''''client.DefaultRequestHeaders.Add("Ocp-Apim-Subscription-Key", "{subscription key}") client.DefaultRequestHeaders.Add("Ocp-Apim-Subscription-Key", "xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx") ''''option param 'queryString("visualFeatures") = "Categories" ''''option param 'queryString("details") = "{string}" ''''Dim Uri As String = "https://api.projectoxford.ai/vision/v1.0/analyze?" & queryString.ToString Dim Uri As String = "https://api.projectoxford.ai/vision/v1.0/ocr?" & queryString.ToString '---------------------------------------- 'パラメータ指定 '---------------------------------------- ''''Dim byteData As Byte() = Encoding.UTF8.GetBytes("{body}") ''''Dim byteData As Byte() = Encoding.UTF8.GetBytes("{""Url"":""http://contoso.com/images/test1.jpg""}") Dim byteData As Byte() = Encoding.UTF8.GetBytes("{""Url"":""http://sample.jp/sample.jpg""}") Dim response As HttpResponseMessage Dim contentsstring As String Using content As New ByteArrayContent(byteData) ''''content.Headers.ContentType = New MediaTypeHeaderValue("< your content type, i.e. application/json >") content.Headers.ContentType = New MediaTypeHeaderValue("application/json") '---------------------------------------- '非同期メソッドの待ち合わせ '---------------------------------------- response = Await client.PostAsync(Uri, content) contentsstring = Await response.Content.ReadAsStringAsync End Using '---------------------------------------- '結果判定 '---------------------------------------- If response.StatusCode = "200" Then MsgBox(contentsstring) End If End Sub End Module
ocr.txt
· 最終更新: 2020/01/06 15:13 by
nabezo
ページ用ツール
文書の表示
以前のリビジョン
バックリンク
文書の先頭へ