Проблема с bitmap (Delphi 7)

[alxd]

Хотя нет сейчас еще раз все перепроверил, обнаружил следующее:
И

pic.SaveToFile('C:\FromTPic.bmp');

и

bitmap.SaveToFile('C:\FromTBit.bmp');

дают похожие результаты - дефекты присутствуют на обоих изображениях.
А вот если в Paint, Paint.NET и т.п. вставлять из буфера - все нормально.
Выходит глюк в TClipboard?
И как теперь быть?

[Stilet]

Выходит глюк в TClipboard?

Скорее глюк оффиса.

[alxd]

Да нет, не офиса, и не клипборда. И вот почему.
Взял простой EMF и попробывал сконвертировать в BMP - результат такой же

procedure TForm1.BitBtn1Click(Sender: TObject);
var
  metafile: TMetafile;
  bitmap: TBitmap;
begin
  metafile := TMetafile.Create;
  metafile.LoadFromFile('C:\Metafile.emf');

  bitmap := TBitmap.Create;
  bitmap.Width := metafile.Width;
  bitmap.Height := metafile.Height;

  bitmap.Canvas.Draw(0,0, metafile);
  bitmap.SaveToFile('C:\Metafile2Bmp.bmp');
  Image1.Picture.Metafile := metafile;
end;

Пробовал этот же EMF преобразовать в программе "FastStone Image Viewer" - тоже самое, хотя и не сильно легче от этого стало.

Как решить проблему?

P.S. последние исходники и файл EMF прилагаются

[Stilet]

Знаешь, если разберешся в чем дело - отпишись. Мне тоже интересно.

[alxd]

Буду стараться разобраться, хотя уже голова вся кругом от этого - целый день бьюсь

[x128]

Сообщение от alxd

Взял простой EMF и попробывал сконвертировать в BMP - результат такой же

procedure TForm1.BitBtn1Click(Sender: TObject);
var
  metafile: TMetafile;
  bitmap: TBitmap;
begin
  metafile := TMetafile.Create;
  metafile.LoadFromFile('C:\Metafile.emf');

  bitmap := TBitmap.Create;
  bitmap.Width := metafile.Width;
  bitmap.Height := metafile.Height;

  bitmap.Canvas.Draw(0,0, metafile);
  bitmap.SaveToFile('C:\Metafile2Bmp.bmp');
  Image1.Picture.Metafile := metafile;
end;

Как решить проблему?

Замени строчку bitmap.Canvas.Draw(0,0, metafile) на PlayEnhMetaFile(bitmap.Canvas.Handl e, metafile.Handle, bitmap.Canvas.ClipRect) и все должно стать на свои места.

[alxd]

Сообщение от x128

Замени строчку bitmap.Canvas.Draw(0,0, metafile) на PlayEnhMetaFile(bitmap.Canvas.Handl e, metafile.Handle, bitmap.Canvas.ClipRect) и все должно стать на свои места.

Спасибо, все отлично стало! А почему bitmap.Canvas.Draw(0,0, metafile) не работало как надо?

[x128]

Точно сказать тяжело, но судя по артефактам дело скорее всего в округлении при пересчете ширины и высоты т.к. эти значения у метафайлоф в миллиметрах.