Jpeg resim kaydetme veya dosyadan gösterme

[bobasturk]

merhaba,

Kod: Tümünü seç

procedure TFormArsiv.Label47Click(Sender: TObject);
begin
  if fileexists(dm1.DosyaYoluIBDataSet.fieldbyname('FOTO_YOLU').AsString+dm1.ArsivIBDataSet.fieldbyname('CERAIMNO').AsString+'.jpg') then
    begin
      image1.Picture.LoadFromFile(dm1.DosyaYoluIBDataSet.fieldbyname('FOTO_YOLU').AsString+dm1.ArsivIBDataSet.fieldbyname('CERAIMNO').AsString+'.jpg');
      label47.Visible:=false;
    end
    else
    begin
  if not fileexists(dm1.DosyaYoluIBDataSet.fieldbyname('FOTO_YOLU').AsString+dm1.ArsivIBDataSet.fieldbyname('CERAIMNO').AsString+'.jpg') then
      showmessage('"'+dm1.arsivibdataset.fieldbyname('CERAIMNO').AsString+
      '"'#13'Ceraim Numaralı Şahsın'#13'Fotoğrafı Kayıtlarda Yok');
      label47.Visible:=true;
    end;

yukarıdaki koda benzer bir kod ile fotoğrafları gösteriyorum. sorunum şu;

150 000 kayıtlık bir veritabanında yaklaşık 50000 resim yükleyeceğiz. 200 veya 400 kb. olduğu düşünülerek yapılan hesap sonucunda yaklaşık 20 gb lik bir büyüklük yapıyor. windowsun dosya boyut sınırı buna yetmiyor. bu sebeple program klasörü içinde oluşturulan foto klasöründe resimleri saklayacağım. benden istenen yaş aralığında çıkan sonuçta dönen kayıtların fotoğraflarını slayt olarak gösterilmesi. bu 3-4 bin kayıt ta olabilir, daha az veya çokta olabilir.

-yukarıdaki bir uygulamada fotoğrafların gösteriminde windows yönünden veya program yönünden sıkıntı yaşarmıyım?
-daha hızlı veya mantıklısı ne olabilir?

zira image nesnesine nil komutunu vermediğimde yaklaşık 300 fotoğraflık kayıt üzerinde gezinti yaptıktan sonra programı kapattığımda hata mesajı aldım, nil komutundan sonra bu hata dönmedi. fikir ve yardımlarınızı paylaşırsanız sevinirim.

kolay gelsin

[orhancc]

nili nereye veriyorsun aldığın hata nedir ?

[bobasturk]

merhaba,

Kod: Tümünü seç

procedure TFrmKayitFiltre.JvXPButton14Click(Sender: TObject);
begin
  sorgulardm.SicilFiltreIBQry.Next;
  if fileexists(extractfilepath(paramstr(0))+'foto\'+inttostr(sorgulardm.SicilFiltreIBQry.fieldbyname('MAHALLISICIL').asinteger)+'.jpg') then
  begin
      image1.Picture:=nil;
      image1.Picture.LoadFromFile(extractfilepath(paramstr(0))+'foto\'+inttostr(sorgulardm.SicilFiltreIBQry.fieldbyname('MAHALLISICIL').asinteger)+'.jpg');
  end
  else
  begin
    image1.Picture:=nil;
  end;
end;

tam olarak yukarıdaki kodu kullanıyorum. şu an hata vermediğinden hata mesajını tam olarak söyleyemeyeceğim. şunu söyleyeyim programın kapanışında windowsun hata raporu ilk karşıma çıkmıştı.

yukarıdaki kodda hata mesajı aldığımda

Kod: Tümünü seç

image1.picture:=nil;

komut satırı yoktu. hatayı alınca aklıma pekçok fotoğraf hafızaya dolup temizleyemeyince oldu heral diyerek nil komutunu ekledim. şimdilik sorun yok gibi ama denemem yaklaşık 300 fotoğraf üzerinde. bu sorgu sonucu 3-4-5 bin civarında olunca yukarıdaki kod nasıl bir iş yapar. tecrübe ve fikirlerinizi bekliyorum.

kolay gelsin.