TdxPNGIMage i Bitmap a Dönüştürmek

[vkamadan]

Merhabalar ,
TImage nesnesine PNG dosyası yüklediğimde Picture özelliği TdxPNGIMage olarak değişiyor, ben yüklediğim PNG yi işleye bilmek için Bitmap a çevirmek istiyorum TdxPNGImage içinde ConvertBitmap prosedürü var PNG yi yükleyip bitmap işlemlerine başlamadan önce çağırınca Access Violation ile kırılıyor. sonuç olarak PNG bir resmi Bitmap a çevirmek istiyorum.

[sabanakman]

Eğer TdxPNGIMage sınıfı TGraphic sınıfından türetilmiş ise

Kod: Tümünü seç

var Bmp:TBitmap;
begin
  Bmp:=TBitmap.Create;
  Bmp.Assign(dxPNGIMage );

şeklinde çevrilebilmesi gerekmektedir. Dosya olarak ise Bmp.SaveToFile metodu kullanılabilir.

[vkamadan]

@sabanakman ,
TdxPNGImage bir kaç kademe yukarıda sonunda TGraphic e varıyor , fakat belirttiğiniz yöntemi şöyle uyguladığımda atayamayacağımı söylüyor Connot Assign a TPicture to a TBitmap

Formda TImage nesnem var, içine PNG yüklediğimde Picture özelliği TdxPNGImage ye dönüşüyor (IDE öyle gösteriyor) bende sizin belirttiğiniz şekilde

Kod: Tümünü seç

procedure TForm1.Button3Click(Sender: TObject);
var
 a: TBitmap ;
begin
  try
     a := TBitmap.Create;
     a.Assign(  TdxPNGImage(Image1.Picture) ); // Burada kırılıyor..
     a.SaveToFile( 'c:\a.bmp' );
     ShowMessage('OK');
  finally
     a.Free ;
  end;

end;

ayrıca

Kod: Tümünü seç

a.Assign(  Image1.Picture.Bitmap );

olarak denediğim de boş bir Bitmap oluşluşuyor..

[vkamadan]

TdxPNGImage içinde SaveToStreamByCodec metodu yüklenen PNG yi desteklediği dosya formatlarına Stream olarak kaydediyormuş aşağıdaki yapıyla dönüşümü yaptım.

Kod: Tümünü seç

procedure TForm1.Button3Click(Sender: TObject);
var
 a: TdxPNGImage ;
 s : TFileStream ;
begin
  try
     a := TdxPNGImage.Create;
     s := TFileStream.Create( 'c:\a.bmp' , fmCreate );
     s.Position := 0;
     a.Assign(  Image1.Picture );
     a.SaveToStreamByCodec(s , dxImageBitmap);
  finally
     a.Free ;
     s.Free;
  end;
end;