Bitmap in Rave Report ansprechen

[little_budda]

Hallo,

ich habe eine Grafik und einen Text in einem Rave-Report.
Den Text kann ich ansprechen über "SetParam".
Klappt einwandfrei.
Aber das zuweisen der Grafik klappt nicht.

Delphi-Quellcode:

  RvProject1.Open;
  RvProject1.SetParam('Label_001', 'AusgabeMuster');
  RvProject1.SetParam('barCodeImage', imgBarCode.Picture.Bitmap);  // <- Klappt nicht
  RvProject1.Execute;

Was mache ich falsch?
Kann ich eine Grafik nicht über SetParam ansprechen?

Gruß Holger.

[merlin17]

Holger,

du musst noch ein BeforePrint - Event im RaveSkript einfügen;


Bitmap1.FileLink := RaveProject.GetParam('barCodeImage');


that's all



thomas, TeamNevrona (nach langer zeit wieder etwas zeit für die DP ...)

[little_budda]

Hallo,

ich habe jetzt folgendes eingefügt

Delphi-Quellcode:

procedure Tfrm_main.RvSystem1BeforePrint(Sender: TObject);
begin
  imgBarCode.FileLink := RvProject1.GetParam('barCodeImage');

  // imgBarCode = Timage auf der Form
  // 'barCodeImage' = Variable im Rave Report

end;

Aber ".FileLink"kennt meine IDE nicht

[merlin17]

in der RAVE-IDE nicht in Delphi...



{ Event for Bitmap1.OnBeforePrint }

function Bitmap1_OnBeforePrint(Self: TRaveBitmap);
begin
Bitmap1.FileLink := RaveProject.GetParam('barCodeImage');
end;

thomas, TeamNevrona

[little_budda]

Oops.
Sorry.

Habe ich jetzt als Event für die Bitmap Komponente eingefügt.
Aber -> Es erscheint kein Bild in meinem Report.

Wundert mich eigentlich auch nicht.
Woher weiß der BeforePrintEvent denn welche Grafik er nehmen soll?
Ich verstehe den Zusammenhang noch nicht.



[Edit]
Als Übergabe vom Projekt kommt bisher
  RvProject1.SetParam('barCodeImage', imgBarCode.Picture.Bitmap); Das kann er nicht kompalieren weil ich mit SetParam nur Strings übergeben kann.
imgBarCode.Picture.Bitmap = TBitmap
[/Edit]

[merlin17]

okay, habe ich etwas falsch gelesen ....

der weg über die CustomConnection

Connection.WriteField('FieldGrafik', dtGraphic, 30,'','');


oder der weg über RANT:

Delphi-Quellcode:

var
  MeinBitmap: TRaveBitmap;
  MeineSeite: TRavePage;
begin
 with RvProject1.ProjMan do
  begin
    MeineSeite := FindRaveComponent('Report1.Page1', nil) as TRavePage;
    MeinBitmap := FindRaveComponent('Bitmap1', MeineSeite) as TRaveBitmap;
    MeinBitmap.Image.Assign(Image1.Picture.Bitmap);
  end;

  RvProject1.ExecuteReport('Report1');

thomas

[little_budda]

Der Report mag mich nicht...

Ich habe jetzt das "RANT" Beispiel eingebaut.
(Kann ich nach vollziehen, gefällt mir besser)

Er kennt die Typen "TRaveBitmap" und "TRavePage" nicht.
Unter Uses habe ich folgedes eingebunden
RpRenderPDF, RpRender, RpRenderCanvas, RpRenderPrinter, RpDefine, RpRave, RpBase, RpSystem, RpRenderPreview In der Hilfe findet sich leider extrem wenig über Rave

[merlin17]

uses um folgende units erweitern;

RVClass, RvProj, RVCsStd,


thomas, TeamNevrona

[little_budda]

Du bist mein Held

Danke.Klappt.

[Quake]

Und auch mein Held auch