请问如何将jpg文件转换成emf或者wmf文件?(20分)

  • 主题发起人 主题发起人 net_morning
  • 开始时间 开始时间
N

net_morning

Unregistered / Unconfirmed
GUEST, unregistred user!
打算在F1Book控件插入jpg文件,而f1book好像之只能插入emf文件
 
将jpg先转换为bmp,然后再将bmp转换为emf。
 
jpg -> Bmp我就不多说了,这里给你一个 bmp -> emf/wmf的小函数(网上找的):
procedure BmpToWmf (const BmpFile, WmfFile:string);
var
MetaFile: TMetaFile;
BMP: TBitmap;
begin
MetaFile := TMetaFile.Create;
with MetaFile do
try
BMP := TBitmap.Create;
try
BMP.LoadFromFile(BmpFile);
Height := BMP.Height;
Width := BMP.Width;
with TMetafileCanvas.Create(MetaFile, 0) do
try
Draw(0, 0, BMP); {Draw the BMP into canvas}
finally
Free;
end;
finally
BMP.Free;
end;
SaveToFile(WmfFile); //WmfFile的扩展名可为.emf或.wmf
finally
Free;
end;
end;
 
后退
顶部