Delphi Forum

Bu bahsettiğin atamayı kişi siciline bakarak kendi otomatik olarak yapıyor değilmi yoksa benim tek tek her kişi için yazmammı lazım ?

Formuna Timage adlı bileşeni ekledin mi?
Adı Timage1 olabilir mi ?
Hata olarak ne yazıyor ?
Timage ismi hata olarak
Timage.Picture.LoadFromFile(dosyayolu);
bu kısmı kırmızıya boyuyo çalıştırınca. Sicil isminde olan kısmın değiştiğinde eventine ekleyince hata vermiyor.Ama resim gelmiyor
sicili ...

bu kod dosyayolu adlı değişkendeki resmi gösterecektir.
Güvenlik ile ilgili sıkıntı yoksa resimleri klasorde topla sicilno.jpg olarak kaydet
dosyayolu :='43724573' // sicil no ataması yapınca varsa resmi gösterir
database içine resim ekleyerek kullanacağım dersen database yapı ve kurallarını ...

dosyayolu :='c:\data\rsm\resim1.jpg' ;
if FileExists(dosyayolu) then begin // dosya varsa aşağıdaki kodu çalıştır.
Timage.Picture.LoadFromFile(dosyayolu);
end;


forma 1 adet Timage ekleyin
diğer bilgileri ekrana getirdiğiniz procedure de yukarıdaki kodu ekleyin formunuzda dosyayolu adli ...

bu kodu access te kullanıyordum.
Dim Foto, fotoDosya, Klasor
Foto = Me.SİCİLİ
Klasor = "\Fotolar\"
fotoDosya = Application.CurrentProject.Path & Klasor & Foto & ".jpg"
Resim.Picture = fotoDosya
Exit Sub
Hata:
Resim.Picture = Application.CurrentProject.Path & Klasor & "Boş.jpg"
End Sub

Senin ...

Delphide acemiyim daha önce access ile hazırlamış olduğum rehber programını delphide hem yapıp hem de delphide kendimi denemek istedim
Access te bir dosya içerisine resimlerimi yükleyip formda kullanıcıya ait resmi o dosya yolunu göstererek kullanıcı siciline göre aldırıyordum resimlerin adı ...