Mega Code Archive
BMP to EMF
<![CDATA[
Title: BMP to EMF
Question: How can I convert a Bitmap to EMF
Answer:
function ConvertBMPtoEMF(const SourceFileName: TFileName): Boolean;
var
Metafile:TMetafile;
MetaCanvas:TMetafileCanvas;
Bitmap:TBitmap;
begin
Metafile := TMetaFile.Create;
try
Bitmap := TBitmap.Create;
try
Bitmap.LoadFromFile(SourceFileName);
Metafile.Height := Bitmap.Height;
Metafile.Width := Bitmap.Width;
MetaCanvas := TMetafileCanvas.Create(Metafile, 0);
try
MetaCanvas.Draw(0, 0, Bitmap);
finally
MetaCanvas.Free;
end;
finally
Bitmap.Free;
end;
Metafile.SaveToFile(ChangeFileExt(SourceFileName, '.emf'));
finally
Metafile.Free;
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
ConvertBMPtoEMF('C:\Source.bmp');
end;
]]>