نمایش تصویر در فست ریپورت

[khoshblagh]

با سلام خدمت دوستان
میخواهم با کد زیر تصویری از از بانک sql و از فیلد از نوع ایمج نمایش دهم ولی خطا میگیرد. به نظر شما مشکل از چیست؟

procedure MasterData1OnBeforePrint(Sender: TfrxComponent);

begin

 Picture1.FileLink :=<frxDBDataset1."Aks">;      

end;

Untitled.png

البته در راهنمای استفاده از فست ریپورت این توضیح داده شده است که از file Link برای استخراج تصویر از روی دیسک میباشد. ولی جناب آقای کشاورز در یکی از پستها توصیه به استفاده از طریق استخراج از بانک اطلاعاتی نموده است.
Another useful property available only in the object inspector is "FileLink". Entering a filename, such as c:\picture.bmp, or a variable which contains a filename, such as [picture_file], will load the picture from the named file when you run the report.

[hamid-nic]

در حالت عادی وقتی datasource مربوط به pictures را مقدار دهی می کنید و fieldname را aks انتخاب می کنید تصویر را نمایش می دهد ؟

[khoshblagh]

با سلام
بله نشان میدهد.

[hamid-nic]

خوب این حالت File Link برای مواقعی که بخواهید یک تصویر را از یک آدرس مشخص باز کنید و نه دیتابیس مورد استفاده قرار میگیره . خاصیت datafield باید graphic باشه .

var

  img: string;



procedure ReportHOnStartReport(Sender: TfrxComponent);

begin

  img:='c:\imagen.jpg';

  Picture1.FileLink:=<img>;

end;

اگر قراره از دیتابیس خوانده بشه همون مقادیر دیتاست که خودتون هم تنظیم کردید و جواب داد را انجام بدهید .

[khoshblagh]

اگر قراره از دیتابیس خوانده بشه همون مقادیر دیتاست که خودتون هم تنظیم کردید و جواب داد را انجام بدهید .

متاسفانه خطای پست یک را نمایش میدهد.

[hamid-nic]

کدوتون برای نمایش از دیتابیس را بزارید .

[khoshblagh]

همون کد پست یک میباشد.

[hamid-nic]

بالاتر گفتید با تنظیم دیتاسورس و نام فیلد مربوط نمایش میدهد .
اولا که این کافیه برای نمایش
اما اگر قراره بصورت داینامیک خودتون با کد عوض کنید همین مقادیر را که ست کردید برای نمایش تصویر را با کدنویسی ست کنید .

[khoshblagh]

با سلام
من میخواهم از روشی که جناب آقای کشاورز ارائه نمودند استفاده نمایم.اما به روش معمول مشکلی ندارم. متشکرم

[hadisalahi2]

من اینطوری نمایش میدم

procedure MasterData1OnBeforePrint(Sender: TfrxComponent);

begin

  TopPic.FileLink :=trim(<frxDBDataset1."TopImage">);

  LeftPic.FileLink :=trim(<frxDBDataset1."LeftImage">);

  RightPic.FileLink :=trim(<frxDBDataset1."RightImage">);

end;

در ضمن نگاه کن مسیرهات فارسی نباشن