Fast Report PrepareRaport

[Lemmy]

@Michael: Wenn Du ne PN schreibst und ne Antwort willst, dann solltest Du die Beschränkung abschalten, dass man dir keine PN schreiben darf

[michael.cohrs]

Oh Sorry, hab ich glatt übersehen das Häckchen jedoch ist das Problem noch vorhanden leider,
kennst Du eine Alternative zu Pages.AddPrepared ?

[Lemmy]

Ich habe es selbst noch nicht in den aktuellen FR versucht, aber in FR4++ sollte das funktionieren:

frxReport1.PreviewPages.AddFrom(frxReport2);

[michael.cohrs]

Guten Morgen Lemmy,

ich hab es versucht und es klappt auch, jedoch ist das nicht die Lösung für mein Problem
denn die Fastreport Routine PrepareReport ist so quälend langsam, alles andere läuft recht flott.
Ist es möglich einen oder mehrere Reports ohne Prepare darzustellen? Ich denke da an Memorystream oder ähnliches

[Frickler]

Zitat von michael.cohrs:

Guten Morgen Steku, guten Morgen Frickler,

@ Frickler: Es sind 2-Pass Reports. Dein Ansatz / Lösung kling vielversprechend, hast Du vielleicht ein
Beispiel für mich an dem ich mich Orientieren kann, ich habe bisher keine Erfahrung damit.

Hier mal kurz skizziert, wie das funktioniert (mit UniDAC):

Delphi-Quellcode:

var
  TempProvider: TDataSetProvider;
  TempQuery   : TUniQuery;
...
TempProvider := TDataSetProvider.Create(nil);
TempQuery := TUniQuery.Create(nil);
try
  try
    TempQuery.Connection := ...
    TempQuery.UnPrepare;
    TempQuery.SQL.Text := 'SELECT bla FROM blubb WHERE faselrhabarber = :F';
    TempQuery.Params := ...
    TempQuery.Prepare;
    TempQuery.Active := true;
    TempProvider.Options := [poIncFieldProps];
    TempProvider.DataSet := TempQuery;
    cds.IndexName := ''; 
    cds.Data := TempProvider.Data;
  except
    on E: Exception do
      ...(Fehler melden)...
  end
finally
  TempQuery.Free;
  TempProvider.Free;
end;

Hinweis: "cds" ist eine auf dem Datenmodul liegende TClientDataSet-Komponente. Diese dient dann als Datenquelle für den Report. "sqltxt" ist die Anweisung für den Report.