Converter - ico para bmp

Top  Previous  Next

Conversion from ICO to BMP

Solution 1

 

Try:

 

 

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

 

  var

    Icon   : TIcon;

    Bitmap : TBitmap;

  begin

     Icon   := TIcon.Create;

     Bitmap := TBitmap.Create;

     Icon.LoadFromFile('c:\picture.ico');

     Bitmap.Width := Icon.Width;

     Bitmap.Height := Icon.Height;

     Bitmap.Canvas.Draw(00, Icon );

     Bitmap.SaveToFile('c:\picture.bmp');

     Icon.Free;

     Bitmap.Free;

  end;

 

 

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

 

Solution 2

david sampson (dsampson@atlanta.com)

 

Is there an algorithm or routine to convert 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 TForm1.Button1Click(Sender: TObject);

var winDC, srcdc, destdc : HDC;

    oldBitmap : HBitmap;

    iinfo : TICONINFO;

begin

    GetIconInfo(Image1.Picture.Icon.Handle, iinfo);

 

    WinDC := getDC(handle);

    srcDC := CreateCompatibleDC(WinDC);

    destDC := CreateCompatibleDC(WinDC);

    oldBitmap := SelectObject(destDC, iinfo.hbmColor);

    oldBitmap := SelectObject(srcDC, iinfo.hbmMask);

 

    BitBlt(destdc, 0, 0, Image1.picture.icon.width,

            Image1.picture.icon.height,

           srcdc, 0, 0, SRCPAINT);

    Image2.picture.bitmap.handle := SelectObject(destDC, oldBitmap);

    DeleteDC(destDC);

    DeleteDC(srcDC);

    DeleteDC(WinDC);

 

 image2.Picture.Bitmap.savetofile(ExtractFilePath(Application.ExeName)

          + 'myfile.bmp');

end;

 

procedure TForm1.FormCreate(Sender: TObject);

begin

  image1.picture.icon.loadfromfile('c:\myicon.ico');

end;

 

end.