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