نمایش عکس در fastreport

[Mohajer_Moh]

با سلام خدمت دوستان

جهت نمایش عکس که در پوشه ای همراه برنامه می باشد بوسیله FastReport چگونه امکان پذیر است. با توجه به اینکه تمامی عکسها دارای کدهای منحصر بفرد می باشد. لطفا کد مربوطه را که در خود برنامه استفاده شود ذکر نمایید. (من قبلا این کار را در QR انجام دادم).

[vcldeveloper]

procedure Form1.InsertPicture(const frxControl: string; const FileName: string);
var
pic : TfrxPictureView;
begin
pic := frxReport.FindObject(frxControl) as TfrxPictureView;
if Assigned(pic) then
//Assign picture file to the picture object in the report.
pic.FileLink := FileName;
end;

procedure Form1.frxReportBeforePrint(Sender: TfrxReportComponent);
begin
InsertPicture('frxpicture1',ExtractFilePath(ParamS tr(0))+'MyPic.jpg');
end;