BMP в WMF
Материал из DRKB
procedure ConvertBMP2WMF(const BMPFileName, WMFFileName: TFileName);
var
MetaFile: TMetafile;
Bitmap: TBitmap;
begin
Metafile := TMetaFile.Create;
Bitmap := TBitmap.Create;
try
Bitmap.LoadFromFile(BMPFileName);
with MetaFile do
begin
Height := Bitmap.Height;
Width := Bitmap.Width;
Canvas.Draw(0, 0, Bitmap);
SaveToFile(WMFFileName);
end;
finally
Bitmap.Free;
MetaFile.Free;
end;
end;
Использование:
ConvertBMP2WMF('c:\mypic.bmp', 'c:\mypic.wmf')
Source: http://forum.sources.ru
ID: 04272
procedure TForm1.Button1Click(Sender: TObject);
var
m: TMetaFile;
mc: TMetaFileCanvas;
b: TBitmap;
begin
m := TMetaFile.Create;
try
b := TBitmap.Create;
try
b.LoadFromFile('C:\1.bmp');
m.Height := b.Height;
m.Width := b.Width;
mc := TMetaFileCanvas.Create(m, 0);
try
mc.Draw(0, 0, b);
finally
mc.Free;
end;
finally
b.Free;
end;
m.SaveToFile('C:\1.emf');
finally
m.Free;
Image1.Picture.LoadFromFile('C:\1.emf');
end;
end;
Source: http://delphiworld.narod.ru/
ID: 04273