FastReport by Code, Werte manipulieren

[bernhard_LA]

ich möchte einen Fastreport komplett via code erzeugen, meine Daten kommen aus einer FDmemTable.
hier der aktuelle Code

Delphi-Quellcode:

procedure TForm2.BitBtn_FastReportClick(Sender: TObject);
var
  Report: TfrxReport;
  Page: TfrxReportPage;
  DataPage: TfrxDataPage;
  Band: TfrxBand;
  DataBand: TfrxMasterData;
  Memo: TfrxMemoView;
  Memo_1: TfrxMemoView;
  Memo_2: TfrxMemoView;
  Memo_3: TfrxMemoView;
  Memo_4: TfrxMemoView;
  DataSet: TfrxDataset;
  frxDBDataSet: TfrxDBDataset;
  PictureView: TfrxPictureView;
  Frxdataset: TfrxDataset;
  ItemIndex: Integer;
  ItemCount: Integer;
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!';
    Memo.Height := 20;

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

    { add the masterdata band }
    DataBand := TfrxMasterData.Create(Page);
    DataBand.CreateUniqueName;
    DataBand.DataSet := frxDBDataset1;

    { the Top coordinate should be greater than the previously added band’s top + height }
    DataBand.Top := 100;
    DataBand.Height := 300;

    { add an object on master data }
    Memo_1 := TfrxMemoView.Create(DataBand);
    Memo_1.CreateUniqueName;

    { connect to data }
    Memo_1.DataSet := frxDBDataset1;
    Memo_1.DataField := 'Index';
    Memo_1.SetBounds(0, 0, 100, 20);

    { adjust the text to the right object’s margin }
    Memo_1.HAlign := haRight;

    Memo_2 := TfrxMemoView.Create(DataBand);
    Memo_2.CreateUniqueName;

    { connect to data }
    Memo_2.DataSet := frxDBDataset1;
    Memo_2.DataField := 'Object';
    Memo_2.SetBounds(150, 0, 100, 20);

    Memo_3 := TfrxMemoView.Create(DataBand);
    Memo_3.CreateUniqueName;

    { connect to data }
    Memo_3.DataSet := frxDBDataset1;
    Memo_3.DataField := 'Type';
    Memo_3.SetBounds(300, 0, 100, 20);

    Memo_4 := TfrxMemoView.Create(DataBand);
    Memo_4.CreateUniqueName;
    Memo_4.Font.Height := 8;
    Memo_4.Font.Color := clred;

    { connect to data }
    Memo_4.DataSet := frxDBDataset1;
    Memo_4.DataField := 'newBMP';
    Memo_4.SetBounds(10, 40, 1400, 20);


    PictureView:=TfrxPictureView.Create(DataBand);
    PictureView.SetBounds(100,100,300,300);
    PictureView.Picture.LoadFromFile('E:\demo.bmp');
    PictureView.AutoSize := true;
    PictureView.Stretched := true;


    { show the report }
    Report.ShowReport;

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

  finally
    Report.Free;
  end;

end;

Ich have aktuell folgendes Problem:
Der Name der zu plottenden Grafik soll nicht immer

Delphi-Quellcode:

PictureView.Picture.LoadFromFile('E:\demo.bmp');

sein
sondern der Wert aus meiner FDMEmtabelle in der Spalte/Field newBMP . Wie greife ich hier auf den richtigen wert zu ?
Im nächsten Schritt möchte ich dann noch eine Bildunterschrift einfügen, diesen String würde ich auch erst zur Berichtserzeugung erstellen.

[Der schöne Günther]

Du kannst doch der

Delphi-Quellcode:

Picture

deines

Delphi-Quellcode:

TfrxPictureView

-Objekts alles mögliche zuweisen. Oder statt

Delphi-Quellcode:

LoadFromFile(..)

passenderweise

Delphi-Quellcode:

LoadFromStream(..)

verwenden.

Oder ist dein Problem (entgegen der Überschrift) doch eher "Wie bekomme das Bild aus meiner FDMemTable raus" statt "Wie bekomme ich es in FastReport rein")?

[bernhard_LA]

ich möchte diesen Code zu Laufzeit ausführen, dh. er muss muss in der Datenbank nach dem BmpFilename suchen unhd dann die entsprechende BMP im Bericht anzeigen :

Delphi-Quellcode:

    Imagefilename := frxDBDataset1.DataSet.FieldByName('newBMP').AsString;

    PictureView := TfrxPictureView.Create(DataBand);
    PictureView.SetBounds(100, 100, 300, 300);

    if fileexists(Imagefilename) then
    begin
      PictureView.Picture.LoadFromFile(Imagefilename);
      // PictureView.AutoSize := true;
      PictureView.Stretched := true;

    end
    else
    begin
      PictureView.Picture.LoadFromFile('warning.bmp');
      // PictureView.AutoSize := true;
      PictureView.Stretched := true;
    end;

meine Lösung funktioniert nur leider nicht :-(

[Der schöne Günther]

Du hast doch einen Debugger und eine Tastatur. Was genau funktioniert nicht?

[bernhard_LA]

die Zeile

Delphi-Quellcode:

Imagefilename := frxDBDataset1.DataSet.FieldByName('newBMP').AsString;

wird aber nur einmal ausgeführt, ich will aber für jedes record in meiner Datenbank einen Aufruf ...


und auch dieser Ansatz geht nicht :

Delphi-Quellcode:

    ..... 

    ///
    ///   30 eigene Datensätze hinzufügen am Ende vom Bericht,   der Code hat keine Funktion :-( 
    ///
    for I := 0 to 30 do
    begin
    Band := TfrxMasterData.Create(Page);
    Band.CreateUniqueName;

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

    Memo_L := TfrxMemoView.Create(Band);
    Memo_L.CreateUniqueName;
    Memo_L.text := 'Hello FastReport Loop  ' + IntTostr(i);
    Memo_L.Height := 20;
    Memo_L.SetBounds(0, 0, 100, 20);
    end;



    { show the report }
    Report.ShowReport;

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

  finally
    Report.Free;
  end;

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

Zitat von bernhard_LA (Beitrag 1520191)

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;