转bmp(50分)

请问怎样将图形格式转换为bmp格式

用Acdsee转

图形格式?

procedure TForm1.Button1Click(Sender: TObject);
var
Icono:TIcon;
Bitmap:TBitmap;
begin
Icono:=TIcon.create;
Bitmap:=TBitmap.create;
Icono.LoadFromFile('c:/kk/Chip.ico');
Bitmap.Height := Icono.Height;
Bitmap.Width := Icono.Width;
Bitmap.Canvas.Draw(0, 0, Icono);
Bitmap.SaveToFile('c:/kk/Chip.bmp');
Icono.Free;
Bitmap.Free;
end;

jpeg to bmp:

var
MyJpeg: TJpegImage;
bmp: Tbitmap;
begin
bmp:=tbitmap.Create;
MyJpeg:= TJpegImage.Create;
myjpeg.LoadFromFile('c:/windows/desktop/aa.jpg');
bmp.Assign(myjpeg);
bmp.SaveToFile('c:/windows/desktop/test.bmp'); // Save the JPEG to Disk
end;

WMF格式转换为BMP格式

--------------------------------------------------------------------
procedure WmfToBmp(FicheroWmf,FicheroBmp:string);
var
MetaFile:TMetafile;
Bmp:TBitmap;
begin
Metafile:=TMetaFile.create;
{Create a Temporal Bitmap}
Bmp:=TBitmap.create;
{Load the Metafile}
MetaFile.LoadFromFile(FicheroWmf);
{Draw the metafile in Bitmap's canvas}
with Bmp do
begin
Height:=Metafile.Height;
Width:=Metafile.Width;
Canvas.Draw(0,0,MetaFile);
{Save the BMP}
SaveToFile(FicheroBmp);
{Free BMP}
Free;
end;
{Free Metafile}
MetaFile.Free;
end;


---------------------------------------------------------------------
3.BMP格式转换为WMF格式
---------------------------------------------------------------------
procedure BmpToWmf (BmpFile,WmfFile:string);
var
MetaFile : TMetaFile;
MFCanvas : TMetaFileCanvas;
BMP : TBitmap;
begin
{Create temps}
MetaFile := TMetaFile.Create;
BMP := TBitmap.create;
BMP.LoadFromFile(BmpFile);
{Igualemos tama駉s}
{Equalizing sizes}
MetaFile.Height := BMP.Height;
MetaFile.Width := BMP.Width;
{Create a canvas for the Metafile}
MFCanvas:=TMetafileCanvas.Create(MetaFile, 0);
with MFCanvas do
begin
{Draw the BMP into canvas}
Draw(0, 0, BMP);
{Free the Canvas}
Free;
end;
{Free the BMP}
BMP.Free;
with MetaFile do
begin
{Save the Metafile}
SaveToFile(WmfFile);
{Free it...}
Free;
end;
end;

学习～

转变后的颜色好像差了许多bmp->jpeg

我用了vine兄弟的代码，为什么会出现以下错误（我用的是delphi6）：
[Error] Unit1.pas(30): Undeclared identifier: 'TJpegImage'

delphi6里好象没Tjpegimage这个类，你们怎么能通过编译的？请回答，谢谢。

不好意思，原来我在uses子句里少加了jpeg，现在已经解决。

JPEG to TIF 怎么做?