Crap يك عكس- جدا كردن قسمتي از يك عكس

سلام خدمت دوستا و اساتيد عزيز انجمن. بازم من اومدم با يه سوال و يه زحمت ديگه!!!
كوتاش كنم:
مي خوام قسمتي از عكس رو Crap كنم. يعني از مختصات پيكسلي [1,1] تا [m,n] رو داشته باشم و بقيه حذف بشه. كدشو ميخوام.
اگه مي تونين كدشو بزارين. ممنون.
توجه كنيد كه مي خوام بقيش حذف بشه. يعني انگار عكس من از اول در سايز [m,n] بوده.
اينو براي اين مي خوام كه اگه خاصيت Streach عكس فعال باشه بعد از اون كه بقيش حذف بشه تصوير درست اندازة سايز Timage بشه.ok.
اگه منظورم و نفهميدين بگين تا بيشتر توضيح بدم.
قربووووووووووون همة اساتيد.
باي
:10:

نقل قول:

---

نوشته شده توسط romixery [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

سلام خدمت دوستا و اساتيد عزيز انجمن. بازم من اومدم با يه سوال و يه زحمت ديگه!!!
كوتاش كنم:
مي خوام قسمتي از عكس رو Crap كنم. يعني از مختصات پيكسلي [1,1] تا [m,n] رو داشته باشم و بقيه حذف بشه. كدشو ميخوام.
اگه مي تونين كدشو بزارين. ممنون.
توجه كنيد كه مي خوام بقيش حذف بشه. يعني انگار عكس من از اول در سايز [m,n] بوده.
اينو براي اين مي خوام كه اگه خاصيت Streach عكس فعال باشه بعد از اون كه بقيش حذف بشه تصوير درست اندازة سايز Timage بشه.ok.
اگه منظورم و نفهميدين بگين تا بيشتر توضيح بدم.
قربووووووووووون همة اساتيد.
باي
:10:

---

سلام
اين دو كامپوننت را ببينيد(به همراه سورس)

کد:

---

http://www.torry.net/vcl/graphics/effects/ClipComponent.zip
http://www.torry.net/vcl/graphics/effects/CropImage0.91FixedNon-OfficialClipComponent.zip

---

به اين صفحه هم سري بزنيد :

کد:

---

http://www.torry.net/quicksearchd.php?String=crop+image&Title=No

---

نانفورس عزيز سلام
ازتون ممنونم كه اين اين لينكا رو گذاشتين. دانلودشون كردم ولي هنوز نصبشون نكردم.
ولي يعني دلفي براي اين كار هيچ كدي رو نداره؟ واقعا عجيبه!!!!!:18:
به هر حال ممنون. نصبشون مي كنم بعد خبرتون مي كنم كه بدردم خورد يا نه.
باي

نقل قول:

---

نوشته شده توسط romixery [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

نانفورس عزيز سلام
ازتون ممنونم كه اين اين لينكا رو گذاشتين. دانلودشون كردم ولي هنوز نصبشون نكردم.
ولي يعني دلفي براي اين كار هيچ كدي رو نداره؟ واقعا عجيبه!!!!!:18:
به هر حال ممنون. نصبشون مي كنم بعد خبرتون مي كنم كه بدردم خورد يا نه.
باي

---

سلام
اين كامپوننتها كدش با دلفي است، دليلي نداره كه دلفي همه افكت هاي مربوط به تصوير را بصورت آماده داشته باشد، دلفي يك محيط برنامه نويسي است نه استوديو ويرايش تصوير!
ولي اين امكان را به شما ميدهد كه بوسيله نوشتن كد تمام نيازهاي خودتان (البته در زمينه برنامه نويسي) را رفع كنيد.

يادم رفت بگم : Crop نه Crap

نقل قول:

---

نوشته شده توسط NoneForce [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

سلام
اين كامپوننتها كدش با دلفي است، دليلي نداره كه دلفي همه افكت هاي مربوط به تصوير را بصورت آماده داشته باشد، دلفي يك محيط برنامه نويسي است نه استوديو ويرايش تصوير!
ولي اين امكان را به شما ميدهد كه بوسيله نوشتن كد تمام نيازهاي خودتان (البته در زمينه برنامه نويسي) را رفع كنيد.

يادم رفت بگم : Crop نه Crap

---

راست ميگن
دلفي يه زبان برنامه نويسي هست نه ابزار توليد برنامه!
اگر بخواد همه چيز رو داخل خودش داشته باشه محدود ميشه و ارزشش هم كم.
اصل زبان برنامه نويسي اينه كه اولا تا بينهايت جاي گسترش داشته باشه و بتونيم توش خلاقيت داشته باشيم نه اينكه كمپوننتهاي آماده رو بذاريم تو فرم و تموم!

نقل قول:

---

نوشته شده توسط H A M E D [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

راست ميگن
دلفي يه زبان برنامه نويسي هست نه ابزار توليد برنامه!
اگر بخواد همه چيز رو داخل خودش داشته باشه محدود ميشه و ارزشش هم كم.
اصل زبان برنامه نويسي اينه كه اولا تا بينهايت جاي گسترش داشته باشه و بتونيم توش خلاقيت داشته باشيم نه اينكه كمپوننتهاي آماده رو بذاريم تو فرم و تموم!

---

سلام
عزيزان من خودم هم مي دونم كه دلفي همه چيزو نداره و انتظار هم ندارم كه داشته باشه.
من فقط گفتم كه كدي داره كه بشه سايز عكس رو تغيير داد يا نه؟ همين. نگفتم كه چرا اين كد رو نداره.
اينو گفتم چون نمونة اين كدو توي وي بي دات نت ديده بودم. فكر كردم دلفي هم داره.OK؟
حالا اگه كسي مي دونه كدي هست كه بشه با اون اندازة عكس را تغيير داد (نه اندازة فريم تصوير-مثلا وقتي عرضشو 500 مي زنم از اون تصوير كه عرضش 600، 500 تاشو مي خوام و 100 تاش بره) خواهش مي كنم كه بزارتش. اگه هم شما ابتكاري به نظرتون مي رسه بگين. تا با ابتكار كارمنو حل كنيم. در ضمن چشم!! Crop. از اين به بعد درستشو مي نويسم.
با تشكر از همة اين اساتيد:10:

اصلا این که احتیاجی به کد نداره شما stretch تصویر را اگر false کنید فقط همان قطعه ای از تصویر را نشان می دهد که اندازه image را مشخص کردید.

نقل قول:

---

نوشته شده توسط ahmad1358 [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

اصلا این که احتیاجی به کد نداره شما stretch تصویر را اگر false کنید فقط همان قطعه ای از تصویر را نشان می دهد که اندازه image را مشخص کردید.

---

سلام
واقعا جواب خوبي داديد، خب حالا اگر اون تصوير را ذخيره كنيم با اندازه واقعي ذخيره مي شود يا با اندازه اي كه مي بينيم؟

اين كد را ببينيد :

کد:

---

procedure ResizeImage(Source : TBitmap ; Width, Height : integer);
var
 bmpTemp : TBitmap;
begin
 bmpTemp := TBitmap.Create;
 bmpTemp.HandleType := bmDDB;
 bmpTemp.Palette := CopyPalette(Source.Palette);
 bmpTemp.Assign(Source);
 bmpTemp.Width := Width;
 bmpTemp.Height := Height;
 BitBlt(bmpTemp.Handle,0,0,Width,Height,Source.Handle,0,0,SRCCOPY);
 Source.Assign(bmpTemp);
 bmpTemp.Free;
end;

---

نحوه فراخواني :

کد:

---

ResizeImage(Image1.Picture.Bitmap,100,200);

---

نقل قول:

---

نوشته شده توسط NoneForce [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

سلام
واقعا جواب خوبي داديد، خب حالا اگر اون تصوير را ذخيره كنيم با اندازه واقعي ذخيره مي شود يا با اندازه اي كه مي بينيم؟

اين كد را ببينيد :

کد:

---

procedure ResizeImage(Source : TBitmap ; Width, Height : integer);
var
 bmpTemp : TBitmap;
begin
 bmpTemp := TBitmap.Create;
 bmpTemp.HandleType := bmDDB;
 bmpTemp.Palette := CopyPalette(Source.Palette);
 bmpTemp.Assign(Source);
 bmpTemp.Width := Width;
 bmpTemp.Height := Height;
 BitBlt(bmpTemp.Handle,0,0,Width,Height,Source.Handle,0,0,SRCCOPY);
 Source.Assign(bmpTemp);
 bmpTemp.Free;
end;

---

نحوه فراخواني :

کد:

---

ResizeImage(Image1.Picture.Bitmap,100,200);

---

---

استاد نانفورس عزيز سلام
جداٌ كه دستون درد نكنه. كدا بدردم خورد.
ولي چه جوري شما اين كدا رو پيدا مي كنين. من هر كتابي رو گرفتم هيچ كدوم در مورد اين كدا چيزي ندارن. اگه ميشه يه منبع خوب براي دلفي به من پيشنهاد كنيد تا ديگه مجبور نباشين سوالاي ناشيانة من رو جواب بدين. ممنون
باي:11:

نقل قول:

---

نوشته شده توسط romixery [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

استاد نانفورس عزيز سلام
جداٌ كه دستون درد نكنه. كدا بدردم خورد.
ولي چه جوري شما اين كدا رو پيدا مي كنين. من هر كتابي رو گرفتم هيچ كدوم در مورد اين كدا چيزي ندارن. اگه ميشه يه منبع خوب براي دلفي به من پيشنهاد كنيد تا ديگه مجبور نباشين سوالاي ناشيانة من رو جواب بدين. ممنون
باي:11:

---

سلام
اميدوارم ناراحت نشيد ولي در صورت تكرار كلمه استاد ...
اين كد را از جايي پيدا نكردم، بلكه نوشتم، فقط كافيه بدونيد دنبال چي هستيد، معمولا با جستجو كردم ميشه به يك نقطه آغاز رسيد(بعضي وقتها هم يك سورس كامل بدست مي آوريد).