Tüm Platformlar için Hızlı Uygulama Geliştirme --->    Kitabımız...      Delphi

Konuyu Paylaş : facebook gplus twitter

Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 1
  • 2
  • 3
  • 4
  • 5
Resim orjinal ve boyutlandırmada
#1
Merhaba,

Resmin öncede resim orijinal boyutunu ve yeni boyutunu bir klasöre alıyorum.
Aşıdaki kodlarla ise listviewe resimleri alıyorum, fakat bir kısıntı oluşuyor remin ojninal hali ile listview alırsam resim sadece bir bölümü listviewde görülüyor, boyutlandırılmış haliyle almak istediğimde ise JPEG error #53 hatası alıyorum bunu nasıl çözebilirim?




function TForm2.UrunImage(const StrImage: String): Boolean; 
var
  Bmp: TBitmap;
  Jpg: TJpegImage;
  ResimAdres: String;
begin
  try
    ResimAdres := IMGFile + '\' + StrImage + 'k.jpg';
    if FileExists(ResimAdres) then
    begin
      Bmp := TBitmap.Create;
      Jpg := TJpegImage.Create;
      Jpg.LoadFromFile(ResimAdres);
      Bmp.Assign(Jpg);
      ListeleImage.Add(Bmp, Bmp);
    end;
  finally
    Bmp.Free;
    Jpg.Free;
  end;
end;
Hayat bazen güzel olabiliyor.
Cevapla
#2
Boyutlandırdığınız hali jpg değil büyük ihtimal notepad ile açıp bir bakın

“Do. Or do not. There is no try.”
Cevapla

Konuyu Paylaş : facebook gplus twitter



Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
  Cxgrid Resim esrehmaan 4 265 28-10-2017, Saat: 22:57
Son Yorum: esrehmaan
  Varbinary(MAX) Tipindeki Resim Dosyalarını Timage Kolay Gösterim pro_imaj 4 290 19-10-2017, Saat: 15:02
Son Yorum: pro_imaj
  Resim ekleme hattası(Çözüldü Çözümü Paylaşıldı) admin02 15 513 22-09-2017, Saat: 17:55
Son Yorum: admin02
  Acess Veribanına resim ekleme(Çözüldü ve çözüm kodları paylaşıldı) admin02 11 423 19-09-2017, Saat: 17:32
Son Yorum: admin02
  Resim listeleme Dostk 9 392 31-07-2017, Saat: 10:16
Son Yorum: Tuğrul HELVACI



Konuyu Okuyanlar: 1 Ziyaretçi