fastReport und ShowReport

[DevStar]

Hallo,

habe folgende Frage zu FastReport 3

Leider finde ich kein Code-Beispiel zum "Progressbar".

Delphi-Quellcode:

Showprogess := true;
OldStyleProgress := true;

funktioniert ja. Allerdings will ich nicht die Seitenzahlen dargestellt haben, sonden eine Progressbar.

Wer hat ein passendendes Code-Schnippsel parat? Mit Google war ich erfolglos.

Danke im vorraus.

Gruß DevStar

[Memo]

Ich habe nur FR4, aber in der Hilfe steht:

Zitat:

property OnProgressStart : TfrxProgressEvent;

Description
This event is fired at start of some continuos operation (print, export, run report). The event handler may display a dialog window with progress bar. Progress parameter is a page number which is currently processed.

Vllt. gabs das in FR3 auch schon.

[DevStar]

Ja, da gibt es einige Möglichkeiten. Das ist schon richtig.
Nur ist es nicht kommentiert und es gibt nirgends ein Beispiel.

FR hat wohl einen eigenen Progress-Dialog (nicht der Oldstyle).

Im Prinzip brauche ich ja nur die Seitenzahl im vorraus wissen und an die Progressbar übergeben.
Der Report musss dann im Hintergrund erstellt werden.

Leider weiss ich nicht wie ich anfangen soll.
Hat jemand schon so etwas für FastReport erstellt?

Ich habe einen Report, der seine Daten aus sieben SQL-Dateien holt und knapp 200 Seiten daraus erstellt.
Das dauert natürlich, deshalb wäre die "richtige" Progressbar schon optimal.

Gruß DevStar

[DevStar]

Keiner Ideen?


Gute Nacht

[alzaimar]

Probiers doch einfach mal aus.

OnProgressStart: Erzeugt ein nichtmodales Fenster mit ProgressForm.Show, sowie der Initialisierung der Progressbar.
OnProgress: Setzt den Balken der Progressbar (und ruft ggf. Application.Processmessages auf)
OnProgressStop: Entfernt die ProgressForm.

Ist doch ganz einfach.

Wichtig ist nur, das beim ersten Durchlauf die Gesamtanzahl der Seiten noch nicht bekannt ist. Daher wirst Du wohl erst im zweiten Durchlauf (Engine.FinalPass = True) eine Progressbar anzeigen können. Wenn dein Report aber immer +/- 200 Seiten hat, dann setzt Du eben beim 1.Durchlauf ProgressBar.Max auf 200.

[DevStar]

Danke erstmal.

Die Befehle habe ich zwar gefunden, jedoch weiss ich nicht welche Parameter ich übergeben muss. Daran hakt es nämlich.

Sender (TfrxReport)

ProgressType (TfrxProgressType)

Progress (Integer)

Gebe ich bei Sender meinen Report an, so gibt es eine Access Violation


Hat denn jemand ein Beispiel?

Danke schon im vorraus.

DevStar

[alzaimar]

Der Sender sagt dir, welches Objekt die Nachricht geschickt hat.
Las Dir einfach mal Progress und ProgressType anzeigen. Verändern musst du da nichts.

[DevStar]

Ich gebs auf....

Immer Access Violation...

Zugriffsverletzung bei Adresse 00000000000

Ohne Codebeispiel komme ich nicht weiter.

Mit der alten Progressbar (Oldstyle) klappt es ja wunderbar.

[alzaimar]

Zeig mal deinen Code. AV at 00000000 bedeutet, das Du irgendein Objekt nicht instantiiert hast.

[DevStar]

Delphi-Quellcode:

try
  Report.PepareReport;
  Report.Showprogress := true;
  Report.OnProgressStart (Report, ptRunning, iPages);
finally
  Report.ShowPreparedReport;
  Report.OnProgressStopp (Report, ptRunning, iPages);
end;

Musste eben alles abtippen, da der Delphi-PC nicht am Internet hängt.

Gruß DevStar