TImage Nesnesinde gösterilen resimler

[csyasar]

arkadaşlar;

dışardan bir resim dosyası(*.jpg, *.ico, *.bmp, *.vs..) alıp timage'da gösteriyorum. daha sonra bu resmi programımın bulunduğu dizine

resim.picture.savetofile() komutuyla türü ne olursa olsun jpg formatında programın olduğu dizine kaydettiriyorum. buraya kadar herşey normal. kaydettiğim jpg formatındaki dosyaları, hatta ico dosyalarını bile windows explorer problemsiz gösteriyor ama programımı açtığım zaman şu hatayı veriyor:

JPEG error #52

sanırım farlı biçimlerden(*.ico, *.bmp, *.vs...) jpg'ye dönüştürdüğüm dosyayı delphi timage tanımıyor. yalnız windows explorer problemsiz gösteriyor. bu hatayı nasıl gideririz?

cumanız mübarek olsun...

[mrmarman]

Merhaba...

- Image nesnesine bir BMP'yi LoadFromFile ile okur da JPG uzantısıyla SaveToFile derseniz; JPG uzantılı bir dosya elde etmiş olursunuz ama bu sadece etiketinde geçerlidir. İçeriği yine BMP'dir.

- Image nesnesine yükleyeceğiniz her resmi önce JPG formatına dönüştürür, sonra IMAGE nesnesine yüklerseniz, bu taktirde etiketi ne olursa olsun JPG olmasını sağlayarak bu dezavantajı avantaja dönüştürebilirsiniz...

Kod: Tümünü seç

Var
  BMPresim: TBitmap;
  JPGresim: TJpegImage; // Uses Jpeg
begin
  BMPresim := TBitmap.Create;
  BMPresim.LoadFromFile('DelphiTurkiye.BMP');
  JPGresim := TJpegImage.Create;
  JPGresim.Assign(BMPresim);
  Image1.Picture.Assign(JPGresim); // artık savetofile ile JPG mümkün
  BMPresim.Free;
  JPGresim.Free;
end;