database jpg kaydetme

Delphi'de kod yazma ile ilgili sorularınızı bu foruma yazabilirsiniz.
Cevapla
dcpromo
Üye
Mesajlar: 38
Kayıt: 12 May 2005 12:27

database jpg kaydetme

Mesaj gönderen dcpromo »

merhaba arkadaşlar ben forumda jpg kaydetme hakkında dökümanları topladım ve böyle bir program yaptım ama resimleri bir türlü gösteremedim yardımcı olursanoız sevinirim.

if fileexists(adotable1.fieldbyname('path').AsString+adotable1.fieldbyname('code').AsString+'.jpg') then
begin
image1.Picture.LoadFromFile(adotable1.fieldbyname('path').AsString+adotable1.fieldbyname('code').AsString+'.jpg');

end
else
begin
if not fileexists(adotable1.fieldbyname('path').AsString+adotable1.fieldbyname('code').AsString+'.jpg') then
showmessage('"'+adotable1.fieldbyname('code').AsString+
'"'#13'code Numaralı etiketin'#13'resmi Kayıtlarda Yok');

end;

dbgride dolanırken image1 deki resmin değişmesi gerek değilmi yanlışmı biliyorum.sql de resimlerin tutuldugu yeri gösterdim c:\label diye.

yardımlarınız için çok teşekkür ederim.
dcpromo
Üye
Mesajlar: 38
Kayıt: 12 May 2005 12:27

a

Mesaj gönderen dcpromo »

sql deki tablom şu şekilde

id code name path
1 1135 bbb c:\label
2 1185 xxx c:\label
Kullanıcı avatarı
MicroChip
Kıdemli Üye
Mesajlar: 1119
Kayıt: 02 Ağu 2003 01:02
Konum: İstanbul
İletişim:

Mesaj gönderen MicroChip »

hocam daha önce yazdığım

viewtopic.php?t=991&highlight=blob

şu yazıyı iyice bir okuyun


ve dbgridde aşağı yukarı hareket ederken resim değişsin diyorsun yazdığım yazıdaki ilk kodu kullanarak okutma yapacaksın.

Hayırlı çalışmalar
Kafkas Kartalı Kabarday
Sitesi!= http://www.ahmetceylan.com
Resim
Cevapla