einfaches RAVE Beispiel

[wschrabi]

Hallo,
ich bastle heute meine erste Rave App mit Delphi 7.
Doch macht es Schwierigkeiten.

Code:

procedure TForm1.Button7Click(Sender: TObject);
begin
  With RvProject1.ProjMan do
    begin
    RvProject1.Open;
    RvDataSetConnection1.ExecGetCols; // get list
    RvDataSetConnection1.ExecGetRow;  // obtain records
    RvProject1.ExecuteReport('Report3');
    Close;
  end;
end;

procedure TForm1.RvDataSetConnection1GetCols(
  Connection: TRvCustomConnection);
begin
  Connection.WriteField ( 'Journal', dtString, 200 ,'','');
end;

procedure TForm1.RvDataSetConnection1GetRow(
  Connection: TRvCustomConnection);
var
  s: string;
  Buffer: PChar;
begin
  Connection.WriteStrdata ('', DBGrid1.Fields[0].AsString );
end;

procedure TForm1.Button8Click(Sender: TObject);
begin
  MyQuery3.Execute;
end;

procedure TForm1.RvDataSetConnection1Open(Connection: TRvCustomConnection);
begin
  Connection.DataRows := 1;
end;

Im DBGrid sieht man die Journals sehr schön. Doch wenn ich den Report erzeuge und mit Preview in sehe, dann ist das Blatt leer (ausser die Seitenzahl 1)