پردازش تصویر : حذف پیکسل های سفید رنگ

[مهران رسا]

سلام ؛

میخوام پیکسل های سفید رنگ یک تصویر رو حذف کنم و تصویر جدید ایجاد شده رو ذخیره کنم . اینکار توسط چه توابع و کتابخانه هایی امکان پذیره ؟

[BORHAN TEC]

شاید روش بهتری هم باشه ولی من این کد رو نوشتم:

procedure TForm1.Button1Click(Sender: TObject);

var

  bitmap: TBitmap;

  bitmap2: TBitmap;

  MyRect: TRect;

  I: Integer;

  j: Integer;

begin



  MyRect.Top := -1;

  MyRect.Left := -1;

  MyRect.Right := -1;

  MyRect.Bottom := -1;



  bitmap := TBitmap.Create;

  bitmap.LoadFromFile('c:\1.bmp');



  for I := 1 to bitmap.Width do

    for j := 1 to bitmap.Height do

      if bitmap.Canvas.Pixels[I, j] <> bitmap.Canvas.Pixels[I - 1, j] then

        if (bitmap.Canvas.Pixels[I, j] = clBlack) and (MyRect.Left = -1) and

          (MyRect.Top = -1) then

          begin

            MyRect.Left := I;

            MyRect.Top := j;

          end

        else if (bitmap.Canvas.Pixels[I, j] = clwhite) then

          begin

            MyRect.Right := I;

            MyRect.Bottom := j;

          end;

  // end if

  // end for

  // end for



  bitmap2 := TBitmap.Create;

  bitmap2.SetSize(MyRect.Right - MyRect.Left,

    MyRect.Bottom - MyRect.Top);





  bitmap2.SetSize(MyRect.Right - MyRect.Left + 1,

    MyRect.Bottom - MyRect.Top + 1);

  bitmap2.Canvas.CopyRect

    (Rect(-1 * MyRect.Left, -1 * MyRect.Top,MyRect.Right - MyRect.Left,

      MyRect.Bottom - MyRect.Top), bitmap.Canvas, MyRect);

  bitmap2.SaveToFile('c:\2.bmp');

end;

[مهران رسا]

ممنون ، اما رنگ مستطیل مشخص نیست . فقط پیکسل های سفید رنگ مدنظر ما هستن . برای حل این مسئله باید یکبار تمامی پیکسل های تصویر بررسی شده و موقعیت + رنگ پیکسل هایی که سفید رنگ نیستند در یک آرایه ذخیره بشه . و در نهایت پیکسل های ذخیره شده در همون موقعیت و با همون رنگ در تصویر جدید درج بشن . ضمن اینکه اندازه تصویر هم ثابت و از قبل تعیین شده هست .

[vcldeveloper]

و در نهایت پیکسل های ذخیره شده در همون موقعیت و با همون رنگ در تصویر جدید درج بشن . ضمن اینکه اندازه تصویر هم ثابت و از قبل تعیین شده هست .

خب، پس تکلیف اون پیکسل هایی که سفید بودند، چی میشه؟ اگر قراره سایر پیکلسل ها دقیقا در جای قبلی خودشان قرار داشته باشند، پس اون پیکسل های سفید هم باید با چیزی پر بشند. اگر قرار هست که این پیکسل ها با چیزی پر بشند، پس دیگه لزومی نداره که یک بار آدرس پیکسل های غیر سفید را ذخیره کنید، کافیه در حین اسکن، هر پیکسلی که سفید بود، همانجا رنگش تغییر داده بشه.

همچنین، به جای اینکه پیکلسل ها را یکی یکی از Bitmap بخونید، از نظر کارایی بهتر هست که متد ScanLine استفاده کنید، و در هر بار فراخوانی، یک سطر از پیکسل ها را بخوانید.