Save Gambar Dari Webpage

[darkranger 3]

kita boleh bukak website dgn VB menggunakan Component Microsoft Internet Control

kalau gambar tu dah dlm picture box kita boleh save gunakan command ni je

savepicture PictureBox1.Picture, "c:\gambar.jpg"

tapi, sesapa tau tak cara nak save gambar dari alamat webpage

contoh : http://us.i1.yimg.com/us.yimg.com/i/ww/m6v9b.gif

P/S: currently using VB6

[aRmsTer 0]

x faham...

pasal bila aku bukak pakai IE n klik file>save dah boleh je save gambar tu..

[darkranger 3]

maksud aku pakai coding VB la.... tanpa guna right-click

contohnya kalau buat satu command button, klik button tu terus save.

[darkranger 3]

ok aku dah tau dah...

penat carik kat planetsourcecode.com

ni aku dah ringkaskan kalau korang nak try

1. buat program baru macam biasa, ada satu command button

2. tambah komponen baru Inet1

-----> Project-Components-Microsoft Internet Transfer Control

3. taip coding ni

Private Sub Command1_Click()

myUrl = "http://www.geocities.com/viewmalaysia/river.jpg"

myFile = "c:\river.jpg"

Dim myData() As Byte

myData() = Inet1.OpenURL(myUrl, icByteArray)

Open myFile For Binary Access Write As #1

Put #1, , myData()

Close #1

MsgBox "Download Completed", vbInformation, "Thank you"

End Sub

4. lepas dpt mesej download complete, bukak fail c:\river.jpg

wassalam...

[aRmsTer 0]

huh?

lg la aku xpaham... pasal kalau setakat nak buat mcm tu... buat apa nak menyusahkan diri pdhal ada cara lain yg jauh lg mudah... lain la kalau buat program yg boleh save gambar dr webpage (tapi... klik kanan>save this picture @ klik file>save as pun lagi senang...).. aku betul2 xpaham kenapa ko tanya mcmmana nak buat n kenapa mesti buat...

[darkranger 3]

sebab aku buat satu program yang automatik download fail gambar ni setiap 3 saat...

http://images.earthcam.com/ec_metros/ourcams/fridays.jpg

apa yg korang dapat ialah.... gambar suasana times square, new york secara live 24 jam sehari.

pseudocode utk program ni.

1. download gambar dari website tadi dan save ke dalam file cth c:\fridays.jpg dgn coding VB di atas.

2. bila download complete, buka gambar tadi dgn picturebox. Gunakan Inet1.StillExecuting=False utk pastikan download telah complete

3. buat timer utk repeat proses di atas setiap 3 saat