//------------------------------------------------------------------------------ //■関数名 EMFToBMP //■用途 EMF->BMP変換 //■引数 // BMP ...TBitmapオブジェクト(戻り値) // OpenFileName ...EMFのファイル名 //------------------------------------------------------------------------------ procedure EMFToBMP(BMP :TBitmap;OpenFileName : String); Var MetaFile:TMetafile; begin Metafile:=TMetaFile.Create; BMP.PixelFormat:=pf24bit; try //ファイルの読み込み MetaFile.LoadFromFile(OpenFileName); //サイズ設定 BMP.Height :=Metafile.Height; BMP.Width :=Metafile.Width ; //メタファイルの画像をBMPへ転送 BMP.Canvas.Draw(0,0,MetaFile); finally MetaFile.Free; end; end;