Veritabanlarında Genelde Resimler pek tercih edilmezler,sebebi Veritabanlarını şişirdikleri için ..bu yüzden Proğramcılar değişik yöntemler aramağa başlamışlar ve hala bu konuda arayış içindeler.Ama bir gerçek varki günümüzde artık görsel (Resimli)projeler daha çok rağbet görmeğe başlamıştır.
Ama bazı Proğramcılar, Resimleri KB'ları düşük olmak kaydıyla Network'de kullanım kolaylığı yüzünden, Veritabanına kaydederek proje geliştiriyorlar.
Ben Size,Bir çok sitede de ,örnekler verilen ,Resimi Yoluyla Kaydetmeyi Toparlayarak, kısa ve uygulamalı anlatmağa  çalışacağım.
{Firebird Veritabanı ve Interbase Bileşenleri Kullanıldı.}
..............................;
Önce Veritabanımızda, IDNO(Integer) (ki... bu çok önemli; IDNO'da"Generators" Kullanıyoruz.Bu Field'ı gizliyebilirsiniz.) RESIM_ADI(VarChar=50), RESIM_YOLU(VarChar=200) Fieldlerini açıyoruz.(Diğer Ekliyeceğiniz Fieldler sizin Projenizin Gelişimine kalmış.Yani size bağlı.).


Sonra; Form'umuzda bir Image ve DBEdit1 Koyuyoruz ve Generators tanımlı IDNO'yu DBEdit1'e Atıyoruz,
"OnChange" Olayına;
try
  Image1.Picture.LoadFromFile(IBDataSet1.FieldByName('RESIM_YOLU).AsString);
 except
  Image1.Picture.LoadFromFile('C:\Proje\resimyok.bmp');
 end;Böylece ilk Kod'umuzu Ekliyoruz,"IDNO" Field'li DBEdit1'in "OnChange" olayına atanan Bu Kod Resimlerin Görüntülenmesi açısından çok önemlidir.
Diyelim Yoluyla kaydettiğiniz Resim HardDisk'inizden silindi,daha önceden hazırlayıp"('C:\Proje\resimyok.bmp');" bu adrese kopyalayacağınız, resim olmadığını anlatan bir Joker resim'i hedefliyoruz,bunun amacı silinen orjinal resim bulunamazsa, bu Joker resim devreye girecektir.

yine bir OpenPictureDialog'la,DBEdit2 Koyup,"RESIM_YOLU" Field'ini Atıyoruz.Bu Field'e Resmin Yolu Yazılacaktır,Bu Field'de çok önemlidir.

Şimdi gelelim Resimlerin Yolunu Veritabanına yazma olayına  Form'umuza bir Button koyuyoruz,bu Buttonun "OnClick" Olayına;

begin
if MessageDlg('YENİ KAYIT AÇMAK İSTİYORMUSUNUZ?', mtWarning, [mbOK, mbCancel], 0) = mrOK then
  begin
   try
    IBDataSet1.Append;
   except
    ShowMessage('YENi KAYIT EKLERKEN HATA OLUSTU TEKRAR DENEYiNiZ');
   end;
   //OpenPictureDialog1.Filter:='All images ('+BitmapLoaders.GetLoadFilter;(Daha önceki makalemde Kullandığım "TiffRead.dll"dosyasını-projenizin Exe'nin      bulunduğu   yere kopyalayarak Tüm Formatları kullanabilirsiniz.).
  if OpenPictureDialog1.Execute then//Uses'e "jpeg";" eklemeyi unutmayınız.
    //with TLinearBitmap.Create do//("Filter" Parametresi kullanılırsa........).
     begin
       //LoadFromFile(OpenPictureDialog1.FileName);("Filter" Parametresi kullanılırsa........).
       Image1.Picture.LoadFromFile(OpenPictureDialog1.FileName);//Resim önce imagede görüntüleniyor.
       IBDataSet1.Edit;//Veritabanına yazmak için hazır......
       DBEdit2.Text:=OpenPictureDialog1.FileName;//Resmin VT'de görüntülenmesi için son darbe burada vuruluyor.
       IBDataSet1.Post;//Veritabanına yazıyor....
      end;
   end;.......Atıyoruz...En son olarak Formumuza  DBText ve bir DBGrid Ekliyoruz (Liste için) , "OnCellClick" ve "OnKeyUp" olayına yine aşağıdaki kod'u atıyoruz;

DBText1.Caption:=IBDataSet1RESIM_YOLU.AsString;Bunun Amacı Veritabanına kaydedilen Resim yolunu,Imagenin uygun bir yerine yerleştireceğimiz DBText'de görüntelemektir...

.............................Böylece Resimleri yoluyla Veritabanına kaydeden küçük projemiz hazır..HDD'nizin kapasitesine göre ,bu Şekilde Yüzlerce ve binlerce Resim'i yoluyla Veritabanınıza yazdırıp gösterebilirsiniz. Bir hatamız olduysa af ola ......Kolay Gelsin.......

Ellerine sağlık hocam. :_tsk

Rica ederim........

Server/Client programlamada

Evet Bunun üzerinede çalışmalarım var ... ama şu anda deneme aşamasında......

"Veritabanına Resim'i Yoluyla ,Kayderek Göstermek" Başlıklı makalenin  arkadaşlarımıza daha faydalı olması kanısıyla Makaleye Ek olarak hazırladığım; Örnek proğramı Ek Seçenekler 'e Ekliyorum.("resimdeneme" Deneme Veritabanının bulunduğu klasörü C:\ kopyalayınız).
Kolay Gelsin.