Vb.net VisualStudio：如何将wsdl集成到web服务中？_Vb.net_Visual Studio_Wcf_Wsdl

Vb.net VisualStudio：如何将wsdl集成到web服务中？

vb.net visual-studio wcf

Vb.net VisualStudio：如何将wsdl集成到web服务中？,vb.net,visual-studio,wcf,wsdl,Vb.net,Visual Studio,Wcf,Wsdl,我需要创建一个包含web界面的.exe（独立且不带IIS）现有WSDL已转换为VB.NET代码。我现在插入了vb.net文件，但没有.config文件错误的是，即使该界面已被引用，也不会显示该界面。如果我打电话“http://localhost/?WSDL，将显示以下内容： <?xml version="1.0" encoding="UTF-8"?> <wsdl:definitions xmlns:wsam="http://

我需要创建一个包含web界面的.exe（独立且不带IIS）

现有WSDL已转换为VB.NET代码。我现在插入了vb.net文件，但没有.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>

FOO.vb（通过SvcUtil.exe生成）：

'------------------------------------------------------------------------------
' 
“Dieser代码wurde von einem工具generiert。
“Laufzeitversion:4.0.30319.42000
'
“我的朋友们，我的朋友们，我的朋友们，我的朋友们，我的朋友们，我的朋友们。”
代码是欧内斯特·韦德将军。
' 
'------------------------------------------------------------------------------
选择严格关闭
选项显式打开
_
公共接口FOOPortType
“代码根：这是一位总工程师，他在埃因施克洛森大学的RPC noch大学工作。
_
函数FOOAufruf（ByVal请求作为FOOAufrufRequest）作为fooaufruresponse
端接口
'''
_
部分公共级餐饮
私有版本字段为字符串
'''
_
作为字符串的公共属性版本（）
得到
返回我。versionField
结束
设置
Me.versionField=值
端集
端属性
末级
_
部分公共类fooaufruquest
_
公共FOOInput作为FooanFlage
公共分新（）
我的基地，新的
端接头
Public Sub New（ByVal FOOInput作为FooanFlage）
我的基地，新的
Me.fooint=fooint
端接头
末级
_
部分公共类fooaufruresponse
_
公共食品输出为食品价格
公共分新（）
我的基地，新的
端接头
Public Sub New（ByVal fooautput As fooanFlage）
我的基地，新的
Me.FOOOutput=FOOOutput
端接头
末级
_
公共接口FOOPortTypeChannel
继承FOOPortType、System.ServiceModel.IClientChannel
端接口
_
部分公共类FOOPortTypeClient
继承System.ServiceModel.ClientBase（属于FOOPortType）
实现FOOPortType
公共分新（）
我的基地，新的
端接头
Public Sub New（ByVal endpointConfigurationName作为字符串）
MyBase.New（endpointConfigurationName）
端接头
Public Sub New（ByVal endpointConfigurationName作为字符串，ByVal remoteAddress作为字符串）
MyBase.New（endpointConfigurationName，remoteAddress）
端接头
Public Sub New（ByVal endpointConfigurationName作为字符串，ByVal remoteAddress作为System.ServiceModel.EndpointAddress）
MyBase.New（endpointConfigurationName，remoteAddress）
端接头
Public Sub New（ByVal绑定为System.ServiceModel.Channels.binding，ByVal remoteAddress为System.ServiceModel.EndpointAddress）
MyBase.New（绑定，远程地址）
端接头
_
函数FOOPortType_FOOAufruf（ByVal请求作为FOOAufrufRequest）作为fooaufruresponse实现FOOPortType.FOOAufruf
返回MyBase.Channel.FOOAufruf（请求）
端函数
公共函数FOOAufruf（ByVal foointput As FOOAnfrage）As FOOAnfrage
尺寸无效为FOOAufrufRequest=新的FOOAufrufRequest（）
invaliue.foointput=foointput
尺寸返回为FOOAufrufResponse=CType（Me，FOOPortType）。FOOAufruf（无效）
返回retVal.fooutput
端函数
末级

没有配置文件的原因是您使用了restapi wcf服务，该服务支持http请求来调用该服务，不适合通过生成代理类来调用该服务。您可以将绑定修改为basichttpbinding或使用httpclient调用webhttpbinding服务。这是参考：

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

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

'------------------------------------------------------------------------------
' <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", "4.0.0.0"),  _
 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.CodeDom.Compiler.GeneratedCodeAttribute("System.ServiceModel", "4.0.0.0"),  _
 System.ComponentModel.EditorBrowsableAttribute(System.ComponentModel.EditorBrowsableState.Advanced),  _
 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(),  _
 System.CodeDom.Compiler.GeneratedCodeAttribute("System.ServiceModel", "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