ADMin Портал!

Профиль



Добро пожаловать,
Гость

54.224.76.150

Регистрация или вход
Потеряли пароль?

Сейчас онлайн
Администраторы:0
Пользователей:0
Гостей:32
Поисковые боты:2

Всего:34

Кнопки




Исходный код

Статьи

Изображения

Работа с картинками и изображениями
Изменить размер JPG и сохранить его в новый файл
Изменение размера JPG и сохранение его в новый файл
Код
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
procedure TForm1.Button1Click(Sender: TObject);
var
  bmp: TBItmap;
  jpg: TJpegImage;
  scale: Double;
begin
  if opendialog1.execute then
  begin
    jpg := TJpegImage.Create;
    try
      jpg.Loadfromfile( opendialog1.filename );
      if jpg.Height > jpg.Width then
        scale := 50 / jpg.Height
      else
        scale := 50 / jpg.Width;
      bmp:= Tbitmap.Create;
      try
        {Create thumbnail bitmap, keep pictures aspect ratio}
        bmp.Width := Round( jpg.Width * scale );
        bmp.Height:= Round( jpg.Height * scale );
        bmp.Canvas.StretchDraw( bmp.Canvas.Cliprect, jpg );
        {Draw thumbnail as control}
        Self.Canvas.Draw( 100, 10, bmp );
        {Convert back to JPEG and save to file}
        jpg.Assign( bmp );
        jpg.SaveToFile(ChangeFileext( opendialog1.filename, '_thumb.JPG' ));
      finally
        bmp.free;
      end;
    finally
      jpg.free;
    end;
  end;
end;

Дата публикации: 18.09.2014
Прочитано: 5824 раз
Нет комментариев. Почему бы Вам не оставить свой?
Ваше имя:
Комментарий:
Секретный код:Секретный код
Повторить:
Антиспам:

Коменты


Komatoz
хз. но сегодня понадобился
Va-Bank
В общем с современными ОС этот DAEMON Tools уже не требуется..
Va-Bank
Конечно. Ставишь себе Lazarus на Ubuntu и ваяешь программы, ..
Komatoz
Интересно под ubuntu есть такой компилятор?
Va-Bank
Ну здрасьте. Фрипаскаль используется в проекте Lazarus. И я ..
Va-Bank
Выпустил новую версию утилиты. Понадобилась одному моему тов..
ShohinKarimov
Огромное спасибо за статью ;D
kukus
Разобрались. В default-ssl.conf был прописан путь до /var/ww..
kukus
Не работает по https - not found везде, в веб-морде, в win-к..
Komatoz
filename в header необходимо дополнительно обернуть заслешен..
Komatoz
при создании пользователя через phpmyadmin нужно указать (по..
Komatoz
что - то не так пошло с настройкой www сервера - 404ой ошибк..
Дмитрий
После строчки "скопируйте ссылку phpmyadmin из var/www/..
Сергей
Здесь актуальный производственный календарь на текущий год
Komatoz
попробуйте найти разработчика - вполне может быть что за 9 л..


Powered by SLAED CMS © 2005-2007 SLAED. All rights reserved.