Jpeg resimlerin formda gösterilmesi

Delphi'de kod yazma ile ilgili sorularınızı bu foruma yazabilirsiniz.
Cevapla
Kullanıcı avatarı
bobasturk
Kıdemli Üye
Mesajlar: 1387
Kayıt: 20 May 2004 08:39
Konum: Düzce

Jpeg resimlerin formda gösterilmesi

Mesaj gönderen bobasturk »

Öncelikle ADO konusunda ve katılımım hakkında nezaket gösteren arkadaşlara ve diğer arkadaşlara teşekkür ederim.

Sorunum şu; bu konuda baya baya yeniyim. Jpeg hakkındaki diğer konuları okudum. Yeni olunca insan anlamakta güçlük çekiyor. Hazırladığım bir çalışma var memurum ve büromda işime yarayacak bir çalışma hazırlıyorum. Tek kullanıcılı. DbaseIV ile hızırlanmış toblolarım var. Bu tabloda kişisel bilgiler var. Bu tobloya bağlı yani veri girişimi sağlayan formum var Delphi 7 kullanıyorum. Ayrı bir klasörde jpeg fotoğraflar var kişilerin fotoğrafları ve bu fotoğraflar numaralar ile kayıtlı yani '333333' gibi altı rakamlı. Tablonun içine atarak tabloyu şişirmek istemiyorum. Bunun yerine kayıtlı olan kişilerin numaraları ile fotoğraf numaraları eşleştiği (aynı) olduğu için tabloya yolunu girmek, formda bulunan kişinin numarasına tıklayınca veya yanına konulacak düğmeye tıklayınca fotoğrafının görünmesini istiyorum yani dilediğim zaman düğmeye basayım ve tabloya yazdığımız yolu takip ederek o şahsın fotoğrafını göstersin. Gösterme işini DbImage ile veya başka bir ortamda olabilir fark etmez.

Bu işi tamamiyle deneyerek veya forumları takip ederek öğreniyorum o yüzden zorlanıyorum. Bana tam olarak yardımcı olursanız sevinirim.

Tabloya hangi alanı atamalıyım-tabloda oluşturulan alana fotoğrafların yolunu nasıl yazarım (kişi numarası ile aynı olan fotoğrafı bulacak) formda koyacağım düğmeye hangi komutu yazmalıyım

Teşekkürler saygılarla
iyi çalışmalar
olc bilalolcay@msn.com
Kullanıcı avatarı
şimal
Kıdemli Üye
Mesajlar: 516
Kayıt: 10 Kas 2003 09:36
Konum: ANKARA

Mesaj gönderen şimal »

Ya ewt bu fotograf kaydetme sorun. Delphide hiç uğraşmadım ama C# da beni çok zorlamıştı. Bu konuda bilgisi olan varsa makale bekleriz :wink:
Kullanıcı avatarı
feinpus
Üye
Mesajlar: 214
Kayıt: 17 Kas 2003 04:37
Konum: İstanbul
İletişim:

Mesaj gönderen feinpus »

string bir alan ekle ve button'nun onclick olayına

image1.loadfromfile(tablo1.fieldbyname('resimYolu').asstring+'.jpg');

yazarsan sorun olmaz ancak jpg formatını görüntüleyebilmek için uses kısmına "Jpeg" unitini eklemelisin.
Oldeye Software
http://www.oldeye.com
Kullanıcı avatarı
şimal
Kıdemli Üye
Mesajlar: 516
Kayıt: 10 Kas 2003 09:36
Konum: ANKARA

Mesaj gönderen şimal »

Peki yol değilde fotograf binary formatta kaydedilmişse? Nasıl geri yüklenir?
Ve binary nasıl kaydedilir?
Kullanıcı avatarı
feinpus
Üye
Mesajlar: 214
Kayıt: 17 Kas 2003 04:37
Konum: İstanbul
İletişim:

Mesaj gönderen feinpus »

Eğer resmi direct olarak veritabanının içerisine attıysan bunu;

ilk olarak table1'in fieldeditor'ünde bütün alanları tanımla daha sonra bu alanları direct olarak kullanabileceksin. Bundan sonra

Table1Resim.savetofile('c:\asd.bmp');
Oldeye Software
http://www.oldeye.com
Kullanıcı avatarı
husonet
Admin
Mesajlar: 2962
Kayıt: 25 Haz 2003 02:14
Konum: İstanbul
İletişim:

Mesaj gönderen husonet »

veritabanında Binary bir alan tanımlarsın
jpeg ekleyeceğiz

varsayalım
tabloda resimler adında alanımız olsun binary tanımlanacak forma 1 adet table1 bileşeni koyalım gerekli bağlantıları yapalım table çift tıklayalım add all fields tiklayalim
Resim Eklemek İçin

Kod: Tümünü seç

burada resimler alaninin adi 
Table1Resimler olacaktir 
Table1.Append; 
Table1Resimler.Loadfromfile(DosyaAdı); 
Table1.Post; 

kolay gelsin...

Gazete manşetleri
* DİKKAT :Lütfen forum kurallarını okuyalım ve uyalım...!
* Warez,crack vs. paylaşımı kesinlikle yasaktır.
Kullanıcı avatarı
husonet
Admin
Mesajlar: 2962
Kayıt: 25 Haz 2003 02:14
Konum: İstanbul
İletişim:

Mesaj gönderen husonet »

Bunu arşivimden aldım test etmedim :) O yüzden açıklama yazmıyorum :)

Resimi Gostermek için de

Kod: Tümünü seç

Uses jpeg; 
VAr 
Resim:TjpegImage; 
Begin 

Resim:TjpegImage.Create; 
try 
Resim.LoadFromStream(Table1ResimAlani.DataSet.CreateBlobStream(Table1Soru,bmRead)); 
Image1.Picture.Graphic:=Resim; 
Finally 
Resim.Free; 
end; 
Kolay Gelsin...

Gazete manşetleri
* DİKKAT :Lütfen forum kurallarını okuyalım ve uyalım...!
* Warez,crack vs. paylaşımı kesinlikle yasaktır.
Kullanıcı avatarı
rsimsek
Admin
Mesajlar: 4482
Kayıt: 10 Haz 2003 01:48
Konum: İstanbul

Mesaj gönderen rsimsek »

İlgili konu daha önce geçmişti. Arayan bulur :wink:
Bilgiyi paylaşarak artıralım! Hayatı kolaylaştıralım!!
Kullanıcı avatarı
calvan
Üye
Mesajlar: 119
Kayıt: 16 Haz 2003 05:10

Mesaj gönderen calvan »

dephinin örneklerinde imageview var , incele , fikir verir
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 »

rsimsek yazdı:İlgili konu daha önce geçmişti. Arayan bulur :wink:
Haklısın recep abi :wink:
Kafkas Kartalı Kabarday
Sitesi!= http://www.ahmetceylan.com
Resim
Cevapla