Quelltext der Seite FastReport Tipps und Tricks: Bilder zur Laufzeit laden

== Allgemeines ==

Man kann Bilder auch zur Laufzeit dynamisch aus der Datenbank laden.

Das heißt, es werden die Bilder angezeigt, zu dem ein '''Link''' in der Datenbank liegt.

Beispiel:

In den Artikel-Stammdaten kann man unter dem Register "Dokumente" auch Bild-Dateien hinterlegen. Genauer gesagt, hinterlegt man Links zu Dateien, die auf einem Server liegen.



== Im Report ==

Im Report fügt man ein Grafik-Objekt ein. Dieses bleibt erst mal leer, man stellt aber die Dimensionen usw. ein.

Im Code muss man nun das Ereignis "OnBeforePrint" des Bandes durch Doppelklick erzeugen. Dann fügt man diesen Code ein:

 <nowiki>procedure DetailDataDokumenteOnBeforePrint(Sender: TfrxComponent);</nowiki>
 <nowiki>begin </nowiki>
 
   <nowiki>if <ArtikelDokumente."Dateiname"> > '' then</nowiki>
   <nowiki>begin</nowiki>
     <nowiki>if ( Pos( '.JPG',Uppercase(<ArtikelDokumente."Dateiname">) ) > 0 )</nowiki>
     <nowiki>or ( Pos( '.JPEG',Uppercase(<ArtikelDokumente."Dateiname">) ) > 0 )</nowiki>
     <nowiki>or ( Pos( '.PNG',Uppercase(<ArtikelDokumente."Dateiname">) ) > 0 )</nowiki>
     <nowiki>or ( Pos( '.BMP',Uppercase(<ArtikelDokumente."Dateiname">) ) > 0 )</nowiki>
     <nowiki>or ( Pos( '.WMF',Uppercase(<ArtikelDokumente."Dateiname">) ) > 0 )</nowiki>
     <nowiki>or ( Pos( '.EMF',Uppercase(<ArtikelDokumente."Dateiname">) ) > 0 )</nowiki>
     <nowiki>or ( Pos( '.ICO',Uppercase(<ArtikelDokumente."Dateiname">) ) > 0 ) then</nowiki>
     <nowiki>   Picture1.Picture.LoadFromFile( trim(<ArtikelDokumente."Pfadname">) + trim(<ArtikelDokumente."Dateiname">) )</nowiki>
     <nowiki>else</nowiki>
     <nowiki>  Picture1.Picture := Nil;</nowiki>
   <nowiki>end</nowiki>
   <nowiki>else</nowiki>
   <nowiki>  Picture1.Picture := Nil;</nowiki>
 <nowiki>end;</nowiki>