Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.

Download file .Net -> VB

[es] :: .NET :: Download file .Net -> VB

[ Pregleda: 2552 | Odgovora: 1 ] > FB > Twit

Postavi temu Odgovori

Autor

Pretraga teme: Traži
Markiranje Štampanje RSS

icobh
Igor Pejašinović
Network Admin
Navigo SC d.o.o.
Banja Luka

Član broj: 18738
Poruke: 1319
*.teol.net

Sajt: www.nsc.ba


+4 Profil

icon Download file .Net -> VB10.04.2004. u 19:47 - pre 243 meseci
Ljudi ovo bi trebao biti kod za skidanje sa određene stranice fajl. Kod je napisan u vb.net a meni treba u VB.Pa bih molio nekog da to prevede ili ako neko zna takav primjer za VB.Evo koda:
Code:

vbc /r:System.Net.dll /r:System.IO.dll webretrieve.vb

Source Code 

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


Class WebRetrieve

Public Shared Sub Main()
Dim wr As HttpWebRequest = CType(WebRequestFactory.Create("http://maps.weather.com/
 web/radar/us_orl_ultraradar_large_usen.jpg"), HttpWebRequest)
Dim ws As HttpWebResponse = CType(wr.GetResponse(), HttpWebResponse)
Dim str As Stream = ws.GetResponseStream()
Dim inBuf(100000) As Byte
Dim bytesToRead As Integer = CInt(inBuf.Length)
Dim bytesRead As Integer = 0
While bytesToRead > 0
Dim n As Integer = str.Read(inBuf, bytesRead, bytesToRead)
If n = 0 Then
Exit While
End If
bytesRead += n
bytesToRead -= n
End While
Dim fstr As New FileStream("weather.jpg", FileMode.OpenOrCreate, FileAccess.Write)
fstr.Write(inBuf, 0, bytesRead)
str.Close()
fstr.Close()
End Sub 'Main
End Class 'WebRetrieve 

I ♥ ♀

Ovaj post je zlata vrijedan!
 
Odgovor na temu

mmix
Miljan Mitrović
Profesorkin muz
Passau, Deutschland

SuperModerator
Član broj: 17944
Poruke: 6041



+4631 Profil

icon Re: Download file .Net -> VB11.04.2004. u 13:08 - pre 243 meseci
Ekvivalentan učinak preko COMa možeš dobiti upotrebom IXmlHttpRequest interfejsa iz msxml2+ biblioteke (ide uz IE)

Code:

Dim HttpReq As New MSXML2.XMLHTTP40
  
HttpReq.open "GET", "http://XMLSampleServer/CatalogServer.asp", False
HttpReq.send


Za detalje o ovom pogledaj msdn:
http://msdn.microsoft.com/libr...l_obj_ixmlhttprequest_741g.asp

Iako je ovaj objekat namenjen skidanju/slanju XMLova na web server, našao je svoju primenu u load-on-demand i post-on-demand scenarijima za bilo koji oblik podataka.
Sloba je za 12 godina promenio antropološki kod srpskog naroda. On je od jednog naroda koji je bio veseo, pomalo površan, od jednog naroda koji je bio znatiželjan, koji je voleo da vidi, da putuje, da upozna,
od naroda koji je bio kosmopolitski napravio narod koji je namršten, mrzovoljan, sumnjicav, zaplašen, narod koji se stalno nešto žali, kome je stalno neko kriv… - Z.Đinđić
 
Odgovor na temu

[es] :: .NET :: Download file .Net -> VB

[ Pregleda: 2552 | Odgovora: 1 ] > FB > Twit

Postavi temu Odgovori

Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.