Hallo zusammen!
Ich verwende als Datenbank den embedded
mysql-server. Nun möchte ich ein paar Daten mit Rave ausdrucken. Da ich die Daten von dem embedded
mysql-server nur in einem array übergeben bekomme muss ich über die CustomConnection von Rave gehen, falls ich einen Report ausdrucken will. Ich habe mir auch schon einige Dokus zu dem Thema angeschaut und ausprobiert.
http://www.nevrona.com/files/next_steps_with_rave.pdf
und
http://www.delphipraxis.net/internal...stomconnection
Btw: Im Artikel 'Introduction to Rave Reports: Part IV' wird auf die CustomConnection in Part V hingewiesen. Irgendwie habe ich ihn noch nicht gefunden. Ist er noch nicht veröffentlicht?
Hier mal mein Beispielcode:
ist nicht sehr schön, wegen den Standartnamen, aber es ist nur ein Versuch.
Delphi-Quellcode:
strings : array [1..6] of string = ('test1','test1','test1','test1','test1','test1');
procedure TForm1.Button1Click(Sender: TObject);
begin
RvSystem1.DefaultDest := rdPreview;
RvSystem1.Execute;
end;
procedure TForm1.RvCustomConnection1GetCols(
Connection: TRvCustomConnection);
begin
Connection.WriteField('Spalte_1',dtString,10,'','');
end;
procedure TForm1.RvCustomConnection1Open(Connection: TRvCustomConnection);
begin
Connection.DataRows := High(strings);
end;
procedure TForm1.RvCustomConnection1GetRow(
Connection: TRvCustomConnection);
begin
Connection.WriteStrData(strings[connection.dataindex],'');
end;
Auf dem Formular sind folgende Komponenten: TRvSystem, TRvProject und TRvCustomConnection.
Ich habe einen Report mit einem DatenBand, welches ein DatenTextFeld enthält, erzeugt.
Irgendwas fehlt jetzt noch, da mir als Preview ein leeres Blatt angezeigt wird. Ich habe
auch schon mit den Ereignissen OnFirst bzw. OnNext der CustomConnection herumprobiert,
leider ohne Erfolg.
Weiß jemand Rat?
Marcus