access ve jpeg.....

[agent]

arkadaşlar ADO ile access db me bağlanıp hem jpeg formatında resim kayıt etmek hemde bu kayıtı bir image nesnesinde göstermek istiyorum fakat bir türlü istediğimi yapan kodları yazamadım..sürekli hatalarla karşılaşiyorum.Bununla ilgili bana ufak örnek gösterebilecek arkadaşlar varmı ???
kolay gelsin..

[karflake]

Buraya bir bakın.

[agent]

maalesef o kodlarda da bende hata veriyor.. bu konu ile ilgili kendisi uygulama olarak çalıştırmış ve burada gösterebilecek arkadaş yom mu acaba?

[karflake]

Verdiğim linkteki kodu bir kez de ben denedim çalıştı. Foruma ekliyorum istersen bir bak.

[Fobus]

Resim yükleme konusunda yeteri kadar bilgim yok ama. Veri tabanına yüklemek iyi bir yol değil veritabanın hacminin artmasına neden olur. Bir dizine kopyalayıp resmin yerini göstermek çok daha iyidir veritabanınız şişmez ve daha hızlı veri çekersiniz.

[agent]

çok teşekkür ederim....kolay gelsin...

[hmustak]

Fobus, mesajından alıntı:

Resim yükleme konusunda yeteri kadar bilgim yok ama. Veri tabanına yüklemek iyi bir yol değil veritabanın hacminin artmasına neden olur. Bir dizine kopyalayıp resmin yerini göstermek çok daha iyidir veritabanınız şişmez ve daha hızlı veri çekersiniz.

uygulamaya başlamadan önce bu uyarıyı dikkate almalısın

[agent]

linkini verdiğiniz uygulama çalışıyor fakat aynı uygulamada farklı bir resim koyduğum zaman o resmi getirmiyor...ve aynı zamanda sanırım siz kod kısmında 3 adet field oluşturmuşsunuz fakat benim fieldlarım db de hazır var.yani bunu biraz karmaşık buldum tam olarak db ye resim kaydeden ve db den her çeşit (yani jpeg veya bmp ) şeklinde resim alıp grdi olmadan direk ekrana veren ufak en basit haliyle kod örneğiniz var mı??
biraz çok şey istiyorum gibi görünüyor ama acceess da şu resim olayı çok kafamı karıştırdı. herkese saygılar...

[agent]

veritabanından resmi okutuyorum #jpeg53 diye bir arıza veriyor..bunun anlamı nedir acaba??

datamo.resim_sor.TableName:='Ogretmen_bilgi';
datamo.resim_sor.Active:=true;

if not datamo.resim_sor.FieldByName('resim').Isnull then
begin
blobalan:=TADOBlobStream.Create(TGraphicField(data mo.resim_sor.FieldByName('resim')), bmread);
jpgresim:=tjpegimage.create;
jpgresim.LoadFromStream(blobalan);
Image1.Picture.Assign(jpgresim);
jpgresim.free;
blobalan.free;
end;