FastReport - Images laden

[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

[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.

[Jack and the Juice]

Ich melde mich hier nochmals zu Wort, falls jemand anders ein ähnliches Problem haben sollte.

Das hier ist der, von mir zunächst genutzte, falsche Weg:

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;
  imglist1.GetBitmap(imgindex, PictureView.Picture.bitmap); 
end;

Um das Ganze zu realisieren, reichte es bei mir aus, einfach ein TBitmap zu erstellen und dieses dann dem PictureView zuzuordnen. So funktioniert es:

Delphi-Quellcode:

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

[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.)