FastReport by Code, Werte manipulieren

[rokli]

Hallo,

möglicherweise musst Du die Variable vor der zweiten Verwendung CLEARen, damit ein neues Bild angezeigt wird.

Ergänzung: Sorry, hatte den REPORT.FREE nicht gesehen.

[bernhard_LA]

ich denke die Lösung müsste so ungefähr gehen ...
habt Ihr Inputs ?

Delphi-Quellcode:

procedure TForm2.BitBtn_FastReportClick(Sender: TObject);
var
  Report: TfrxReport;
  Page: TfrxReportPage;
  DataPage: TfrxDataPage;
  NewDataPage: TfrxDataPage;
  NewPage: TfrxReportPage;
  Band: TfrxBand;
  NewBand: TfrxBand;
  DataBand: TfrxMasterData;
  Memo: TfrxMemoView;
  Memo_1: TfrxMemoView;
  Memo_2: TfrxMemoView;
  Memo_3: TfrxMemoView;
  Memo_4: TfrxMemoView;
  Memo_L: TfrxMemoView;
  DataSet: TfrxDataset;
  frxDBDataSet: TfrxDBDataset;
  PictureView: TfrxPictureView;
  Frxdataset: TfrxDataset;
  ItemIndex: Integer;
  ItemCount: Integer;
  I: Integer;
  DBImagefilename: String;
  DBType, DBObjectName: String;
begin

  FileName := LabeledEdit.text;

  Report := TfrxReport.Create(nil);
  try

    { add a dataset to the list of ones accessible for a report }
    Report.DataSets.Add(frxDBDataset1);

    DataPage := TfrxDataPage.Create(Report);

    { add a page }
    Page := TfrxReportPage.Create(Report);

    { create a unique name }
    Page.CreateUniqueName;

    { set sizes of fields, paper and orientation by default }
    // Page.SetDefaults;

    { add a report title band }
    Band := TfrxReportTitle.Create(Page);
    Band.CreateUniqueName;

    { it is sufficient to set the «Top» coordinate and height for a band }
    { both coordinates are in pixels }
    Band.Top := 0;
    Band.Height := 20;

    { add an object to the report title band }
    Memo := TfrxMemoView.Create(Band);
    Memo.CreateUniqueName;
    Memo.text := 'Hello FastReport with loop dataset ';
    Memo.Height := 20;

    { this object will be stretched according to band’s width }
    Memo.Align := baWidth;


    NewDataPage := TfrxDataPage.Create(Report);
    ///
    /// 30 eigene Datensätze hinzufügen am Ende vom Bericht, der Code hat keine Funktion :-(
    ///
    for I := 0 to frxDBDataset1.RecordCount - 1 do
    begin

      DBImagefilename := frxDBDataset1.DataSet.FieldByName('newBMP').AsString;
      DBType := frxDBDataset1.DataSet.FieldByName('Type').AsString;
      DBObjectName := frxDBDataset1.DataSet.FieldByName('Object').AsString;

      NewBand := TfrxMasterData.Create(NewDataPage);
      NewBand.CreateUniqueName;

      NewBand.Top := 100;
      NewBand.Height := 300;

      Memo_L := TfrxMemoView.Create(NewBand);
      Memo_L.CreateUniqueName;
      Memo_L.text := 'Hello FastReport Loop ' + IntTostr(I)  + DBType ;
      Memo_L.Height := 20;
      Memo_L.SetBounds(10, 10, 100, 20);

      if fileexists(DBImagefilename) then
      begin
        PictureView := TfrxPictureView.Create(NewBand);
        PictureView.SetBounds(100, 100, 300, 300);

        PictureView.Picture.LoadFromFile(DBImagefilename);
        // PictureView.AutoSize := true;
        PictureView.Stretched := true;

      end
      else
      begin
        /// to be done later
      end;

    end;

    { show the report }
    Report.ShowReport;

    Report.FileName := FileName;
    Report.PrepareReport(true);
    // Report.Export(TfrxPDFExport, FileName);

  finally
    Report.Free;
  end;

end;

[mytbo]

Zitat von bernhard_LA:

ich denke die Lösung müsste so ungefähr gehen ...
habt Ihr Inputs ?

Das Layout eines Berichts zu programmieren und dieses dann mit Daten zu füttern sind zwei unterschiedliche Dinge. Jedes für sich genommen ist mit dem richtigen Vorgehen einfach zu erledigen. Wie ein Ansatz zur Umsetzung aussehen kann, kannst du in diesem Artikel nachlesen.

Bis bald...
Thomas

[ConnorMcLeod]

Nur mal so aus dem Kopf:
Das "Band" brauchst Du nur einmal, das ist ein Platzhalter für einen (jeden) Record.
Das Band hat ein Event "OnBeforePrint", in dem Du die auszugebenden Daten manipulieren kannst. Da drin würde ich dann das jeweilige Bild laden.

[bernhard_LA]

gibt es dafür code demos ? ich will ja alles via Code erledigen ohne Verwendung der Fast Reports GUI ?
Die wäre mein Entwurf für den event handler ... nur kann ich diesen Code nicht mit meinem Databand verknüpfen ... -> wer kann hierbei helfen ?

Delphi-Quellcode:

procedure TForm2.DataSet_BeforePrint(Sender: TfrxComponent);
var
  PictureView: TfrxPictureView;
  Imagefilename : String ;
begin
  { get the picture view object }
  PictureView := TfrxPictureView(DataBand.FindObject('PictureView'));

  { get the filename from the dataset }
  Imagefilename := frxDBDataSet.FieldByName('newBMP').AsString;

  { load the image and modify it }
  if fileexists(Imagefilename) then
  begin
    PictureView.Picture.LoadFromFile(Imagefilename);
    // execute image processing functions here
  end
  else
  begin
    PictureView.Picture.LoadFromFile('warning.bmp');
  end;
end;

[ConnorMcLeod]

Da wäre die Hilfe:
https://www.fast-report.com/document...rint_event.htm

d.h. Du machst eine Prozedur und weist sie zu.

Delphi-Quellcode:

procedure Form2.InternalOnBeforePrint(Sender: TfrxComponent);
begin
  // das recordspezifische Bild holen, Schnellschuß ohne Prüfungen:
  PictureView.Picture.LoadFromFile(frxDBDataset1.DataSet.FieldByName('newBMP').AsString);
end;

procedure TForm2.BitBtn_FastReportClick(Sender: TObject);
var
  DataBand: TfrxMasterData;
...
begin
...
  DataBand.OnBeforePrint := InternalOnBeforePrint;
...
end;

[bernhard_LA]

die Zuweiung geht bei mir leider nicht , ich bekomme folgende Fehlermeldung.

DataBand.OnBeforePrint:= Dataset_BeforePrint;


[dcc64 Error] demofastreports.pas(181): E2035 Not enough actual parameters