图片之间互相转换

(*// 标题:图片之间互相转换
说明:支持Icon,Jpeg,Bmp格式
设计:Zswang
日期:2002-01-25
支持:wjhu111@21cn.com
//*)
///////Begin Source
uses
jpeg;
function BmpToIco(mBitmap: TBitmap; mIcon: TIcon;
mSize32: Boolean = True): Boolean;
var
vIconWidth: Integer;
vIconHeight: Integer;
vBitmapMask: TBitmap;
vBitmapColor: TBitmap;
vIconInfo: TIconInfo;
begin
Result := True;
if mSize32 then begin
vIconWidth := 32;
vIconHeight := 32;
end else begin
vIconWidth := 16;
vIconHeight := 16;
end;
vBitmapMask := TBitmap.Create;
vBitmapColor := TBitmap.Create;
try
vBitmapMask.Width := vIconWidth;
vBitmapMask.Height := vIconHeight;
vBitmapMask.Canvas.Brush.Color := clBlack;
vBitmapMask.Canvas.Rectangle(0, 0, vIconWidth, vIconHeight);
vBitmapColor.Width := vIconWidth;
vBitmapColor.Height := vIconHeight;
StretchBlt(vBitmapColor.Canvas.Handle, 0, 0, vIconWidth, vIconHeight,
mBitmap.Canvas.Handle, 0, 0, mBitmap.Width, mBitmap.Height, SRCCOPY);
vIconInfo.fIcon := True;
vIconInfo.xHotspot := 0;
vIconInfo.yHotspot := 0;
vIconInfo.hbmMask := vBitmapMask.Handle;
vIconInfo.hbmColor := vBitmapColor.Handle;
mIcon.Handle := CreateIconIndirect(vIconInfo);
except
Result := False;
end;
vBitmapMask.Free;
vBitmapColor.Free;
end; { BmpToIco }
function IcoToBmp(mIcon: TIcon; mBitmap: TBitmap): Boolean;
var
vIconWidth: Integer;
vIconHeight: Integer;
begin
Result := True;
try
vIconWidth := mIcon.Width;
vIconHeight := mIcon.Height;
mBitmap.Width := vIconWidth;
mBitmap.Height := vIconHeight;
mBitmap.Canvas.FillRect(Rect(0, 0, vIconWidth, vIconHeight));
mBitmap.Canvas.Draw(0, 0, mIcon);
except
Result := False;
end;
end; { IcoToBmp }
function JpegToBmp(mJPEGImage: TJPEGImage; mBitmap: TBitmap): Boolean;
begin
Result := True;
try
mBitmap.Assign(mJPEGImage);
except
Result := False;
end;
end; { JpegToBmp }
function BmpToJpeg(mBitmap: TBitmap; mJPEGImage: TJPEGImage;
mCompressionQuality: Integer = 75): Boolean;
begin
Result := True;
try
mJPEGImage.Assign(mBitmap);
mJPEGImage.CompressionQuality := mCompressionQuality;
mJPEGImage.Compress;
except
Result := False;
end;
end; { BmpToJpeg }
///////End Source
///////Begin Demo
procedure TForm1.Button7Click(Sender: TObject);
var
vJPEGImage: TJPEGImage;
begin
if RadioButton1.Checked then begin
vJPEGImage := TJPEGImage.Create;
try
Image2.Picture.Icon.Assign(nil);
TJPEGImage(Image3.Picture).Assign(nil);
BmpToIco(Image1.Picture.Bitmap, Image2.Picture.Icon, CheckBox1.Checked);
BmpToJpeg(Image1.Picture.Bitmap, vJPEGImage, SpinEdit1.Value);
TJPEGImage(Image3.Picture).Assign(vJPEGImage);
finally
vJPEGImage.Free;
end;
end else if RadioButton2.Checked then begin
vJPEGImage := TJPEGImage.Create;
try
Image1.Picture.Bitmap.Assign(nil);
TJPEGImage(Image3.Picture).Assign(nil);
IcoToBmp(Image2.Picture.Icon, Image1.Picture.Bitmap);
BmpToJpeg(Image1.Picture.Bitmap, vJPEGImage, SpinEdit1.Value);
TJPEGImage(Image3.Picture).Assign(vJPEGImage);
finally
vJPEGImage.Free;
end;
end else begin
vJPEGImage := TJPEGImage.Create;
try
vJPEGImage.Assign(TJPEGImage(Image3.Picture));
Image1.Picture.Bitmap.Assign(nil);
Image2.Picture.Icon.Assign(nil);
JpegToBmp(vJPEGImage, Image1.Picture.Bitmap);
BmpToIco(Image1.Picture.Bitmap, Image2.Picture.Icon, CheckBox1.Checked);
finally
vJPEGImage.Free;
end;
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
if OpenPictureDialog1.Execute then
Image1.Picture.Bitmap.LoadFromFile(OpenPictureDialog1.FileName);
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
if SavePictureDialog1.Execute then
Image1.Picture.Bitmap.SaveToFile(SavePictureDialog1.FileName);
end;
procedure TForm1.Button4Click(Sender: TObject);
begin
if OpenPictureDialog2.Execute then
Image2.Picture.Icon.LoadFromFile(OpenPictureDialog2.FileName);
end;
procedure TForm1.Button3Click(Sender: TObject);
begin
if SavePictureDialog2.Execute then
Image2.Picture.Icon.SaveToFile(SavePictureDialog2.FileName);
end;
procedure TForm1.Button6Click(Sender: TObject);
begin
if OpenPictureDialog3.Execute then
Image3.Picture.LoadFromFile(OpenPictureDialog3.FileName);
end;
procedure TForm1.Button5Click(Sender: TObject);
begin
if SavePictureDialog3.Execute then
Image3.Picture.SaveToFile(SavePictureDialog3.FileName);
end;
///////End Demo