Delphi-PRAXiS - FastReport by Code, Werte manipulieren

Seite 1 von 2

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)

- Sonstige Werkzeuge (https://www.delphipraxis.net/63-sonstige-werkzeuge/)

- - FastReport by Code, Werte manipulieren (https://www.delphipraxis.net/212726-fastreport-code-werte-manipulieren.html)

FastReport by Code, Werte manipulieren

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&#8217;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&#8217;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&#8217;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.

AW: FastReport by Code, Werte manipulieren

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")?

AW: FastReport by Code, Werte manipulieren

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

AW: FastReport by Code, Werte manipulieren

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

AW: FastReport by Code, Werte manipulieren

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;

AW: FastReport by Code, Werte manipulieren

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.

AW: FastReport by Code, Werte manipulieren

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;

AW: FastReport by Code, Werte manipulieren

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

AW: FastReport by Code, Werte manipulieren

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.

AW: FastReport by Code, Werte manipulieren

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;

Seite 1 von 2