PngDelphi - Transparent wird schwarz gedruckt.

[bernau]

Hi,

wer von euch nutzt die Komponente PngDelphi.

Ich stoße damit grade auf einen eigenartigen Fehler. Wenn ich eine PNG-Grafik mit transparenten Bereichen lade, wird diese korrekt auf dem Bildschirm-Canvas gezeichnet. Aber wenn ich den Printer-Canvas benutze, dann werden die transparenten Stellen schwarz gezeichnet.

Hatt jemand eine Idee, woran das liegen könnte?

[matashen]

Hallo,

printer.canvas ist so eine Sache. Das Teil zickt und ist auch nicht gedacht so angesteuert zu werden wie ein Bildschirm.

Hast du einen Brocken Code für mich?

Gruß
Matthias

[Pfaffe]

Ich kenne das Problem und gehe davon aus, dass es sich um Druckertreiberbugs handelt. Es hat nichts mit pngDelphi zu tun. Meine prakmatische Lösung: Für den Ausdruck ein Bild mit weißem Hintergrund verwenden.

[nuclearping]

Zitat von Pfaffe:

Für den Ausdruck ein Bild mit weißem Hintergrund verwenden.

Das klappt nur solange, wie die Bilder nicht irgendwo drüberliegen.

@bernau:
Eine andere Möglichkeit wäre, statt die Ausgabe auf den Printer.Canvas zu zeichnen, alles in eine Puffer-Bmp zu zeichnen und diese dann an den Drucker zu schicken.

[matashen]

vieleicht hilft das

Code:

PROCEDURE PrintBitmap(Canvas:  TCanvas; DestRect:  TRect;  Bitmap:  TBitmap);
  VAR
    BitmapHeader:  pBitmapInfo;
    BitmapImage:  POINTER;
    HeaderSize: Cardinal;
    ImageSize   :  DWORD;
BEGIN
  GetDIBSizes(Bitmap.Handle, HeaderSize, ImageSize);
  Bitmapheader := VirtualAlloc(nil, HeaderSize, MEM_COMMIT, PAGE_READWRITE);
  BitmapImage := VirtualAlloc(nil, ImageSize, MEM_COMMIT, PAGE_READWRITE);

  TRY
    GetDIB(Bitmap.Handle, Bitmap.Palette, BitmapHeader^, BitmapImage^);

    StretchDIBits(Canvas.Handle,
                  DestRect.Left, DestRect.Top,     // Destination Origin
                  DestRect.Right  - DestRect.Left, // Destination Width
                  DestRect.Bottom - DestRect.Top,  // Destination Height
                  0, 0,                            // Source Origin
                  Bitmap.Width, Bitmap.Height,     // Source Width & Height
                  BitmapImage,
                  TBitmapInfo(BitmapHeader^),
                  DIB_RGB_COLORS,
                  SRCCOPY)
  FINALLY
    VirtualFree(Bitmapheader, 0, MEM_FREE);
    VirtualFree(bitmapimage, 0, MEM_FREE);
  END
END {PrintBitmap};

[bernau]

Zitat von matashen:

vieleicht hilft das

Nicht ganz. PngObject ist ja kein Bitmap und kann deiner Funktion somit nicht übergeben werden.

[rwalper]

Ich habe das hinbekommen, in dem ich den Umweg über ein Windows-Metafile gehe. Allerdings verwende ich TdxPNGImage der Developer Express-Komponenten:

Delphi-Quellcode:

var
  WMF: TMetafile;
  MC: TMetafileCanvas;
  PNGImage: TdxPNGImage;
begin
  PNGImage := TdxPNGImage.Create;
  try
    PNGImage,LoadFromFile('C:\Temp\Test.png');
    WMF := TMetafile.Create;
    try
      WMF.Width := 1000;
      WMF.Height := 1000;
      MC := TMetafileCanvas.Create(WMF, 0);
      try
        // Zeichen der PNG-Grafik
        MC.Draw(0,0,PNGImage);
      finally
        MC.Free;
      end;
      // Ausgabe auf Drucker
      Printer.Canvas.Draw(0,0,WMF);
    finally
      WMF.Free;
    end;
  finally
    PNGImage.Free;
  end;
end;

Vielleicht nützt Dir diese Anregung.

Noch was wichtiges: Oft hängt es vom Druckertreiber ab, ob Transparenzen überhaupt gerendert werden. Der Standard-Windows-Druckertreiber kann es oft nicht. Wir verwenden in solchen Fällen die PostScript-Treiber, sofern welche verfügbar sind.

Gruß
Remo

[bernau]

Zitat von rwalper:

Ich habe das hinbekommen, in dem ich den Umweg über ein Windows-Metafile gehe. Allerdings verwende ich TdxPNGImage der Developer Express-Komponenten:

Habe es versucht. Allerdings werden dann die transparenten Bereiche auch auf dem Bildschirm schwarz gezeichnet.

[Blup]

Wenn dein Drucker zu irgendeinem HP-Drucker kompatibel ist, installier den passenden HP-Treiber und probiers damit.