Wie drucke ich Liste von Bildern mit QuickReport 5

[EccoBravo]

Hallo ,

nachdem ich mit Fastreport4 annähernd verzweifelt bin habe ich mein altes QuickReport wieder belebt.
(Nun mit QuickReport 502)
Habe früher mit QuickReport nur Einseitenausdrucke gemacht, daher keine weitere Ahnung wenn es um mehrere Seiten geht.

Nun die Frage:
Ich habe eine Liste von 104 Bilddateinamen

(Bilder sind Pfad + *.bmp).
Bildnamen[1..104] of string.

Diese Bilder will ich in einen QuickReport ausgeben.

Die Dokumentation von QuickReport für NoDataBase-Anwender ist noch spärlicher als bei FastReport.

Danke für Hilfe.


EB.

[MrSpock]

Hallo,

wenn du keine Datenbank im Hintergrund hast, nutzt du das OnNeedData Event. Wenn der Report nicht mit einer Datenquelle verbunden ist, ruft er solange die mit dem OnNeedData Event verbundene Methode auf, bis MoreData false zurückliefert.

Delphi-Quellcode:

procedure TfrmReport1.QuickRep1NeedData(Sender: TObject; var MoreData: Boolean);
begin
    MoreDate := aktBildNo < anzBilder;
    
    if MoreData
    begin
       // Bild ausgeben;
       Inc(aktBildNo);
    end;
end;

[EccoBravo]

Danke Albert,

Habe Deinen Code eingetippt, aktBildNo in diesem procedure lokal als integer deklariert und statt

// Bild ausgeben QRImage1.Picture.Bitmap.LoadfromFile(Bilddateiname[aktBildNo]);

eingegeben.

Compiler funzt,
Report bleibt jedoch nach

Delphi-Quellcode:

QuickRep1.Prepare;
QuickRep1.Preview;

leer.

Eine Frage:
In welches Band muß ich das Image dazu setzen ?


Danke für kleinen Tip

EB

[MrSpock]

In ein Detailband.

[EccoBravo]

Hallo,


habe es so gemacht, trotzdem bleibt der Report leer,
keine Seite wird gezeigt.

Gruss
EB

[MrSpock]

Hallo EccoBravo,

stelle nochmal sicher, dass weder der Report selbst noch das Detailband mit einer Datenbank verbunden ist.

Außerdem musst du:

Delphi-Quellcode:

//QRImage1.Picture.Bitmap.LoadfromFile(Bilddateiname[aktBildNo]); 

QRImage1.Picture.LoadfromFile(Bilddateiname[aktBildNo]);

verwenden und Den kompletten Pfadnamen spezifizieren. Welches Typ haben deine Bilder?

[EccoBravo]

Danke Albert,

meine Bilder sind *.bmp, der komplette Pfad ist einbezogen.


Die DataSet im Report und Detailband sind leer.

Bei mir ist der letzte QR Einsatz lange her,

Heisst das von Dir gemeinte Detailband etwa QRSubDetail ?

In QR 4 war mir ein Detailband auch in Erinnerung.
Nur in QR502 habe ich soetwas wie QRDetailband nicht gefunden.
Dort gibt es
QRSubDetail
QRBand
QRPBand
QRChildBand
QRStringBand
QRLoopBand

Bestimmt habe ich etwas übersehen.

Danke

EB

[MrSpock]

Hallo EccoBravo,

ich meine das band "HasDetail".

Ich hab mal ein klitzekleines Testprogramm angehängt, dass ein BMP File dreimal hintereinander anzeigt. Du musst den Pfad in der OnNeed Methode anpassen , dann sollte es auch bei dir laufen.

[EccoBravo]

Danke, Albert für <Deine Bemühungen.

Leider ist bei mir ein anderes Destprogramm angekommen, eineTestanwendung für eine kleine Datenbank ohne Ladeprogramm für Bilder.
Auch konnte ich Dein Progrramm nicht komplett laden, da rinige Datenbankkomponenten wie TpFIBDatabase, TpFIBDataSet, TpFIBTransAction meinem Delphi unbekannt waren.
Auch war die Navigationsleiste für meine NoDataBase-Anwendung ungewöhnlich.
Trotzdem vielen Dank

EB

[MrSpock]

ooh, da ist tatsächlich das falsche Programm drin. Schicke dir Morgen nochmal das richtige.

Wenn du willst, kannst du mir mal dein Programm schicken. Ich gucke es mir dann mal an.