FastReport by Code, Werte manipulieren

[Der schöne Günther]

Du kannst doch der Picture deines TfrxPictureView -Objekts alles mögliche zuweisen. Oder statt LoadFromFile(..) passenderweise 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

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