Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Datenbanken (https://www.delphipraxis.net/15-datenbanken/)
-   -   Delphi FreeReport und Bild (https://www.delphipraxis.net/104445-freereport-und-bild.html)

sebi87 4. Dez 2007 13:26

Datenbank: Firebird • Version: 2.0 • Zugriff über: mit ZeosLib

FreeReport und Bild
 
Hallo Leute bin jetzt neu im Forum und hätte da auch gleich ein kleines Problem.

Ich programmiere seit einiger Zeit an einer Mitgliederdatemdank, in dieser soll eine Personenakte mittels FreeReport gedruckt werden. Das Probelm das ich dabei jetzt habe ist das ich nicht weiß wie ich beim Erzeugen des Reports Bilder aus einer Datei die als Pfad in der Datenbank steht ausgebe.

Die Ausgabe von einer Datenbank Variablen bzw. vom Benutzer definierte Variablen ist kein Problem, nur das mit dem ImageView bekomme ich nicht hin kann mir da jemand halfen?
Oder hat mir jemand ein Stück Code wo ich mir das abschauen kann?


Danke Sebastian

sebi87 10. Dez 2007 09:12

Re: FreeReport und Bild
 
Kann mir da keiner Weiterhelfen?
Ich bekomm da so nicht hin :-(

FBrust 10. Dez 2007 09:46

Re: FreeReport und Bild
 
Hallo,

ich kann Dir das zwar nur für den "großen Bruder" von FreeReport (FastReport) sagen, aber vielleicht hilft es Dir ja trotzdem:

Delphi-Quellcode:
var frPic: TfrxPictureView;

begin

        with frxReport1 do begin
          strLogo := 'bild.jpg'
          frPic := TfrxPictureView(FindObject('Picture1'));
          frPic.Picture.LoadFromFile(strLogo);
end;
Gruß
Frank

sebi87 10. Dez 2007 13:17

Re: FreeReport und Bild
 
Hallo,

also ch hab das so wie du es geschreiben hast mal auspriobiert, schein auch zu funktionieren.
D.h. es wird normal Compiliert und beim Report erzeugen füre ich das dann aus. Funktioniert alles. Nur das Bild wird nicht angezeigt.
Muss ich das machen nach dem der Report erzeugt ist oder muss ich da noch irgendwas einschalten?


Grüßle Bastii

FBrust 10. Dez 2007 13:29

Re: FreeReport und Bild
 
Hallo,

nein, normalerweise kommt nach der Zuweisung nur noch der ShowReport-Befehl (Du kannst aber auch noch ein PrepareReport davorsetzen), also so:

Delphi-Quellcode:
var frPic: TfrxPictureView;

begin
  with frxReport1 do begin
    strLogo := 'bild.jpg'
    frPic := TfrxPictureView(FindObject('Picture1'));
    frPic.Picture.LoadFromFile(strLogo);
    PrepareReport;
    Showreport;
  end;

end;
Hast Du "bild.jpg" und "Picture1" auch durch Deine eigenen Namen ersetzt? Vergisst man manchmal... :wink:


Gruß
Frank

sebi87 10. Dez 2007 15:52

Re: FreeReport und Bild
 
Ja hast recht lag an dem Namen des Pictures.
DANKE

Jetzt hab ich noch ne ganz kleine Frage. So Erzeuge ich auf jeder Seite eines Reports mit ReportType "rtMultiple" das gleiche Bild. Wo muss ich es einbinden wenn ich für jeden Datensatz ein anderes Bild haben möchte?


Grülße Sebastian

FBrust 10. Dez 2007 16:04

Re: FreeReport und Bild
 
Hmm, das weiss ich auch nicht so genau, das Beispiel in der Dokumentation geht davon aus, dass die Bilder direkt in der DB liegen.

Spontan würde ich sagen, dass Du bei einem Datensatzwechsel das Bild laden musst, d. h. Du müsstest das Laden des Bildes in das "OnBeforePrint"-Ereignis des Masterbandes in Deinem Report verlagern, also den Pfad als Variable an den Report übergeben.

...ist aber nur so ins Blaue hinein fabuliert, nicht getestet :stupid:, k. A. ob das mit FreeReport überhaupt geht.


Gruß
Frank


Alle Zeitangaben in WEZ +1. Es ist jetzt 00:19 Uhr.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz