خواندن عکس از اینترنت

[SAEID2009]

سلام به همه اساتید محترم .
من یک برنامه می خوام که وقتی فرم load شد عکس رو از روی از اینترنت بخونه و اون رو درون image نشون بده و بعد اگر کسی مایل به ذخیره عکس و دانلود اون رو داشت بعد روی دکمه دانلود کلیک کنه تا اون ذخیره بشه.
اگر کسی برنامه و یا سورسی داره بزاره که براش تا آخر عمرش دعا میکنم.
با تشکر

[xxxxx_xxxxx]

سلام،
وقتي شما تو اينترنت با عكسي مواجه ميشيد درواقع اون عكس رو دانلود كرديد. همين صفحه اي كه الان مشاهده مي كنيد همه اجزاءش دانلود شده محسوب ميشه. مثلاً آواتار ها. اما همه اينها توسط مرورگرتون مديريت ميشه و در جايي ذخيره ميشه.

شما هم بايد همين كارو كنيد. يعني عكس رو دانلود كنيد حالا يا جايي ذخيرش كنيد يا تو حافظه (ram) باشه و بعد تو شئ Image نمايشش بديد.
به دستور زير توجه كنيد:


Dim n() As Byte
n() = Inet1.OpenURL("http://barnamenevis.org/forum/image.php?u=46030&dateline=1234901804", 1)
يك آرايه از نوع بايت ايجاد مي كنيم
توسط ابزار Inet عكس رو از اينترنت مي خونيم و محتواش رو تو آرايه مون ميريزيم.
حالا آرايه ()n حاوي عكس مورد نظر هست. شما يا بايد اونو مستقيم وارد شئ Image كنيد و يا اول يه جايي تو هارد ذخيرش كنيد بعد اون فايل رو تو شئ Image لود كنيد.
من كار دوم رو كردم. يعني نتونستم خود آرايه رو مستقيم به عنوان عكس به Image بدم.
برنامه ضميمه رو نگاه كنيد.

[SAEID2009]

خیلی خیلی ممنونم دوست عزیز.
امیدورم هر جا که هستی موفق باشی.
با تشکر

[mostafa_bahar]

دوستان من می خوام در حین دانلود حجم دانلود شده را هم بزنه حجم کل رو می تونم بگیرم ولی حجم دانلود شده را نه لطفا کمک کنید

[parselearn]

http://barnamenevis.org/forum/showthread.php?t=154362