hente til application fra http

Brug WebRequest. Eksempel:

Imports System
Imports System.IO
Imports System.Net
Imports System.Text

Class MainClass
  Public Shared Sub Main(ByVal args As String())
      Dim req As HttpWebRequest = CType(WebRequest.Create("http://www.microsoft.com/"), HttpWebRequest)
      Dim resp As HttpWebResponse = CType(req.GetResponse, HttpWebResponse)
      Dim instm As Stream = resp.GetResponseStream
      Dim outstm As Stream = New FileStream("C:\ms.html", FileMode.CreateNew, FileAccess.Write)
      Dim b(1000) As Byte
      Dim n As Integer
      n = instm.Read(b, 0, b.Length)
      While (n > 0)
          outstm.Write(b, 0, n)
          n = instm.Read(b, 0, b.Length)
      End While
      outstm.Close
      instm.Close
      resp.Close
  End Sub
End Class

og et svar

Pisse godt...

Hvis nu jeg skal have 5 id'er havde jeg tænkt at lave en for->next

Men skal jeg køre den hele i den for->next ?

Og hvad med filnavnet... Det har jeg ikke... Det modtager den fra siden ? altså fra
http://www.jegvilgerne.dk/default.asp?id=99999

Og hvad nu hvis det er en zip fil den modtager og IKKE en html side =?

Det er jo hele 3 ønsker på en gang !

:-)

Jeg prøver lige at bixe noget.

SUper...

Jeg skal gerne smide nogle flere point...

Jeg sidder selv og leger lidt, men jeg er jo ikke HAJ som dig :)

Jeg har ikke rigtigt mulighed for at teste det og jeg ved ikke hvad din server
sender af headere, men her er et forslag:

Imports System
Imports System.IO
Imports System.Net
Imports System.Text

Class MainClass
  Public Shared Sub Download(url As String)
      Dim req As HttpWebRequest = CType(WebRequest.Create(url), HttpWebRequest)
      Dim resp As HttpWebResponse = CType(req.GetResponse, HttpWebResponse)
      Dim instm As Stream = resp.GetResponseStream
      Dim fnm As String = resp.Headers("Content-Disposition").Split("""")(1)
      Dim outstm As Stream = New FileStream(fnm, FileMode.CreateNew, FileAccess.Write)
      Dim b(1000) As Byte
      Dim n As Integer
      n = instm.Read(b, 0, b.Length)
      While (n > 0)
          outstm.Write(b, 0, n)
          n = instm.Read(b, 0, b.Length)
      End While
      outstm.Close
      instm.Close
      resp.Close
  End Sub
  Public Shared Sub Main(ByVal args As String())
      Dim id() As Integer = { 123, 456, 789 }
      Dim i As Integer
      For i = 1 To 3
          Call Download("http://www.domain.dk/download.asp?id=" & id(i))
      Next
  End Sub
End Class

Her er min egen løsning, som jeg lige har fixet...

Dim filnavn
        Dim navn
        Dim size, l, startv, stopv
        startv = 100
        stopv = 500
        Dim i
        For i = startv To stopv
            Label1.Text = i & " -> " & stopv & ""
            Label1.Update()
            Try
                Dim req As HttpWebRequest = CType(WebRequest.Create("http://server/download.asp?str_id=" & i & "&d=1&t=f"), HttpWebRequest)
                Dim resp As HttpWebResponse = CType(req.GetResponse, HttpWebResponse)
                filnavn = resp.ResponseUri.AbsoluteUri.Split("/")
                navn = filnavn(UBound(filnavn))
                size = resp.ContentLength()
                Dim instm As Stream = resp.GetResponseStream
                Dim outstm As Stream = New FileStream("C:\" & navn & "", FileMode.CreateNew, FileAccess.Write)
                Dim b(10000) As Byte
                Dim n As Integer
                ProgressBar1.Value = 0
                ProgressBar1.Minimum = 0
                ProgressBar1.Maximum = Fix(size / 10000)

                ProgressBar1.Step = 1

                n = instm.Read(b, 0, b.Length)
                l = 0
                While (n > 0)
                    outstm.Write(b, 0, n)
                    n = instm.Read(b, 0, b.Length)
                    l = l + b.Length
                    ProgressBar1.PerformStep()
                    Label2.Text = l & "-> " & size
                    Label2.Update()
                End While
                outstm.Close()
                instm.Close()
                resp.Close()
            Catch ex As Exception

            End Try

        Next





Og den virker som den skal :)


Men du får lige point... Men hvis jeg nu "falder" over noget som ikke fungere, så skriver jeg lige... men tak (som altid)

Så er der krise:

Cannot handle redirect from http/https protocols to other dissimilar ones


Hvad kan jeg gøre ved det ?

Den bliver smidt vidre til en ftp... Og det kan den ikke finde ud af... Hvordan fikser man det ?

Ups. Problem !

Kan man ikke få det som den modtager of så lave en ny ftp request ?

Principielt kan man jo alt.

Men jeg er lidt bange for at vi skal ned på socket niveau.

Connecte til port 80, sende valid HTTP request, læse response, se FTP URL,
connecte til FTP server port 21, åbne data connection og retreive filen.

ftp forbindelsen som den opretter, har et temp password og brugerid som kun virker lige der, derfor skal det ske lige efter...

Kan du bakse noget sammen ?

Måske

det ville være dejligt... :)

Jeg smider nogle flere point

ville du kigge på det

Ja

Men det er ikke noget man bare laver - og jeg skal også lave andet en gang
imellem f.eks. sove

Det er jeg helt med på, men det kunne jo være at du havde noget liggende... :)

Ville du kigge på det arne ?

Kan man ikke få den tilbage ftp adresse som kommer, som webrequest ikke kan finde ud af og så sende den til en iexplorer med det samme ?

Jeg tror jeg melder pas.