Распространенные технологии преобразования форматов изображений
Автор:lyboy99
электронная почта:[email protected]
URL: http://hnh.126.com
Предоставить вам несколько часто используемых методов преобразования форматов изображений и их функции преобразования.
Надеюсь, это поможет вам
1. Конвертируйте значок ICO в формат BMP.
2. Конвертируйте изображение формата BMP 32x32 в формат ICO.
3. Конвертируйте формат файла BMP->JPEG.
4. Функция JPEG в BMP
5.Функция формата файла Bmp в JPEG
-------------------------------------------------- -------------------------------------------------- --------------------------
1.Китайский: преобразование значков ICO в формат BMP.
Английский :(Конвертация из ICO в BMP)
-------------------------------------------------- ------
вар
Значок: TIcon;
Растровое изображение: TBitmap;
начинать
Значок := TIcon.Create;
Растровое изображение := TBitmap.Create;
Icon.LoadFromFile('c:picture.ico');
Bitmap.Width := Icon.Width;
Bitmap.Height := Icon.Height;
Bitmap.Canvas.Draw(0, 0, Значок );
Bitmap.SaveToFile('c:picture.bmp');
Значок.Бесплатно;
Растровое изображение.Бесплатно;
==================================
2.Китайский: конвертируйте изображение формата BMP 32x32 в формат ICO.
Английский: 32x32-битные растровые изображения для ICO
----------------------------------
основной блок;
интерфейс
использует
Windows, сообщения, SysUtils, классы, графика, элементы управления,
Формы, Диалоги, ExtCtrls, StdCtrls;
тип
ТФорм1 = класс (ТФорма)
Кнопка1: Кнопка T;
Изображение1: TImage;
Изображение2: TImage;
PROcedure Button1Click (Отправитель: TObject);
процедура FormCreate (Отправитель: TObject);
частный
{Частные заявления}
общественный
{Публичные заявления}
конец;
вар
Форма1: ТФорм1;
выполнение
{$R *.DFM}
процедура TForm1.Button1Click(Отправитель: TObject);
вар WinDC, srcdc, destdc: HDC;
OldBitmap: HBitmap;
иинфо: ТИКОИНФО;
начинать
GetIconInfo(Image1.Picture.Icon.Handle, iinfo);
WinDC:= getDC(дескриптор);
srcDC:= CreateCompatibleDC(WinDC);
destDC:= CreateCompatibleDC(WinDC);
oldBitmap:= SelectObject(destDC, iinfo.hbmColor);
oldBitmap:= SelectObject(srcDC, iinfo.hbmMask);
BitBlt(destdc, 0, 0, Image1.picture.icon.width,
Изображение1.картинка.значок.высота,
srcdc, 0, 0, SRCPAINT);
Image2.picture.bitmap.handle := SelectObject(destDC, oldBitmap);
УдалитьDC(destDC);
УдалитьDC(srcDC);
УдалитьDC(WinDC);
image2.Picture.Bitmap.savetofile(ExtractFilePath(application.ExeName)
+ 'мойфайл.bmp');
конец;
процедура TForm1.FormCreate(Отправитель: TObject);
начинать
image1.picture.icon.loadfromfile('c:myicon.ico');
конец;
конец.
=============================================== ================
3. Китайский: конвертировать формат файла BMP->JPEG.
Русский:конвертировать растровое изображение в формат файла JPEG
-------------------------------------------------- ----------------
вар
МойJpeg: TJpegImage;
Изображение1: TImage;
начинать
Изображение1:= TImage.Create;
MyJpeg:= TJpegImage.Create;
Image1.LoadFromFile('TestImage.BMP'); // Чтение файла растрового изображения.
MyJpeg.Assign(Image1.Picture.Bitmap);
объект
MyJpeg.SaveToFile('MyJPEGImage.JPG'); //Сохранить JPEG
конец;
-------------------------------------------------- ------------------
4. Функция JPEG в BMP
процедура Jpg2Bmp (константный источник, место назначения: строка);
вар
МойJpeg: TJpegImage;
bmp: Тбитмап;
начинать
bmp:=tbitmap.Create;
MyJpeg:= TJpegImage.Create;
пытаться
myjpeg.LoadFromFile(источник);
bmp.Assign(myjpeg);
bmp.SaveToFile(место назначения);
окончательно
bmp.бесплатно;
myjpeg.Бесплатно;
конец;
конец;
-------------------------------------------------- --------
5.Функция формата файла Bmp в JPEG
-------------------------------------------------- --------
процедура Bmp2Jpg (константный источник, место назначения: строка; константный масштаб: байт);
вар
МойJpeg: TJpegImage;
Изображение1: TImage;
начинать
Image1:= TImage.Create(приложение);
MyJpeg:= TJpegImage.Create;
пытаться
Изображение1.Picture.Bitmap.LoadFromFile(источник);
MyJpeg.Assign(Image1.Picture.Bitmap);
MyJpeg.CompressionQuality:=масштаб;
МойJpeg.Сжать;
MyJpeg.SaveToFile(место назначения);
окончательно
изображение1.бесплатно;
myjpeg.Бесплатно;
конец;
конец;
-------------------------------------------------- --------------------------