WMF ---> BMP

procedure ConvertWMF2BMP
(const WMFFileName, BMPFileName: TFileName);
var
 MetaFile : TMetafile;
 Bitmap : TBitmap;
begin
 Metafile := TMetaFile.Create;
 Bitmap := TBitmap.Create;
 try
  MetaFile.LoadFromFile(WMFFileName);
  with Bitmap do
  begin
  Height := Metafile.Height;
  Width := Metafile.Width;
  Canvas.Draw(0, 0, MetaFile);
  SaveToFile(BMPFileName);
  end;
 finally
        Bitmap.Free;
  MetaFile.Free;
 end;
end;

Использование:

ConvertWMF2BMP('c:\mypic.wmf','c:\mypic.bmp')

Взято из http://forum.sources.ru

Отправить комментарий

Содержание этого поля является приватным и не предназначено к показу.
Проверка
Антиспам проверка
Image CAPTCHA
...