Tecnologias comuns de conversão de formato de imagem
Autor:lyboy99
e-mail:[email protected]
URL: http://hnh.126.com
Fornece vários métodos de conversão de formato de imagem comumente usados e suas funções de conversão
Espero que ajude você
1. Converta o ícone ICO para o formato BMP
2. Converta imagem no formato 32x32 BMP para o formato ICO
3. Converta o formato de arquivo BMP->JPEG
Função 4.JPEG para BMP
5. Função de formato de arquivo Bmp para JPEG
-------------------------------------------------- -------------------------------------------------- --------------------------
1.Chinês: conversão do ícone ICO para o formato BMP
Inglês :(Conversão de ICO para BMP)
-------------------------------------------------- ------
var
Ícone: TIcon;
Bitmap: TBitmap;
começar
Ícone := TIcon.Create;
Bitmap := TBitmap.Create;
Icon.LoadFromFile('c:picture.ico');
Bitmap.Largura := Ícone.Largura;
Bitmap.Height := Icon.Height;
Bitmap.Canvas.Draw(0, 0, Ícone);
Bitmap.SaveToFile('c:imagem.bmp');
Ícone.Grátis;
Bitmap.Grátis;
==================================
2.Chinês: Converta imagem no formato 32x32 BMP para o formato ICO
Inglês: Bitmaps de 32x32 bits para ICOs
----------------------------------
unidade principal;
interface
usa
Windows, Mensagens, SysUtils, Classes, Gráficos, Controles,
Formulários, Diálogos, ExtCtrls, StdCtrls;
tipo
TForm1 = classe(TForm)
Botão1: Botão T;
Imagem1: TImage;
Imagem2: TImage;
Procedimento Button1Click(Remetente: TObject);
procedimento FormCreate(Remetente: TObject);
privado
{Declarações privadas}
público
{Declarações públicas}
fim;
var
Formulário1: TForm1;
implementação
{$R *.DFM}
procedimento TForm1.Button1Click(Remetente: TObject);
var winDC, srcdc, destdc: HDC;
antigoBitmap : HBitmap;
iinfo:TICONINFO;
começar
GetIconInfo(Image1.Picture.Icon.Handle, iinfo);
WinDC := getDC(handle);
srcDC := CreateCompatibleDC(WinDC);
destDC := CreateCompatibleDC(WinDC);
oldBitmap := SelectObject(destDC, iinfo.hbmColor);
oldBitmap := SelectObject(srcDC, iinfo.hbmMask);
BitBlt(destdc, 0, 0, Image1.picture.icon.width,
Imagem1.imagem.icon.height,
srcdc, 0, 0, SRCPAINT);
Image2.picture.bitmap.handle := SelectObject(destDC, oldBitmap);
ExcluirDC(destDC);
ExcluirDC(srcDC);
ExcluirDC(WinDC);
image2.Picture.Bitmap.savetofile(ExtractFilePath(application.ExeName)
+ 'meuarquivo.bmp');
fim;
procedimento TForm1.FormCreate(Remetente: TObject);
começar
image1.picture.icon.loadfromfile('c:meuicon.ico');
fim;
fim.
================================================= ================
3. Chinês:Converter formato de arquivo BMP->JPEG
Portuguese:converta o bitmap em um formato de arquivo JPEG
-------------------------------------------------- ----------------
var
MeuJpeg: TJpegImage;
Imagem1: TImage;
começar
Imagem1:= TImage.Create;
MeuJpeg:= TJpegImage.Create;
Image1.LoadFromFile('TestImage.BMP'); // Ler arquivo bitmap
MeuJpeg.Assign(Image1.Picture.Bitmap);
objeto
MyJpeg.SaveToFile('MyJPEGImage.JPG');
fim;
-------------------------------------------------- ------------------
Função 4.JPEG para BMP
procedimento Jpg2Bmp(const fonte,dest:string);
var
MeuJpeg: TJpegImage;
bmp: Tbitmap;
começar
bmp:=tbitmap.Create;
MeuJpeg:= TJpegImage.Create;
tentar
meujpeg.LoadFromFile(fonte);
bmp.Assign(meujpeg);
bmp.SaveToFile(dest);
finalmente
bmp.free;
meujpeg.Free;
fim;
fim;
-------------------------------------------------- --------
5. Função de formato de arquivo Bmp para JPEG
-------------------------------------------------- --------
procedimento Bmp2Jpg(const fonte,dest:string;const escala:byte);
var
MeuJpeg: TJpegImage;
Imagem1: TImage;
começar
Imagem1:= TImage.Create(aplicativo);
MeuJpeg:= TJpegImage.Create;
tentar
Image1.Picture.Bitmap.LoadFromFile(fonte);
MeuJpeg.Assign(Image1.Picture.Bitmap);
MyJpeg.CompressionQuality:=escala;
MeuJpeg.Compress;
MeuJpeg.SaveToFile(dest);
finalmente
imagem1.free;
meujpeg.Free;
fim;
fim;
-------------------------------------------------- --------------------------