TBitmap32 SaveToFile PNG...Wie?

[torud]

Hallo Wissende,

folgender Code schlägt leider aufgrund Inkompatibilität fehl. Wie muss ich´s machen, damit es funzt, samt Transparenz?

Delphi-Quellcode:

var
  myPng : TPngObject;
begin
  myPng := TPNGObject.Create;
  myPng.Assign(img_btn_design.Bitmap);
  myPng.SaveToFile(App_Pfad + 'sample.png');
  myPng.Free;
end;

Dem Bitmap32 wurde vorher ein PNG mit Transparenzen übergeben. Anschliessend wurde auf dem Bitmap Text gerendert und nun soll das Bitmap wieder als transparentes PNG gespeichert werden. Benutzt wurden die GraficEx-Komponenten...

Tipps, Hinweise?

[cruiser]

GraphicEx hat nur eine mangelhafte PNG-Unterstützung...

steht auch im Graphics32 FAQ

PNGdelphi sollte bessere Ergebnisse bringen...

Meine Favoriten sind aber immer noch die PNG Components.

[torud]

So gayts auch, wobei ich da noch nicht gecheckt habe, ob die Transparenzen erhalten bleiben...

Delphi-Quellcode:

var
  myPng : TPngObject;
  myBmp : TBitmap;
begin
  myPng := TPNGObject.Create;
  myBmp := TBitmap.Create;

  myBmp.Assign(img_btn_design.Bitmap);
  myPng.Assign(myBmp);
  myPng.SaveToFile(App_Pfad + 'sample.png');
  myPng.Free;
  myBmp.Free;
end;

[xZise]

Auch wenn das etwas her ist, aber folgendermaßen funktioniert es leider nicht:

Delphi-Quellcode:

function SaveBitmap32ToPNGFile(AFileName: string; srcbmp32: TBitmap32): bool;
var
  PNG: TPNGObject;
begin
  Result := FALSE;

  PNG := TPNGObject.Create;
  try
    PNG.Assign(srcbmp32);
    PNG.SaveToFile(AFileName);
  finally
    PNG.Free;
  end;
end;

Ergebnis:

Zitat:

---------------------------
Timetaptop
---------------------------
TBitmap32 kann nicht zu TPNGObject zugewiesen werden.
---------------------------
OK
---------------------------

MfG
xZise

[himitsu]

Zitat:

PNG.Assign(srcbmp32);

Dafür müsste TPNGObject den Typ TBitmap32 kennen, was eine vollkommen schwachsinnige Abhängigkeit ergäbe,
damit das TPNGObject den Inhalt von TBitmap32 übernehmen könnte.

Fazit: Nicht Assign/AssignTo, sondern die Größe des PNG festlegen und dann auf dessen Canvas das Bitmap drauf malen.

Alternativ: TBitmap32 kennt TPNGObject und hat eine entsprechende Übergabefunktion implementiert. (ebenfalls eine blöde Abhängigkeit)
dann srcbmp32.AssignTo(PNG);

[Sir Rufo]

Zitat von himitsu:

srcbmp32.AssignTo(PNG);

Eine protected Methode kann man aber nicht so ohne Weiteres verwenden

Und wenn TBitmap32 das TPngObject bekannt ist, dann macht man trotzdem PNG.Assign( srcbmp32 ); . Genau für dieses Szenario gibt es eben Assign und AssignTo .

[bernau]

Der Thread ist 8 Jahre alt. Rekord?

[Sir Rufo]

Zitat von bernau:

Der Thread ist 8 Jahre alt. Rekord?

Nein, war passiv aktiv => http://www.delphipraxis.net/1327482-post13.html

[bytecook]

Zitat von himitsu:

Zitat:

PNG.Assign(srcbmp32);

Dafür müsste TPNGObject den Typ TBitmap32 kennen, was eine vollkommen schwachsinnige Abhängigkeit ergäbe,
damit das TPNGObject den Inhalt von TBitmap32 übernehmen könnte.

Fazit: Nicht Assign/AssignTo, sondern die Größe des PNG festlegen und dann auf dessen Canvas das Bitmap drauf malen.

Alternativ: TBitmap32 kennt TPNGObject und hat eine entsprechende Übergabefunktion implementiert. (ebenfalls eine blöde Abhängigkeit)
dann srcbmp32.AssignTo(PNG);

Richtig, das Graphics32 Framework unterstützt bewusst keine Lade- / Speicherroutinen, abgesehen vom Bitmap Format. Lade- sowie Speicherfunktionen gibt es allerdings in Drittunits,
teilweise auch von Mitautoren / Verwaltern wie Christian (cwbudde). Anbei der Link zu seinem GR32_Png Library: http://sourceforge.net/projects/gr32pnglibrary/

Gruß,

Peter