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;