问题描述
我需要创建一个包含 Web 界面的 .exe(独立且没有 IIS)。
现有的 WSDL 已转换为 VB.NET 代码。我现在已经插入了 vb.net-File,但没有 .config 文件。
错误地,即使已引用该界面也未显示。如果我调用“http://localhost/?WSDL”,则会显示以下内容:
<?xml version="1.0" encoding="UTF-8"?>
<wsdl:deFinitions xmlns:wsam="http://www.w3.org/2007/05/addressing/Metadata" xmlns:wsa10="http://www.w3.org/2005/08/addressing" xmlns:wsp="http://schemas.xmlsoap.org/ws/2004/09/policy" xmlns:i0="http://FOO.bar.example.net" xmlns:msc="http://schemas.microsoft.com/ws/2005/12/wsdl/contract" xmlns:wsaw="http://www.w3.org/2006/05/addressing/wsdl" xmlns:wsap="http://schemas.xmlsoap.org/ws/2004/08/addressing/policy" xmlns:wsx="http://schemas.xmlsoap.org/ws/2004/09/mex" xmlns:wsa="http://schemas.xmlsoap.org/ws/2004/08/addressing" xmlns:tns="http://tempuri.org/" xmlns:soap12="http://schemas.xmlsoap.org/wsdl/soap12/" xmlns:soap="http://schemas.xmlsoap.org/wsdl/soap/" xmlns:wsu="http://docs.oasis-open.org/wss/2004/01/oasis-200401-wss-wssecurity-utility-1.0.xsd" xmlns:soapenc="http://schemas.xmlsoap.org/soap/encoding/" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:wsdl="http://schemas.xmlsoap.org/wsdl/" targetNamespace="http://tempuri.org/" name="FOO_impl">
<wsdl:import location="http://localhost:8000/?wsdl=wsdl0" namespace="http://FOO.bar.example.net"/>
<wsdl:types/>
<wsdl:service name="FOO_impl"/>
</wsdl:deFinitions>
原始 WSDL 文件具有此处缺少的调用选项。我忘记引用什么了吗?我应该如何合并?
Module1.vb:
Imports System.Collections.Generic
Imports System.ServiceModel
Imports System.ServiceModel.Description
Imports System.ServiceModel.Web
Imports System.Text
Module Module1
'"C:\Program Files (x86)\Microsoft SDKs\Windows\v10.0A\bin\NETFX 4.7.2 Tools\SvcUtil.exe" "C:\Sourcen\trunk\Entwicklung\VBProgramme.NET\TOOLS\ServerKOS\Client - Variante mittels WebReference\KOSService.wsdl" /language:VB /syncOnly
Sub Main()
'https://docs.microsoft.com/de-de/dotnet/framework/wcf/feature-details/how-to-create-a-basic-wcf-web-http-service#to-host-the-service
Dim host As ServiceHost = New ServiceHost(GetType(KOS_impl),New Uri("http://localhost:8000/"))
Try
Dim ep As ServiceEndpoint = host.AddServiceEndpoint(GetType(FOOPortType),New WebHttpBinding(),"")
Dim smb As ServiceMetadataBehavior = New ServiceMetadataBehavior()
smb.HttpGetEnabled = True
host.Description.Behaviors.Add(smb)
host.open()
Using cf As New ChannelFactory(Of FOOPortType)(New WebHttpBinding(),"http://localhost:8000")
cf.Endpoint.Behaviors.Add(New WebHttpBehavior())
End Using
Console.WriteLine("Press <ENTER> to terminate")
Console.ReadLine()
host.Close()
Catch cex As CommunicationException
Console.WriteLine("An exception occurred: {0}",cex.Message)
host.Abort()
End Try
End Sub
End Module
FOO_impl.vb:
Public Class FOO_impl
Implements FOOPortType
Public Function FOOAufruf(request As FOOAufrufRequest) As FOOAufrufResponse Implements FOOPortType.FOOAufruf
Dim tmpFooanfrage As New FOOAnfrage
Dim tmp As New FOOAufrufResponse(tmpFooanfrage)
Return tmp
End Function
End Class
FOO.vb(通过 SvcUtil.exe 生成):
'------------------------------------------------------------------------------
' <auto-generated>
' Dieser Code wurde von einem Tool generiert.
' Laufzeitversion:4.0.30319.42000
'
' Änderungen an dieser Datei können falsches Verhalten verursachen und gehen verloren,wenn
' der Code erneut generiert wird.
' </auto-generated>
'------------------------------------------------------------------------------
Option Strict Off
Option Explicit On
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.ServiceModel","4.0.0.0"),_
System.ServiceModel.ServiceContractAttribute([Namespace]:="http://FOO.bar.example.net",ConfigurationName:="FOOPortType")> _
Public Interface FOOPortType
'CODEGEN: Der Nachrichtenvertrag wird generiert,da der Vorgang FOOAufruf weder in RPC noch in einem Dokument eingeschlossen ist.
<System.ServiceModel.OperationContractAttribute(Action:="#abc",ReplyAction:="*"),_
System.ServiceModel.XmlSerializerFormatAttribute()> _
Function FOOAufruf(ByVal request As FOOAufrufRequest) As FOOAufrufResponse
End Interface
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("svcutil","4.7.3081.0"),_
System.SerializableAttribute(),_
System.Diagnostics.DebuggerStepThroughAttribute(),_
System.ComponentModel.DesignerCategoryAttribute("code"),_
System.Xml.Serialization.XmlTypeAttribute([Namespace]:="http://FOO.bar.example.net")> _
Partial Public Class FOOAnfrage
Private versionField As String
'''<remarks/>
<System.Xml.Serialization.XmlElementAttribute(Order:=0)> _
Public Property Version() As String
Get
Return Me.versionField
End Get
Set
Me.versionField = value
End Set
End Property
End Class
<System.Diagnostics.DebuggerStepThroughAttribute(),_
System.CodeDom.Compiler.GeneratedCodeAttribute("System.ServiceModel",_
System.ComponentModel.EditorbrowsableAttribute(System.ComponentModel.EditorbrowsableState.Advanced),_
System.ServiceModel.MessageContractAttribute(IsWrapped:=false)> _
Partial Public Class FOOAufrufRequest
<System.ServiceModel.MessageBodyMemberAttribute([Namespace]:="http://FOO.bar.example.net",Order:=0)> _
Public FOOInput As FOOAnfrage
Public Sub New()
MyBase.New
End Sub
Public Sub New(ByVal FOOInput As FOOAnfrage)
MyBase.New
Me.FOOInput = FOOInput
End Sub
End Class
<System.Diagnostics.DebuggerStepThroughAttribute(),_
System.ServiceModel.MessageContractAttribute(IsWrapped:=false)> _
Partial Public Class FOOAufrufResponse
<System.ServiceModel.MessageBodyMemberAttribute([Namespace]:="http://FOO.bar.example.net",Order:=0)> _
Public FOOOutput As FOOAnfrage
Public Sub New()
MyBase.New
End Sub
Public Sub New(ByVal FOOOutput As FOOAnfrage)
MyBase.New
Me.FOOOutput = FOOOutput
End Sub
End Class
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.ServiceModel","4.0.0.0")> _
Public Interface FOOPortTypeChannel
Inherits FOOPortType,System.ServiceModel.IClientChannel
End Interface
<System.Diagnostics.DebuggerStepThroughAttribute(),"4.0.0.0")> _
Partial Public Class FOOPortTypeClient
Inherits System.ServiceModel.ClientBase(Of FOOPortType)
Implements FOOPortType
Public Sub New()
MyBase.New
End Sub
Public Sub New(ByVal endpointConfigurationName As String)
MyBase.New(endpointConfigurationName)
End Sub
Public Sub New(ByVal endpointConfigurationName As String,ByVal remoteAddress As String)
MyBase.New(endpointConfigurationName,remoteAddress)
End Sub
Public Sub New(ByVal endpointConfigurationName As String,ByVal remoteAddress As System.ServiceModel.EndpointAddress)
MyBase.New(endpointConfigurationName,remoteAddress)
End Sub
Public Sub New(ByVal binding As System.ServiceModel.Channels.Binding,ByVal remoteAddress As System.ServiceModel.EndpointAddress)
MyBase.New(binding,remoteAddress)
End Sub
<System.ComponentModel.EditorbrowsableAttribute(System.ComponentModel.EditorbrowsableState.Advanced)> _
Function FOOPortType_FOOAufruf(ByVal request As FOOAufrufRequest) As FOOAufrufResponse Implements FOOPortType.FOOAufruf
Return MyBase.Channel.FOOAufruf(request)
End Function
Public Function FOOAufruf(ByVal FOOInput As FOOAnfrage) As FOOAnfrage
Dim inValue As FOOAufrufRequest = New FOOAufrufRequest()
inValue.FOOInput = FOOInput
Dim retVal As FOOAufrufResponse = CType(Me,FOOPortType).FOOAufruf(inValue)
Return retVal.FOOOutput
End Function
End Class
解决方法
没有配置文件的原因是你使用的是restapi wcf服务,支持http请求调用服务,不适合通过生成代理类来调用服务。您可以将绑定修改为 basichttpbinding 或使用 httpclient 调用 webhttpbinding 服务。这是参考:HttpClient Class