Bitmap - converter para wmf

Top  Previous  Next

procedure BmpToWmf(BmpFileName: string);

var MetaFile: TMetaFile;

  MFCanvas: TMetaFileCanvas;

  bmp: TBitmap;

begin

  MetaFile := TMetaFile.Create;

  try

    bmp := TBitmap.Create;

    try

      bmp.LoadFromFile(BmpFileName);

      MetaFile.Height := BMP.Height;

      MetaFile.Width := BMP.Width;

      MFCanvas:=TMetafileCanvas.Create(MetaFile, 0);

      try

        MFCanvas.Draw(00, bmp);

      finally

        MFCanvas.Free;

      end;

    finally

      bmp.Free;

    end;

    MetaFile.SaveToFile(ChangeFileExt(BmpFileName, '.wmf'));

  finally

    Free;

  end;

end;