そろそろ.netに移行しておかないと不味いなと思い、最近Visual Studioを勉強しています。
SaaSのデータでWeb APIに対応したものが多かったので、練習に「辞書検索サービス v10」で公開されているWSDLファイルを使ったプログラミングを調べながら作ってみました。
たかだか登録辞書の一覧をASP.NET上でDropListに表示させるだけで6時間くらいかかってしまいました。
うーん、先は長いです。
WSDLを利用したVB.net用のサンプルがなかなか見つけられなかったので、一応今回作った部分までのソースを張り付けておきます。
どなたかのお役に立てれば幸いです。
また、かなりプログラムについてイケてない自負あるので、書き方他何かあればご指摘いただけると助かります。
Visual Studio 2010を利用して.net framework 4で作成し、Web参照は以下を参照しています。
http://btonic.est.co.jp/Netdic/Netdicv10.asmx?WSDL
API.aspx
<%@ Page Language="VB" AutoEventWireup="false" CodeFile="API.aspx.vb" Inherits="API" %>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head runat="server">
<title></title>
</head>
<body>
<form id="form1" runat="server">
<div>
<asp:DropDownList ID="DropDownList1" runat="server">
</asp:DropDownList>
</div>
</form>
</body>
</html>
API.aspx.vb
'http://www.btonic.com/ws/
'辞書検索サービス v10
Imports jp.co.est.btonic
Imports System
Partial Class API
Inherits System.Web.UI.Page
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
Dim objDicInfo As Object
Dim objAPI = New NetDicV10
objDicInfo = objAPI.GetDicList("")
Dim arrResult As New ArrayList
Dim i As New Object
For Each i In objDicInfo
arrResult.Add(i.Fullname)
Next
DropDownList1.DataSource = arrResult
DropDownList1.DataBind()
End Sub
End Class
