[orca-users:12872] ORCA API の VB.NET のサンプルコード

[Hiroaki Inomata <inoma99@xxxxxxxxxx>]

ORCA API の C# のサンプルコードは、本サイトに載っていますが
VB.NET のサンプルコードがないようなので、ちょっとつくってみま
した。

コマンドラインでは面白みにかけるので、フォーム使ってボタンを一つ
のっけます。

ボタンを押すと患者番号00001の患者情報を test.xml に吐き出して
くれます。

実行させればわかりますが、レスポンスはけっこう速いです。

簡易な電子カルテなら、この手の組み合わせでできそうですね。


猪股弘明

--OpenOcean01.vb---------------------------------------------------------------------------------

Imports System
Imports System.IO
Imports System.Net
Imports System.Text

Public Class Form1

Dim url As String = "http://***.***.***.***:8000/api01r
/patientget?id=00001"　'←環境に合わせて設定

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Load

End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button1.Click

Dim webreq As System.Net.HttpWebRequest = _
CType(System.Net.WebRequest.Create(url), _
System.Net.HttpWebRequest)
webreq.Credentials = New NetworkCredential("ormaster", "ormaster")

Dim webres As System.Net.HttpWebResponse = _
CType(webreq.GetResponse(), System.Net.HttpWebResponse)
Dim enc As System.Text.Encoding = _
System.Text.Encoding.GetEncoding("utf-8")

Dim st As System.IO.Stream = webres.GetResponseStream()
Dim sr As New System.IO.StreamReader(st, enc)

Dim xml As String = sr.ReadToEnd()
File.WriteAllText("test.xml", xml)

sr.Close()
webres.Close()

End Sub

End Class
------------------------------------------------------------------------------------------