WmfファイルをBmpファイルに変換する

WmfファイルをBmpファイルに変換する

■WmfファイルをBmpファイルに変換する処理

procedure

TForm1.Button2Click(Sender:
TObject);

var

　MetaFile:TMetafile;

　Bmp:TBitmap;

begin



　//ファイルの読み込み

　Metafile:=TMetaFile.Create;

　Bmp:=TBitmap.create;

　MetaFile.LoadFromFile('C:\windows\ﾃﾞｽｸﾄｯﾌﾟ\花ちゃん.wmf');



　//サイズ設定

　Bmp.Height :=Metafile.Height;

　Bmp.Width :=Metafile.Width ;



　//メタファイルの画像をBMPへ転送

　Bmp.Canvas.Draw(0,0,MetaFile);

　Bmp.SaveToFile('C:\windows\ﾃﾞｽｸﾄｯﾌﾟ\花ちゃん.bmp');

　Bmp.Free;



　MetaFile.Free;

end;

Delphi　Tipsのページへ

ホーム