Wie kann ich ein Memofeld mit Rave-Report drucken !!

[B5MTS]

Hallo,

ich möchte mit dem RaveReport 5.0 drucken.
Mein Problem ist folgender.
Ich habe in Delphi eine Suchanfrage erstellt, die dann in einem Memofeld gespeichert werden soll.
Nun möchte ich das Memofeld zum RvProject in das DataMemo schicken.
Aber dies funktioniert nicht.
Kann mir einer dazu Tips geben oder mir einen Link sagen, wo ich die Tips finde ??

Mein Ergebnis sollte dann so aussehen, das ich dann ber Button-Klick das Memofeld ausdrucken kann.

Ich währe euch sehr dankbar.

Viele Grüße
B5MTS

[edit=sakura] Die Farben sind da, um Elemente eines Textes hervorzuheben, nicht um alles einzufärben Mfg, sakura[/edit]

[merlin17]

hi,
ist am schnellsten und besten über eine CustomConnection zu realisieren.

Zitat:

einen Link sagen, wo ich die Tips finde ??

unter www.nevrona.com/rave gibt es eine Tips&Tricks-seite
bzw. im Binaries-Bereich von den nevrona.com-newsgroups sind
auch immer viele beispiele (nicht nur von mir)zu finden.


thomas, TeamNevrona

Code:

procedure TForm1.Button1Click(Sender: TObject);
var
   MyPage   : TRavePage;
   MyMemo   : TRaveMemo;
   Buffer   : PChar;
begin
   RvProject1.Open;
   with RvProject1.ProjMan do begin
        MyPage := FindRaveComponent('Report1.Page1', nil) as TRavePage;
        MyMemo := FindRaveComponent('Memo1', MyPage) as TRaveMemo;
        GetMem(Buffer,Length(Memo1.Text) + 1);
        StrCopy(Buffer, PChar(Memo1.Text));
        MyMemo.Text:=Buffer;
        FreeMem(Buffer);
    end;
   RvProject1.ExecuteReport('Report1');
   RvProject1.Close;
end;

procedure TForm1.RvCustomConnection1GetCols(
  Connection: TRvCustomConnection);
begin
      Connection.WriteField('FieldMemo1',dtMemo,30,'',''); 
                                                       
end;

procedure TForm1.RvCustomConnection1GetRow(Connection: TRvCustomConnection);
var
   s : string;
   Buffer : PChar;
begin
  GetMem(Buffer,Length(Memo1.Text) + 1);
  StrCopy(Buffer, PChar(Memo1.Text));
  Connection.WriteBlobData( Buffer^, Length(Memo1.Text));
  FreeMem(Buffer);
end;

[B5MTS]

Hallo,

danke für die Hilfe mit dem Code.

Aber meine jetzige Frage, warum geht es hier nicht weiter ??

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject); 
var 
   MyPage   : TRavePage; 
   MyMemo   : TRaveMemo; 
   Buffer   : PChar; 
begin

Er gibt mir dann folgenden Fehler...

Code:

  [Fehler] Ergebnis.pas(183): Undefinierter Bezeichner: 'TRavePage'
  [Fehler] Ergebnis.pas(184): Undefinierter Bezeichner: 'TRaveMemo'

Wo und was muß ich definieren ??

Vielen Dank im vorraus
vy B5MTS

[merlin17]

ergänze die uses um RVCsData , RvCsStd

hier gibt es eine datei (ist zwar für rave3, aber vom prinzip immer noch passend, vieles wurde von rp... auf rv... geändert:
http://www.nevrona.com/files/publicclasses30g.pdf

thomas, TeamNevrona

[B5MTS]

Hallo,

vielen Dank, nun klappt es..

Zitat:

ergänze die uses um RVCsData , RvCsStd

Hier fehlte noch RVClass



B5MTS

[merlin17]

hallo,

Zitat:

Hier fehlte noch RVClass

allzu' einfach wollte ich es auch nicht machen ...
nein, habe ich schlicht vergessen



Thomas, TeamNevrona