نمایش عکس در FastReport (فراخوانی عکس از اینترنت)

[nasr]

سلام
من با این کد عکس را از روی کامپیوتر نشون میدم
در OnBeforePrint

var
img : TfrPictureView;
begin
img :=frprtCardAll.FindObject('Picture1') as TfrPictureView;
img.Picture.LoadFromFile('test.jpg');
end;
ولی حالا می خوام عکسی را فراخوانی کنم که روی اینترنت قرار داره یعنی به جای test.jpg عبارت http://www.domain.com/test.jpg

نسخه fastreport 2.5 , Delphi7
ممنون

[farzadkamali]

سلام
من با این کد عکس را از روی کامپیوتر نشون میدم
در OnBeforePrint

var
img : TfrPictureView;
begin
img :=frprtCardAll.FindObject('Picture1') as TfrPictureView;
img.Picture.LoadFromFile('test.jpg');
end;
ولی حالا می خوام عکسی را فراخوانی کنم که روی اینترنت قرار داره یعنی به جای test.jpg عبارت http://www.domain.com/test.jpg

نسخه fastreport 2.5 , Delphi7
ممنون

درود
با یه ذره تلاش و جست و جو فکر کنم بهش میرسیدی.

یک کامپوننت IdHTTP رو روی فرمتون بزارید و کتابخانه Jpeg رو به Uses برنامتون اضافه کنید .



var
img : TfrxPictureView;
MS: TMemoryStream;
Jpg: TJPEGImage;
begin
MS:= TMemoryStream.Create;
Jpg:= TJPEGImage.Create;
try
IdHTTP1.Get('http://www.atighrayaneh.com/images/gh1.jpg', MS);
Ms.Seek(0, soFromBeginning);
Jpg.LoadFromStream(MS);
img :=frxReport1.FindObject('Picture1') as TfrxPictureView;
img.Picture.Assign(Jpg);
frxReport1.ShowReport();
finally
FreeAndNil(Jpg);
FreeAndNil(MS);
end;
end;


البته من با دلفی xe2 و fast report 4 تست کردم و جواب گرفتم. ولی فکر نمی کنم فرقی داشته باشه. باید جواب بده. مشروط بر اینکه آدرس اینترنتی عکستون درست باشه.

نمایش یک عکس از اینترنت در یک Timage:
http://barnamenevis.org/showthread.php?228731-%D8%A8%D8%A7%D8%B2-%DA%A9%D8%B1%D8%AF%D9%86-%D9%88-%D9%86%D9%85%D8%A7%DB%8C%D8%B4-%D8%B9%DA%A9%D8%B3-%D8%AF%D8%B1-%D8%AF%D9%84%D9%81%DB%8C

[sempaisaleh]

با سلام
من می خوام یک عکس رو داخل گزارشم بندازم. آدرس عکس هم به عنوان یک فیلد از پایگاه داده است که به گزارش فرستاده میشه. میشه راهنمایی کنید؟

با تشکر

[sempaisaleh]

دوستان مثل همیشه منتظر راهنمایی های مفید و کاربردیتان هستیم