Free reporta çalışma zamanı resim ekleme

[AliRiza]

Arkadaşlar freereportta çalışma zamanı nasıl resim eklerim.Yani quick reportta bu işlemi çok kolay yapıyorum..

Kod: Tümünü seç

form2.QRImage1.Picture.LoadFromFile('D:\etiket programı-1\images\'+adoquery1.fieldbyname('resim').asstring+'.jpg');
  form2.QuickRep1.Preview;

Ya buna benzer işlemi free reportta nasıl yaparım.Yani direk free reporttaki picture nesnesine ulaşmam lazım.Query'den gelen değere göre veriyi göstermem lazım..Quick reportta barkod olayı olmadığı için işimi görmüyor..
Lütfen arkadaşlar bu konuda bir çözümünüz varsa bana acil olarak yardım ediniz..
Nette araştırdım.Frpicture1 free reporta nesneye ulaşmak için frpicture1 findobjectde frpicture1 yazan kısma free reportta picture nesnesinin name'ini verdim..
Ama bu seferde şu hatayı alıyorum..
[Error] Unit1.pas(52): Incompatible types: 'TfrPictureView' and 'TfrView'.
Bu satırı sildiğimde access violation hatası alıyorum.Ya arkadaşlar bunun mutlaka bir yolu vardır.Lütfen yardım..

Kod: Tümünü seç

var
 frPic : TfrPictureView;
begin
 frPic := frReport1.FindObject('frPicture1');
 if frPic <> nil then
   frPic.Picture.LoadFromFile('d:\image\1.bmp');
end;  

[Fatih!]

forma visible özelliği false olan bir image bileşeni ekle.

şu şekilde rapor al

Kod: Tümünü seç

image1.Picture.LoadFromFile('C:\Belgelerim\Resimlerim\UNTITL ED.BMP'); //imageye resmi atıyoruz.

//Rapordaki Picture1 Bileşenine imagedeki resmi kopyalıyoruz
(frxReport1.FindObject('Picture1') as TfrxPictureview).Picture.Assign(image1.Picture);
frxReport1.ShowReport; //Önizleme 

http://www.delphidunyasi.com/Delphiden% ... Atamak.htm

[AliRiza]

Ya kardeş sana çok teşekkür ediyorum.Yapmak istediğim olay buydu ve senin sayende veritabanından gelen veriye göre resmi aktarıyorum.
Tüm dilek ve isteklerinin kabul olması dileğiyle..

[Fatih!]

rica ederim.sorunuuzubn çözüldüğüne sevindim