一般的な画像フォーマット変換技術
著者:lyboy99
電子メール:[email protected]
URL: http://hnh.126.com
一般的に使用されるいくつかの画像フォーマット変換方法とその変換関数を提供します。
お役に立てば幸いです
1. ICOアイコンをBMP形式に変換します
2. 32x32 BMP 形式の画像を ICO 形式に変換します
3. BMP->JPEG ファイル形式を変換します
4.JPEG→BMP機能
5.Bmp to JPEGファイル形式機能
-------------------------------------------------- -------------------------------------------------- ------------------------
1.中国語：ICOアイコンをBMP形式に変換
英語 :(ICO から BMP への変換)
-------------------------------------------------- ------
変数
アイコン: TIcon;
ビットマップ:TBitmap;
始める
アイコン := TIcon.Create;
ビットマップ := TBitmap.Create;
Icon.LoadFromFile('c:picture.ico');
ビットマップ.幅 := アイコン.幅;
ビットマップの高さ := アイコンの高さ;
Bitmap.Canvas.Draw(0, 0, Icon );
Bitmap.SaveToFile('c:picture.bmp');
アイコン。無料。
ビットマップ。無料。
==================================
2.中国語: 32x32 BMP 形式の画像を ICO 形式に変換します
英語: ICO への 32x32 ビット ビットマップ
----------------------------------
ユニットメイン。
インタフェース
用途
ウィンドウ、メッセージ、SysUtils、クラス、グラフィックス、コントロール、
フォーム、ダイアログ、ExtCtrls、StdCtrls;
タイプ
TForm1 = クラス(TForm)
ボタン 1: T ボタン;
画像1: T画像;
画像2: T画像;
手順 Button1Click(送信者: TObject);
プロシージャ FormCreate(Sender: TObject);
プライベート
{プライベート宣言}
公共
{公的宣言}
終わり;
変数
フォーム1: TForm1;
実装
{$R *.DFM}
プロシージャ TForm1.Button1Click(送信者: TObject);
var winDC、srcdc、destdc: HDC;
oldBitmap : HBitmap;
iinfo:TICONINFO;
始める
GetIconInfo(Image1.Picture.Icon.Handle, iinfo);
WinDC := getDC(ハンドル);
srcDC := CreateCompatibilityDC(WinDC);
destDC := CreateCompatibilityDC(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)
+ 'myfile.bmp');
終わり;
プロシージャ TForm1.FormCreate(送信者: TObject);
始める
image1.picture.icon.loadfromfile('c:myicon.ico');
終わり;
終わり。
================================================= ================
3. 中国語:BMP->JPEG ファイル形式を変換
日本語:ビットマップを JPEG ファイル形式に変換します
-------------------------------------------------- ----------------
変数
MyJpeg: TJpegImage;
画像1: T画像;
始める
Image1:= TImage.Create;
MyJpeg:= TJpegImage.Create;
Image1.LoadFromFile('TestImage.BMP'); // ビットマップファイルを読み込みます
MyJpeg.Assign(Image1.Picture.Bitmap);
物体
MyJpeg.SaveToFile('MyJPEGImage.JPG'); //JPEG を保存
終わり;
-------------------------------------------------- ------------------
4.JPEG→BMP機能
プロシージャ Jpg2Bmp(const ソース,宛先:文字列);
変数
MyJpeg: TJpegImage;
bmp: ビットマップ;
始める
bmp:=tbitmap.Create;
MyJpeg:= TJpegImage.Create;
試す
myjpeg.LoadFromFile(ソース);
bmp.Assign(myjpeg);
bmp.SaveToFile(dest);
ついに
bmp.無料;
myjpeg.無料;
終わり;
終わり;
-------------------------------------------------- --------
5.Bmp to JPEGファイル形式機能
-------------------------------------------------- --------
プロシージャ Bmp2Jpg(const ソース、宛先:文字列;const スケール:バイト);
変数
MyJpeg: TJpegImage;
画像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);
ついに
画像1.無料;
myjpeg.無料;
終わり;
終わり;
-------------------------------------------------- ------------------------