일반적인 이미지 형식 변환 기술
저자:lyboy99
URL: http://hnh.126.com
일반적으로 사용되는 여러 가지 이미지 형식 변환 방법과 해당 변환 기능을 제공합니다.
그것이 당신에게 도움이 되기를 바랍니다
1. ICO 아이콘을 BMP 형식으로 변환
2. 32x32 BMP 형식 이미지를 ICO 형식으로 변환
3. BMP->JPEG 파일 형식 변환
4.JPEG에서 BMP로 변환 기능
5.Bmp에서 JPEG 파일 형식으로 변환 기능
------------------------------------- ------------------------------------- -------------
1.중국어: ICO 아이콘을 BMP 형식으로 변환
한국어 :(ICO에서 BMP로 전환)
------------------------------------- ------
var
아이콘: TIcon;
비트맵: TBitmap;
시작하다
아이콘 := TIcon.Create;
비트맵 := TBitmap.Create;
Icon.LoadFromFile('c:picture.ico');
Bitmap.Width := 아이콘.폭;
Bitmap.Height := Icon.Height;
Bitmap.Canvas.Draw(0, 0, 아이콘 );
Bitmap.SaveToFile('c:picture.bmp');
아이콘.무료;
비트맵.무료;
===================================
2.중국어: 32x32 BMP 형식 이미지를 ICO 형식으로 변환
영어: ICO에 대한 32x32비트 비트맵
----------------------------------
유닛 메인;
인터페이스
용도
Windows, 메시지, SysUtils, 클래스, 그래픽, 컨트롤,
양식, 대화 상자, ExtCtrls, StdCtrls;
유형
TForm1 = 클래스(TForm)
버튼1: T버튼;
이미지1: T이미지;
이미지2: T이미지;
PROcedure Button1Click(Sender: TObject);
절차 FormCreate(보내는 사람: TObject);
사적인
{비공개 선언}
공공의
{공개 선언}
끝;
var
Form1: TForm1;
구현
{$R *.DFM}
절차 TForm1.Button1Click(Sender: TObject);
var winDC, srcdc, destdc: HDC;
oldBitmap : HBitmap;
iinfo:TICONINFO;
시작하다
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(대상DC);
삭제DC(srcDC);
삭제DC(WinDC);
image2.Picture.Bitmap.savetofile(ExtractFilePath(application.ExeName)
+ 'myfile.bmp');
끝;
절차 TForm1.FormCreate(Sender: TObject);
시작하다
image1.picture.icon.loadfromfile('c:myicon.ico');
끝;
끝.
================================================= ================
3. 중국어:BMP->JPEG 파일 형식 변환
영어:비트맵을 JPEG 파일 형식으로 변환
------------------------------------- ----------------
var
MyJpeg: TJpeg이미지;
이미지1: T이미지;
시작하다
이미지1:= TImage.Create;
MyJpeg:= TJpegImage.Create;
Image1.LoadFromFile('TestImage.BMP'); // 비트맵 파일 읽기
MyJpeg.Assign(Image1.Picture.Bitmap);
물체
MyJpeg.SaveToFile('MyJPEGImage.JPG'); //JPEG 저장
끝;
------------------------------------- ------------------
4.JPEG에서 BMP로 변환 기능
프로시저 Jpg2Bmp(const source,dest:string);
var
MyJpeg: TJpeg이미지;
bmp: T비트맵;
시작하다
bmp:=tbitmap.Create;
MyJpeg:= TJpegImage.Create;
노력하다
myjpeg.LoadFromFile(source);
bmp.Assign(myjpeg);
bmp.SaveToFile(dest);
마지막으로
bmp.free;
myjpeg.Free;
끝;
끝;
------------------------------------- --------
5.Bmp에서 JPEG 파일 형식으로 변환 기능
------------------------------------- --------
절차 Bmp2Jpg(const source,dest:string;const scale:byte);
var
MyJpeg: TJpeg이미지;
이미지1: T이미지;
시작하다
Image1:= TImage.Create(응용 프로그램);
MyJpeg:= TJpegImage.Create;
노력하다
Image1.Picture.Bitmap.LoadFromFile(소스);
MyJpeg.Assign(Image1.Picture.Bitmap);
MyJpeg.CompressionQuality:=scale;
MyJpeg.Compress;
MyJpeg.SaveToFile(dest);
마지막으로
image1.free;
myjpeg.Free;
끝;
끝;
------------------------------------- -------------