ذخیره و نمایش عکس

[aleas2]

سلام خسته نباشید دوستان این آدرس عکسه
http://irnews110.ir/hcf

چطور میتونم این عکس ذخیره کنم و در Picture1 نمایش بدم با این کد انجام میدم ذخیره میکنه ولی نمایش نمیده



Dim n() As Byte
n() = Inet1.OpenURL("http://irnews110.ir/hcf", 1)
Open App.Path & "\aa.jpg" For Binary As #1
Put #1, , n()
Close #1
Image1.Picture = LoadPicture(App.Path & "\aa.jpg")

[setroyd]

چون نوع فایل شما png هست یا..... که imagebox نشون نمیده شما

n() = Inet1.OpenURL("http://www.thegreencarwebsite.co.uk/cms-images/BLuebird-new-electric-car.jpg", 1)

این خط رو جایگزین کن ببین مشکلی نیست . پسوند فایل باید با خود فایلت مچ باشه مثلا bmp رو jpg ذخیره کنی و برعکس مشکلی نیست چون vb به صورت پیش فرض میخونه جفتشو ولی چون png رو ساپورت نمیکنه نمیتونی این کارو کنی .

[aleas2]

سلام بله کار کرد
خب بالاخره راه حل چی راهی نیست فایل با jpg ذخیره کرد که vb6 هم بخونش؟

نکته: عکس میخوام حتما در کنترل Picture نمایش داده بشه

[SilverLearn]

درود

به نظر بنده اول فایل رو ذخیره کنید و سپس convert کنید به مثلا jpg و یا bmp و بعد نمایش بدید

با احترام

[aleas2]

خب وقتی ذخیره شد چطور توسط vb6 تبدیل بکنم به jpg?

[SilverLearn]

لینک زیر می تونه بهتون کمک کنه

http://www.smart-activex.com/image-convert/

[aleas2]

این برنامه تریال هسته که در هر بار اجرا پیغامی نمایش میده که مشکل سازه راه دیگه ای نداره؟

[setroyd]

چیو میخوای به چی convert کنی ؟ شما برای خوندن از ocx alpha image control استفاده کن که تقریبا همه پسوند ها رو ساپورت میکنه و نیازی به convert نیست

[aleas2]

میخوام عکس png به jpg تبدیل کنم تا بتونم فقط فقط در کنترل Picture نمایش بدم

[setroyd]

فک کنم میدونی png میتونه transparent باشه و هم بدون transparent ولی jpg این قابلیت رو نداره برای تبدیل به jpg کدش فوق العاده سادس میایم با api فایل png رو load میکنیم تو picture box و به صورت bmp یا jpg تبدیل میکنیم ! به همین راحتی . ولی transparent این وسط میپره ! شما یه کوچولو تحقیق کن نتونستی بگو کدش رو برات مینویسم

[aleas2]

بی زحمت کد بزاری ممنون میشم چون خودم چندین بار تلاش کردم نشد تحقیقاتم بدرد نخورد همش با ocx تریال مواجه میشم