FileExists'de Access violation hatası

[loxka]

Kod: Tümünü seç

if FileExists(Form14.Table1ArsivKlasoru.Value+(Form2.Table1AdiSoyadi.AsString+'_'+Form2.Table2ID.AsString)+'.jpg') then
  begin
    JvThumbImage1.Visible := True;
   JvThumbImage1.Picture.LoadFromFile(Form14.Table1ArsivKlasoru.Value+(Form2.table1AdiSoyadi.AsString+'_'+Form2.Table2ID.AsString)+'.jpg');
  end else JvThumbImage1.Visible := False;
end;

Resim yolunu form14 deki table1 den arsivklasörü alanından tanımlıyorum ama FileExists(Form14.Table1ArsivKlasoru.Value+.. satırında Accesss violation hatası alıyorum.

Yardımlarınız için teşekkür ederim.

[aslangeri]

s.a
bu satır çalıştığı sırada form14 ve form2 nin create edilmiş olduğundan eminmisiniz?

[loxka]

Evet hocam create ediliyor. Tıkandık kaldık yine

[Lost Soul]

ordan olur mu bilmiyorum ama istersen

Kod: Tümünü seç

showmessage(Form14.Table1ArsivKlasoru.Value+(Form2.Table1AdiSoyadi.AsString+'_'+Form2.Table2ID.AsString)+'.jpg') 

ile dönen değerin ne olduğunu bi kontrol et.

[loxka]

Bu kod datasource ün ondatachange event ındaydı. ordan alıp bir butona atayınca çalıştı ama benim bunu resimleri okuyabilmem için datasource de kullanmam gerekiyor.
Bu aşamadan sonra ne yapacağım?

[Lost Soul]

Bu kod datasource ün ondatachange event ındaydı. ordan alıp bir butona atayınca çalıştı ama benim bunu resimleri okuyabilmem için datasource de kullanmam gerekiyor.
Bu aşamadan sonra ne yapacağım?

ÖYLE DESENE YAF
ondatachanage olayına ilk satıra aşağıdaki kodu ekle



uses db

Kod: Tümünü seç

if Form14.Table1.state<>dsbrowse then exit;

if Form2.table1.state<>dsbrowse then exit;

if Form2.Table2.state<>dsbrowse then exit;

[loxka]

eyvallah, ellerin dertlenmeye