procedure TForm1.Button1Click(Sender:
TObject);
var
MetaFile : TMetaFile;
MetaCanvas : TMetaFileCanvas;
BMP : TBitmap;
begin
//BMPの読み込み
MetaFile := TMetaFile.Create;
BMP := TBitmap.Create;
BMP.LoadFromFile('C:\windows\花見.bmp');
//サイズ設定
MetaFile.Height := BMP.Height;
MetaFile.Width := BMP.Width;
//メタファイルのCanvasを作成
MetaCanvas:=TMetafileCanvas.Create(MetaFile, 0);
//メタファイルのCanvasにBMPを描画
MetaCanvas.Draw(0, 0, BMP);
MetaCanvas.Free;
BMP.Free;
//WMFの書き込み
MetaFile.SaveToFile('C:\windows\ﾃﾞｽｸﾄｯﾌﾟ\花ちゃん.wmf');
MetaFile.Free;
end;
|
Bmpファイルをwmfファイルに変換する