FastReport - Images laden

[Jack and the Juice]

Hallo zusammen,

ich habe eine Frage bezüglich der FastReports. Ich steige gerade von QuickReports um und bis bisher auch ganz zufrieden, allerdings komme ich bei einem Problem nicht weiter. Ich habe in meiner Datenbank (ClientDataSet) ein Feld namens "Land". Nun möchte ich gerne im Report links neben dem Ländernamen die zugehörige Flagge positionieren. Bei den QuickReports war das kein Problem, da habe ich mich einfach einer ImageList bedient und je nach Name die benötigte Grafik geladen. Bei den FastReports fehlt mir allerdings komplett der Ansatz, da ich auch nicht ganz sicher bin, wie genau Bedingungen in dem Report eingebracht werden.

Vielleicht nimmt sich jemand meinem Problem an und kann mir behilflich sein.
Bis dahin, mit besten Grüßen,
jackandthejuice

[Steku]

Hallo,

schau doch mal hier, da hatten wir auch so eine Frage...

http://www.delphipraxis.net/161534-b...ml#post1110698

Gruß,
Steku

[Jack and the Juice]

Hallo,

auf den Thread bin ich auch schon gestoßen, nur leider ist mir nicht ganz klar, wie ich dies bei der vorhandenen Datenbank anwenden soll. Es muss ja quasi bei jedem Datensatz erneut überprüft werden, welches Land aktuell eingetragen ist und demnach das Bild geladen werden. Daher bin ich mir nicht sicher, wo genau ich den vorgeschlagenen Code einsetzen soll/muss. Vielleicht liegt es auf der Hand, allerdings bin ich noch recht unsicher was FastReports angeht, weshalb ich lieber einmal zu viel nachfrage, als zu wenig. Ich hoffe, ihr verzeiht mir das

Besten Gruß,
jackandthejuice

[Steku]

Hi,

habe vor längerer Zeit nur mal mit der Demo
von FR rumprobiert, kann dir deshalb leider nicht erschöpfend
helfen, aber hast du dir schon mal die Demos von FR
reingezogen. Da sind ziemlich viele Basic-Demos dabei,
die soweit ich mich daran erinnern kann, genau solche Sachen
abdecken. Der entsprechende Beispielreport hieß glaube ich
Bands and Pictures, oder Memo and Pictures, oder...
Sorry weiß es leider nicht mehr genau...

Weiter viel Glück und Gruß,
Steku

[Jack and the Juice]

Heyho,

alles klar, besten Dank trotzdem. Ich versuche derzeit da Ganze aufgrund der englischen Dokumentation nachzuvollziehen, welche im Übrigen ziemlich gut ist.
Leider vermisse ich halt genau diesen Punkt, aber vielleicht hat ja doch schonmal jemand damit gearbeitet und kann mir den entscheidenen Hinweis geben
Die Demos schau ich mir trotzdem mal an, eventuell finde ich da ja noch etwas.

Bis dahin, besten Gruß,
jackandthejuice

[Steku]

Nochmals Hi,

habe mir eben nochmal schnell die compilierte Demo
gezogen.
Das entsprechende Beispiel hieß wirklich "Memos and Pictures"
und ist unter den Basic-Reports zu finden.

Wirklich sehr einfach gehalten, hilft dir aber vielleicht weiter.

Gute Nacht
Steku

[Jack and the Juice]

Hallo,

ich hab die Demos von FastReport nochmal durchgeschaut, aber leider noch immer keine Lösung für die Problematik gefunden. Die Demos gehen nur darauf ein, wie Bilder aus der Datenbank geladen werden. Ich möchte jedoch, je nach Wert des Feldes "Land" ein Image auf meinem Report haben. Könnte ich eventuell mit mehreren Bildern arbeiten und per Bedingung die nicht benötigten ausblenden? Nur wie genau setze ich das um? Ich hoffe sehr auf noch einen Denkanstoß ...

Bis dahin, besten Gruß,
jackandthejuice

[mkinzler]

Befinden die Bilder sich in einer Datenbank? Sonst müsstest du den Inhalt per Skript oder manuell setzen

[Sir Rufo]

Schau dir mal die Events im Report an.
Da gibt es einen OnBeforePrint Ein guter Zeitpunkt um einer Komponente (z.B. einer Image-Komponente) noch schnell vor dem Drucken etwas mitzugeben (z.B. ein Bild von wo auch immer)

Dieses Event findest du an jeder Komponente (auch bei den Bändern, etc.)

[Jack and the Juice]

Nein, "damals" bei den QuickReports befand sich das Ganze in einer Imagelist. Ich habe jetzt folgendes versucht, nur leider ändern sich die Bilder nicht.

Im OnNext vom TfrxDBDataSet steht nun folgendes:

Delphi-Quellcode:

var
  PictureView: TfrxPictureView;
  imgindex: Integer;
begin
  ...
  if cdsmain.FieldByName('Land').value = 'Deutschland' then
    imgindex := 0;
  if cdsmain.FieldByName('Land').value = 'Frankreich' then
    imgindex := 1;
  ...
  PictureView := frxReport1.FindObject('landimg') as TfrxPictureView;
  PictureView.Picture.bitmap.FreeImage;
  imglist1.GetBitmap(imgindex, PictureView.Picture.bitmap);

Wie gesagt, das Bild bleibt immer bei, in diesem Falle, Deutschland. Per Debugger hab ich das überprüft, die Variable imgindex ändert sich allerdings.