|
|
| Статистика |
Онлайн всего: 1 Гостей: 1 Пользователей: 0
Сегодня были:
|
| Самые активные пользователи | | |
|
|
|
Преобразовать BMP в JPEG
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:\Program Files\Common Files\alarm.bmp');
JPEG.Assign(Bitmap);
Image1.Picture.Assign(JPEG);
finally
JPEG.Free;
Bitmap.Free;
end;
end;
end.
|
| Категория: Исходники | Добавил: Ivin (23.03.2008)
|
| Просмотров: 2207
| Рейтинг: 0.0/0 |
|
|
|