23Jun/110
VB.NET Function: Download Image dari internet ke File
suatu hari saya butuh download file image dari internet untuk diakses di komputer lokal, functionnya adalah sebagai berikut:
Public Function webDownloadImage(ByVal Url As String, Optional ByVal saveFile As Boolean = False, _
Optional ByVal location As String = "C:\") As Image
Dim webClient As New System.Net.WebClient
Dim bytes() As Byte = webClient.DownloadData(Url)
Dim stream As New IO.MemoryStream(bytes)
If saveFile Then My.Computer.FileSystem.WriteAllBytes(Location, bytes, False)
Return New System.Drawing.Bitmap(stream)
End Function
cara pakai:
webDownloadImage("http://www.website.com/image.jpg", True, "C:\temp.jpg")
dan file image yang berada di c:\ bernama temp.jpg bisa anda olah untuk keperluan lainnya, sesuaikan parameternya sendiri sesuai kebutuhan anda 
misal digunakan di picturebox:
Picturebox1.image = webDownloadImage("http://www.website.com/image.jpg", True, "C:\temp.jpg")
atau, kalau nggak mau di save ke file, mau nya stream saja, bisa pakai script ini:
PictureBox1.Image = New System.Drawing.Bitmap(New IO.MemoryStream(New _
System.Net.WebClient().DownloadData(http://www.website.com/image.jpg)))
semoga berguna.
sumber: VBForum
Enjoy this article?
Pages
Categories
- Business Intelligence
- Desktop Programming
- Human Interest
- Internet
- Microsoft Office
- SQL Server
- Troubleshooting
Blogroll
- Agus Suhanto (English)
- Agus Suhanto (Indonesian)
- Alfa Haga
- Ari Artama
- Asia Digital Print
- Bernadus Billy Riantono
- Domain Promo Codes
- Download AXIS Blackberry OS
- Download Excel Data Mining Add In
- Download Indosat Blackberry OS
- Download SMART Blackberry OS
- Download SQL Server R2 Express
- Download SQL Server R2 Trial
- Download XL Blackberry OS
- Erudeye Windows Hosting
- Helmy Faisal
- Infinys System Indonesia
- M. Reza Faisal
- MS Security Essential Definition Update File
- Pemberdayaan Umat Berkelanjutan
- Power Pivot (project gemini)
- Social.MSDN
- Tomita Prakoso
- Willy Marlian's Love Ink
- Wina Sukowati
Archive
- May 2013
- November 2011
- October 2011
- September 2011
- August 2011
- July 2011
- June 2011
- May 2011
- April 2011
- March 2011
- February 2011
- January 2011
- December 2010
- November 2010
- October 2010
- September 2010
- August 2010