Bitmap in TMetafile ausgeben Windows 7

[rweinzierl]

Hallo

Erst mal danke für das du es ausprobiert hast, aber Delphi akteptiert den Code so nicht, TMetafileCanvas akzeptiert kein Height.

Ich habe die gleiche Exe mit dem gleichen Bitmap (nur 1 Pixel in Schwarz) auf einen XP und einen Windows7(32 Bit) laufen lassen und die wmf Dateien im Hex Editor verglichen ==> Da sind mehr Unterschiede als ich erwartet habe.(siehe Anhang). (MSPaint zeigt bei der xp Version das eine Pixel einwandfrei an bei der win7 version nicht)

Ich verstehe erlich gesagt die Welt nicht mehr, habe im Internet niemanden mit dem gleichen Problem gefunden. Ich dachte das sei eine Grundfunktion von Delphi/Windows und sollte funktioniern.

Ich habe mir auch die Spezikation der WMF Datei geladen aber da stöße ich an meine Grenzen.

mfg

Reinhold

Zitat von freeway:

ich hab mal deinen Code kopiert und ihn so laufen lassen, unter WIN7, das dabei erzeugte WMF entspricht exakt dem BMP
vielleicht hilft dir diese kleine Änderung

Delphi-Quellcode:

myc.Height := Bitmap.Height;
myc.Width  := Bitmap.Width;

[Bummi]

folgender Code liefert bei mir unter WIN7 D2010 das erwartete Ergebnis

Delphi-Quellcode:

var
  MyMetafile: TMetafile;
  Bitmap: TBitmap;
  myc: TMetafileCanvas;

begin
  MyMetafile := TMetafile.Create;
  Bitmap := TBitmap.Create;
  try
    MyMetafile.Width := 200;
    MyMetafile.Height := 200;
    Bitmap.Width := 100;
    Bitmap.Height := 100;
    Bitmap.Canvas.pen.Color := clRed;
    Bitmap.Canvas.pen.Width := 2;
    Bitmap.Canvas.Ellipse(0, 0, 99, 99);
    Bitmap.PixelFormat := pf32bit;
    myc := TMetafileCanvas.Create(MyMetafile, 0);
    try
      myc.pen.Color := clBlue;
      myc.Ellipse(0, 0, 199, 199);
      myc.Draw(0, 0, Bitmap);
    finally
      myc.Free;
    end;
    MyMetafile.SaveToFile('c:\temp\mist.wmf');
    self.Canvas.Draw(0, 0, MyMetafile);
  finally
    Bitmap.Free;
    MyMetafile.Free;

  end;

end;

[rweinzierl]

Danke , wirklich danke.

Tatsächlich arbeitet dieser Code einwandfrei ==> Jetzt habe ich auch die Ursache gefunden, glauben kann ichs aber immer noch nicht ==> Meiner Meinung nach ein Bug .

Wenn ich ein Bitmap lade mit 24 Bit Farbtiefe gehts , bei 256 Farben nicht !!

mfg

Reinhold

Zitat von Bummi:

folgender Code liefert bei mir unter WIN7 D2010 das erwartete Ergebnis

Delphi-Quellcode:

var MyMetafile : TMetafile;
Bitmap : TBitmap;
myc : TMetafileCanvas ;

begin
MyMetafile := TMetafile.Create;
MyMetafile.Width := 200;
MyMetafile.Height := 200;

Bitmap := TBitmap.create;
Bitmap.width := 100;
Bitmap.Height := 100;
Bitmap.Canvas.pen.Color := clRed;
Bitmap.Canvas.pen.Width := 2;
Bitmap.Canvas.Ellipse(0,0,99,99);
myc := TMetafileCanvas.Create(MyMetafile, 0);

myc.pen.Color := clBlue;
myc.Ellipse(0,0,199,199);
myc.Draw(0, 0, Bitmap);
myc.Free;

MyMetafile.SaveToFile('c:\temp\mist.wmf');
self.Canvas.Draw(0,0,MyMetafile);
Bitmap.free;
MyMetafile.free;
end;

[Bummi]

kannst Du per Bitmap.PixelFormat := pf24Bit;
nachträglich "korrigieren", allerdings habe ich bis incl. pf4Bit kein Problem pf1Bit funktioniert nicht mehr, pf16Bit bringt Farbfehler

[DeddyH]

Könntet Ihr bitte noch Ressourcenschutzblöcke einbauen? Nicht, dass das später jemand so übernimmt und sich Speicherlecks einfängt.

[edit]

Delphi-Quellcode:

  MyMetafile := TMetafile.Create;
  Bitmap := TBitmap.Create;
  try
    ...
  finally
    Bitmap.Free;
    MyMetafile.Free;
  end;

ist aber auch nicht ganz korrekt.

Delphi-Quellcode:

MyMetafile := TMetafile.Create;
try
  Bitmap := TBitmap.Create;
  try
    ...
  finally
    Bitmap.Free;
  end;
finally
  MyMetafile.Free;
end;

Oder man initialisiert die "innere" Instanz mit nil, dann kann es auch im finally nicht knallen.[/edit]

[freeway]

da hab ich vertan mit myc und mymetafile, sorry

so sollte es sein

Delphi-Quellcode:

MyMetafile.Height := Bitmap.Height;
MyMetafile.Width := Bitmap.Width;

myc := TMetafileCanvas.Create(MyMetafile, 0);

zumindest funzt es bei mir so ohne Probleme