Qreport Resim Sorunu

[Mustafa973]

Arkadaşlar yaptığım programda kayıtları raporluyorum fakat resim isminde bir klasörde kayıtlı resimlerde sorun var;

Şöyle her resmi TC kimlik no ile resim adlı klasöre kaydettim veritabanından kayırlar sorgulayıp rapora aktarıyor fakat resim olarak tüm kayıtlaa aynı resim geliyor.
Yazdığım kod aşağıdaki gibi nerede eksik var yardım ederseniz sevinirim.

procedure TFormRaporlama.BitBtn39Click(Sender: TObject);
var yol,cumle:string;
begin
yol:=ExtractFilePath(Application.ExeName);
ADOQuerytekrapor.Close;
ADOQuerytekrapor.SQL.Clear;
ADOQuerytekrapor.SQL.text:='SELECT * FROM genelbilgileri' ;
ADOQuerytekrapor.Open;

if FileExists(yol+'resim\'+FormRaporlama.ADOQuerytekraportckimlikno.AsString+'.jpg') then
Formraporizle.QRImage1.Picture.LoadFromFile(yol+'resim\'+ADOQuerytekraportckimlikno.AsString+'.jpg');

Formraporizle.QuickRep1.PreviewModal;

[aslangeri]

s.a.
image bileşenine resim yüklemeyi image nesnesinin olduğu bandın beforeprint eventinde yazmanız lazım.
kolay gelsin.

[Mustafa973]

Hocam çok teşekkürler o sorunu dediğin giib hallettim.

şimdi ise tüm kayıtları raporlarken resim olmayan kişi olunca hata veriyor. kod aşağıdaki gibi ama yinede hatalı


procedure TFormdetayrapor.DetailBand1BeforePrint(Sender: TQRCustomBand;
var PrintBand: Boolean);
var yol:string ;
begin
yol:=ExtractFilePath(Application.ExeName);
if FileExists(yol+'resim\'+formraporlama.ADOQuery1tckimlikno.AsString+'.jpg') then
begin
QRImage1.Picture.LoadFromFile(yol+'resim\'+FormRaporlama.ADOQuerytekraportckimlikno.AsString+'.jpg');
end
else
begin
QRImage1.Picture:=nil;
end;
end;

end.

[aslangeri]

hatayı hangi satırda veriyor ve verdiği hata mesajı nedir onlaı yazmamışsın.
muhtemelne picture a nill atadığın için veriyordur.
onun yerine resim klasörüne içinde resim yok yazan bir resim koy. o resmi göster. veya içi boş bir resimde olabilir.

[Mustafa973]

Hocam teşekkürler sorunu çözdüm adoqery1 yazan yeri diğer query bağladım sorun çözüldü.