Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Мультимедиа в Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 19.12.2007, 18:11   #1
Terran
Участник клуба
 
Аватар для Terran
 
Регистрация: 28.11.2007
Сообщений: 1,521
По умолчанию Image, загрузка JPEG

Уважаемые программисты! Подскажите пожалуста, как в Image открыть Jpeg картинку???

Как открывать Bmp я знаю.
Image1.Picture.LoadFromFile('D:\Pic ture\0023.bmp');

А как можно открыть jpeg???

Заранее благодарен.
Всегда рад помочь!
Terran вне форума Ответить с цитированием
Старый 19.12.2007, 18:27   #2
kommunist
C# developer
Форумчанин
 
Аватар для kommunist
 
Регистрация: 03.10.2007
Сообщений: 393
По умолчанию

Вот пример работы delphi c jpeg
Код:
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ComCtrls, ExtCtrls, StdCtrls, JPEG;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Image1: TImage;
    TrackBar1: TTrackBar;
    OpenDialog1: TOpenDialog;
    CheckBox1: TCheckBox;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
begin
  if opendialog1.execute then
    image1.Picture.LoadFromFile(opendialog1.filename);
end;

procedure TForm1.Button2Click(Sender: TObject);
var
  jpg: TJpegImage;
begin
  {создаем экземпляр объекта}
  jpg := TJpegImage.Create;
  {присваиваем ему изображение}
  jpg.Assign(image1.picture.graphic);
  {устанавливаем степень сжатия (качество) 1..100}
  jpg.CompressionQuality := TrackBar1.Position;
  {если установлен флаг "Оттенки серого", то пусть картинка будет серой:)}
  jpg.Grayscale := checkbox1.Checked;
  {Упаковываем графику}
  jpg.Compress;
  {и сохраняем ее куда вам захочется}
  jpg.SaveToFile('D:first.jpg');
  {уничтожаем экземпляр объекта}
  jpg.free;
end;
end.
I like WPF
kommunist вне форума Ответить с цитированием
Старый 19.12.2007, 18:35   #3
Domovoy
Форумчанин
 
Регистрация: 24.10.2007
Сообщений: 254
По умолчанию

Просто пропиши модуль Jpeg в разделе Uses.
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
ComCtrls, ExtCtrls, StdCtrls, JPEG;
Domovoy вне форума Ответить с цитированием
Старый 19.12.2007, 19:38   #4
mihali4
*
Старожил
 
Регистрация: 22.11.2006
Сообщений: 9,201
По умолчанию

Когда вы открываете свойство PICTURE в инспекторе объектов для TIMAGE, там при загрузке прописаны все расширения - и BMP, и JPG, и другие. Следовательно, стандартный TIMAGE с ними умеет работать.
И вам осталось только последовать мудрому совету от Domovoy...
mihali4 вне форума Ответить с цитированием
Старый 19.12.2007, 20:08   #5
Terran
Участник клуба
 
Аватар для Terran
 
Регистрация: 28.11.2007
Сообщений: 1,521
По умолчанию

Всё, получилось!!! Большое спасибо!!!
Всегда рад помочь!
Terran вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Jpeg warmbabe Общие вопросы по Java, Java SE, Kotlin 2 26.02.2010 20:14
JPEG Error #53 sklazer Общие вопросы Delphi 5 22.07.2008 04:41
Access2Delphi (JPEG) 1900s БД в Delphi 5 02.06.2008 16:51
распаковка .Jpeg vitality Мультимедиа в Delphi 12 08.02.2008 11:00
jpeg All517 БД в Delphi 15 22.11.2007 14:31