头快炸了
CCC的 2012-08-18 01:41:05 D7下怎么实现ICON转PNG,用GDI+先将ICON转为BMP,再保存为PNG,但是不能是实现透明,代码如下,望指教,找了好久好多资料
,人都快疯了,救救我吧,如果意见采纳,分全给他了
procedure SaveTofile(icon : TBitmap;aFile : string);
var
Gpbmp: TGpBitmap;
CLSID : TGUID;
Parameters: TEncoderParameters;
Quality: Integer;
begin
if GetEncoderClsid('image/png',CLSID) <> - 1 then
begin
Gpbmp := TGpBitmap.Create(icon.Handle, icon.Palette);
Parameters.Count := 1;
Parameters.Parameter[0].NumberOfValues := 1;
Quality := 100;
Parameters.Parameter[0].Value := @Quality;
Gpbmp.Save(aFile,CLSID,@Parameters);
FreeandNil(Gpbmp);
end;
end;
function IcoFiletoPNG(const Source, Dest: String): Boolean;
var
icon: TIcon;
Bitmap: TBitmap;
begin
Result := True;
icon := TIcon.Create;
Bitmap := TBitmap.Create;
try
try
icon.LoadFromFile(Source);
Bitmap.Width := Icon.Width;
Bitmap.Height := Icon.Height;
Bitmap.Canvas.Draw(0, 0, Icon);
SaveTofile(Bitmap, Dest);
except
Result := False;
end;
finally
icon.Free;
Bitmap.Free;
end;
end;