ورود

View Full Version : سوال: چگونه یک عکس اینترنتی رو توی ImageBox قرار بدم؟؟


mmssoft
پنج شنبه 12 آذر 1388, 14:45 عصر
سلام
میخواستم سوال کنم که چطوری میشه یه عکس که تو اینترنت هست (مثلا با این آدرس : http://www.barnamenevis.org/forum/images/smilies/yahoo/109.gif) چگونه اون رو توی Imagebox به نمایش دربیارم؟؟؟

من با تابع LoadPicture تست کردم ولی نشد!!!!
mpmsoft
پنج شنبه 12 آذر 1388, 14:52 عصر
Dim bData() as Byte
BannerAd = "http://localhost/banner.gif"
bData() = Inet1.OpenURL(BannerAd, icByteArray)
Open "C:\Temp\pic.gif" For Binary Access Write As #1
Put #1, , bData()
Set Picture2.Picture = LoadPicture(bData())
Close #1
mmssoft
پنج شنبه 12 آذر 1388, 14:59 عصر
Dim bData() as Byte
BannerAd = "http://localhost/banner.gif"
bData() = Inet1.OpenURL(BannerAd, icByteArray)
Open "C:\Temp\pic.gif" For Binary Access Write As #1
Put #1, , bData()
Set Picture2.Picture = LoadPicture(bData())
Close #1



من تو این کد کمی تغییرات ایجاد کردم.


Dim bData() As Byte
BannerAd = "http://img.msg.yahoo.com/avatar.php?yids=" & Text1.Text & "&format=jpg"
bData() = Inet1.OpenURL(BannerAd, icByteArray)
Open "C:\Temp\pic.gif" For Binary Access Write As #1
Put #1, , bData()
Set Picture1.Picture = LoadPicture(bData())
Close #1


الان کد بالا چه اشکالی داره که این ارور رو برنامه به من میده : URL is malformed
xxxxx_xxxxx
پنج شنبه 12 آذر 1388, 17:51 عصر
خواندن عکس از اینترنت (http://barnamenevis.org/forum/showthread.php?t=159508)