Want to protect your cyber security and still get fast solutions? Ask a secure question today.Go Premium

x
  • Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 174
  • Last Modified:

Processing an XML file from an HTTP source

What changes need to be made to the following code (if it can be done) to replace XmlPath with a URL. Currently it calculates the application path.

This is a VB 2005 Windows Application.
Public Sub ReadXML()
        Dim XmlPath As String = String.Empty
        Dim XmlFile As String = AppConstants.XmlFileName
        Dim XmlDoc As New XmlDocument
        Dim XmlNode As XmlNode
        Dim XmlNodes As XmlNode
 
        XmlPath = System.IO.Path.GetDirectoryName( _
           System.Reflection.Assembly.GetExecutingAssembly().GetName().CodeBase)
 
        If XmlPath.Substring(0, 6) = "file:\" Then XmlPath = XmlPath.Substring(6)
 
        Dim XmlFullPath As String = System.IO.Path.Combine(XmlPath, XmlFile)
 
        Dim ImportJob As ImportFile
        Dim SourcePath As String = String.Empty
        Dim DestinationPath As String = String.Empty
 
        Try
            XmlDoc.Load(XmlFullPath)
            For Each XmlNode In XmlDoc.DocumentElement.ChildNodes
                Select Case XmlNode.Name
                    Case "COPYJOB"
                        Dim JobClass As New ImportFile
                        For Each XmlNodes In XmlNode.ChildNodes
                            With JobClass
                                Select Case XmlNodes.Name
                                    Case "SOURCEDIRECTORY"
                                        SourcePath = XmlNodes.InnerText
                                        .SourcePath = XmlNodes.InnerText
                                    Case "DESTINATIONDIRECTORY"
                                        DestinationPath = XmlNodes.InnerText
                                        .DestinationPath = XmlNodes.InnerText
                                    Case "HEADERID"
                                        .HeaderID = XmlNodes.InnerText
                                    Case "IMPORTGROUP"
                                        .ImportGroup = XmlNodes.InnerText
                                    Case "FILEPATTERN"
                                        .FileName = XmlNodes.InnerText
                                    Case "INCLUDESUBDIRS"
                                End Select
                            End With
                        Next
                End Select
            Next
            Me.Show()
 
            ' Check for and process any existing files
            lblMessage.Text = AppConstants.MessageLabelProcessExistingFiles
            Me.Refresh()
            For Each ImportJob In ImportJobCollection
                ImportJob.ProcessExistingFiles()
            Next
            lblMessage.Text = String.Empty
            Me.Refresh()
 
        Catch ex As ApplicationException
            Select Case ex.Message
                Case AppConstants.SourcePathNotFound
                    MsgBox("The source directory " + SourcePath + " could not be located." _
                        + vbCrLf + vbCrLf + "The application is being shut down.", _
                        MsgBoxStyle.Critical + MsgBoxStyle.OkOnly, "Critical Error")
                    Me.Close()
                Case AppConstants.DestinationPathNotFound
                    MsgBox("The destination directory " + DestinationPath + " could not be located." _
                        + vbCrLf + vbCrLf + "The application is being shut down.", _
                        MsgBoxStyle.Critical + MsgBoxStyle.OkOnly, "Critical Error")
                    Me.Close()
            End Select
        Catch ex As System.IO.DirectoryNotFoundException
            MsgBox("The XML configuration file " + XmlFullPath + " could not be located." _
                + vbCrLf + vbCrLf + "The application is being shut down.", _
                MsgBoxStyle.Critical + MsgBoxStyle.OkOnly, "Critical Error")
            Me.Close()
        Catch ex As System.IO.IOException
            MsgBox("The XML configuration file " + XmlFullPath + " could not be located." _
                + vbCrLf + vbCrLf + "The application is being shut down.", _
                MsgBoxStyle.Critical + MsgBoxStyle.OkOnly, "Critical Error")
            Me.Close()
        Catch ex As Exception
            '            
        End Try
    End Sub

Open in new window

0
dbbishop
Asked:
dbbishop
  • 4
  • 3
2 Solutions
 
rlh68Commented:
Simply pass the url to the Load method, like so...
XmlDoc.Load("http://news.google.com/news?hl=en&um=1&tab=wn&q=&nolr=1&output=rss")
Note, I am using google's RSS feed in this example. This if fine since RSS is XML.
 
0
 
dbbishopAuthor Commented:
Okay, clarification:
AppConstants.XmlFileName is a constant that contains the name of the XML File.

XmlPath is a string that will eventually contin the applications' folder path, thus an example youd be:
c:\Program Files\myApplication\

AppConstants.XmlFileName will remain the same and I wish to also make XmlPath a constant that points to an internal URL on our intranet.
Assuming the location on the Intranet is \\192.71.161.34\AppParms\EMIData\ and the file is parms.xml, what would the full URL look like?

The above example has other arguements (hl=, um=, tab=,nolr, output=) Are al required or (I assume) just the output= without the filetype (.xml).
0
 
rlh68Commented:
0
Concerto's Cloud Advisory Services

Want to avoid the missteps to gaining all the benefits of the cloud? Learn more about the different assessment options from our Cloud Advisory team.

 
rlh68Commented:
And if you want to use your url paramters simply append them to your url, using a ? to deliminate between the url and the parameters, like so...
\\192.71.161.34\AppParms\EMIData\parms.xml?hl=,um=,tab=,nolr=,output=
Depending on how you code web server to process the parameters, some or all may be required.
0
 
dbbishopAuthor Commented:
This is not a web app. It is a windows application written in VB 2005. We are getting ready to deploy it and I was asked if we could put the parms file in a single location accessible by all users. It is an internal application but not all users will have access to a common shared drive so I was wondering if we could put the parms file on one of our intranet servers and access it through the application. I have no web development experience.

If XmlDoc.Load("\\192.71.161.34\AppParms\EMIData\parms.xml")
will work exactly the same way as
XmlDoc.Load("C:\Program Files\myApplication\parms.xml")
then I am fine.

0
 
rlh68Commented:

Yes,
XmlDoc.Load(\\192.71.161.34\AppParms\EMIData\parms.xml)
will work as long as the users have access to the network share.

Sorry about mentioning the webserver, when I saw this line I got side tracked,
\\192.71.161.34\AppParms\EMIData\parms.xml?hl=,um=,tab=,nolr=,output=

FYI, if you needed to process parameters (unless it can be done with XML and XSLT) you would need to have a web server process the request. The web server would pick off the parameters, then choose an xml datasource (possibly based on the params) to return to the application. I know this is more than you need but I wanted to mention for future reference.
0
 
dbbishopAuthor Commented:
Thanks. The parameters were added to my reply only because they were in your original comment and I was wanting to know if they were something required as part of the load or just optional arguments. Your original example did not explicitly reference an XML file.
0

Featured Post

Independent Software Vendors: We Want Your Opinion

We value your feedback.

Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!

  • 4
  • 3
Tackle projects and never again get stuck behind a technical roadblock.
Join Now