Metafile quot;toquot; BMP

Delphi

31/03/2004

preciso transformar arquivos metafile p/ BMP...... soh isso...hehe


valew meus bruxo!!


::d::a::m::m::i::t::

::d::a::m::m::i::t::

Curtidas 0

Respostas

Aroldo Zanela

Aroldo Zanela

31/03/2004

Colega,

Peguei no News da Borland. Veja se funciona (parece que sim):

procedure TForm1.Button2Click(Sender: TObject);
var
  Bitmap: TBitmap;
  MetaFile: TMetaFile;
begin
  if FileExists(FileNameEdit.Text) then
  begin
    MetaFile := TMetaFile.Create;
    try
      MetaFile.LoadFromFile(FileNameEdit.Text);
      Bitmap := TBitmap.Create;
      try
        Bitmap.PixelFormat := pf24bit;
        Bitmap.Width := MetaFile.Width;
        Bitmap.Height := MetaFile.Height;
        Bitmap.Canvas.Draw(0, 0, MetaFile);
        Bitmap.SaveToFile(ChangeFileExt(FileNameEdit.Text, ´.bmp´));
      finally
        Bitmap.Free;
      end;
    finally
      MetaFile.Free;
    end;
  end;
end;



GOSTEI 0
POSTAR