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

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