Solved

Web Reference and compile on-the-fly

Posted on 2008-10-09
4
726 Views
Last Modified: 2013-12-17
I have a wsdl file.  I can create a new Class Library project in Visual Studio, add the wsdl file as a Web Reference, and then compile the project into a DLL.

What I would like to do is write a program that will automate this.  The user will specify the path to the wsdl file and click a button.  The program will then automatically do the steps up above.

I am familiar with compiling on-the-fly like this, but am not sure how to incorporate adding the Web Reference.

How can I do this?

Thanks,
Chris
0
Comment
Question by:chlade
  • 2
  • 2
4 Comments
 
LVL 37

Expert Comment

by:gregoryyoung
Comment Utility
command line .. http://msdn.microsoft.com/en-us/library/7h3ystb6(VS.71).aspx

wsdl http://your.com/url

you can also specify the name of the .cs file to generate ... building the .cs from the command line is also extremely easy.

csc /R:dllname.dll file.cs

Cheers,

Greg
0
 

Author Comment

by:chlade
Comment Utility
Is there a way to do this within code?  Otherwise, I need to shell out, run wsdl.exe to create a file, read the file in, compile, etc.  If I could do this all in memory, that would be ideal.  But perhaps that's not possible?
0
 
LVL 37

Accepted Solution

by:
gregoryyoung earned 500 total points
Comment Utility
I don't know of a call for the wsdl part ... but you can do the rest just using say the CSharpCodeProvider to do the compilation etc (and generate an in memory assembly to load)

Cheers,

Greg
0
 

Author Comment

by:chlade
Comment Utility
Thanks.  That got me going.  I ended up finding more information and created a small test app that will do it for me.  Here is the code that I ended up with:

Imports System.CodeDom

Imports System.CodeDom.Compiler

Imports System.Security.Permissions

Imports System.Web.Services.Description
 

Public Class Module1
 

    Public Shared Sub Main()
 

        Dim WsdlFileName As String = "test.wsdl"

        Dim DllFileName As String = "test.dll"
 

        Try

            CompileWsdlIntoDll(WsdlFileName, DllFileName)

            MsgBox("Successfully compiled " & WsdlFileName & " into " & DllFileName & ".")

        Catch ex As Exception

            MsgBox("Error compiling WSDL into a DLL." & ControlChars.CrLf & ControlChars.CrLf & _

                ex.Message)

        End Try
 

    End Sub
 

    <SecurityPermissionAttribute(SecurityAction.Demand, Unrestricted:=True)> _

    Public Shared Sub CompileWsdlIntoDll(ByVal WsdlFileName As String, ByVal DllFileName As String)
 

        Dim ResultMsg As String = ""
 

        Dim description As ServiceDescription = ServiceDescription.Read(WsdlFileName, True)
 

        ' Initialize a service description importer. 

        Dim sdi As New ServiceDescriptionImporter()

        sdi.ProtocolName = "Soap"

        sdi.AddServiceDescription(description, Nothing, Nothing)
 

        ' Generate a proxy client. 

        sdi.Style = ServiceDescriptionImportStyle.Client
 

        ' Generate properties to represent primitive values. 

        sdi.CodeGenerationOptions = System.Xml.Serialization.CodeGenerationOptions.GenerateProperties
 

        ' Initialize a Code-DOM tree into which we will import the service. 

        Dim nmspace As New CodeNamespace()

        Dim unit1 As New CodeCompileUnit()

        unit1.Namespaces.Add(nmspace)
 

        ' Import the service into the Code-DOM tree. This creates proxy code that uses the service. 

        Dim warning As ServiceDescriptionImportWarnings = sdi.Import(nmspace, unit1)
 

        If warning = 0 Then

            ' Generate and print the proxy code in C#. 

            Dim provider As CodeDomProvider = CodeDomProvider.CreateProvider("VisualBasic")
 

            ' Compile the assembly with the appropriate references 

            Dim refs As String() = New String(1) {"System.Web.Services.dll", "System.Xml.dll"}

            Dim cp As New CompilerParameters(refs)

            cp.OutputAssembly = "test.dll"

            Dim cr As CompilerResults = provider.CompileAssemblyFromDom(cp, unit1)
 

            For Each ce As CompilerError In cr.Errors

                ResultMsg &= String.Format("  {0}", ce.ToString()) & ControlChars.CrLf

            Next
 

        Else

            ' Print an error message. 

            ResultMsg &= "Warning: " & warning.ToString

        End If
 

        If ResultMsg <> "" Then

            Throw New Exception("Error compiling WSDL (" & _

                "WSDL FileName: " & WsdlFileName & _

                ", DLL FileName: " & DllFileName & _

                ", Compile Messages: " & ResultMsg & _

                ")")

        End If
 

    End Sub
 

End Class

Open in new window

0

Featured Post

How your wiki can always stay up-to-date

Quip doubles as a “living” wiki and a project management tool that evolves with your organization. As you finish projects in Quip, the work remains, easily accessible to all team members, new and old.
- Increase transparency
- Onboard new hires faster
- Access from mobile/offline

Join & Write a Comment

It’s quite interesting for me as I worked with Excel using vb.net for some time. Here are some topics which I know want to share with others whom this might help. First of all if you are working with Excel then you need to Download the Following …
Wouldn’t it be nice if you could test whether an element is contained in an array by using a Contains method just like the one available on List objects? Wouldn’t it be good if you could write code like this? (CODE) In .NET 3.5, this is possible…
This demo shows you how to set up the containerized NetScaler CPX with NetScaler Management and Analytics System in a non-routable Mesos/Marathon environment for use with Micro-Services applications.
Polish reports in Access so they look terrific. Take yourself to another level. Equations, Back Color, Alternate Back Color. Write easy VBA Code. Tighten space to use less pages. Launch report from a menu, considering criteria only when it is filled…

762 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question

Need Help in Real-Time?

Connect with top rated Experts

7 Experts available now in Live!

Get 1:1 Help Now