Последние записи

made in programmersforum 4

Интенсив по Python: Работа с API и фреймворками 24-26 ИЮНЯ 2022. Знаете Python, но хотите расширить свои навыки?
Slurm подготовили для вас особенный продукт! Оставить заявку по ссылке - https://slurm.club/3MeqNEk

Online-курс Java с оплатой после трудоустройства. Каждый выпускник получает предложение о работе
И зарплату на 30% выше ожидаемой, подробнее на сайте академии, ссылка - ttps://clck.ru/fCrQw

28th
Фев

Уменьшить Bitmap

Posted by maloy under Архив

RIO

Есть процедура которая уменьшает в размерах BMP изображение :

Код:

var
  bmp: TBItmap;
begin
  if opendialog1.execute then
  begin
      bmp:= Tbitmap.Create;
      try
        bmp.LoadFromFile(opendialog1.filename);
        bmp.Width := 640;
        bmp.Height:= 480;
        bmp.Canvas.StretchDraw( bmp.Canvas.Cliprect, bmp );
        Self.Canvas.Draw(100, 10, bmp );
        bmp.Assign( bmp );
        bmp.SaveToFile(ChangeFileext( opendialog1.filename, '_thumb.BMP' ));
      finally
        bmp.free;
      end;
  end;
end;

Но она его не уменьшает, а как бы обрезает, как сделать, что бы процедура именно уменьшала изображение ? ? ?

Karabash

В ситуации, когда неизвестно, какого результата автор вопроса добивается, сложно дать исчерпывающую информацию для него.

Например, операторы bmp.Width := 640; и bmp.Height:= 480; действительно «образают» изображение в BitMap, если размеры исходного были больше 640х480.
По некоторым догадкам можно сказать, что именно этот размер и нужен автору для результирующего изображения, записываемого в файл.
RIO, чтобы приведенная вами процедура не «обрезала» исходное изображение не нужно уменьшать размеры холста BitMap, а преобразовывать с помощью StretchDraw, ЗАДАВАЯ необходимый вам размер прямоугольника в параметре метода. Этот метод не обрезает, а именно модифицирует изображение.

Код:

var
  bmp: TBItmap;
begin
  if opendialog1.execute then
  begin
      bmp:= Tbitmap.Create;
      try
        bmp.LoadFromFile(opendialog1.filename);
//        bmp.Width := 640;
//        bmp.Height:= 480;
//        bmp.Canvas.StretchDraw(bmp.Canvas.Cliprect, bmp );
        bmp.Canvas.StretchDraw(Rect(0, 0, 640, 480), bmp);
        Self.Canvas.Draw(100, 10, bmp);
        bmp.Assign( bmp );
        bmp.SaveToFile(ChangeFileext( opendialog1.filename, '_thumb.BMP' ));
      finally
        bmp.free;
      end;
  end;
end;

При такой организации преобразования изображения в BitMap, как сделано у автора, получается забавный эффект: уменьшенное изображение накладывается на исходное.
Если же нужно спрятать в файл только результирующее изображение, то надо применять две переменные типа TBitMap. В одной хранить исходное изображение, в другой преобразованное и которое записывается в файл.

Код:

var
  bmp, bmp2: TBItmap;
begin
  if opendialog1.execute then begin
    bmp:= Tbitmap.Create;
    try
      bmp.LoadFromFile(opendialog1.filename);
      bmp2 := Tbitmap.Create;
      try
        bmp2.Width := 640;
        bmp2.Height:= 480;
        bmp2.Canvas.StretchDraw(Rect(0, 0, 640, 480), bmp);
        Self.Canvas.Draw(100, 10, bmp2);
        bmp2.SaveToFile(ChangeFileext( opendialog1.filename, '_thumb.BMP' ));
      finally
        bmp2.free;
      end;
    finally
      bmp.free;
    end;
  end;

тема на форуме от 2009 года