Veza je upravo nikakva slika-podaci zato mi i nije jasno zasto nemam podatke na izvestaju. Ispitujem da li slika postoji pre ucitavanja.Evo deo koda:
Code:
if QRReport = Nil then QRReport :=TQRReport .Create(Application);
QRReport .Query1.Close;
QRReport .Query1.ParamByName('param').AsString := RxDBGrid1.Fields[0].Text;
QRReport .Query1.Open;
//////////////////// kod za slike
if FileExists(Concat(PutanjaSlika,QPregledParam.Text,'.JPG')) then
begin
QRReport.QRImage1.Picture.LoadFromFile(Concat(PutanjaSlika,QPregledPoMBrULMatBr.Text,'.JPG'));
end else
begin
QRReport.QRImage1.Picture.LoadFromFile('D:SlikeNema.JPG');
///ili QRReport.QRImage1.Picture.LoadFromFile(Concat(PutanjaSlika,'Nema','.JPG'));
end;
////////////////////////////////////////// kod za slike
QRReport.Preview;
Samo napomena da na disku imam konturu za sliku kada ne postoji slika a to je (Nema.JPG)
Edit X Files: Kod stavljaj izmedju tagova predvidjenih za to, jer ce ti u najmanju ruku biti 'pojedeni' backslasjovi u kodu...