给你一段代码!分要全给我呀!bmp->wmf
procedure BmpToWmf(BmpFile, WmfFile: string);
var
MetaFile: TMetaFile;
MFCanvas: TMetaFileCanvas;
BMP: TBitmap;
begin
MetaFile := TMetaFile.Create;
try
BMP := TBitmap.Create;
try
BMP.LoadFromFile(BmpFile);
MetaFile.Height := BMP.Height;
MetaFile.Width := BMP.Width;
MFCanvas := TMetafileCanvas.Create(MetaFile, 0);
try
MFCanvas.Draw(0, 0, BMP);
finally
MFCanvas.Free;
end;
finally
BMP.Free;
end;
MetaFile.SaveToFile(WmfFile);
finally
MetaFile.Free;
end;
end;
end;