VPF::Именение разрешения картинки.

Fast

Дата 4.10.2006, 19:19 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 76
Регистрация: 21.3.2006
Где: Санкт-Петербург

Репутация: нет
Всего: 1

Как изменить разрешение картинки JPEG с 1704 х 2272 на 135 х 175 ???

Snowy

Дата 4.10.2006, 20:01 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 18
Всего: 484

Код


const
  dx = 135; // нужные размеры
  dy = 175;
var
  jpg: TJPEGImage;
  bmp: TBitmap;
begin
  jpg := TJPEGImage.Create;
  bmp := TBitmap.Create;
  try
    jpg.LoadFromFile('C:\1.jpg');
    bmp.Assign(jpg);
    bmp.Canvas.StretchDraw(Rect(0, 0, dx, dy), bmp);
    bmp.Width := dx; bmp.Height := dy;
    jpg.Assign(bmp);
    jpg.SaveToFile('C:\2.jpg');
  finally
    jpg.Free; bmp.Free;
  end;
end;

P.S. Пережатие и уменьшение размера ведут к потери качества изображения.
Также могут быть искажены пропорции, если они не кратны.

Fast

Дата 4.10.2006, 20:15 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 76
Регистрация: 21.3.2006
Где: Санкт-Петербург

Репутация: нет
Всего: 1

Jтлично то что надо )))
Спасибо )

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Звук, графика и видео \| Следующая тема »