Speichern Sie die Bitmap mit Transparenz als PNG in Delphi 2007

Ich habe eine Delphi-bitmap (32Bit), der Transparenz von Informationen. Ich brauche, um zu konvertieren und speichern Sie eine PNG-Datei bei gleichzeitiger Wahrung der Transparenz.

Werkzeuge, die ich derzeit habe sind die graphics32-Bibliothek, GR32_PNG (Christian Budde), und PNGImage (von Gustavo daud).

Was ist der beste Weg, dies zu tun?

EDIT 1 : Es gibt nicht nur eine Farbe in meinem bitmap transparent, aber Pixel mit verschiedenen Transparenzstufen, die bewahrt werden muss.

EDIT 2 : ich bin immer meine bitmap mit alpha-Informationen durch setzen der background von einem Bild in eine PNG-ich habe mit nichts außer einem leeren alpha-Schicht. Dann Schreibe ich anti-Aliasing-text auf es. Ich habe dann speichern Sie die bitmap. Beim öffnen mit gimp zeigen die Transparenz und auf das Zoomen können Sie sehen, die Wirkung von anti-aliasing.

InformationsquelleAutor Tim | 2011-01-12
  1. 4

    Verwenden PNGImage. In Delphi, versuchen Sie dies:

    function ConvertToPNG(oBMPSrc: TBitmap; sFilename: String);
var
  oPNGDest: TPNGObject;
begin
  oPNGDest := TPNGObject.Create;
  try
    oPNGDest.Assign(oBMPSrc);
    oPNGDest.SaveToFile(sFilename); 
  finally
    oPNGDest.Free;
  end;
end;

    Wenn das nicht für Sie arbeiten, werden Sie wahrscheinlich haben, um das kopieren über die alpha-und RGB-Werte individuell.

    function ConvertToPNG(oBMPSrc: TBitmap; sFilename: String);
var
  oPNGDest: TPNGObject;
begin
  oPNGDest := TPNGObject.CreateBlank(COLOR_RGBALPHA, 8, oBMPSrc.Width, oBMPSrc.Height);
  try
    oPNGDest.CreateAlpha;
    // Copy over RGB
    ..
    // Copy over Alpha
    ..
    // Save to file
    oPNGDest.SaveToFile(sFilename); 
  finally
    oPNGDest.Free;
  end;
end;
    • Wenn ich die unit PNGImage in meinem Programm die gespeicherte bitmap, die ich erstellt (prüfen, BEARBEITEN 2 in der wichtigsten Frage nicht mehr, zeigt keine Transparenz-Informationen.
    InformationsquelleAutor Marcus Adams
  2. 3

    Konnte ich nicht bekommen, entweder von den anderen beiden Antworten an die Arbeit. Sie können für andere zu arbeiten, aber hier ist was ich getan habe.

    1. Habe ich die bitmap mit Transparenz.
    2. Zugeordnet ein TBitmap32 von der Grafik 32 Bibliothek.
    3. Zugeordnet es zu einer TPortableNetworkGraphics32 von Christian Budde ist GR32_PNG für Graphics32
    4. Genannt TPortableNetworkGraphics32.SaveToFile-Methode
    InformationsquelleAutor Tim
  3. 1

    Schauen Sie sich dieses link

    Gibt es eine Funktion:

    function WriteBitmapToPngFile( Filename : string; Bitmap : TBitmap; TransparentColor:TColor):boolean;
    • Blick auf den code in der Funktion es wird angezeigt dass es nur 1 Farbe transparent statt die unterschiedlichen Stufen, die ich brauche. (aktualisiert haben, Frage um das klar zu machen). Allerdings habe ich noch versucht, es durch die Schaffung PNGUnit und PNGLib von der Verbindung bereitgestellt. Beim aufrufen der Funktion das Programm beginnt zu laufen, endet jedoch, bevor es zeigt auch die wichtigste form, ohne Fehler msg. Vielen Dank für Ihre Hilfe so weit.
    InformationsquelleAutor M Schenkel
Schreibe einen Kommentar