Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Ошибка при переводе Bmp в Wmf [D6, Win95/98]


Dr. Genius ©   (2005-06-27 16:06:00) 

В переменной Bmp типа TBitmap хранится изображение с разрешением 800х600. Перевожу Bmp в Wmf по коду, выложенному ниже. Получается Wmf-файл с разрешением не 800х600, а 797х597. Почему так происходит и как решить эту проблему.

var
 Bmp: TBitmap;
 Metafile: TMetafile;
 MfCanvas: TMetafileCanvas;

...
...

 Metafile := TMetaFile.Create;
 Metafile.Width := Bmp.Width;
 Metafile.Height := Bmp.Height;
 MfCanvas := TMetafileCanvas.Create (Metafile, 0);
 try
   MfCanvas.Draw (0, 0, Bmp);
 finally
   MfCanvas.Free;
 end;
 Metafile.SaveToFile (‘Image.wmf');
 Metafile.Free;


lookin   (2005-06-27 17:06:00) [1]

Я не уверен, но:

constructor Create(AMetafile: TMetafile; ReferenceDevice: HDC);

Create sets the size of the TMetafile object from ReferenceDevice if it does not already have the MMHeight and MMWidth properties set. Create then creates a metafile device context, and sets the Handle property to its handle. All subsequent drawing methods will draw to the metafile device context.

И при этом:

property MMWidth: Integer;

MMWidth is used for a more accurate reading of the horizontal size of the graphic. The Width property, by contrast, is always in screen device pixel units; to avoid loss of precision in converting between device pixels and millimeters, set or read the dimensions in millimeters with MMWidth. The MMWidth property is always in screen device pixel units.

Может быть, эти две сточки из кода убрать?
Metafile.Width := Bmp.Width;
Metafile.Height := Bmp.Height;


Dr. Genius   (2005-06-27 16:50:00) [2]


> А визуально как? Обрезает или сжимает?


Сжимает.


> И вообще, зачем этот перевод? Все равно растр хранится (если
> WMF это вообще позволяет - не помню).


Я пишу программу для захвата экранных снимков с последующим сохранением их в файлы. Чем больше форматов будет поддерживаться программой - тем лучше.


-=XP=-   (2005-06-27 16:11:00) [3]

И вообще, зачем этот перевод? Все равно растр хранится (если WMF это вообще позволяет - не помню).


-=XP=-   (2005-06-27 16:10:00) [4]

А визуально как? Обрезает или сжимает?


Наверх

Титульная страница Поиск, карта сайта Написать письмо