创建服务
创建 WCF 服务
- 在“文件”菜单上单击“新建项目”。
- 在“新建项目”对话框中,展开“Visual Basic”节点,接着选择“WCF”,然后选择“WCF 服务库”[WCF Service Library]。单击“确定”打开此项目。
- 在“解决方案资源管理器”中,双击 IService1.vb,然后找到 Function GetData(ByVal value As Integer) As String 一行。将 value 参数的类型更改为 String:Function GetData(ByVal value As String) As String。
- 在“解决方案资源管理器”中,双击 Service1.vb,然后找到 Public Function GetData(ByVal value As Integer) As String Implements IService1.GetData 一行。将 value 参数的类型更改为 String:Public Function GetData(ByVal value As String) As String Implements IService1.GetData。
测试服务
测试 WCF 服务
1.按 F5 运行此服务。将显示“WCF 测试客户端”[WCF Test Client]窗体,它将加载此服务。
2.在“WCF 测试客户端”[WCF Test Client]窗体中,双击“IService1”下的“GetData()”方法。将显示“GetData”选项卡。
3.在“请求”框中,选择“值”字段,然后键入 Hello。
4.单击“调用”按钮。如果显示“安全警告”对话框,请单击“确定”。结果将显示在“响应”框中。
5.在“文件”菜单上单击“退出”关闭测试窗体。
访问此服务
引用 WCF 服务
1.在“文件”菜单上指向“添加”,然后单击“新建项目”。
2. 在“新建项目”对话框中,展开“Visual Basic”节点,接着选择“Windows”,然后选择“Windows 窗体应用程序”。单击“确定”打开此项目。
3.右击“WindowsApplication1”,然后单击“添加服务引用”。将出现“添加服务引用”对话框。
4.在“添加服务引用”对话框中,单击“发现”。“Service1”将显示在“服务”窗格中。
5. 单击“确定”以添加此服务引用。
生成客户端应用程序
- 在“解决方案资源管理器”中,如果窗体设计器尚未打开,请双击“Form1.vb”将其打开。
- 从“工具箱”中将一个 TextBox 控件、一个 Label 控件以及一个 Button 控件拖到窗体上。
- 双击 Button,然后在 Click 事件处理程序中添加以下代码:
- Private Sub Button1_Click(ByVal sender As System.Object, _
- ByVal e As System.EventArgs) Handles Button1.Click
- Dim client As New ServiceReference1.Service1Client
- Dim returnString As String
- returnString = client.GetData(TextBox1.Text)
- Label1.Text = returnString
- End Sub
- 在“解决方案资源管理器”中,右击“WindowsApplication1”,然后单击“设为启动项目”。
- 按 F5 运行项目。输入一些文本并单击按钮——标签将显示“您输入的内容:”以及您输入的文本。