2024年5月8日发(作者：)

Delphi常见图象格式转换技术

e : ICO图标转换BMP格式

English :(Conversion from ICO to BMP)

--------------------------------------------------------

var

Icon : TIcon;

Bitmap : TBitmap;

begin

Icon := ;

Bitmap := ;

omFile('c:');

:= ;

:= ;

(0, 0, Icon );

File('c:');

;

;

===================================

e: 32x32 BMP格式图象转换为 ICO格式

English :32x32 bit Bitmaps to ICO's

-----------------------------------

unit main;

interface

uses

Windows, Messages, SysUtils, Classes, Graphics, Controls,

Forms,Dialogs,ExtCtrls, StdCtrls;

type

TForm1 = class(TForm)

Button1: TButton;

Image1: TImage;

Image2: TImage;

procedure Button1Click(Sender: TObject);

procedure FormCreate(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

{$R *.DFM}

procedure 1Click(Sender: TObject);

var winDC, srcdc, destdc : HDC;

oldBitmap : HBitmap;

iinfo : TICONINFO;

begin

GetIconInfo(, iinfo);

WinDC := getDC(handle);

srcDC := CreateCompatibleDC(WinDC);

destDC := CreateCompatibleDC(WinDC);

oldBitmap := SelectObject(destDC, or);

oldBitmap := SelectObject(srcDC, k);

BitBlt(destdc, 0, 0, ,

,

srcdc, 0, 0, SRCPAINT);

:= SelectObject(destDC, oldBitmap);

DeleteDC(destDC);

DeleteDC(srcDC);

DeleteDC(WinDC);

file(ExtractFilePath(e)

+ '');

end;

procedure eate(Sender: TObject);

begin

omfile('c:');

end;

end.

==================================================================

3. Chinese:转换BMP->JPEG文件格式

Englsh:convert the bitmap into a JPEG file format

------------------------------------------------------------------

var

MyJpeg: TJpegImage;

Image1: TImage;