Image1 sorunu

[quake16]

Merhaba

Formumda mevcut olan image nesnesinde resileri gösterip kayıtlarda gezerken değiştirebiliyorum. Fakat datada resim kaydı boş olan bir kayda geldiğinde program aşağıda yazdığım hatayı veriyor.

raised exception class EInvalidGraphic with message 'Unknown picture file extension (.)'.

image1 deki resimleri database de gezinirken değişmesi içinde aşağıdaki kodu kullanıyorum.

procedure Tf_stokkarti.EdKodPropertiesChange(Sender: TObject);
begin
image1.Picture.LoadFromFile(Dm1.QrStok.fieldByName('STKRESIM').AsString);
end;

nerede yanlış yapıyorum konu hakkında yardımlarınız bekliyorum.

[unicorn64]

resim kaydı boş, yani olmayan bir dosyayı göstermesini bekliyorsunuz, ee adam ne yapsın...
resimlerinizin bulunduğu klasöre resimyok adında bir resim dosyası ekleyin ve kodunuzu Dm1.QrStok.fieldByName('STKRESIM').AsString boşsa resimklasoru\resimyok.jpg dosyasını gösterecek şekilde düzenleyin...

[quake16]

unicor64 kusura bakmayın çok fazla kod pratiğim yok acaba burdaki kodu bana açabilir misiniz örnek şekilde

[unicorn64]

o zaman öncelikle neyi niye yaptığınızı öğrenene kadar programlama mantığını ve kodlama pratiğinizi geliştirdikten sonra veritabanı işlemlerine vs girmeniz sizin için daha faydalı olacaktır... yoksa bu sorunuzla ilgili çözüm örneği versek bile bir sonraki sorunda yine tıkanacaksınız...

[greenegitim]

if FileExists, if not FileExists araştırabilirsin

[brs]

Umarım işini görür...

Kod: Tümünü seç

begin
  try
    with Form1.Ayarlar do
    begin
      Close;
      SQL.Clear;
      SQL.Add('Select * From AYARLAR');
      Open;
       if Length(FieldByName('RESIM').AsString) = 0 then
        begin
          Showmessage('bu alanda resim yok');
        end
        else
        begin
       Showmessage('bu alanda resim var');
        end;
        Close;
      end;
    end;
  except
  end;
end;

[carsoft]

arkadaşım dosyanın olup olmadığını kotrol ederek işlem yaparsan daha iyi olur..

Kod: Tümünü seç

if FileExists('\\?\'+FileName) then