png aus TImage herausspeichern als Bitmap

[bernhard_LA]

ich lade ein png Bild in eine TImage Kompente mit folgendem Code

Delphi-Quellcode:

  gv = class (...)
      .....
      procedure execute;
      png  : TPngImage;
      end;



  try
    gv. ....
    gv.  ....
    gv.Execute;
    aImage.picture.Assign(gv.Png);
  finally
    gv.Free;
    
  end;

das ganz ist sehr ähnlich zu http://stackoverflow.com/questions/2...o-cbuilder-xe5

Funktioniert auch soweit.


jetzt versuche ich das Bild mit diesem Code als *.bmp zu speichern

Delphi-Quellcode:

 Image1.Picture.Bitmap.SaveToFile('c:\temp\myimage.bmp');

und bekomme 2 Probleme

a) Datei kann nicht geöffnet werden " Fehler ist leer , 0 Kbyte"
b) die Anzeige von Image1 (TImage) wird weiss.

[baumina]

Gehst einfach über ein Bitmap, so in der Art (ungetestet):

Delphi-Quellcode:

var
Bitmap: TBitmap;

begin
  Bitmap := TBitmap.Create;
  Bitmap.Assign(gv.Png);
  aImage.picture.Assign(Bitmap);
  aImage.Picture.Bitmap.SaveToFile('c:\temp\myimage.bmp');
  Bitmap.Free;

[Progman]

Vielleicht hilft es, den Canvas des TImage.Picture in ein neues TBitmap zu kopieren und dieses zu speichern?

Edit: zu langsam :-)

[Sherlock]

Weil ich das richtig schön mächtig finde: TWICImage

Sherlock