save an xml stream to a file

[kieran]

Hi,

I am trying to download a file through a proxy which is causing me
lots of permission erors.

anyway after hacking at any and all code i could get my hands on, i
got this far, where the xml file is in the sLine stream. now i want
to save this stream to a local xml file but am having trouble doing
this.

<code>
Dim sURL As String
sURL = "http://test/rss.xml"

Dim wrGETURL As WebRequest
wrGETURL = WebRequest.Create(sURL)
Dim saByPassList() As String
Dim myProxy As New WebProxy("proxy:8080", True, saByPassList,
New NetworkCredential("user", "password", "_domain"))

myProxy.BypassProxyOnLocal = True

wrGETURL.Proxy = myProxy
'wrGETURL.Proxy = WebProxy.GetDefaultProxy()

Dim objStream As Stream
objStream = wrGETURL.GetResponse.GetResponseStream()

Dim objReader As New StreamReader(objStream)
Dim sLine As String = ""
Dim i As Integer = 0

Do While Not sLine Is Nothing
i += 1
sLine = objReader.ReadLine
If Not sLine Is Nothing Then
Console.WriteLine("{0}:{1}", i, sLine)
End If
Loop

Console.ReadLine()

</code>

Does anyone have any ideas for this.

[Ken Tucker [MVP]]

Hi,

Did you try something like this?

Dim dsXML As New DataSet
dsXML.ReadXml("http://msdn.microsoft.com/rss.xml")
dsXML.WriteXml("rss.xml")

Ken
---------------------
"kieran" <ki********@hotmail.com> wrote in message
news:b3*************************@posting.google.co m:

Hi,

I am trying to download a file through a proxy which is causing me
lots of permission erors.

anyway after hacking at any and all code i could get my hands on, i
got this far, where the xml file is in the sLine stream. now i want
to save this stream to a local xml file but am having trouble doing
this.

<code>
Dim sURL As String
sURL = "http://test/rss.xml"

Dim wrGETURL As WebRequest
wrGETURL = WebRequest.Create(sURL)
Dim saByPassList() As String
Dim myProxy As New WebProxy("proxy:8080", True, saByPassList,
New NetworkCredential("user", "password", "_domain"))

myProxy.BypassProxyOnLocal = True

wrGETURL.Proxy = myProxy
'wrGETURL.Proxy = WebProxy.GetDefaultProxy()

Dim objStream As Stream
objStream = wrGETURL.GetResponse.GetResponseStream()

Dim objReader As New StreamReader(objStream)
Dim sLine As String = ""
Dim i As Integer = 0

Do While Not sLine Is Nothing
i += 1
sLine = objReader.ReadLine
If Not sLine Is Nothing Then
Console.WriteLine("{0}:{1}", i, sLine)
End If
Loop

Console.ReadLine()

</code>

Does anyone have any ideas for this.

--
Outgoing mail is certified Virus Free.
Checked by AVG Anti-Virus (http://www.grisoft.com).
Version: 7.0.230 / Virus Database: 263.3.6 - Release Date: 6/25/2004

[kieran]

Cheers for response Ken.

That would work fine only for the proxy i have to go through so i
would need to feed the proxy and network credentials into the dataset
connection.
I have tried doing this but can't get it to work. Is this possible
using the code.

i am a newbie so am probably completely off track. I would greatly
appreciate if you could simply explain how to do this, or point me to
a good tutorial.

Cheers for help.
Ken Tucker [MVP] <vb***@bellsouth.net> wrote in message news:<uz**************@TK2MSFTNGP12.phx.gbl>...

Hi,

Did you try something like this?

Dim dsXML As New DataSet
dsXML.ReadXml("http://msdn.microsoft.com/rss.xml")
dsXML.WriteXml("rss.xml")

Ken
---------------------
"kieran" <ki********@hotmail.com> wrote in message
news:b3*************************@posting.google.co m:

Hi,

I am trying to download a file through a proxy which is causing me
lots of permission erors.

anyway after hacking at any and all code i could get my hands on, i
got this far, where the xml file is in the sLine stream. now i want
to save this stream to a local xml file but am having trouble doing
this.

<code>
Dim sURL As String
sURL = "http://test/rss.xml"

Dim wrGETURL As WebRequest
wrGETURL = WebRequest.Create(sURL)
Dim saByPassList() As String
Dim myProxy As New WebProxy("proxy:8080", True, saByPassList,
New NetworkCredential("user", "password", "_domain"))

myProxy.BypassProxyOnLocal = True

wrGETURL.Proxy = myProxy
'wrGETURL.Proxy = WebProxy.GetDefaultProxy()

Dim objStream As Stream
objStream = wrGETURL.GetResponse.GetResponseStream()

Dim objReader As New StreamReader(objStream)
Dim sLine As String = ""
Dim i As Integer = 0

Do While Not sLine Is Nothing
i += 1
sLine = objReader.ReadLine
If Not sLine Is Nothing Then
Console.WriteLine("{0}:{1}", i, sLine)
End If
Loop

Console.ReadLine()

</code>

Does anyone have any ideas for this.