Как преобразовать bmp в jpeg
Пользователи, просматривающие топик: none
|
Зашли как: Guest
|
Имя  |
| Сообщение |
<< Старые топики Новые топики >> |
|
|
Как преобразовать bmp в jpeg - 2009-05-10 13:50:14.490000
|
|
|
Visor
Сообщений: 18
Оценки: 0
Присоединился: 2008-05-12 18:08:06.473333
|
Как в Delphi 7 преобразовать bmp в jpeg без использования вцл модуля(добавляет вес программе).
|
|
|
|
|
RE: Как преобразовать bmp в jpeg - 2009-05-10 18:47:28.930000
|
|
|
Stil Free
Сообщений: 598
Оценки: 0
Присоединился: 2008-11-02 16:07:14.136666
|
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls,
Forms, Dialogs, StdCtrls, ExtCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
Image1: TImage;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
uses JPEG;
procedure TForm1.Button1Click(Sender: TObject);
var
JPEG: TJPEGImage;
Bitmap: TBitmap;
begin
JPEG := TJPEGImage.Create;
Bitmap := TBitmap.Create;
try
Bitmap.LoadFromFile('C:\картинка.bmp');\\ можно использовать диалог для загрузки
JPEG.Assign(Bitmap);
Image1.Picture.Assign(JPEG);
finally
JPEG.Free;
Bitmap.Free;
end;
end;
end. Я думаю понятно объяснил?
|
|
|
|
|
RE: Как преобразовать bmp в jpeg - 2009-05-10 18:49:42.786666
|
|
|
SmanxX1
Сообщений: 208
Оценки: 0
Присоединился: 2007-07-31 14:33:56.650000
|
quote:
Я думаю понятно объяснил?
Я думаю нет.
|
|
|
|
|
RE: Как преобразовать bmp в jpeg - 2009-05-10 21:05:50.586666
|
|
|
Visor
Сообщений: 18
Оценки: 0
Присоединился: 2008-05-12 18:08:06.473333
|
quote:
ORIGINAL: Stil Free
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls,
Forms, Dialogs, StdCtrls, ExtCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
Image1: TImage;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
uses JPEG;
procedure TForm1.Button1Click(Sender: TObject);
var
JPEG: TJPEGImage;
Bitmap: TBitmap;
begin
JPEG := TJPEGImage.Create;
Bitmap := TBitmap.Create;
try
Bitmap.LoadFromFile('C:\картинка.bmp');\\ можно использовать диалог для загрузки
JPEG.Assign(Bitmap);
Image1.Picture.Assign(JPEG);
finally
JPEG.Free;
Bitmap.Free;
end;
end;
end. Я думаю понятно объяснил?
Без использования вцл модуля, читай первый пост
|
|
|
|
|
RE: Как преобразовать bmp в jpeg - 2009-05-10 21:35:20.256666
|
|
|
rgo
Сообщений: 7170
Оценки: 281
Присоединился: 2004-09-25 05:14:25
|
Никак тебе не удастся сделать программу меньше. Ну разве что переписать тот вцл модуль так, чтобы твоя реализация была бы меньше борландовской. jpeg – это сжатие, причём с потерями. Там не просто байтики в другом порядке расположить, а настоящий алгоритм нужен. Модуль этот алгоритм реализует.
А, хотя ты можешь попробовать копнуть стандартные вендовые библиотеки на тему поддержки jpeg. Тогда можно будет не хранить статически внутри программы реализацию алгоритма, а брать её динамически из венды.
|
|
|
|
|
RE: Как преобразовать bmp в jpeg - 2009-05-11 02:36:42.113333
|
|
|
Stil Free
Сообщений: 598
Оценки: 0
Присоединился: 2008-11-02 16:07:14.136666
|
Сделай с модулем это проще если без него будешь делать, то будет больше даже программа, по момоему….
|
|
|
|
|
RE: Как преобразовать bmp в jpeg - 2009-05-11 03:05:57.143333
|
|
|
_SaZ_
Сообщений: 4329
Оценки: 398
Присоединился: 2008-01-30 02:18:05.553333
|
Никак? - http://ru.wikipedia.org/wiki/JPEG
Только вот руками это всё писать очень глупо.
|
|
|
|
|
RE: Как преобразовать bmp в jpeg - 2009-05-11 04:38:21.703333
|
|
|
vvviperrr
Сообщений: 301
Оценки: 0
Присоединился: 2007-03-20 21:33:16.790000
|
2Visor можешь заюзать виндовую либу gdi+, там есть возможность конвертирования изображений в различные форматы. в винде она начиная с вин xp.
|
|
|
|
|
|
