Resimi Olmayanları nasıl geçerim.

[Delphi08]

Benim bir ürün dosyam vede bir ürün resimlerimin bulunduğu ayrı bir dosyam var ve bazı ürünlerin resimleri yok.Ürün ve resim dosyalarının adları aynı.
Ancak bazı ürünlerin resimleri olmadığından aşağıdaki source hata veriyor.
Boş olan resimleri nasıl geçerim.

image1.Picture.LoadFromFile('c:\Resim\'+ADOQuery1urun_no.value+'.jpg')

[sadettinpolat]

Kod: Tümünü seç

if fileexist('c:\Resim\'+ADOQuery1urun_no.value+'.jpg') Then
  image1.Picture.LoadFromFile ('c:\Resim\'+ADOQuery1urun_no.value+'.jpg')

[Asri]

işlemi gerçekleştirmeden önce dosyanın var olup olmadığının kontrolünü yaptırabilirsin.Dosya var ise resmi yüklesin yok ise resmi olmayanlara standart bir resim resimyok.jpg gibi bir resim kullanabilirsin.

iyi çalışmalar.

Kod: Tümünü seç

 
  if fileexists(ADOQuery1urun_no.value+'.jpg')
  then
image1.Picture.LoadFromFile('c:\Resim\'+ADOQuery1urun_no.value+'.jpg')
  else
  image1.Picture.LoadFromFile('c:\Resim\'+'resimyok.jpg')

[Asri]

benden hızlısın bakıyorum sadettin kardeş

[sadettinpolat]

utanmasak sorudan önce yazacaz cevabı

[bobasturk]

maşaallah denir buna bende kendi soruma bakıp geri dönene kadar dört cevap gelmiş helal olsun size. Benide aydınlattınız.

Gerçi soru vt adına farklı olsada benim soru ile aynı olmasından dolayı aynı yere yazabilirdiniz.

bu arada bende bu konudan istifade etmiş bulundum.

kolay gelsin.

[warder]

Kod: Tümünü seç

else   Image->Picture = NULL;  //delphide nil miydi...

[Delphi08]

Hepinize teşekkür ederim.
Yazmış olduğunuz cevapları denedim ama aşağıdaki hatayı veriyor.
Yardımlarınız için sonsuz teşekkürler.
HATA:"jpeg error H53."[/img]

[bobasturk]

Merhaba

Uses kısmına jpeg eklemişsindir herhalde?
Gerçi hata mesajının anlamını bilmiyorum.

Kolay gelsin.

[Delphi08]

Hepinize teşekkürler...Sağolun...