Solved

Web Reference and compile on-the-fly

Posted on 2008-10-09
4
742 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
ID: 22680749
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
ID: 22683003
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
ID: 22683083
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
ID: 22687245
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

Is Your Active Directory as Secure as You Think?

More than 75% of all records are compromised because of the loss or theft of a privileged credential. Experts have been exploring Active Directory infrastructure to identify key threats and establish best practices for keeping data safe. Attend this month’s webinar to learn more.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

This document covers how to connect to SQL Server and browse its contents.  It is meant for those new to Visual Studio and/or working with Microsoft SQL Server.  It is not a guide to building SQL Server database connections in your code.  This is mo…
Today I had a very interesting conundrum that had to get solved quickly. Needless to say, it wasn't resolved quickly because when we needed it we were very rushed, but as soon as the conference call was over and I took a step back I saw the correct …
This video shows how to remove a single email address from the Outlook 2010 Auto Suggestion memory. NOTE: For Outlook 2016 and 2013 perform the exact same steps. Open a new email: Click the New email button in Outlook. Start typing the address: …
With Secure Portal Encryption, the recipient is sent a link to their email address directing them to the email laundry delivery page. From there, the recipient will be required to enter a user name and password to enter the page. Once the recipient …

948 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

19 Experts available now in Live!

Get 1:1 Help Now